ar_qry_saleinvoice.dfm

一个MRPII系统源代码版本

      
        '       t1.SaleTypeCode+'#39' '#39'+SaleType.SaleTypeName as SaleTypeflag' +
        ','
      '       t1.SaleDeptCode,'
      '       Dept.DeptName,'
      '       t1.SaleDeptCode+'#39' '#39'+Dept.DeptName as Deptflag,'
      '       t1.SaleEmployeeCode,'
      '       Employee1.EmployeeName,'
      
        '       t1.SaleEmployeeCode+'#39' '#39'+Employee1.EmployeeName as Saleemp' +
        'loyeeflag,'
      '       t1.currencyCode,'
      '       currency.currencyName,'
      
        '       t1.currencyCode+'#39' '#39'+currency.currencyName as currencyflag' +
        ','
      '       t1.ExchangeRate,'
      '       t1.bank,'
      '       t1.bankactno,'
      '       t1.assess,'
      '       t1.assessorEmployeeCode,'
      '       Employee2.EmployeeName  as assessEmployeeName,'
      
        '       t1.assessorEmployeeCode+'#39' '#39'+Employee2.EmployeeName as ass' +
        'essEmployeeflag,'
      '       t1.assessdate,'
      '       t1.CreateEmployeeCode,'
      '       Employee3.EmployeeName as createEmployeeName,'
      
        '       t1.CreateEmployeeCode+'#39' '#39'+Employee3.EmployeeName as creat' +
        'eEmployeeflag,'
      '       t1.remArk,'
      '       t2.Shipno,'
      '       t2.Shiplineno,'
      '       t2.ItemCode,'
      '       Item.ItemName,'
      '       t2.ItemCode+'#39' '#39'+Item.ItemName as Itemflag,'
      '       Uom.UomName,'
      '       t2.Shipqty,'
      '       t2.taxPrice,'
      '       t2.taxAmount,'
      '       t2.diSCountrate,'
      '       t2.diSCountAmount'
      'from sa_SaleInvoiceline t2'
      'join sa_SaleInvoice t1 on t2.Invoiceno=t1.Invoiceno'
      
        'left join Employee Employee1 on t1.SaleEmployeeCode=Employee1.em' +
        'ployeeCode'
      
        'left join Employee Employee2 on t1.assessorEmployeeCode=Employee' +
        '2.EmployeeCode'
      
        'left join Employee Employee3 on t1.CreateEmployeeCode=Employee3.' +
        'EmployeeCode'
      'left join SaleType on t1.SaleTypeCode=SaleType.SaleTypeCode'
      'left join customer on t1.customerCode=customer.customerCode'
      'left join currency on t1.currencyCode=currency.currencyCode'
      'left join Dept on t1.SaleDeptCode=Dept.DeptCode'
      'left join Item on t2.ItemCode=Item.ItemCode'
      'left join Uom on Item.UomCode=Uom.UomCode')
    Left = 168
    Top = 185
    object AdoQry_MaincustomerCode: TStringField
      DisplayLabel = '客户代码'
      FieldName = 'customerCode'
      Origin = '#tMpSaleInvoiceQry'
      Size = 12
    end
    object AdoQry_MaincustomerName: TStringField
      DisplayLabel = '客户名称'
      FieldName = 'customerName'
      Origin = '#tMpSaleInvoiceQry'
      Size = 60
    end
    object AdoQry_Maincustomerflag: TStringField
      DisplayLabel = '客户标识'
      FieldName = 'customerflag'
      Origin = '#tMpSaleInvoiceQry'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_Maincreatedate: TDateTimeField
      DisplayLabel = '发票日期'
      FieldName = 'createdate'
      Origin = '#tMpSaleInvoiceQry'
    end
    object AdoQry_MainInvoiceType: TIntegerField
      DisplayLabel = '发票类型'
      FieldName = 'InvoiceType'
      Origin = '#tMpSaleInvoiceQry'
    end
    object AdoQry_MainInvoiceno: TStringField
      DisplayLabel = '发票号'
      FieldName = 'Invoiceno'
      Origin = '#tMpSaleInvoiceQry'
      Size = 16
    end
    object AdoQry_MainTotaltaxAmount: TFloatField
      DisplayLabel = '发票金额'
      FieldName = 'TotaltaxAmount'
      Origin = '#tMpSaleInvoiceQry'
    end
    object AdoQry_MainCancelAmount: TFloatField
      DisplayLabel = '已核销金额'
      FieldName = 'CancelAmount'
      Origin = '#tMpSaleInvoiceQry'
    end
    object AdoQry_MainSaleTypeCode: TStringField
      DisplayLabel = '销售类型代码'
      FieldName = 'SaleTypeCode'
      Origin = '#tMpSaleInvoiceQry'
      Size = 6
    end
    object AdoQry_MainSaleTypeName: TStringField
      DisplayLabel = '销售类型名称'
      FieldName = 'SaleTypeName'
      Origin = '#tMpSaleInvoiceQry'
      Size = 30
    end
    object AdoQry_MainSaleTypeflag: TStringField
      DisplayLabel = '销售类型标识'
      FieldName = 'SaleTypeflag'
      Origin = '#tMpSaleInvoiceQry'
      ReadOnly = True
      Size = 37
    end
    object AdoQry_MainSaleDeptCode: TStringField
      DisplayLabel = '销售部门代码'
      FieldName = 'SaleDeptCode'
      Origin = '#tMpSaleInvoiceQry'
      Size = 8
    end
    object AdoQry_MainDeptName: TStringField
      DisplayLabel = '销售部门名称'
      FieldName = 'DeptName'
      Origin = '#tMpSaleInvoiceQry'
      Size = 40
    end
    object AdoQry_MainDeptflag: TStringField
      DisplayLabel = '销售部门标识'
      FieldName = 'Deptflag'
      Origin = '#tMpSaleInvoiceQry'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_MainSaleEmployeeCode: TStringField
      DisplayLabel = '营销业务员代码'
      FieldName = 'SaleEmployeeCode'
      Origin = '#tMpSaleInvoiceQry'
      Size = 30
    end
    object AdoQry_MainEmployeeName: TStringField
      DisplayLabel = '营销业务员名称'
      FieldName = 'EmployeeName'
      Origin = '#tMpSaleInvoiceQry'
      Size = 60
    end
    object AdoQry_MainSaleEmployeeflag: TStringField
      DisplayLabel = '营销业务员标识'
      FieldName = 'SaleEmployeeflag'
      Origin = '#tMpSaleInvoiceQry'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MaincurrencyCode: TStringField
      DisplayLabel = '货币代码'
      FieldName = 'currencyCode'
      Origin = '#tMpSaleInvoiceQry'
      Size = 2
    end
    object AdoQry_MaincurrencyName: TStringField
      DisplayLabel = '货币名称'
      FieldName = 'currencyName'
      Origin = '#tMpSaleInvoiceQry'
      Size = 30
    end
    object AdoQry_Maincurrencyflag: TStringField
      DisplayLabel = '货币标识'
      FieldName = 'currencyflag'
      Origin = '#tMpSaleInvoiceQry'
      ReadOnly = True
      Size = 33
    end
    object AdoQry_MainExchangeRate: TFloatField
      DisplayLabel = '汇率'
      FieldName = 'ExchangeRate'
      Origin = '#tMpSaleInvoiceQry'
    end
    object AdoQry_Mainbank: TStringField
      DisplayLabel = '开户银行'
      FieldName = 'bank'
      Origin = '#tMpSaleInvoiceQry'
      Size = 60
    end
    object AdoQry_Mainbankactno: TStringField
      DisplayLabel = '银行帐号'
      FieldName = 'bankactno'
      Origin = '#tMpSaleInvoiceQry'
      Size = 40
    end
    object AdoQry_MaincreateEmployeeCode: TStringField
      DisplayLabel = '制单人代码'
      FieldName = 'createEmployeeCode'
      Origin = '#tMpSaleInvoiceQry'
      Size = 30
    end
    object AdoQry_MaincreateEmployeeName: TStringField
      DisplayLabel = '制单人名称'
      FieldName = 'createEmployeeName'
      Origin = '#tMpSaleInvoiceQry'
      Size = 60
    end
    object AdoQry_MaincreateEmployeeflag: TStringField
      DisplayLabel = '制单人标识'
      FieldName = 'createEmployeeflag'
      Origin = '#tMpSaleInvoiceQry'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainremArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'remArk'
      Origin = '#tMpSaleInvoiceQry'
      Size = 60
    end
    object AdoQry_MainShipno: TStringField
      DisplayLabel = '发货单号'
      FieldName = 'Shipno'
      Origin = '#tMpSaleInvoiceQry'
      Size = 16
    end
    object AdoQry_MainShiplineno: TIntegerField
      DisplayLabel = '发货单行号'
      FieldName = 'Shiplineno'
      Origin = '#tMpSaleInvoiceQry'
    end
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = '#tMpSaleInvoiceQry'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料名称'
      FieldName = 'ItemName'
      Origin = '#tMpSaleInvoiceQry'
      Size = 80
    end
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      Origin = '#tMpSaleInvoiceQry'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_MainUomName: TStringField
      DisplayLabel = '单位'
      FieldName = 'UomName'
      Origin = '#tMpSaleInvoiceQry'
      Size = 10
    end
    object AdoQry_MainShipqty: TFloatField
      DisplayLabel = '发货量'
      FieldName = 'Shipqty'
      Origin = '#tMpSaleInvoiceQry'
    end
    object AdoQry_MaintaxPrice: TFloatField
      DisplayLabel = '含税单价'
      FieldName = 'taxPrice'
      Origin = '#tMpSaleInvoiceQry'
    end
    object AdoQry_MaintaxAmount: TFloatField
      DisplayLabel = '含税金额'
      FieldName = 'taxAmount'
      Origin = '#tMpSaleInvoiceQry'
    end
    object AdoQry_MaindiSCountrate: TFloatField
      DisplayLabel = '折扣率'
      FieldName = 'diSCountrate'
      Origin = '#tMpSaleInvoiceQry'
    end
    object AdoQry_MaindiSCountAmount: TFloatField
      DisplayLabel = '折扣额'
      FieldName = 'diSCountAmount'
      Origin = '#tMpSaleInvoiceQry'
    end
  end
  inherited DataSource: TDataSource
    Left = 312
    Top = 161
  end
end