sal_qry_saleorder.dfm

一个MRPII系统源代码版本

      '       t1.SaleDeptCode+'#39' '#39'+Dept.DeptName as Deptflag,'
      '       t1.SaleEmployeeCode,'
      '       Employee2.EmployeeName as SaleEmployeeName,'
      
        '       t1.SaleEmployeeCode+'#39' '#39'+Employee2.EmployeeName as Saleemp' +
        'loyeeflag,'
      '       t1.currencyCode,'
      '       currency.currencyName,'
      
        '       t1.currencyCode+'#39' '#39'+currency.currencyName as currencyflag' +
        ','
      '       t1.taxrate_Percent,'
      '       t1.PayTermCode,'
      '       PayTerm.PayTermName,'
      '       t1.PayTermCode+'#39' '#39'+PayTerm.PayTermName as PayTermflag,'
      '        t1.ShipModeCode,'
      '       ShipMode.ShipModeName,'
      
        '       t1.ShipModeCode+'#39' '#39'+ShipMode.ShipModeName as ShipModeflag' +
        ','
      '       t1.ShipAddresSCode,'
      '       customerShipAddress.ShipAddressName,'
      
        '       t1.ShipAddresSCode+'#39' '#39'+customerShipAddress.ShipAddressnam' +
        'e as ShipAddressflag,'
      '       t1.TotalnotaxAmount,'
      '       t1.TotaltaxAmount,'
      '       t1.remArk,'
      '       t1.remArk1,'
      '       t1.CreateEmployeeCode,'
      '       Employee3.EmployeeName as createrName,'
      
        '       t1.CreateEmployeeCode+'#39' '#39'+Employee3.EmployeeName as creat' +
        'erflag,'
      '       t1.editdate,'
      '       t1.edItEmployeeCode,'
      '       Employee3.EmployeeName as edItEmployeeName,'
      
        '       t1.edItEmployeeCode+'#39' '#39'+Employee3.EmployeeName as edItemp' +
        'loyeeflag'
      'from  sa_SaleOrderline t2'
      'join  sa_SaleOrder t1 on t2.slono=t1.slono'
      
        'left outer join  customer on t1.customerCode=customer.customerco' +
        'de'
      'left outer join  Item on t2.ItemCode=Item.ItemCode'
      'left outer join  Uom on Item.UomCode=Uom.UomCode'
      
        'left outer join  Employee Employee2 on t1.SaleEmployeeCode=emplo' +
        'yee2.EmployeeCode'
      
        'left outer join  currency on t1.currencyCode=currency.currencyco' +
        'de'
      
        'left outer join  SaleType on t1.SaleTypeCode=SaleType.SaleTypeco' +
        'de'
      'left outer join  Dept on t1.SaleDeptCode=Dept.DeptCode'
      'left outer join PayTerm on t1.PayTermCode=PayTerm.PayTermCode'
      
        'left outer join Employee Employee3 on t1.CreateEmployeeCode=empl' +
        'oyee3.EmployeeCode'
      
        'left outer join ShipMode on t1.ShipModeCode=ShipMode.ShipModecod' +
        'e'
      
        'left outer join customerShipAddress on t1.ShipAddresSCode=custom' +
        'erShipAddress.ShipAddresSCode')
    Left = 416
    Top = 265
    object AdoQry_MaincustomerCode: TStringField
      DisplayLabel = '客户代码'
      FieldName = 'customerCode'
      Origin = '#tMpSaleOrderQry'
      Size = 12
    end
    object AdoQry_MaincustomerName: TStringField
      DisplayLabel = '客户名称'
      FieldName = 'customerName'
      Origin = '#tMpSaleOrderQry'
      Size = 60
    end
    object AdoQry_Maincustomerflag: TStringField
      DisplayLabel = '客户标识'
      FieldName = 'customerflag'
      Origin = '#tMpSaleOrderQry'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_Maincreatedate: TDateTimeField
      DisplayLabel = '下单日期'
      FieldName = 'createdate'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = '#tMpSaleOrderQry'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Origin = '#tMpSaleOrderQry'
      Size = 80
    end
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      Origin = '#tMpSaleOrderQry'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_MainShipqty: TFloatField
      DisplayLabel = '已发货量'
      FieldName = 'Shipqty'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_MaintaxPrice: TFloatField
      DisplayLabel = '含税单价'
      FieldName = 'taxPrice'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_MaintaxAmount: TFloatField
      DisplayLabel = '含税金额'
      FieldName = 'taxAmount'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_MainnotaxPrice: TFloatField
      DisplayLabel = '未税单价'
      FieldName = 'notaxPrice'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_MainnotaxAmount: TFloatField
      DisplayLabel = '未税金额'
      FieldName = 'notaxAmount'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_MaindiSCountrate: TFloatField
      DisplayLabel = '折扣率'
      FieldName = 'diSCountrate'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_MaindiSCountAmount: TFloatField
      DisplayLabel = '折扣额'
      FieldName = 'diSCountAmount'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_MainSaleTypeCode: TStringField
      DisplayLabel = '销售类型代码'
      FieldName = 'SaleTypeCode'
      Origin = '#tMpSaleOrderQry'
      Size = 6
    end
    object AdoQry_MainSaleTypeName: TStringField
      DisplayLabel = '销售类型名称'
      FieldName = 'SaleTypeName'
      Origin = '#tMpSaleOrderQry'
      Size = 30
    end
    object AdoQry_MainSaleTypeflag: TStringField
      DisplayLabel = '销售类型标识'
      FieldName = 'SaleTypeflag'
      Origin = '#tMpSaleOrderQry'
      ReadOnly = True
      Size = 37
    end
    object AdoQry_MainSaleDeptCode: TStringField
      DisplayLabel = '销售部门代码'
      FieldName = 'SaleDeptCode'
      Origin = '#tMpSaleOrderQry'
      Size = 8
    end
    object AdoQry_MainDeptName: TStringField
      DisplayLabel = '销售部门名称'
      FieldName = 'DeptName'
      Origin = '#tMpSaleOrderQry'
      Size = 40
    end
    object AdoQry_MainDeptflag: TStringField
      DisplayLabel = '销售部门标识'
      FieldName = 'Deptflag'
      Origin = '#tMpSaleOrderQry'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_MainSaleEmployeeCode: TStringField
      DisplayLabel = '营销业务员代码'
      FieldName = 'SaleEmployeeCode'
      Origin = '#tMpSaleOrderQry'
      Size = 30
    end
    object AdoQry_MainSaleEmployeeName: TStringField
      DisplayLabel = '营销业务员名称'
      FieldName = 'SaleEmployeeName'
      Origin = '#tMpSaleOrderQry'
      Size = 60
    end
    object AdoQry_MainSaleEmployeeflag: TStringField
      DisplayLabel = '营销业务员标识'
      FieldName = 'SaleEmployeeflag'
      Origin = '#tMpSaleOrderQry'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MaincurrencyCode: TStringField
      DisplayLabel = '货币代码'
      FieldName = 'currencyCode'
      Origin = '#tMpSaleOrderQry'
      Size = 2
    end
    object AdoQry_MaincurrencyName: TStringField
      DisplayLabel = '货币名称'
      FieldName = 'currencyName'
      Origin = '#tMpSaleOrderQry'
      Size = 30
    end
    object AdoQry_Maincurrencyflag: TStringField
      DisplayLabel = '货币标识'
      FieldName = 'currencyflag'
      Origin = '#tMpSaleOrderQry'
      ReadOnly = True
      Size = 33
    end
    object AdoQry_Maintaxrate_Percent: TFloatField
      DisplayLabel = '销售税率'
      FieldName = 'taxrate_Percent'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_MainPayTermCode: TStringField
      DisplayLabel = '付款条款代码'
      FieldName = 'PayTermCode'
      Origin = '#tMpSaleOrderQry'
      Size = 3
    end
    object AdoQry_MainPayTermName: TStringField
      DisplayLabel = '付款条款名称'
      FieldName = 'PayTermName'
      Origin = '#tMpSaleOrderQry'
      Size = 30
    end
    object AdoQry_MainPayTermflag: TStringField
      DisplayLabel = '付款条款标识'
      FieldName = 'PayTermflag'
      Origin = '#tMpSaleOrderQry'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MaincreateEmployeeCode: TStringField
      DisplayLabel = '制单人代码'
      FieldName = 'createEmployeeCode'
      Origin = '#tMpSaleOrderQry'
      Size = 30
    end
    object AdoQry_MaincreaterName: TStringField
      DisplayLabel = '制单人名称'
      FieldName = 'createrName'
      Origin = '#tMpSaleOrderQry'
      Size = 60
    end
    object AdoQry_Maincreaterflag: TStringField
      DisplayLabel = '制单人标识'
      FieldName = 'createrflag'
      Origin = '#tMpSaleOrderQry'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainShipModeCode: TStringField
      DisplayLabel = '发货方式代码'
      FieldName = 'ShipModeCode'
      Origin = '#tMpSaleOrderQry'
      Size = 6
    end
    object AdoQry_MainShipModeName: TStringField
      DisplayLabel = '发货方式名称'
      FieldName = 'ShipModeName'
      Origin = '#tMpSaleOrderQry'
      Size = 120
    end
    object AdoQry_MainShipModeflag: TStringField
      DisplayLabel = '发货方式标识'
      FieldName = 'ShipModeflag'
      Origin = '#tMpSaleOrderQry'
      ReadOnly = True
      Size = 127
    end
    object AdoQry_MainShipAddresSCode: TStringField
      DisplayLabel = '发货地址代码'
      FieldName = 'ShipAddresSCode'
      Origin = '#tMpSaleOrderQry'
      Size = 6
    end
    object AdoQry_MainShipAddressName: TStringField
      DisplayLabel = '发货地址名称'
      FieldName = 'ShipAddressName'
      Origin = '#tMpSaleOrderQry'
      Size = 60
    end
    object AdoQry_MainShipAddressflag: TStringField
      DisplayLabel = '发货地址标识'
      FieldName = 'ShipAddressflag'
      Origin = '#tMpSaleOrderQry'
      ReadOnly = True
      Size = 67
    end
    object AdoQry_MainremArk: TStringField
      DisplayLabel = '备注1'
      FieldName = 'remArk'
      Origin = '#tMpSaleOrderQry'
      Size = 60
    end
    object AdoQry_MainremArk1: TStringField
      DisplayLabel = '备注2'
      FieldName = 'remArk1'
      Origin = '#tMpSaleOrderQry'
      Size = 60
    end
    object AdoQry_Mainslono: TStringField
      DisplayLabel = '销售订单号'
      FieldName = 'slono'
      Origin = '#tMpSaleOrderQry'
      Size = 16
    end
    object AdoQry_Mainslolineno: TIntegerField
      DisplayLabel = '订单行号'
      FieldName = 'slolineno'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_MainUomflag: TStringField
      DisplayLabel = '单位'
      FieldName = 'Uomflag'
      Origin = '#tMpSaleOrderQry'
      ReadOnly = True
      Size = 15
    end
    object AdoQry_Mainslolinestatus: TIntegerField
      DisplayLabel = '行状态'
      FieldName = 'slolinestatus'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_Mainslolinedate: TDateTimeField
      DisplayLabel = '约定交货日'
      FieldName = 'slolinedate'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_Mainsloqty: TFloatField
      DisplayLabel = '约定交货量'
      FieldName = 'sloqty'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_MainTotalnotaxAmount: TFloatField
      DisplayLabel = '未税金额总额'
      FieldName = 'TotalnotaxAmount'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_MainTotaltaxAmount: TFloatField
      DisplayLabel = '含税金额总额'
      FieldName = 'TotaltaxAmount'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_Maineditdate: TDateTimeField
      DisplayLabel = '修改日期'
      FieldName = 'editdate'
      Origin = '#tMpSaleOrderQry'
    end
    object AdoQry_MainedItEmployeeCode: TStringField
      DisplayLabel = '修改人员代码'
      FieldName = 'edItEmployeeCode'
      Origin = '#tMpSaleOrderQry'
      Size = 30
    end
    object AdoQry_MainedItEmployeeName: TStringField
      DisplayLabel = '修改人员名称'
      FieldName = 'edItEmployeeName'
      Origin = '#tMpSaleOrderQry'
      Size = 60
    end
    object AdoQry_MainedItEmployeeflag: TStringField
      DisplayLabel = '修改人员标识'
      FieldName = 'edItEmployeeflag'
      Origin = '#tMpSaleOrderQry'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainShipdays: TIntegerField
      DisplayLabel = '发运天数'
      FieldName = 'Shipdays'
      Origin = '#tMpSaleOrderQry'
    end
  end
  inherited DataSource: TDataSource
    Left = 312
    Top = 161
  end
  inherited PopuPmenu: TPopuPmenu
    Top = 193
  end
end