sal_enter_passshiporderh.dfm

一个MRPII系统源代码版本

        '                     left  Join SaleType On InvOutBill.SaleType=' +
        'SaleType.SaleTypeCode '
      '                     Left Join CustomerShipAddress   '
      
        '                     On (InvOutBill.ShipAddresSCode=CustomerShip' +
        'Address.ShipAddresSCode  and InvOutBill.CustomerCode=CustomerShi' +
        'pAddress.CustomerCode ) '
      'where  ShipType=0 ')
    Left = 384
    object AdoQry_HeadInvBillId: TFloatField
      FieldName = 'InvBillId'
      Origin = '#ShipOrderPass'
      ReadOnly = True
    end
    object AdoQry_HeadInvBillNo: TStringField
      FieldName = 'InvBillNo'
      Origin = '#ShipOrderPass'
      Size = 10
    end
    object AdoQry_HeadWHCode: TStringField
      FieldName = 'WHCode'
      Origin = '#ShipOrderPass'
      Size = 4
    end
    object AdoQry_HeadWhPositionCode: TStringField
      FieldName = 'WhPositionCode'
      Origin = '#ShipOrderPass'
      Size = 4
    end
    object AdoQry_HeadInvBillDate: TDateTimeField
      FieldName = 'InvBillDate'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadInvBillMonth: TStringField
      FieldName = 'InvBillMonth'
      Origin = '#ShipOrderPass'
      FixedChAr = True
      Size = 7
    end
    object AdoQry_HeadBillTypeCode: TStringField
      FieldName = 'BillTypeCode'
      Origin = '#ShipOrderPass'
      Size = 4
    end
    object AdoQry_HeadBillType2Code: TStringField
      FieldName = 'BillType2Code'
      Origin = '#ShipOrderPass'
      Size = 4
    end
    object AdoQry_HeadVendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = '#ShipOrderPass'
      Size = 12
    end
    object AdoQry_HeadEmployeeCode: TStringField
      FieldName = 'EmployeeCode'
      Origin = '#ShipOrderPass'
      Size = 30
    end
    object AdoQry_HeadDeptCode: TStringField
      FieldName = 'DeptCode'
      Origin = '#ShipOrderPass'
      Size = 8
    end
    object AdoQry_HeadCUSTOMERCode: TStringField
      FieldName = 'CUSTOMERCode'
      Origin = '#ShipOrderPass'
      Size = 12
    end
    object AdoQry_HeadCURRENCYCode: TStringField
      FieldName = 'CURRENCYCode'
      Origin = '#ShipOrderPass'
      Size = 3
    end
    object AdoQry_HeadPONO: TStringField
      FieldName = 'PONO'
      Origin = '#ShipOrderPass'
      Size = 16
    end
    object AdoQry_HeadMONO: TStringField
      FieldName = 'MONO'
      Origin = '#ShipOrderPass'
      Size = 16
    end
    object AdoQry_HeadInvBillValuation: TIntegerField
      FieldName = 'InvBillValuation'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadInvBillWHCHCK: TIntegerField
      FieldName = 'InvBillWHCHCK'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadWH_EmployeeCode: TStringField
      FieldName = 'WH_EmployeeCode'
      Origin = '#ShipOrderPass'
      Size = 30
    end
    object AdoQry_HeadInvBillFINCHCK: TIntegerField
      FieldName = 'InvBillFINCHCK'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadFin_EmployeeCode: TStringField
      FieldName = 'Fin_EmployeeCode'
      Origin = '#ShipOrderPass'
      Size = 30
    end
    object AdoQry_HeadPRINTTIMES: TIntegerField
      FieldName = 'PRINTTIMES'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadSaleType: TStringField
      FieldName = 'SaleType'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadShiftType: TStringField
      FieldName = 'ShiftType'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadInvBillRemArk: TStringField
      FieldName = 'InvBillRemArk'
      Origin = '#ShipOrderPass'
      Size = 250
    end
    object AdoQry_HeadInvBillInfo: TStringField
      FieldName = 'InvBillInfo'
      Origin = '#ShipOrderPass'
      Size = 60
    end
    object AdoQry_HeadOWhPositionCode: TStringField
      FieldName = 'OWhPositionCode'
      Origin = '#ShipOrderPass'
      Size = 4
    end
    object AdoQry_HeadInvBillStkChck: TIntegerField
      FieldName = 'InvBillStkChck'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadStk_EmployeeCode: TStringField
      FieldName = 'Stk_EmployeeCode'
      Origin = '#ShipOrderPass'
      Size = 30
    end
    object AdoQry_HeadInvBillTmpFlag: TIntegerField
      FieldName = 'InvBillTmpFlag'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadOverPlan: TIntegerField
      FieldName = 'OverPlan'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadPOLineNo: TIntegerField
      FieldName = 'POLineNo'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadMoLineNO: TIntegerField
      FieldName = 'MoLineNO'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadInvBillCreateTime: TDateTimeField
      FieldName = 'InvBillCreateTime'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadSfc_EmployeeCode: TStringField
      FieldName = 'Sfc_EmployeeCode'
      Origin = '#ShipOrderPass'
      Size = 30
    end
    object AdoQry_HeadSal_EmployeeCode: TStringField
      FieldName = 'Sal_EmployeeCode'
      Origin = '#ShipOrderPass'
      Size = 30
    end
    object AdoQry_HeadWH_EmployeeCode2: TStringField
      FieldName = 'WH_EmployeeCode2'
      Origin = '#ShipOrderPass'
      Size = 30
    end
    object AdoQry_HeadInvBilltaxrate: TFloatField
      FieldName = 'InvBilltaxrate'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadMpsSale: TIntegerField
      FieldName = 'MpsSale'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadopBill: TIntegerField
      FieldName = 'opBill'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadSysBill: TIntegerField
      FieldName = 'SysBill'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadOldInvBillNo: TStringField
      FieldName = 'OldInvBillNo'
      Origin = '#ShipOrderPass'
      Size = 10
    end
    object AdoQry_HeadPriceAdjustBill: TIntegerField
      FieldName = 'PriceAdjustBill'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadWipWaster: TIntegerField
      FieldName = 'WipWaster'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadAmountAdjust: TIntegerField
      FieldName = 'AmountAdjust'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadShipType: TIntegerField
      FieldName = 'ShipType'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadShipAddresSCode: TStringField
      FieldName = 'ShipAddresSCode'
      Origin = '#ShipOrderPass'
      Size = 6
    end
    object AdoQry_HeadShipModeCode: TStringField
      FieldName = 'ShipModeCode'
      Origin = '#ShipOrderPass'
      Size = 6
    end
    object AdoQry_HeadSaleEmployeeCode: TStringField
      FieldName = 'SaleEmployeeCode'
      Origin = '#ShipOrderPass'
      Size = 30
    end
    object AdoQry_HeadPayTermCode: TStringField
      FieldName = 'PayTermCode'
      Origin = '#ShipOrderPass'
      Size = 3
    end
    object AdoQry_HeadInvoiceNo: TStringField
      FieldName = 'InvoiceNo'
      Origin = '#ShipOrderPass'
      Size = 16
    end
    object AdoQry_HeadRemArk: TStringField
      FieldName = 'RemArk'
      Origin = '#ShipOrderPass'
      Size = 60
    end
    object AdoQry_HeadRemArk1: TStringField
      FieldName = 'RemArk1'
      Origin = '#ShipOrderPass'
      Size = 60
    end
    object AdoQry_HeadTotalInvBillAmount: TFloatField
      FieldName = 'TotalInvBillAmount'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadTotalInvBillNoTaxAmount: TFloatField
      FieldName = 'TotalInvBillNoTaxAmount'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadTotalInvBillnoTaxAmountc: TFloatField
      FieldName = 'TotalInvBillnoTaxAmountc'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadTotalInvBillAmountc: TFloatField
      FieldName = 'TotalInvBillAmountc'
      Origin = '#ShipOrderPass'
    end
    object AdoQry_HeadCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = '#ShipOrderPass'
      Size = 60
    end
    object AdoQry_HeadSaleTypeName: TStringField
      FieldName = 'SaleTypeName'
      Origin = '#ShipOrderPass'
      Size = 30
    end
    object AdoQry_HeadCustomerFalg: TStringField
      FieldName = 'CustomerFalg'
      Origin = '#ShipOrderPass'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_HeadDeptName: TStringField
      FieldName = 'DeptName'
      Origin = '#ShipOrderPass'
      Size = 40
    end
    object AdoQry_HeadDeptFalg: TStringField
      FieldName = 'DeptFalg'
      Origin = '#ShipOrderPass'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_HeadWhName: TStringField
      FieldName = 'WhName'
      Origin = '#ShipOrderPass'
      Size = 40
    end
    object AdoQry_HeadWhPositionName: TStringField
      FieldName = 'WhPositionName'
      Origin = '#ShipOrderPass'
      Size = 40
    end
    object AdoQry_HeadEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Origin = '#ShipOrderPass'
      Size = 60
    end
    object AdoQry_HeadEmployeeFalg: TStringField
      FieldName = 'EmployeeFalg'
      Origin = '#ShipOrderPass'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadCurrencyName: TStringField
      FieldName = 'CurrencyName'
      Origin = '#ShipOrderPass'
      Size = 30
    end
    object AdoQry_HeadCurrencyFalg: TStringField
      FieldName = 'CurrencyFalg'
      Origin = '#ShipOrderPass'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_HeadSaleTermName: TStringField
      FieldName = 'SaleTermName'
      Origin = '#ShipOrderPass'
      Size = 30
    end
    object AdoQry_HeadSaleTermFalg: TStringField
      FieldName = 'SaleTermFalg'
      Origin = '#ShipOrderPass'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_HeadCreateEmployeeName: TStringField
      FieldName = 'CreateEmployeeName'
      Origin = '#ShipOrderPass'
      Size = 60
    end
    object AdoQry_HeadEmployeeFalg1: TStringField
      FieldName = 'EmployeeFalg1'
      Origin = '#ShipOrderPass'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadShipModeName: TStringField
      FieldName = 'ShipModeName'
      Origin = '#ShipOrderPass'
      Size = 120
    end
    object AdoQry_HeadShipModeFalg: TStringField
      FieldName = 'ShipModeFalg'
      Origin = '#ShipOrderPass'
      ReadOnly = True
      Size = 127
    end
    object AdoQry_HeadShipAddressName: TStringField
      FieldName = 'ShipAddressName'
      Origin = '#ShipOrderPass'
      Size = 60
    end
    object AdoQry_HeadShipAddressFalg: TStringField
      FieldName = 'ShipAddressFalg'
      Origin = '#ShipOrderPass'
      ReadOnly = True
      Size = 67
    end
    object AdoQry_HeadWh_EmployeeName: TStringField
      FieldName = 'Wh_EmployeeName'
      Size = 60
    end
  end
  inherited DataSource: TDataSource
    Top = 305
  end
end