sal_enter_passbackshiporderh.dfm

一个MRPII系统源代码版本

        '                     left  join SaleType on InvOutBill.SaleType=' +
        'SaleType.SaleTypeCode '
      '                     left  Join Employee  Employee1     '
      
        '                     On InvOutBill.SaleEmployeeCode=Employee1.Em' +
        'ployeeCode  '
      '                     left  Join Currency  '
      
        '                     On InvOutBill.CurrencyCode=Currency.Currenc' +
        'yCode '
      '                     left  Join PayTerm '
      
        '                     On InvOutBill.PayTermCode=PayTerm.PayTermco' +
        'de   '
      '                     left  Join Employee tt '
      
        '                     On InvOutBill.Sal_EmployeeCode=tt.EmployeeC' +
        'ode '
      '                     left  join Employee Employee2 '
      
        '                     on InvOutBill.Wh_EmployeeCode=Employee2.emp' +
        'loyeeCode '
      '                     left  Join ShipMode '
      
        '                     On InvOutBill.ShipModeCode=ShipMode.ShiPmod' +
        'eCode '
      '                     left  Join CustomerShipAddress   '
      
        '                     On InvOutBill.ShipAddresSCode=CustomerShipA' +
        'ddress.ShipAddresSCode ')
    Left = 480
    Top = 265
    object AdoQry_HeadInvBillId: TFloatField
      FieldName = 'InvBillId'
      Origin = 'InvOutBill'
      ReadOnly = True
    end
    object AdoQry_HeadInvBillNo: TStringField
      FieldName = 'InvBillNo'
      Origin = 'InvOutBill'
      Size = 10
    end
    object AdoQry_HeadWHCode: TStringField
      FieldName = 'WHCode'
      Origin = 'InvOutBill'
      Size = 4
    end
    object AdoQry_HeadWhPositionCode: TStringField
      FieldName = 'WhPositionCode'
      Origin = 'InvOutBill'
      Size = 4
    end
    object AdoQry_HeadInvBillDate: TDateTimeField
      FieldName = 'InvBillDate'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadInvBillMonth: TStringField
      FieldName = 'InvBillMonth'
      Origin = 'InvOutBill'
      FixedChAr = True
      Size = 7
    end
    object AdoQry_HeadBillTypeCode: TStringField
      FieldName = 'BillTypeCode'
      Origin = 'InvOutBill'
      Size = 4
    end
    object AdoQry_HeadBillType2Code: TStringField
      FieldName = 'BillType2Code'
      Origin = 'InvOutBill'
      Size = 4
    end
    object AdoQry_HeadVendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = 'InvOutBill'
      Size = 12
    end
    object AdoQry_HeadEmployeeCode: TStringField
      FieldName = 'EmployeeCode'
      Origin = 'InvOutBill'
      Size = 30
    end
    object AdoQry_HeadDeptCode: TStringField
      FieldName = 'DeptCode'
      Origin = 'InvOutBill'
      Size = 8
    end
    object AdoQry_HeadCUSTOMERCode: TStringField
      FieldName = 'CUSTOMERCode'
      Origin = 'InvOutBill'
      Size = 12
    end
    object AdoQry_HeadCURRENCYCode: TStringField
      FieldName = 'CURRENCYCode'
      Origin = 'InvOutBill'
      Size = 3
    end
    object AdoQry_HeadPONO: TStringField
      FieldName = 'PONO'
      Origin = 'InvOutBill'
      Size = 16
    end
    object AdoQry_HeadMONO: TStringField
      FieldName = 'MONO'
      Origin = 'InvOutBill'
      Size = 16
    end
    object AdoQry_HeadInvBillValuation: TIntegerField
      FieldName = 'InvBillValuation'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadInvBillWHCHCK: TIntegerField
      FieldName = 'InvBillWHCHCK'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadWH_EmployeeCode: TStringField
      FieldName = 'WH_EmployeeCode'
      Origin = 'InvOutBill'
      Size = 30
    end
    object AdoQry_HeadInvBillFINCHCK: TIntegerField
      FieldName = 'InvBillFINCHCK'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadFin_EmployeeCode: TStringField
      FieldName = 'Fin_EmployeeCode'
      Origin = 'InvOutBill'
      Size = 30
    end
    object AdoQry_HeadPRINTTIMES: TIntegerField
      FieldName = 'PRINTTIMES'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadSaleType: TStringField
      FieldName = 'SaleType'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadShiftType: TStringField
      FieldName = 'ShiftType'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadInvBillRemArk: TStringField
      FieldName = 'InvBillRemArk'
      Origin = 'InvOutBill'
      Size = 250
    end
    object AdoQry_HeadInvBillInfo: TStringField
      FieldName = 'InvBillInfo'
      Origin = 'InvOutBill'
      Size = 60
    end
    object AdoQry_HeadOWhPositionCode: TStringField
      FieldName = 'OWhPositionCode'
      Origin = 'InvOutBill'
      Size = 4
    end
    object AdoQry_HeadInvBillStkChck: TIntegerField
      FieldName = 'InvBillStkChck'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadStk_EmployeeCode: TStringField
      FieldName = 'Stk_EmployeeCode'
      Origin = 'InvOutBill'
      Size = 30
    end
    object AdoQry_HeadInvBillTmpFlag: TIntegerField
      FieldName = 'InvBillTmpFlag'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadOverPlan: TIntegerField
      FieldName = 'OverPlan'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadPOLineNo: TIntegerField
      FieldName = 'POLineNo'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadMoLineNO: TIntegerField
      FieldName = 'MoLineNO'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadInvBillCreateTime: TDateTimeField
      FieldName = 'InvBillCreateTime'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadSfc_EmployeeCode: TStringField
      FieldName = 'Sfc_EmployeeCode'
      Origin = 'InvOutBill'
      Size = 30
    end
    object AdoQry_HeadSal_EmployeeCode: TStringField
      FieldName = 'Sal_EmployeeCode'
      Origin = 'InvOutBill'
      Size = 30
    end
    object AdoQry_HeadWH_EmployeeCode2: TStringField
      FieldName = 'WH_EmployeeCode2'
      Origin = 'InvOutBill'
      Size = 30
    end
    object AdoQry_HeadInvBilltaxrate: TFloatField
      FieldName = 'InvBilltaxrate'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadMpsSale: TIntegerField
      FieldName = 'MpsSale'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadopBill: TIntegerField
      FieldName = 'opBill'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadSysBill: TIntegerField
      FieldName = 'SysBill'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadOldInvBillNo: TStringField
      FieldName = 'OldInvBillNo'
      Origin = 'InvOutBill'
      Size = 10
    end
    object AdoQry_HeadPriceAdjustBill: TIntegerField
      FieldName = 'PriceAdjustBill'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadWipWaster: TIntegerField
      FieldName = 'WipWaster'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadAmountAdjust: TIntegerField
      FieldName = 'AmountAdjust'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadShipType: TIntegerField
      FieldName = 'ShipType'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadShipAddresSCode: TStringField
      FieldName = 'ShipAddresSCode'
      Origin = 'InvOutBill'
      Size = 6
    end
    object AdoQry_HeadShipModeCode: TStringField
      FieldName = 'ShipModeCode'
      Origin = 'InvOutBill'
      Size = 6
    end
    object AdoQry_HeadSaleEmployeeCode: TStringField
      FieldName = 'SaleEmployeeCode'
      Origin = 'InvOutBill'
      Size = 30
    end
    object AdoQry_HeadPayTermCode: TStringField
      FieldName = 'PayTermCode'
      Origin = 'InvOutBill'
      Size = 3
    end
    object AdoQry_HeadInvoiceNo: TStringField
      FieldName = 'InvoiceNo'
      Origin = 'InvOutBill'
      Size = 16
    end
    object AdoQry_HeadRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'InvOutBill'
      Size = 60
    end
    object AdoQry_HeadRemArk1: TStringField
      FieldName = 'RemArk1'
      Origin = 'InvOutBill'
      Size = 60
    end
    object AdoQry_HeadTotalInvBillAmount: TFloatField
      FieldName = 'TotalInvBillAmount'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadTotalInvBillNoTaxAmount: TFloatField
      FieldName = 'TotalInvBillNoTaxAmount'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadTotalInvBillnoTaxAmountc: TFloatField
      FieldName = 'TotalInvBillnoTaxAmountc'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadTotalInvBillAmountc: TFloatField
      FieldName = 'TotalInvBillAmountc'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = 'customer'
      Size = 60
    end
    object AdoQry_HeadCustomerFalg: TStringField
      FieldName = 'CustomerFalg'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_HeadDeptName: TStringField
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_HeadDeptFalg: TStringField
      FieldName = 'DeptFalg'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_HeadSaleTypeName: TStringField
      FieldName = 'SaleTypeName'
      Origin = 'SaleType'
      Size = 30
    end
    object AdoQry_HeadSaleTypeflag: TStringField
      FieldName = 'SaleTypeflag'
      ReadOnly = True
      Size = 51
    end
    object AdoQry_HeadSaleEmployeeName: TStringField
      FieldName = 'SaleEmployeeName'
      Size = 60
    end
    object AdoQry_HeadSaleEmployeeFalg: TStringField
      FieldName = 'SaleEmployeeFalg'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadCurrencyName: TStringField
      FieldName = 'CurrencyName'
      Origin = 'currency'
      Size = 30
    end
    object AdoQry_HeadCurrencyFalg: TStringField
      FieldName = 'CurrencyFalg'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_HeadPayTermName: TStringField
      FieldName = 'PayTermName'
      Origin = 'PayTerm'
      Size = 30
    end
    object AdoQry_HeadPayTermFalg: TStringField
      FieldName = 'PayTermFalg'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_HeadcreateEmployeeName: TStringField
      FieldName = 'createEmployeeName'
      Size = 60
    end
    object AdoQry_HeadcreateEmployeeFalg: TStringField
      FieldName = 'createEmployeeFalg'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadassessName: TStringField
      FieldName = 'assessName'
      Size = 60
    end
    object AdoQry_Headassessflag: TStringField
      FieldName = 'assessflag'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadShipModeName: TStringField
      FieldName = 'ShipModeName'
      Origin = 'ShipMode'
      Size = 120
    end
    object AdoQry_HeadShipModeFalg: TStringField
      FieldName = 'ShipModeFalg'
      ReadOnly = True
      Size = 127
    end
    object AdoQry_HeadShipAddressName: TStringField
      FieldName = 'ShipAddressName'
      Origin = 'customerShipAddress'
      Size = 60
    end
    object AdoQry_HeadShipAddressFalg: TStringField
      FieldName = 'ShipAddressFalg'
      ReadOnly = True
      Size = 67
    end
    object AdoQry_HeadWhName: TStringField
      FieldName = 'WhName'
      Origin = '#BackShipOrderPass'
      Size = 40
    end
    object AdoQry_HeadWhPositionName: TStringField
      FieldName = 'WhPositionName'
      Origin = '#BackShipOrderPass'
      Size = 40
    end
  end
  inherited DataSource: TDataSource
    Top = 305
  end
end