ar_enter_noinvoiceshiporder.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_NoInvoiceShipOrder: TFrm_Ar_Enter_NoInvoiceShipOrder
  Left = 88
  Top = 92
  Caption = '未开发票销售出库单'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '未开发票销售出库单'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '客户代码'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'CUSTOMERCode'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerName'
          PickList.Strings = ()
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillDate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillMonth'
          PickList.Strings = ()
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalInvBillAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalInvBillNoTaxAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptCode'
          PickList.Strings = ()
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Width = 110
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleType'
          PickList.Strings = ()
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeName'
          PickList.Strings = ()
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeCode'
          PickList.Strings = ()
          Width = 88
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CURRENCYCode'
          PickList.Strings = ()
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBilltaxrate'
          PickList.Strings = ()
          Title.Caption = '税率%'
          Width = 87
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WHCode'
          PickList.Strings = ()
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhName'
          PickList.Strings = ()
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionCode'
          PickList.Strings = ()
          Width = 54
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionName'
          PickList.Strings = ()
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillRemArk'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddresSCode'
          PickList.Strings = ()
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddressName'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeCode'
          PickList.Strings = ()
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeName'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermCode'
          PickList.Strings = ()
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermName'
          PickList.Strings = ()
          Width = 84
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk1'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 381
    Top = 43
  end
  inherited ActionList: TActionList
    Left = 184
    Top = 160
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_kelong;Data Source=192.168' +
      '.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet Si' +
      'ze=4096;Workstation ID=XYB'
    SQL.Strings = (
      ' Select InvOutBill.*,CustomerName,SaleType.SaleTypeName,'
      
        '                       InvOutBill.CustomerCode+'#39' '#39'+ CustomerName' +
        ' as CustomerFalg,'
      '                       DeptName,'
      
        '                       InvOutBill.DeptCode+'#39' '#39'+DeptName As DeptF' +
        'alg, '
      '                       Warehouse.WhName,'
      '                       WhPosition.WhPositionName,'
      '                       Employee.EmployeeName, '
      
        '                       SaleEmployeeCode+'#39' '#39'+Employee.EmployeeNam' +
        'e  As EmployeeFalg, '
      '                       CurrencyName,'
      
        '                       InvOutBill.CurrencyCode+'#39' '#39'+CurrencyName ' +
        'As CurrencyFalg, '
      '                       InvOutBill.InvBillTaxRate,  '
      '                       PayTerm.PayTermName,   '
      
        '                       InvOutBill.PayTermCode+'#39' '#39'+PayTermName As' +
        ' SaleTermFalg,'
      '                       tt.EmployeeName as CreateEmployeeName, '
      
        '                       InvOutBill.Sal_EmployeeCode+'#39' '#39'+tt.Employ' +
        'eeName As EmployeeFalg1, '
      '                       ShipModeName,'
      
        '                       InvOutBill.ShipModeCode+'#39' '#39'+ShipModeName ' +
        ' As ShipModeFalg,'
      '                       ShipAddressName, '
      
        '                       InvOutBill.ShipAddresSCode+'#39' '#39'+ShipAddres' +
        'sName As ShipAddressFalg'
      '                 From InvOutBill left outer  Join Customer '
      
        '                     On InvOutBill.CustomerCode=Customer.Custome' +
        'rCode '
      '                     left outer Join Dept     '
      '                     On InvOutBill.DeptCode=Dept.DeptCode    '
      
        '                     left Join Warehouse on InvOutBill.WhCode=Wa' +
        'reHouse.WhCode '
      
        '                     left Join WhPosition on (InvOutBill.WhCode=' +
        'WhPosition.WhCode and InvOutBill.WhPositionCode=WhPosition.WhPos' +
        'itionCode) '
      '                     left Join Employee       '
      
        '                     On InvOutBill.SaleEmployeeCode=Employee.Emp' +
        'loyeeCode  '
      '                     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 ShipMode '
      
        '                     On InvOutBill.ShipModeCode=ShipMode.ShiPmod' +
        'eCode '
      
        '                     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 = 208
    Top = 209
    object AdoQry_MainInvBillId: TFloatField
      FieldName = 'InvBillId'
      Origin = 'InvOutBill'
      ReadOnly = True
    end
    object AdoQry_MainInvBillNo: TStringField
      DisplayLabel = '单据号'
      FieldName = 'InvBillNo'
      Origin = 'InvOutBill'
      Size = 10
    end
    object AdoQry_MainWHCode: TStringField
      DisplayLabel = '仓库代码'
      FieldName = 'WHCode'
      Origin = 'InvOutBill'
      Size = 4
    end
    object AdoQry_MainWhPositionCode: TStringField
      DisplayLabel = '货位代码'
      FieldName = 'WhPositionCode'
      Origin = 'InvOutBill'
      Size = 4
    end
    object AdoQry_MainInvBillDate: TDateTimeField
      DisplayLabel = '单据日期'
      FieldName = 'InvBillDate'
      Origin = 'InvOutBill'
    end
    object AdoQry_MainInvBillMonth: TStringField