unit_invmanage.dfm

用友系统二次开发 存货管理 客户管理 订货审核 退货审核 铺货计划 调货计划

          Align = alTop
          TabOrder = 0
          Visible = False
          object TotalSdate: TcxDateEdit
            Left = 324
            Top = 12
            EditValue = 0d
            Properties.Alignment.Horz = taCenter
            Properties.OnChange = FormShow
            Style.BorderStyle = ebsOffice11
            Style.ButtonTransparency = ebtHideUnselected
            TabOrder = 0
            Width = 81
          end
          object cxLabel17: TcxLabel
            Left = 264
            Top = 15
            Caption = #27719#24635#26085#26399
          end
          object TotalEdate: TcxDateEdit
            Left = 424
            Top = 12
            EditValue = 0d
            Properties.Alignment.Horz = taCenter
            Properties.OnChange = FormShow
            Style.BorderStyle = ebsOffice11
            Style.ButtonTransparency = ebtHideUnselected
            TabOrder = 2
            Width = 81
          end
          object cxLabel18: TcxLabel
            Left = 408
            Top = 17
            Caption = '~'
          end
        end
        object dxDBGrid1: TdxDBGrid
          Left = 0
          Top = 41
          Width = 662
          Height = 367
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          TabOrder = 1
          DataSource = DS_TranData
          Filter.Criteria = {00000000}
          OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
          OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
          object dxDBGrid1Column1: TdxDBGridColumn
            Caption = #32534#30721
            HeaderAlignment = taCenter
            Width = 32
            BandIndex = 0
            RowIndex = 0
            FieldName = #23458#25143#32534#30721
          end
          object dxDBGrid1Column2: TdxDBGridColumn
            Caption = #21517#31216
            HeaderAlignment = taCenter
            Width = 42
            BandIndex = 0
            RowIndex = 0
            FieldName = #23458#25143#21517#31216
          end
          object dxDBGrid1Column3: TdxDBGridColumn
            HeaderAlignment = taCenter
            Visible = False
            Width = 52
            BandIndex = 0
            RowIndex = 0
            FieldName = #21306#22495
          end
          object dxDBGrid1Column4: TdxDBGridColumn
            HeaderAlignment = taCenter
            Visible = False
            Width = 52
            BandIndex = 0
            RowIndex = 0
            FieldName = #32423#21035
          end
          object dxDBGrid1Column6: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = #38138#36135#26085#26399
          end
          object dxDBGrid1Column5: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = #22833#25928#26085#26399
          end
          object dxDBGrid1Column7: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            Width = 42
            BandIndex = 0
            RowIndex = 0
            FieldName = #20801#38480#38144
          end
          object dxDBGrid1Column8: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            Visible = False
            Width = 120
            BandIndex = 0
            RowIndex = 0
            FieldName = #29366#24577#35828#26126
          end
          object dxDBGrid1Column9: TdxDBGridCurrencyColumn
            HeaderAlignment = taCenter
            Width = 48
            BandIndex = 0
            RowIndex = 0
            FieldName = #25104#20132#20215
            Nullable = False
          end
          object dxDBGrid1Column10: TdxDBGridMaskColumn
            Caption = #38144#21806#37327
            HeaderAlignment = taCenter
            Visible = False
            Width = 42
            BandIndex = 0
            RowIndex = 0
            FieldName = #38144#21806#25968#37327
          end
          object dxDBGrid1Column11: TdxDBGridCurrencyColumn
            Caption = #38144#21806#39069
            HeaderAlignment = taCenter
            Visible = False
            Width = 62
            BandIndex = 0
            RowIndex = 0
            FieldName = #38144#21806#37329#39069
            Nullable = False
          end
          object dxDBGrid1Column14: TdxDBGridMaskColumn
            Caption = #36864#36135#37327
            HeaderAlignment = taCenter
            Width = 42
            BandIndex = 0
            RowIndex = 0
            FieldName = #36864#36135#25968#37327
          end
          object dxDBGrid1Column12: TdxDBGridMaskColumn
            Caption = #27425#21697#37327
            HeaderAlignment = taCenter
            Width = 42
            BandIndex = 0
            RowIndex = 0
            FieldName = #27425#21697#36864#37327
          end
          object dxDBGrid1Column13: TdxDBGridCurrencyColumn
            Caption = #27425#21697#39069
            HeaderAlignment = taCenter
            Visible = False
            Width = 52
            BandIndex = 0
            RowIndex = 0
            FieldName = #27425#21697#36864#39069
            Nullable = False
          end
          object dxDBGrid1Column15: TdxDBGridCurrencyColumn
            Caption = #36864#36135#39069
            HeaderAlignment = taCenter
            Visible = False
            Width = 62
            BandIndex = 0
            RowIndex = 0
            FieldName = #36864#36135#37329#39069
            Nullable = False
          end
          object dxDBGrid1Column16: TdxDBGridMaskColumn
            Caption = #20928#38144#37327
            HeaderAlignment = taCenter
            Width = 42
            BandIndex = 0
            RowIndex = 0
            FieldName = #20928#38144#21806#37327
          end
          object dxDBGrid1Column17: TdxDBGridCurrencyColumn
            Caption = #20928#38144#39069
            HeaderAlignment = taCenter
            Width = 62
            BandIndex = 0
            RowIndex = 0
            FieldName = #20928#38144#21806#39069
            Nullable = False
          end
          object dxDBGrid1Column18: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            Width = 52
            BandIndex = 0
            RowIndex = 0
            FieldName = #25104#26412#39069
          end
          object dxDBGrid1Column19: TdxDBGridMaskColumn
            HeaderAlignment = taCenter
            Width = 52
            BandIndex = 0
            RowIndex = 0
            FieldName = #27611#21033#28070
          end
        end
      end
    end
  end
  object PopupMenu: TPopupMenu
    Left = 80
    Top = 312
    object N10: TMenuItem
      Caption = #25253#20215#38480#38144#19981#38480#36864
      OnClick = N10Click
    end
    object N12: TMenuItem
      Caption = '-'
    end
    object N1: TMenuItem
      Caption = #27492#25351#23450#20215#22833#25928
      OnClick = N1Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N2: TMenuItem
      Caption = #25152#26377#25351#23450#20215#22833#25928
      OnClick = N2Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = #25152#26377#25351#23450#20215#22833#25928' +  '#36135#21697#38480#38144
      OnClick = N3Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object N7: TMenuItem
      Caption = #24674#22797#22833#25928#25351#23450#20215
      OnClick = N7Click
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object N11: TMenuItem
      Caption = #21462#28040#36135#21697#38480#38144
      OnClick = N11Click
    end
    object N9: TMenuItem
      Caption = '-'
    end
  end
  object dsQueryInv: TDataSource
    DataSet = QueryInv
    Left = 144
    Top = 312
  end
  object QueryInv: TADOQuery
    CursorType = ctStatic
    AfterOpen = QueryInvAfterOpen
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM Inventory WHERE cInvCCode Like '#39'10%'#39' ')
    Left = 112
    Top = 312
  end
  object Price_PM: TPopupMenu
    Left = 176
    Top = 312
    object N13: TMenuItem
      Caption = #35843#25972#20215#26684
      object N14: TMenuItem
        Caption = #25104#26412#20215
        OnClick = N14Click
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object N16: TMenuItem
        Caption = #25209#21457#20215
        OnClick = N16Click
      end
      object N17: TMenuItem
        Caption = #22806#30465#20215
        OnClick = N17Click
      end
    end
    object N18: TMenuItem
      Caption = #32463#33829#20998#26512
      object N19: TMenuItem
        Caption = #29983#25104#25253#34920
        OnClick = N19Click
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object N21: TMenuItem
        Caption = #26465#20214#38754#26495
        OnClick = N21Click
      end
    end
  end
  object TranData: TADODataSet
    CursorType = ctStatic
    CommandText = 
      'SELECT dbo.SaleDealList.cCusCode AS '#23458#25143#32534#30721', dbo.Customer.cCusAbbNa' +
      'me AS '#23458#25143#21517#31216', dbo.Person.cPersonName AS '#21306#22495', Right(left(dbo.Custome' +
      'r.customerKCode,2),1) + '#39' '#31867#23458#25143#39' AS '#32423#21035', a__R_CustInvState.dEndDate' +
      ' AS '#22833#25928#26085#26399', a__R_CustInvState.dStartDate  AS '#38138#36135#26085#26399', a__R_CustInvSta' +
      'te.State AS '#20801#38480#38144', a__R_CustInvState.TypeClass AS '#29366#24577#35828#26126', a__R_CustI' +
      'nvState.iInvnowCost AS '#25104#20132#20215', SUM(CASE WHEN cDealType = 0 THEN dbo' +
      '.SaleDealList.iQuantity ELSE  0 END) AS '#38144#21806#25968#37327', SUM(CASE WHEN cDea' +
      'lType = 0 THEN dbo.SaleDealList.iMoney   ELSE  0 END) AS '#38144#21806#37329#39069', S' +
      'UM(CASE WHEN (cDealType = 1) AND (dbo.SaleDealList.cWhCode = '#39'04' +
      #39') THEN dbo.SaleDealList.iQuantity ELSE 0 END)  AS '#27425#21697#36864#37327', SUM(CAS' +
      'E WHEN (cDealType = 1) AND (dbo.SaleDealList.cWhCode = '#39'04'#39') THE' +
      'N dbo.SaleDealList.iMoney   ELSE 0 END)  AS '#27425#21697#36864#39069', SUM(CASE WHEN ' +
      'cDealType = 1 THEN dbo.SaleDealList.iQuantity ELSE  0 END) AS '#36864#36135 +
      #25968#37327', SUM(CASE WHEN cDealType = 1 THEN dbo.SaleDealList.iMoney   E' +
      'LSE  0 END) AS '#36864#36135#37329#39069', SUM(dbo.SaleDealList.iQuantity) AS '#20928#38144#21806#37327', SU' +
      'M(dbo.SaleDealList.iMoney) AS '#20928#38144#21806#39069',  SUM(dbo.SaleDealList.iQuant' +
      'ity * dbo.Inventory.iInvSPrice) AS '#25104#26412#39069', SUM(iMoney - dbo.SaleDea' +
      'lList.iQuantity * dbo.Inventory.iInvSPrice +  (CASE WHEN (cDealT' +
      'ype = 1) AND (cWhCode = '#39'04'#39') THEN dbo.SaleDealList.iQuantity * ' +
      '(dbo.Inventory.iInvSPrice - 0.80) ELSE 0 END))  AS '#27611#21033#28070' FROM Sale' +
      'DealList INNER JOIN  Customer ON SaleDealList.cCusCode = Custome' +
      'r.cCusCode INNER JOIN  Person ON Customer.cCusPPerson = Person.c' +
      'PersonCode INNER JOIN  Inventory ON SaleDealList.cInvCode = Inve' +
      'ntory.cInvCode INNER JOIN  InventoryClass ON  Inventory.cInvCCod' +
      'e = InventoryClass.cInvCCode LEFT OUTER JOIN  a__R_CustInvState ' +
      'ON SaleDealList.cCusCode = a__R_CustInvState.cCusCode AND  SaleD' +
      'ealList.cInvCode = a__R_CustInvState.cInvCode LEFT OUTER JOIN  V' +
      'endor ON Inventory.cVenCode = Vendor.cVenCode  WHERE (dbo.Invent' +
      'ory.cInvCode = '#39'80ADJ11270'#39')  AND ((dbo.SaleDealList.dDate >= '#39'2' +
      '007-10-01'#39') AND (dbo.SaleDealList.dDate < '#39'2008-01-21'#39')) GROUP B' +
      'Y  dbo.Customer.cCusAbbName, dbo.Person.cPersonName , dbo.Custom' +
      'er.customerKCode, a__R_CustInvState.dEndDate, a__R_CustInvState.' +
      'dStartDate , a__R_CustInvState.State ,dbo.SaleDealList.cCusCode,' +
      ' a__R_CustInvState.TypeClass  , a__R_CustInvState.iInvnowCost  O' +
      'RDER BY  '#27611#21033#28070
    CommandTimeout = 1800
    Parameters = <>
    Left = 48
    Top = 312
  end
  object DS_TranData: TDataSource
    DataSet = TranData
    Left = 8
    Top = 312
  end
end