ar_enter_saleinvoice4h.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_SaleInvoice4H: TFrm_Ar_Enter_SaleInvoice4H
  Left = 14
  Top = 80
  Caption = '专用发票'
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '专用发票'
    Font.Color = clRed
  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 = ()
          Title.Alignment = taCenter
          Title.Caption = '客户代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户名称'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '开票日期'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InAccountDate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvoiceNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发票单号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeCode'
          PickList.Strings = ()
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeName'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleDeptCode'
          PickList.Strings = ()
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeCode'
          PickList.Strings = ()
          Width = 92
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeName'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalTaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发票金额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CancelAmount'
          PickList.Strings = ()
          Title.Caption = '核销金额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TaxActNo'
          PickList.Strings = ()
          Width = 63
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币代码'
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币名称'
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchangeRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '汇率'
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Bank'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '开户银行'
          Width = 102
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BankActNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '银行帐号'
          Width = 86
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '制单人员代码'
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EdItEmployeeCode'
          PickList.Strings = ()
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EditDate'
          PickList.Strings = ()
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 165
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 573
    Top = 195
  end
  inherited ActionList: TActionList
    Left = 176
    Top = 200
    inherited Act_Delete: TAction
      Caption = '弃废'
      Hint = '弃废'
    end
    inherited Act_CancelCheck: TAction
      Caption = '作废'
      Hint = '作废'
      OnExecute = Act_CancelCheckExecute
    end
  end
  inherited AdoQry_Head: 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
    AfterScroll = AdoQry_HeadAfterScroll
    SQL.Strings = (
      'Select Sa_SaleInvoice.*,'
      '       Dept.DeptName,'
      '       Employee3.EmployeeName as SaleEmployeeName,'
      '       SaleType.SaleTypeName,'
      '       Customer.CustomerName,'
      '       Currency.CurrencyName,'
      '       Employee1.EmployeeName as createrName ,'
      '       PayTermName'
      'From Sa_SaleInvoice'
      'join Dept on sa_SaleInvoice.SaleDeptCode=Dept.DeptCode'
      
        'join Employee Employee3 on sa_SaleInvoice.SaleEmployeeCode=emplo' +
        'yee3.EmployeeCode'
      
        'join SaleType on sa_SaleInvoice.SaleTypeCode=SaleType.SaleTypeco' +
        'de'
      'Join Customer'
      '   On Sa_SaleInvoice.CustomerCode=Customer.CustomerCode'
      'Join Currency'
      '  On Sa_SaleInvoice.CurrencyCode=Currency.CurrencyCode'
      'Join Employee Employee1'
      '  On Sa_SaleInvoice.CreateEmployeeCode=Employee1.EmployeeCode'
      'Join PayTerm'
      '  on Sa_SaleInvoice.SaleTermCode=PayTermCode'
      'Where CreateDate>=getdate()-30'
      ''
      'Order By Sa_SaleInvoice.CustomerCode,CreateDate'
      ''
      ' '
      ' ')
    Left = 408
    Top = 281
    object AdoQry_HeadInvoiceNo: TStringField
      FieldName = 'InvoiceNo'
      Origin = 'Sa_SaleInvoice'
      Size = 16
    end
    object AdoQry_HeadCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Origin = 'Sa_SaleInvoice'
    end
    object AdoQry_HeadCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = 'Sa_SaleInvoice'
      Size = 30
    end
    object AdoQry_HeadCustomerCode: TStringField
      FieldName = 'CustomerCode'
      Origin = 'Sa_SaleInvoice'
      Size = 12
    end
    object AdoQry_HeadCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = 'Sa_SaleInvoice'
      Size = 2
    end
    object AdoQry_HeadExchangeRate: TFloatField
      FieldName = 'ExchangeRate'
      Origin = 'Sa_SaleInvoice'
    end
    object AdoQry_HeadSaleTermCode: TStringField
      FieldName = 'SaleTermCode'
      Origin = 'Sa_SaleInvoice'
      Size = 3
    end
    object AdoQry_HeadTotalTaxAmount: TFloatField
      FieldName = 'TotalTaxAmount'
      Origin = 'Sa_SaleInvoice'
      OnGetText = AdoQry_HeadTotalTaxAmountGetText
    end
    object AdoQry_HeadRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'Sa_SaleInvoice'
      Size = 60
    end
    object AdoQry_HeadCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = 'Customer'
      Size = 60
    end
    object AdoQry_HeadCurrencyName: TStringField
      FieldName = 'CurrencyName'
      Origin = 'Currency'
      Size = 30
    end
    object AdoQry_HeadPayTermName: TStringField
      FieldName = 'PayTermName'
      Size = 30
    end
    object AdoQry_HeadBank: TStringField
      FieldName = 'Bank'
      Size = 60
    end
    object AdoQry_HeadBankActNo: TStringField
      FieldName = 'BankActNo'
      Size = 40
    end
    object AdoQry_HeadEditDate: TDateTimeField
      DisplayLabel = '修改日期'
      FieldName = 'EditDate'
    end
    object AdoQry_HeadEdItEmployeeCode: TStringField
      DisplayLabel = '修改人代码'
      FieldName = 'EdItEmployeeCode'
      Size = 30
    end
    object AdoQry_HeadcreaterName: TStringField
      DisplayLabel = '制单人名称'
      FieldName = 'createrName'
      Size = 60
    end
    object AdoQry_HeadActive: TIntegerField
      DisplayLabel = '是否作废'
      FieldName = 'Active'
      Origin = 'sa_SaleInvoice'
    end
    object AdoQry_HeadTaxActNo: TStringField
      DisplayLabel = '税号'
      FieldName = 'TaxActNo'
      Origin = 'sa_SaleInvoice'
      Size = 30
    end
    object AdoQry_HeadSaleTypeCode: TStringField
      DisplayLabel = '销售类型代码'
      FieldName = 'SaleTypeCode'
      Origin = 'sa_SaleInvoice'
      Size = 6
    end
    object AdoQry_HeadSaleEmployeeCode: TStringField
      DisplayLabel = '营销业务员代码'
      FieldName = 'SaleEmployeeCode'
      Origin = 'sa_SaleInvoice'
      Size = 30
    end
    object AdoQry_HeadSaleDeptCode: TStringField
      DisplayLabel = '销售部门代码'
      FieldName = 'SaleDeptCode'
      Origin = 'sa_SaleInvoice'
      Size = 8
    end
    object AdoQry_HeadDeptName: TStringField
      DisplayLabel = '销售部门名称'
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_HeadSaleTypeName: TStringField
      DisplayLabel = '销售类型名称'
      FieldName = 'SaleTypeName'
      Origin = 'SaleType'
      Size = 30
    end
    object AdoQry_HeadSaleEmployeeName: TStringField
      DisplayLabel = '营销业务员名称'
      FieldName = 'SaleEmployeeName'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_HeadInvoiceNoId: TAutoIncField
      FieldName = 'InvoiceNoId'
      ReadOnly = True
    end
    object AdoQry_HeadInvoiceType: TIntegerField
      FieldName = 'InvoiceType'
    end
    object AdoQry_HeadBillType: TIntegerField
      FieldName = 'BillType'
    end
    object AdoQry_HeadOrderType: TIntegerField
      FieldName = 'OrderType'
    end
    object AdoQry_HeadActSubjectCode: TStringField
      FieldName = 'ActSubjectCode'
      Size = 15
    end
    object AdoQry_HeadCancelAmount: TFloatField
      FieldName = 'CancelAmount'
      Origin = 'sa_SaleInvoice'
      OnGetText = AdoQry_HeadCancelAmountGetText
    end
    object AdoQry_HeadTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object AdoQry_HeadTotalNoTaxAmount: TFloatField
      FieldName = 'TotalNoTaxAmount'
      OnGetText = AdoQry_HeadTotalNoTaxAmountGetText
    end
    object AdoQry_HeadTotalTax: TFloatField
      FieldName = 'TotalTax'
      OnGetText = AdoQry_HeadTotalTaxGetText
    end
    object AdoQry_HeadTotalTaxAmountC: TFloatField
      FieldName = 'TotalTaxAmountC'
      OnGetText = AdoQry_HeadTotalTaxAmountCGetText
    end
    object AdoQry_HeadTotalNoTaxAmountC: TFloatField
      FieldName = 'TotalNoTaxAmountC'
      OnGetText = AdoQry_HeadTotalNoTaxAmountCGetText
    end
    object AdoQry_HeadTotalTaxC: TFloatField
      FieldName = 'TotalTaxC'
      OnGetText = AdoQry_HeadTotalTaxCGetText
    end
    object AdoQry_HeadCancelAmountC: TFloatField
      FieldName = 'CancelAmountC'
      OnGetText = AdoQry_HeadCancelAmountCGetText
    end
    object AdoQry_HeadBillDate: TDateTimeField
      FieldName = 'BillDate'
    end
    object AdoQry_HeadISCredence: TIntegerField
      FieldName = 'ISCredence'
    end
    object AdoQry_HeadInAccountDate: TDateTimeField
      DisplayLabel = '入帐日期'
      FieldName = 'InAccountDate'
      Origin = 'Sa_SaleInvoice'
    end
  end
  inherited DataSource: TDataSource
    Left = 440
    Top = 169
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 248
    Top = 273
  end
end