ar_enter_eachinvoice_d.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_EachInvoice_D: TFrm_Ar_Enter_EachInvoice_D
  Left = 276
  Top = 238
  Caption = '兰字发票--红字发票对冲'
  ClientHeight = 245
  ClientWidth = 346
  PixelsPerInch = 96
  TextHeight = 12
  object Label4: TLabel [0]
    Left = 90
    Top = 114
    Width = 30
    Height = 12
    Caption = '金额:'
  end
  object Label3: TLabel [1]
    Left = 66
    Top = 86
    Width = 54
    Height = 12
    Caption = '发票日期:'
  end
  object Label2: TLabel [2]
    Left = 42
    Top = 57
    Width = 78
    Height = 12
    Caption = '销售发票单号:'
  end
  object Label1: TLabel [3]
    Left = 90
    Top = 143
    Width = 30
    Height = 12
    Caption = '余额:'
  end
  object Label5: TLabel [4]
    Left = 42
    Top = 172
    Width = 78
    Height = 12
    Caption = '本次对冲金额:'
  end
  object Label6: TLabel [5]
    Left = 66
    Top = 28
    Width = 54
    Height = 12
    Caption = '发票类型:'
  end
  inherited btn_ok: TButton
    Left = 93
    Top = 204
    TabOrder = 6
  end
  inherited btn_Cancel: TButton
    Left = 194
    Top = 204
    TabOrder = 7
  end
  inherited Pnl_Add: TPanel
    Left = 275
    Top = 5
    Width = 48
    Height = 21
    TabOrder = 8
  end
  object Edt_TotalAmount: TEdit [9]
    Left = 125
    Top = 107
    Width = 107
    Height = 20
    Enabled = False
    TabOrder = 3
    OnExit = FloatCheck
  end
  object medt_ApInvoicedate: TMaskEdit [10]
    Left = 125
    Top = 79
    Width = 107
    Height = 20
    AutoSelect = False
    Enabled = False
    EditMask = '!9999.99.99;1;'
    MaxLength = 10
    TabOrder = 2
    Text = '    .  .  '
  end
  object edt_reMainAmount: TEdit [11]
    Left = 125
    Top = 136
    Width = 107
    Height = 20
    Enabled = False
    TabOrder = 4
    OnExit = FloatCheck
  end
  object edt_thiSCancelAmount: TEdit [12]
    Left = 125
    Top = 164
    Width = 107
    Height = 20
    TabOrder = 5
    OnExit = FloatCheck
  end
  object cmb_ApInvoiceno: TLinkEdit [13]
    Left = 125
    Top = 50
    Width = 107
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 1
    OnButtonClick = cmb_ApInvoicenoButtonClick
    OnExit = cmb_ApInvoicenoExit
    OnKeyDown = cmb_ApInvoicenoKeyDown
  end
  object cmb_InvoiceType: TComboBox [14]
    Left = 125
    Top = 22
    Width = 108
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 0
    Items.Strings = (
      '0 兰单'
      '1 红单')
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 286
    Top = 58
  end
end