ar_enter_nogatherinvoice.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_NoGatherInvoice: TFrm_Ar_Enter_NoGatherInvoice
  Left = 61
  Top = 108
  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 = 144
      Caption = '客户代码/开票日期/发票号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'CustomerCode'
          PickList.Strings = ()
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerName'
          PickList.Strings = ()
          Width = 140
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillDate'
          PickList.Strings = ()
          Title.Caption = '开票日期'
          Width = 63
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvoiceNo'
          PickList.Strings = ()
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvoiceType'
          PickList.Strings = (
            '0 普通发票'
            '1 专用发票'
            '2 出口发票')
          Width = 71
          KeyList.Strings = (
            '0'
            '1'
            '2')
        end
        Item
          FieldName = 'ExportTradeTypeCode'
          PickList.Strings = ()
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExportTradeTypeName'
          PickList.Strings = ()
          Width = 108
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillType'
          PickList.Strings = (
            '0 销售发票'
            '1 其他销售发票')
          Width = 71
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'TotalTaxAmount'
          PickList.Strings = ()
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalTaxAmountC'
          PickList.Strings = ()
          Title.Caption = '本位币发票金额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CancelAmount'
          PickList.Strings = ()
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Width = 54
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchangeRate'
          PickList.Strings = ()
          Width = 35
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTermCode'
          PickList.Strings = ()
          Width = 86
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermName'
          PickList.Strings = ()
          Width = 85
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Bank'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BankActNo'
          PickList.Strings = ()
          Width = 108
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeCode'
          PickList.Strings = ()
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeName'
          PickList.Strings = ()
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeCode'
          PickList.Strings = ()
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeName'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleDeptCode'
          PickList.Strings = ()
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeCode'
          PickList.Strings = ()
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createrName'
          PickList.Strings = ()
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EditDate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EdItEmployeeCode'
          PickList.Strings = ()
          Width = 85
          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_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 Sa_SaleInvoice.*,Customer.CustomerName,'
      '                 Employee1.EmployeeName as createrName, '
      '                 Dept.DeptName,'
      '                 Sa_ExportTradeType.ExportTradeTypeName,'
      '                 SaleType.SaleTypeName,'
      '                 Employee3.EmployeeName as SaleEmployeeName,'
      '                 Currency.CurrencyName,PayTermName'
      '                 From Sa_SaleInvoice '
      
        '                 left join SaleType on sa_SaleInvoice.SaleTypeco' +
        'de=SaleType.SaleTypeCode '
      
        '   left join Sa_ExportTradeType on Sa_SaleInvoice.ExportTradeTyp' +
        'eCode=Sa_ExportTradeType.ExportTradeTypeCode           '
      '   left join Dept on sa_SaleInvoice.SaleDeptCode=Dept.DeptCode '
      
        '                 left join Employee Employee3 on sa_SaleInvoice.' +
        'SaleEmployeeCode=Employee3.EmployeeCode '
      '                 left Join Customer '
      
        '                   On Sa_SaleInvoice.CustomerCode=Customer.Custo' +
        'merCode '
      '                 left Join Currency '
      
        '                   On Sa_SaleInvoice.CurrencyCode=Currency.Curre' +
        'ncyCode '
      '                 left Join PayTerm '
      '                   On Sa_SaleInvoice.SaleTermCode=PayTermCode '
      '                 left Join Employee Employee1'
      
        '                   On Sa_SaleInvoice.CreateEmployeeCode=Employee' +
        '1.EmployeeCode '
      '  where Sa_SaleInvoice.InvoiceType=0 and OrderType=0'
      '  Order by Sa_SaleInvoice.CustomerCode,CreateDate,Invoiceno ')
    Left = 368
    Top = 225
    object AdoQry_MainInvoiceNoId: TAutoIncField
      FieldName = 'InvoiceNoId'
      Origin = 'sa_SaleInvoice'
      ReadOnly = True
    end
    object AdoQry_MainInvoiceNo: TStringField
      DisplayLabel = '发票号'
      FieldName = 'InvoiceNo'
      Origin = 'sa_SaleInvoice'
      Size = 16
    end
    object AdoQry_MainInvoiceType: TIntegerField
      DisplayLabel = '发票类型'
      FieldName = 'InvoiceType'
      Origin = 'sa_SaleInvoice'
    end
    object AdoQry_MaInBillType: TIntegerField
      DisplayLabel = '发票性质'
      FieldName = 'BillType'
      Origin = 'sa_SaleInvoice'
    end
    object AdoQry_MaInOrderType: TIntegerField
      FieldName = 'OrderType'
      Origin = 'sa_SaleInvoice'
    end
    object AdoQry_MainActive: TIntegerField
      FieldName = 'Active'
      Origin = 'sa_SaleInvoice'
    end
    object AdoQry_MainActSubjectCode: TStringField
      FieldName = 'ActSubjectCode'
      Origin = 'sa_SaleInvoice'
      Size = 15
    end
    object AdoQry_MainTaxActNo: TStringField
      FieldName = 'TaxActNo'
      Origin = 'sa_SaleInvoice'
      Size = 30
    end
    object AdoQry_MainCustomerCode: TStringField
      DisplayLabel = '客户代码'
      FieldName = 'CustomerCode'
      Origin = 'sa_SaleInvoice'
      Size = 12
    end
    object AdoQry_MainSaleTypeCode: TStringField
      DisplayLabel = '销售类型代码'
      FieldName = 'SaleTypeCode'
      Origin = 'sa_SaleInvoice'
      Size = 6
    end
    object AdoQry_MainSaleEmployeeCode: TStringField
      DisplayLabel = '营销业务员代码'
      FieldName = 'SaleEmployeeCode'
      Origin = 'sa_SaleInvoice'
      Size = 30
    end
    object AdoQry_MainSaleDeptCode: TStringField
      DisplayLabel = '销售部门代码'
      FieldName = 'SaleDeptCode'
      Origin = 'sa_SaleInvoice'
      Size = 8
    end
    object AdoQry_MainBank: TStringField
      DisplayLabel = '开户银行'
      FieldName = 'Bank'
      Origin = 'sa_SaleInvoice'
      Size = 60
    end
    object AdoQry_MainBankActNo: TStringField
      DisplayLabel = '银行帐号'
      FieldName = 'BankActNo'
      Origin = 'sa_SaleInvoice'
      Size = 40
    end
    object AdoQry_MainCurrencyCode: TStringField
      DisplayLabel = '货币代码'
      FieldName = 'CurrencyCode'
      Origin = 'sa_SaleInvoice'
      Size = 3
    end
    object AdoQry_MainExchangeRate: TFloatField
      DisplayLabel = '汇率'
      FieldName = 'ExchangeRate'
      Origin = 'sa_SaleInvoice'
    end
    object AdoQry_MainSaleTermCode: TStringField
      DisplayLabel = '付款条款代码'
      FieldName = 'SaleTermCode'
      Origin = 'sa_SaleInvoice'
      Size = 3
    end
    object AdoQry_MainTotalTaxAmount: TFloatField
      DisplayLabel = '发票金额'
      FieldName = 'TotalTaxAmount'
      Origin = 'sa_SaleInvoice'
    end
    object AdoQry_MainCancelAmount: TFloatField
      DisplayLabel = '已核销金额'
      FieldName = 'CancelAmount'
      Origin = 'sa_SaleInvoice'
    end
    object AdoQry_MainRemArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'RemArk'
      Origin = 'sa_SaleInvoice'
      Size = 60
    end
    object AdoQry_MainCreateDate: TDateTimeField
      DisplayLabel = '开票日期'
      FieldName = 'CreateDate'
      Origin = 'sa_SaleInvoice'
    end
    object AdoQry_MainCreateEmployeeCode: TStringField
      DisplayLabel = '建档人员代码'
      FieldName = 'CreateEmployeeCode'
      Origin = 'sa_SaleInvoice'
      Size = 30
    end
    object AdoQry_MainEditDate: TDateTimeField
      DisplayLabel = '修改日期'
      FieldName = 'EditDate'
      Origin = 'sa_SaleInvoice'
    end
    object AdoQry_MainEdItEmployeeCode: TStringField
      DisplayLabel = '修改人员代码'
      FieldName = 'EdItEmployeeCode'
      Origin = 'sa_SaleInvoice'
      Size = 30
    end
    object AdoQry_MainCustomerName: TStringField
      DisplayLabel = '客户名称'
      FieldName = 'CustomerName'
      Origin = 'customer'
      Size = 60
    end
    object AdoQry_MaincreaterName: TStringField
      DisplayLabel = '建档人员名称'
      FieldName = 'createrName'
      Size = 60
    end
    object AdoQry_MainDeptName: TStringField
      DisplayLabel = '销售部门名称'
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_MainSaleTypeName: TStringField
      DisplayLabel = '销售类型名称'
      FieldName = 'SaleTypeName'
      Origin = 'SaleType'
      Size = 30
    end
    object AdoQry_MainSaleEmployeeName: TStringField
      DisplayLabel = '营销业务员名称'
      FieldName = 'SaleEmployeeName'
      Size = 60
    end
    object AdoQry_MainCurrencyName: TStringField
      DisplayLabel = '货币名称'
      FieldName = 'CurrencyName'
      Origin = 'currency'
      Size = 30
    end
    object AdoQry_MainPayTermName: TStringField
      DisplayLabel = '付款条款名称'
      FieldName = 'PayTermName'
      Origin = 'PayTerm'
      Size = 30
    end
    object AdoQry_MainTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object AdoQry_MainTotalNoTaxAmount: TFloatField
      FieldName = 'TotalNoTaxAmount'
    end
    object AdoQry_MainTotalTax: TFloatField
      FieldName = 'TotalTax'
    end
    object AdoQry_MainTotalTaxAmountC: TFloatField
      FieldName = 'TotalTaxAmountC'
      Origin = 'Sa_SaleInvoice'
    end
    object AdoQry_MainTotalNoTaxAmountC: TFloatField
      FieldName = 'TotalNoTaxAmountC'
    end
    object AdoQry_MainTotalTaxC: TFloatField
      FieldName = 'TotalTaxC'
    end
    object AdoQry_MainCancelAmountC: TFloatField
      FieldName = 'CancelAmountC'
    end
    object AdoQry_MaInBillDate: TDateTimeField
      FieldName = 'BillDate'
    end
    object AdoQry_MainExportTradeTypeCode: TStringField
      DisplayLabel = '出口贸易类型代码'
      FieldName = 'ExportTradeTypeCode'
      Origin = 'Sa_SaleInvoice'
      Size = 3
    end
    object AdoQry_MainExportTradeTypeName: TStringField
      DisplayLabel = '出口贸易类型名称'
      FieldName = 'ExportTradeTypeName'
      Origin = 'Sa_ExportTradeType'
      Size = 30
    end
  end
  inherited DataSource: TDataSource
    Left = 288
    Top = 153
  end
end