ar_enter_saleinvoice4_c1.dfm

一个MRPII系统源代码版本

      
        '                left join SaleType                              ' +
        '          '
      '                 on InvOutBill.SaleType=SaleType.SaleTypeCode  '
      '')
    Left = 280
    Top = 161
    object AdoQry_Maincheckflag: TIntegerField
      FieldName = 'checkflag'
    end
    object AdoQry_MainInvBillId: TFloatField
      FieldName = 'InvBillId'
      ReadOnly = True
    end
    object AdoQry_MainInvBillNo: TStringField
      FieldName = 'InvBillNo'
      Size = 10
    end
    object AdoQry_MainWHCode: TStringField
      FieldName = 'WHCode'
      Size = 4
    end
    object AdoQry_MainWhPositionCode: TStringField
      FieldName = 'WhPositionCode'
      Size = 4
    end
    object AdoQry_MainInvBillDate: TDateTimeField
      FieldName = 'InvBillDate'
    end
    object AdoQry_MainInvBillMonth: TStringField
      FieldName = 'InvBillMonth'
      FixedChAr = True
      Size = 7
    end
    object AdoQry_MaInBillTypeCode: TStringField
      FieldName = 'BillTypeCode'
      Size = 4
    end
    object AdoQry_MaInBillType2Code: TStringField
      FieldName = 'BillType2Code'
      Size = 4
    end
    object AdoQry_MaInvendorCode: TStringField
      FieldName = 'VendorCode'
      Size = 12
    end
    object AdoQry_MainEmployeeCode: TStringField
      FieldName = 'EmployeeCode'
      Size = 30
    end
    object AdoQry_MainDeptCode: TStringField
      FieldName = 'DeptCode'
      Size = 8
    end
    object AdoQry_MainCUSTOMERCode: TStringField
      FieldName = 'CUSTOMERCode'
      Size = 12
    end
    object AdoQry_MainCURRENCYCode: TStringField
      FieldName = 'CURRENCYCode'
      Size = 3
    end
    object AdoQry_MainPONO: TStringField
      FieldName = 'PONO'
      Size = 16
    end
    object AdoQry_MainMONO: TStringField
      FieldName = 'MONO'
      Size = 16
    end
    object AdoQry_MainInvBillValuation: TIntegerField
      FieldName = 'InvBillValuation'
    end
    object AdoQry_MainInvBillWHCHCK: TIntegerField
      FieldName = 'InvBillWHCHCK'
    end
    object AdoQry_MainWH_EmployeeCode: TStringField
      FieldName = 'WH_EmployeeCode'
      Size = 30
    end
    object AdoQry_MainInvBillFINCHCK: TIntegerField
      FieldName = 'InvBillFINCHCK'
    end
    object AdoQry_MainFin_EmployeeCode: TStringField
      FieldName = 'Fin_EmployeeCode'
      Size = 30
    end
    object AdoQry_MainPRINTTIMES: TIntegerField
      FieldName = 'PRINTTIMES'
    end
    object AdoQry_MainSaleType: TStringField
      FieldName = 'SaleType'
    end
    object AdoQry_MainShiftType: TStringField
      FieldName = 'ShiftType'
    end
    object AdoQry_MainInvBillRemArk: TStringField
      FieldName = 'InvBillRemArk'
      Size = 250
    end
    object AdoQry_MainInvBillInfo: TStringField
      FieldName = 'InvBillInfo'
      Size = 60
    end
    object AdoQry_MainOWhPositionCode: TStringField
      FieldName = 'OWhPositionCode'
      Size = 4
    end
    object AdoQry_MainInvBillStkChck: TIntegerField
      FieldName = 'InvBillStkChck'
    end
    object AdoQry_MainStk_EmployeeCode: TStringField
      FieldName = 'Stk_EmployeeCode'
      Size = 30
    end
    object AdoQry_MainInvBillTmpFlag: TIntegerField
      FieldName = 'InvBillTmpFlag'
    end
    object AdoQry_MainOverPlan: TIntegerField
      FieldName = 'OverPlan'
    end
    object AdoQry_MainPOLineNo: TIntegerField
      FieldName = 'POLineNo'
    end
    object AdoQry_MainMoLineNO: TIntegerField
      FieldName = 'MoLineNO'
    end
    object AdoQry_MainInvBillCreateTime: TDateTimeField
      FieldName = 'InvBillCreateTime'
    end
    object AdoQry_MainSfc_EmployeeCode: TStringField
      FieldName = 'Sfc_EmployeeCode'
      Size = 30
    end
    object AdoQry_MainSal_EmployeeCode: TStringField
      FieldName = 'Sal_EmployeeCode'
      Size = 30
    end
    object AdoQry_MainWH_EmployeeCode2: TStringField
      FieldName = 'WH_EmployeeCode2'
      Size = 30
    end
    object AdoQry_MainInvBilltaxrate: TFloatField
      FieldName = 'InvBilltaxrate'
    end
    object AdoQry_MainMpsSale: TIntegerField
      FieldName = 'MpsSale'
    end
    object AdoQry_MainopBill: TIntegerField
      FieldName = 'opBill'
    end
    object AdoQry_MainSysBill: TIntegerField
      FieldName = 'SysBill'
    end
    object AdoQry_MainOldInvBillNo: TStringField
      FieldName = 'OldInvBillNo'
      Size = 10
    end
    object AdoQry_MainPriceAdjustBill: TIntegerField
      FieldName = 'PriceAdjustBill'
    end
    object AdoQry_MainWipWaster: TIntegerField
      FieldName = 'WipWaster'
    end
    object AdoQry_MainAmountAdjust: TIntegerField
      FieldName = 'AmountAdjust'
    end
    object AdoQry_MainShipType: TIntegerField
      FieldName = 'ShipType'
    end
    object AdoQry_MainShipAddresSCode: TStringField
      FieldName = 'ShipAddresSCode'
      Size = 6
    end
    object AdoQry_MainShipModeCode: TStringField
      FieldName = 'ShipModeCode'
      Size = 6
    end
    object AdoQry_MainSaleEmployeeCode: TStringField
      FieldName = 'SaleEmployeeCode'
      Size = 30
    end
    object AdoQry_MainPayTermCode: TStringField
      FieldName = 'PayTermCode'
      Size = 3
    end
    object AdoQry_MainInvoiceNo: TStringField
      FieldName = 'InvoiceNo'
      Size = 16
    end
    object AdoQry_MainRemArk: TStringField
      FieldName = 'RemArk'
      Size = 60
    end
    object AdoQry_MainRemArk1: TStringField
      FieldName = 'RemArk1'
      Size = 60
    end
    object AdoQry_MainTotalInvBillAmount: TFloatField
      FieldName = 'TotalInvBillAmount'
      OnGetText = AdoQry_MainTotalInvBillAmountGetText
    end
    object AdoQry_MainTotalInvBillNoTaxAmount: TFloatField
      FieldName = 'TotalInvBillNoTaxAmount'
      OnGetText = AdoQry_MainTotalInvBillNoTaxAmountGetText
    end
    object AdoQry_MainTotalInvBillnoTaxAmountc: TFloatField
      FieldName = 'TotalInvBillnoTaxAmountc'
    end
    object AdoQry_MainTotalInvBillAmountc: TFloatField
      FieldName = 'TotalInvBillAmountc'
    end
    object AdoQry_MaincurrencyName: TStringField
      FieldName = 'currencyName'
      Size = 30
    end
    object AdoQry_Maincurrencyflag: TStringField
      FieldName = 'currencyflag'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainDeptName: TStringField
      FieldName = 'DeptName'
      Size = 40
    end
    object AdoQry_MainDeptflag: TStringField
      FieldName = 'Deptflag'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_MainEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Size = 60
    end
    object AdoQry_MainEmployeeflag: TStringField
      FieldName = 'Employeeflag'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainPayTermName: TStringField
      FieldName = 'PayTermName'
      Size = 30
    end
    object AdoQry_MainPayTermflag: TStringField
      FieldName = 'PayTermflag'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainShipModeName: TStringField
      FieldName = 'ShipModeName'
      Size = 120
    end
    object AdoQry_MainShipModeflag: TStringField
      FieldName = 'ShipModeflag'
      ReadOnly = True
      Size = 127
    end
    object AdoQry_MainSaleTypeName: TStringField
      FieldName = 'SaleTypeName'
      Size = 30
    end
    object AdoQry_MainSaleTypeflag: TStringField
      FieldName = 'SaleTypeflag'
      ReadOnly = True
      Size = 51
    end
  end
  inherited DataSource: TDataSource
    Left = 472
    Top = 73
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 120
    Top = 137
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 208
    Top = 193
  end
end