ar_enter_araph.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_ArApH: TFrm_Ar_Enter_ArApH
  Left = 49
  Top = 70
  Caption = '应收帐款--应付帐款对冲'
  ClientWidth = 711
  Position = poDefault
  Windowstate = wsMaximized
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 711
  end
  inherited Pnl_Title: TPanel
    Width = 711
    Caption = '应收帐款--应付帐款对冲'
  end
  inherited Pnl_Head: TPanel
    Width = 711
    inherited Lbl_Condition: TLabel
      Width = 84
      Caption = '订单行未全下达'
    end
    inherited Lbl_Order: TLabel
      Width = 180
      Caption = '销售客户代码/对冲日期/发票单号'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 416
    Width = 711
    Height = 25
  end
  inherited Pnl_Body: TPanel
    Width = 711
    Height = 319
    inherited DBGridEh: TDBGridEh
      Width = 711
      Height = 319
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'ArApNo'
          PickList.Strings = ()
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerCode'
          PickList.Strings = ()
          Title.Caption = '销售客户代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerName'
          PickList.Strings = ()
          Title.Caption = '销售客户名称'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateDate'
          PickList.Strings = ()
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvoiceNo'
          PickList.Strings = ()
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotaltaxAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CancelTotalAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyCode'
          PickList.Strings = ()
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyName'
          PickList.Strings = ()
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchangeRate'
          PickList.Strings = ()
          Width = 46
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeCode'
          PickList.Strings = ()
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Width = 169
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 493
    Top = 163
  end
  inherited ActionList: TActionList
    Left = 218
    Top = 174
    inherited Act_Delete: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdysjmrm;Data Source=ZHENGJIArON' +
      'G'
    CurSorType = ctStatic
    SQL.Strings = (
      'select sa_ArAp.*,'
      '       sa_SaleInvoice.customerCode,'
      '       customer.customerName,'
      '       sa_SaleInvoice.TotaltaxAmount,'
      '       sa_SaleInvoice.currencyCode,'
      '       currency.currencyName,'
      '       sa_SaleInvoice.ExchangeRate,'
      '       Employee.EmployeeName'
      'from  sa_ArAp'
      
        'join  sa_SaleInvoice on sa_ArAp.Invoiceno=sa_SaleInvoice.Invoice' +
        'no'
      
        'left join customer on sa_SaleInvoice.customerCode=customer.custo' +
        'merCode'
      
        'left join currency on sa_SaleInvoice.currencyCode=currency.curre' +
        'ncyCode'
      
        'left join Employee on sa_ArAp.CreateEmployeeCode=Employee.employ' +
        'eeCode')
    Left = 400
    Top = 297
    object AdoQry_HeadArApNo: TStringField
      DisplayLabel = '对冲序号'
      FieldName = 'ArApNo'
      Origin = 'sa_ArAp'
      Size = 16
    end
    object AdoQry_HeadInvoiceNo: TStringField
      DisplayLabel = '发票单号'
      FieldName = 'InvoiceNo'
      Origin = 'sa_ArAp'
      Size = 16
    end
    object AdoQry_HeadCancelTotalAmount: TFloatField
      DisplayLabel = '对冲金额'
      FieldName = 'CancelTotalAmount'
      Origin = 'sa_ArAp'
    end
    object AdoQry_HeadRemArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'RemArk'
      Origin = 'sa_ArAp'
      Size = 60
    end
    object AdoQry_HeadCreateDate: TDateTimeField
      DisplayLabel = '对冲日期'
      FieldName = 'CreateDate'
      Origin = 'sa_ArAp'
    end
    object AdoQry_HeadCreateEmployeeCode: TStringField
      DisplayLabel = '制单人代码'
      FieldName = 'CreateEmployeeCode'
      Origin = 'sa_ArAp'
      Size = 30
    end
    object AdoQry_HeadEditDate: TDateTimeField
      FieldName = 'EditDate'
      Origin = 'sa_ArAp'
    end
    object AdoQry_HeadEdItEmployeeCode: TStringField
      FieldName = 'EdItEmployeeCode'
      Origin = 'sa_ArAp'
      Size = 30
    end
    object AdoQry_HeadcustomerCode: TStringField
      DisplayLabel = '客户代码'
      FieldName = 'customerCode'
      Origin = 'sa_SaleInvoice'
      Size = 12
    end
    object AdoQry_HeadcustomerName: TStringField
      DisplayLabel = '客户名称'
      FieldName = 'customerName'
      Origin = 'customer'
      Size = 60
    end
    object AdoQry_HeadTotaltaxAmount: TFloatField
      DisplayLabel = '发票金额'
      FieldName = 'TotaltaxAmount'
      Origin = 'sa_SaleInvoice'
    end
    object AdoQry_HeadcurrencyCode: TStringField
      DisplayLabel = '货币代码'
      FieldName = 'currencyCode'
      Origin = 'sa_SaleInvoice'
      Size = 2
    end
    object AdoQry_HeadcurrencyName: TStringField
      DisplayLabel = '货币名称'
      FieldName = 'currencyName'
      Origin = 'currency'
      Size = 30
    end
    object AdoQry_HeadExchangeRate: TFloatField
      DisplayLabel = '汇率'
      FieldName = 'ExchangeRate'
      Origin = 'sa_SaleInvoice'
    end
    object AdoQry_HeadEmployeeName: TStringField
      DisplayLabel = '制单人名称'
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    end
  end
  inherited DataSource: TDataSource
    Left = 312
    Top = 209
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 424
    Top = 201
  end
end