ar_enter_gatheringinvoiceh.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_GatheringInvoiceH: TFrm_Ar_Enter_GatheringInvoiceH
  Left = 9
  Top = 98
  Caption = '收款票据--销售发票核销'
  Windowstate = wsMaximized
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '收款票据--销售发票核销'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 48
      Caption = '未全冲消'
    end
    inherited Lbl_Order: TLabel
      Width = 180
      Caption = '销售客户代码/单据日期/收款序号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'GatheringNo'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'GatheringDate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerCode'
          PickList.Strings = ()
          Title.Caption = '销售客户代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerName'
          PickList.Strings = ()
          Title.Caption = '销售客户名称'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InAccountDate'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BalanceTypeCode'
          PickList.Strings = ()
          Width = 89
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BalanceTypeName'
          PickList.Strings = ()
          Width = 89
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyName'
          PickList.Strings = ()
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchangeRate'
          PickList.Strings = ()
          Width = 35
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillNo'
          PickList.Strings = ()
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalTaxAmount'
          PickList.Strings = ()
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalCancelAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ActSubjectCode'
          PickList.Strings = ()
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerBank'
          PickList.Strings = ()
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerBankActNo'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleDeptCode'
          PickList.Strings = ()
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Width = 99
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeCode'
          PickList.Strings = ()
          Width = 92
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Width = 93
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_Modify: TAction
      Caption = '核销'
      Hint = '核销(Enter)'
    end
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    SQL.Strings = (
      'select Ar_Gathering.*,'
      '       currency.currencyName,'
      
        '       Ar_Gathering.currencyCode+'#39' '#39'+currency.currencyName as cu' +
        'rrencyflag,'
      '       customer.customerName,'
      
        '       Ar_Gathering.customerCode+'#39' '#39'+customer.customerName as cu' +
        'stomerflag,'
      '       BalanceType.BalanceTypeName,'
      
        '       Ar_Gathering.BalanceTypeCode+'#39' '#39'+BalanceType.BalanceTypen' +
        'ame as BalanceTypeflag,'
      '       Dept.DeptName,'
      '       Ar_Gathering.SaleDeptCode+'#39' '#39'+Dept.DeptName as Deptflag,'
      '       t1.EmployeeName,'
      
        '       Ar_Gathering.SaleEmployeeCode+'#39' '#39'+t1.EmployeeName as empl' +
        'oyeeflag'
      'from Ar_Gathering'
      
        'left join currency on Ar_Gathering.currencyCode=currency.currenc' +
        'yCode'
      
        'left join customer on Ar_Gathering.customerCode=customer.custome' +
        'rCode'
      
        'left join BalanceType on Ar_Gathering.BalanceTypeCode=Balancetyp' +
        'e.BalanceTypeCode'
      'left join Dept on Ar_Gathering.SaleDeptCode=Dept.DeptCode'
      
        'left join Employee t1 on Ar_Gathering.SaleEmployeeCode=t1.employ' +
        'eeCode')
    Left = 256
    Top = 265
    object AdoQry_HeadGatheringNo: TStringField
      DisplayLabel = '收款序号'
      FieldName = 'GatheringNo'
      Origin = 'Ar_Gathering'
      Size = 16
    end
    object AdoQry_HeadBalanceTypeCode: TStringField
      DisplayLabel = '结算方式代码'
      FieldName = 'BalanceTypeCode'
      Origin = 'Ar_Gathering'
      Size = 3
    end
    object AdoQry_HeadGatheringDate: TDateTimeField
      DisplayLabel = '票据日期'
      FieldName = 'GatheringDate'
      Origin = 'Ar_Gathering'
    end
    object AdoQry_HeadCustomerCode: TStringField
      DisplayLabel = '客户代码'
      FieldName = 'CustomerCode'
      Origin = 'Ar_Gathering'
      Size = 12
    end
    object AdoQry_HeadActSubjectCode: TStringField
      DisplayLabel = '会计科目'
      FieldName = 'ActSubjectCode'
      Origin = 'Ar_Gathering'
      Size = 15
    end
    object AdoQry_HeadCurrencyCode: TStringField
      DisplayLabel = '货币代码'
      FieldName = 'CurrencyCode'
      Origin = 'Ar_Gathering'
      Size = 2
    end
    object AdoQry_HeadExchangeRate: TFloatField
      DisplayLabel = '汇率'
      FieldName = 'ExchangeRate'
      Origin = 'Ar_Gathering'
    end
    object AdoQry_HeadCustomerBank: TStringField
      DisplayLabel = '银行'
      FieldName = 'CustomerBank'
      Origin = 'Ar_Gathering'
      Size = 60
    end
    object AdoQry_HeadCustomerBankActNo: TStringField
      DisplayLabel = '银行帐号'
      FieldName = 'CustomerBankActNo'
      Origin = 'Ar_Gathering'
      Size = 40
    end
    object AdoQry_HeadSaleDeptCode: TStringField
      DisplayLabel = '销售部门代码'
      FieldName = 'SaleDeptCode'
      Origin = 'Ar_Gathering'
      Size = 8
    end
    object AdoQry_HeadSaleEmployeeCode: TStringField
      DisplayLabel = '营销业务员代码'
      FieldName = 'SaleEmployeeCode'
      Origin = 'Ar_Gathering'
      Size = 30
    end
    object AdoQry_HeadBillNo: TStringField
      DisplayLabel = '单据号'
      FieldName = 'BillNo'
      Origin = 'Ar_Gathering'
      Size = 16
    end
    object AdoQry_HeadTotalTaxAmount: TFloatField
      DisplayLabel = '金额'
      FieldName = 'TotalTaxAmount'
      Origin = 'Ar_Gathering'
    end
    object AdoQry_HeadTotalCancelAmount: TFloatField
      DisplayLabel = '冲消金额'
      FieldName = 'TotalCancelAmount'
      Origin = 'Ar_Gathering'
    end
    object AdoQry_HeadCreateDate: TDateTimeField
      DisplayLabel = '建档日期'
      FieldName = 'CreateDate'
      Origin = 'Ar_Gathering'
    end
    object AdoQry_HeadCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = 'Ar_Gathering'
      Size = 30
    end
    object AdoQry_HeadRemArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'RemArk'
      Origin = 'Ar_Gathering'
      Size = 60
    end
    object AdoQry_HeadcurrencyName: TStringField
      DisplayLabel = '货币名称'
      FieldName = 'currencyName'
      Origin = 'currency'
      Size = 30
    end
    object AdoQry_HeadcustomerName: TStringField
      DisplayLabel = '客户名称'
      FieldName = 'customerName'
      Origin = 'customer'
      Size = 60
    end
    object AdoQry_HeadBalanceTypeName: TStringField
      DisplayLabel = '结算方式名称'
      FieldName = 'BalanceTypeName'
      Origin = 'BalanceType'
      Size = 30
    end
    object AdoQry_HeadDeptName: TStringField
      DisplayLabel = '销售部门名称'
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_Headcustomerflag: TStringField
      DisplayLabel = '客户标识'
      FieldName = 'customerflag'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_HeadEmployeeflag: TStringField
      DisplayLabel = '营销业务员标识'
      FieldName = 'Employeeflag'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_Headcurrencyflag: TStringField
      DisplayLabel = '货币标识'
      FieldName = 'currencyflag'
      ReadOnly = True
      Size = 33
    end
    object AdoQry_HeadBalanceTypeflag: TStringField
      DisplayLabel = '结算方式标识'
      FieldName = 'BalanceTypeflag'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_HeadDeptflag: TStringField
      DisplayLabel = '销售部门标识'
      FieldName = 'Deptflag'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_HeadEmployeeName: TStringField
      DisplayLabel = '营销业务员名称'
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_HeadTotalTaxAmountC: TFloatField
      FieldName = 'TotalTaxAmountC'
    end
    object AdoQry_HeadTotalCancelAmountC: TFloatField
      FieldName = 'TotalCancelAmountC'
    end
    object AdoQry_HeadInAccountDate: TDateTimeField
      DisplayLabel = '入帐日期'
      FieldName = 'InAccountDate'
      Origin = 'Ar_Gathering'
    end
    object AdoQry_HeadISCredence: TIntegerField
      FieldName = 'ISCredence'
    end
  end
end