sal_qry_noinvoiceshiporder.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Qry_NoInvoiceShipOrder: TFrm_Sal_Qry_NoInvoiceShipOrder
  Left = 68
  Top = 107
  Caption = '未开票销售发货单查询'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '未开票销售发货单查询'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Width = 180
      Caption = '客户代码/发货日期/销售发货单号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      OnDblClick = Act_LookExecute
      Columns = <
        Item
          FieldName = 'CustomerFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户标识'
          Width = 127
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货日期'
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售发货单号'
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalInvBillNoTaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalInvBillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 59
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售类型标识'
          Width = 86
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleDeptFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售部门标识'
          Width = 204
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '营销业务员标识'
          Width = 96
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币标识'
          Width = 73
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBilltaxrate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售税率'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款条款标识'
          Width = 159
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillWHCHCK'
          PickList.Strings = (
            '未审核'
            '已审核'
            '')
          Title.Alignment = taCenter
          Title.Caption = '审核标志'
          Width = 62
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'CreateEmployeeFalg1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '制单人员标识'
          Width = 102
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货方式标识'
          Width = 95
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipAddressFalg'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货地址'
          Width = 116
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注1'
          Width = 130
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注2'
          Width = 171
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 192
    Top = 216
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      ''
      'Select top  1 InvOutBill.*, '
      '           CustomerName,   '
      
        '           InvOutBill.CustomerCode+'#39' '#39'+ CustomerName as Customer' +
        'Falg, '
      
        '           InvOutBill.SaleType+'#39' '#39'+SaleType.SaleTypeName As Sale' +
        'TypeFalg,'
      '           DeptName, '
      '           InvOutBill.DeptCode+'#39' '#39'+DeptName As SaleDeptFalg,'
      '           Employee.EmployeeName As SaleEmployeeName,'
      
        '           SaleEmployeeCode+'#39' '#39'+Employee.EmployeeName  As SaleEm' +
        'ployeeFalg,'
      '           CurrencyName, '
      
        '           InvOutBill.CurrencyCode+'#39' '#39'+CurrencyName As CurrencyF' +
        'alg,   '
      '        --  //+'#39' InvOutBill.TaxRate_Percent,'
      '           PayTerm.PayTermName  as SaleTermName, '
      
        '           InvOutBill.PayTermCode+'#39' '#39'+PayTermName As PayTermFalg' +
        ', '
      '           tt.EmployeeName As CreateEmployeeName ,'
      
        '           Sal_EmployeeCode+'#39' '#39'+tt.EmployeeName As CreateEmploye' +
        'eFalg1, '
      '           ShipModeName,  '
      
        '           InvOutBill.ShipModeCode+'#39' '#39'+ShipModeName  As ShipMode' +
        'Falg, '
      '           ShipAddressName,  '
      
        '           InvOutBill.ShipAddresSCode+'#39' '#39'+ShipAddressName As Shi' +
        'pAddressFalg  '
      '        --   Into #NoInvoiceShipOrder'
      '           From InvOutBill  '
      '           left outer  Join Customer '
      '           On InvOutBill.CustomerCode=Customer.CustomerCode '
      '           left outer Join Dept  '
      '           On InvOutBill.DeptCode=Dept.DeptCode '
      '           left Join Employee '
      '           On InvOutBill.SaleEmployeeCode=Employee.EmployeeCode '
      '           left Join Currency '
      '           On InvOutBill.CurrencyCode=Currency.CurrencyCode '
      '           left Join PayTerm '
      '           On InvOutBill.PayTermCode=PayTerm.PayTermCode  '
      '           left Join Employee tt '
      '           On InvOutBill.Sal_EmployeeCode=tt.EmployeeCode  '
      '           left Join ShipMode  '
      '           On InvOutBill.ShipModeCode=ShipMode.ShipModeCode   '
      '           left  Join SaleType   '
      '           On InvOutBill.SaleType=SaleType.SaleTypeCode  '
      '           Join CustomerShipAddress '
      
        '           On (InvOutBill.ShipAddresSCode=CustomerShipAddress.Sh' +
        'ipAddresSCode '
      
        '           and InvOutBill.CustomerCode=CustomerShipAddress.Custo' +
        'merCode ) '
      
        '--             Where (InvOutBill.CreateDate Between '#39#39#39'+CreateDa' +
        'teStArt+'#39#39#39' And '#39#39#39'+CreateDateend+'#39#39#39')  And '#39
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '')
    Left = 320
    Top = 241
    object AdoQry_MainShipType: TIntegerField
      FieldName = 'ShipType'
      Origin = '#NoInvoiceShipOrder'
    end
    object AdoQry_MainCustomerCode: TStringField
      FieldName = 'CustomerCode'
      Origin = '#NoInvoiceShipOrder'
      Size = 12
    end
    object AdoQry_MainShipAddresSCode: TStringField
      FieldName = 'ShipAddresSCode'
      Origin = '#NoInvoiceShipOrder'
      Size = 6
    end
    object AdoQry_MainShipModeCode: TStringField
      FieldName = 'ShipModeCode'
      Origin = '#NoInvoiceShipOrder'
      Size = 6
    end
    object AdoQry_MainSaleEmployeeCode: TStringField
      FieldName = 'SaleEmployeeCode'
      Origin = '#NoInvoiceShipOrder'
      Size = 30
    end
    object AdoQry_MainCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = '#NoInvoiceShipOrder'
      Size = 2
    end
    object AdoQry_MainPayTermCode: TStringField
      FieldName = 'PayTermCode'
      Origin = '#NoInvoiceShipOrder'
      Size = 3
    end
    object AdoQry_MainInvoiceNo: TStringField
      FieldName = 'InvoiceNo'
      Origin = '#NoInvoiceShipOrder'
      Size = 16
    end
    object AdoQry_MainRemArk: TStringField
      FieldName = 'RemArk'
      Origin = '#NoInvoiceShipOrder'
      Size = 60
    end
    object AdoQry_MainRemArk1: TStringField
      FieldName = 'RemArk1'
      Origin = '#NoInvoiceShipOrder'
      Size = 60
    end
    object AdoQry_MainCustomerName: TStringField
      FieldName = 'CustomerName'