ap_enter_purchasepayment.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Enter_PurchasePayment: TFrm_Ap_Enter_PurchasePayment
  Left = -7
  Top = 108
  Caption = '采购付款及核销发票'
  ClientWidth = 804
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 804
  end
  inherited Pnl_Title: TPanel
    Width = 804
    Caption = '采购付款及核销发票'
    inherited Image2: TImage
      Width = 804
    end
  end
  inherited Pnl_Head: TPanel
    Width = 804
    Height = 100
    inherited Image1: TImage
      Width = 804
      Height = 100
    end
    object Label1: TLabel
      Left = 15
      Top = 10
      Width = 72
      Height = 12
      Caption = '付款单据号：'
      TransParent = True
    end
    object Label2: TLabel
      Left = 39
      Top = 33
      Width = 48
      Height = 12
      Caption = '供应商：'
      TransParent = True
    end
    object Label3: TLabel
      Left = 618
      Top = 10
      Width = 60
      Height = 12
      Caption = '参考号码：'
      TransParent = True
    end
    object Label4: TLabel
      Left = 214
      Top = 10
      Width = 60
      Height = 12
      Caption = '付款日期：'
      TransParent = True
    end
    object Label5: TLabel
      Left = 432
      Top = 10
      Width = 60
      Height = 12
      Caption = '记帐日期：'
      TransParent = True
    end
    object Label6: TLabel
      Left = 406
      Top = 57
      Width = 60
      Height = 12
      Caption = '付款方式：'
      TransParent = True
    end
    object Label7: TLabel
      Left = 430
      Top = 33
      Width = 36
      Height = 12
      Caption = '货币：'
      TransParent = True
    end
    object Label8: TLabel
      Left = 643
      Top = 33
      Width = 36
      Height = 12
      Caption = '汇率：'
      TransParent = True
    end
    object Label9: TLabel
      Left = 27
      Top = 57
      Width = 60
      Height = 12
      Caption = '付款金额：'
      TransParent = True
    end
    object Label10: TLabel
      Left = 51
      Top = 81
      Width = 36
      Height = 12
      Caption = '备注：'
      TransParent = True
    end
    object Label12: TLabel
      Left = 202
      Top = 57
      Width = 72
      Height = 12
      Caption = '未核销金额：'
      TransParent = True
    end
    object Edt_PayBillNo: TEdit
      Left = 85
      Top = 6
      Width = 80
      Height = 20
      TabOrder = 0
    end
    object LEdt_VendorCode: TLinkEdit
      Left = 85
      Top = 29
      Width = 60
      Height = 20
      LinkStyle = lsEllipsis
      MaxLength = 12
      TabOrder = 4
      OnButtonClick = LEdt_VendorCodeButtonClick
      OnExit = LEdt_VendorCodeExit
      OnKeyDown = LEdt_VendorCodeKeyDown
    end
    object Edt_RemArkNo: TEdit
      Left = 675
      Top = 6
      Width = 80
      Height = 20
      TabOrder = 3
    end
    object Edt_PayDate: TEdit
      Left = 272
      Top = 6
      Width = 80
      Height = 20
      TabOrder = 1
      OnExit = Edt_PayDateExit
    end
    object Edt_PayInputdate: TEdit
      Left = 488
      Top = 6
      Width = 80
      Height = 20
      TabOrder = 2
      OnExit = Edt_PayInputdateExit
    end
    object Edt_PayModeName: TEdit
      Left = 503
      Top = 53
      Width = 67
      Height = 20
      TabStop = False
      TabOrder = 10
    end
    object Edt_CurrencyName: TEdit
      Left = 504
      Top = 29
      Width = 65
      Height = 20
      TabStop = False
      TabOrder = 11
    end
    object LEdt_CurrencyCode: TLinkEdit
      Left = 462
      Top = 29
      Width = 41
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 5
      OnButtonClick = LEdt_CurrencyCodeButtonClick
      OnExit = LEdt_CurrencyCodeExit
      OnKeyDown = LEdt_CurrencyCodeKeyDown
    end
    object Edt_ExchRate: TEdit
      Left = 675
      Top = 29
      Width = 80
      Height = 20
      TabOrder = 9
      OnExit = FloatCheck
      OnKeyDown = Edt_ExchRateKeyDown
    end
    object Edt_PayAmount: TEdit
      Left = 85
      Top = 53
      Width = 80
      Height = 20
      TabOrder = 6
      OnChange = Edt_PayAmountChange
      OnExit = Edt_PayAmountExit
    end
    object Edt_PayRemArk: TEdit
      Left = 85
      Top = 77
      Width = 485
      Height = 20
      MaxLength = 40
      TabOrder = 8
    end
    object Edt_VendorName: TEdit
      Left = 146
      Top = 29
      Width = 207
      Height = 20
      ImeName = ' '
      TabOrder = 12
    end
    object LEdt_PayModeCode: TLinkEdit
      Left = 462
      Top = 53
      Width = 41
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 7
      OnButtonClick = LEdt_PayModeCodeButtonClick
      OnExit = LEdt_PayModeCodeExit
      OnKeyDown = LEdt_PayModeCodeKeyDown
    end
    object Edt_NoPayedAmount: TEdit
      Left = 272
      Top = 53
      Width = 80
      Height = 20
      TabStop = False
      Enabled = False
      TabOrder = 13
    end
  end
  inherited Pnl_Hint: TPanel
    Width = 804
    inherited Image4: TImage
      Width = 804
    end
    object Label11: TLabel
      Left = 520
      Top = 8
      Width = 96
      Height = 12
      Caption = '预定付款总金额：'
      TransParent = True
    end
    object Edt_Total: TEdit
      Left = 613
      Top = 3
      Width = 81
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 0
    end
  end
  inherited Pnl_Body: TPanel
    Top = 157
    Width = 804
    Height = 285
    inherited Image3: TImage
      Width = 804
      Height = 285
    end
    inherited DBGridEh: TDBGridEh
      Width = 804
      Height = 285
      ReadOnly = False
      OnCellClick = DBGridEhCellClick
      OnColEnter = DBGridEhColEnter
      OnColExit = DBGridEhColExit
      OnEnter = DBGridEhEnter
      OnExit = DBGridEhExit
      Columns = <
        Item
          FieldName = 'ApInvoiceDate'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '发票日期'
          Width = 59
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceNo'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '发票号'
          Width = 59
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceNoTaxAmount'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 85
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceTax'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '税额'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceAmount'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 86
          KeyList.Strings = ()
        end
        Item
          FieldName = 'NoApPayAmount'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '未核销余额'
          Width = 74
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ThisApPayAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本次核销金额'
          Width = 76
          KeyList.Strings = ()
          Checkboxes = False
        end
        Item
          FieldName = 'flag1'
          PickList.Strings = ()
          Title.Caption = '标识'
          Visible = False
          KeyList.Strings = (
            '0'
            '1')
          Checkboxes = True
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 709
    Top = 3
  end
  inherited ActionList: TActionList
    Left = 576
    Top = 0
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=ExtDAT' +
      'ASERVER'
    BeforeInsert = AdoQry_BodyBeforeInsert
    BeforeEdit = AdoQry_BodyBeforeEdit
    AfterEdit = AdoQry_BodyAfterEdit
    SQL.Strings = (
      
        'select ApInvoice.ApInvoiceId,ApInvoiceNo,ApInvoiceDate,ApInvoice' +
        'Amount , '
      
        '                        ApInvoiceTax,ApInvoiceAmount-ApInvoiceTa' +
        'x as ApInvoiceNoTaxAmount,'
      
        '                        ApInvoiceAmount-ApPayedAmount  as NoAppa' +
        'yAmount,'
      
        '                        PayJournalline.PayedAmount as ThisApPaya' +
        'mount,'
      '                   0 as     flag1 '
      'into #ApInvoice'
      '                from ApInvoice left join PayJournalline '
      
        '                        on ApInvoice.ApInvoiceId=PayJournalline.' +
        'ApInvoiceId '
      'select * from #ApInvoice')
    Left = 600
    Top = 1
  end
  inherited DataSource: TDataSource
    Left = 640
    Top = 1
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 672
    Top = 1
  end
end