ar_enter_eachinvoice.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_EachInvoice: TFrm_Ar_Enter_EachInvoice
  Left = 36
  Top = 91
  Caption = '兰字发票--红字发票对冲'
  ClientWidth = 753
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 753
  end
  inherited Pnl_Title: TPanel
    Width = 753
    Caption = '兰字发票--红字发票对冲'
    inherited Image2: TImage
      Width = 753
    end
  end
  inherited Pnl_Head: TPanel
    Width = 753
    Height = 111
    inherited Image1: TImage
      Width = 753
      Height = 111
    end
    object Label1: TLabel
      Left = 28
      Top = 15
      Width = 60
      Height = 12
      Caption = '对冲序号：'
      TransParent = True
    end
    object Label2: TLabel
      Left = 4
      Top = 38
      Width = 84
      Height = 12
      Caption = '销售发票单号：'
      TransParent = True
    end
    object Label3: TLabel
      Left = 545
      Top = 15
      Width = 60
      Height = 12
      Caption = '对冲日期：'
      TransParent = True
    end
    object Label4: TLabel
      Left = 46
      Top = 84
      Width = 42
      Height = 12
      Caption = '备 注：'
      TransParent = True
    end
    object Lbl_DeptName: TLabel
      Left = 285
      Top = 15
      Width = 6
      Height = 12
      Visible = False
    end
    object Label6: TLabel
      Left = 543
      Top = 41
      Width = 60
      Height = 12
      Caption = '对冲金额：'
      TransParent = True
    end
    object Lbl_SaleType: TLabel
      Left = 285
      Top = 50
      Width = 6
      Height = 12
      Visible = False
    end
    object Label8: TLabel
      Left = 222
      Top = 15
      Width = 60
      Height = 12
      Caption = '销售客户：'
      TransParent = True
    end
    object Label5: TLabel
      Left = 222
      Top = 38
      Width = 60
      Height = 12
      Caption = '发票金额：'
      TransParent = True
    end
    object Label11: TLabel
      Left = 52
      Top = 61
      Width = 36
      Height = 12
      Caption = '货币：'
      TransParent = True
    end
    object Label12: TLabel
      Left = 246
      Top = 61
      Width = 36
      Height = 12
      Caption = '汇率：'
      TransParent = True
    end
    object Edt_ArApno: TEdit
      Left = 88
      Top = 10
      Width = 108
      Height = 20
      TabOrder = 0
    end
    object Medt_Createdate: TMaskEdit
      Left = 605
      Top = 10
      Width = 109
      Height = 20
      EditMask = '!9999.99.99;1;'
      MaxLength = 10
      TabOrder = 3
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object Edt_MoRemArk: TEdit
      Left = 88
      Top = 79
      Width = 448
      Height = 20
      MaxLength = 150
      TabOrder = 10
    end
    object edt_CancelAmount: TEdit
      Left = 605
      Top = 33
      Width = 70
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 6
      OnExit = FloatCheck
    end
    object edt_TotalAmount: TExtEdit
      Left = 283
      Top = 33
      Width = 96
      Height = 20
      Enabled = False
      TabOrder = 5
      OnExit = FloatCheck
      DispLabel = Lbl_SaleType
    end
    object edt_CustomerName: TEdit
      Left = 336
      Top = 10
      Width = 199
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 2
    end
    object edt_CurrencyName: TEdit
      Left = 137
      Top = 56
      Width = 59
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 8
    end
    object edt_rate: TEdit
      Left = 283
      Top = 56
      Width = 96
      Height = 20
      Enabled = False
      MaxLength = 150
      TabOrder = 9
      OnExit = FloatCheck
    end
    object edt_CustomerCode: TLinkEdit
      Left = 283
      Top = 10
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 1
      OnButtonClick = CustomerHint1
      OnExit = edt_CustomerCodeExit
      OnKeyDown = CustomerHint
    end
    object edt_CurrencyCode: TLinkEdit
      Left = 88
      Top = 56
      Width = 50
      Height = 20
      Enabled = False
      LinkStyle = lsEllipsis
      TabOrder = 7
      OnButtonClick = CurrencyHint1
      OnKeyDown = CurrencyHint
    end
    object cmb_Invoiceno: TLinkEdit
      Left = 88
      Top = 33
      Width = 108
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 4
      OnButtonClick = cmb_InvoicenoButtonClick
      OnExit = cmb_InvoicenoExit
      OnKeyDown = cmb_InvoicenoKeyDown
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 441
    Width = 753
    Height = 27
    inherited Image4: TImage
      Width = 753
      Height = 27
    end
  end
  inherited Pnl_Body: TPanel
    Top = 168
    Width = 753
    Height = 273
    inherited Image3: TImage
      Width = 753
      Height = 273
    end
    inherited DBGridEh: TDBGridEh
      Width = 753
      Height = 273
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        Item
          FieldName = 'InvoiceNo'
          PickList.Strings = ()
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Billdate'
          PickList.Strings = ()
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvoiceType'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalAmount'
          PickList.Strings = ()
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ReMainTotalAmount'
          PickList.Strings = ()
          Width = 41
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ThiSCancelAmount'
          PickList.Strings = ()
          Width = 86
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 373
    Top = 259
  end
  inherited ActionList: TActionList
    Left = 261
    Top = 288
  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'
    SQL.Strings = (
      'select sa_EachInvoiceline.*,'
      '       sa_SaleInvoice.Billdate'
      'from sa_EachInvoiceline'
      
        'join  sa_SaleInvoice on sa_EachInvoiceline.Invoiceno=sa_SaleInvo' +
        'ice.Invoiceno')
    Left = 384
    Top = 329
    object AdoQry_BodyTotalAmount: TFloatField
      DisplayLabel = '金额'
      FieldName = 'TotalAmount'
    end
    object AdoQry_BodyReMainTotalAmount: TFloatField
      DisplayLabel = '余额'
      FieldName = 'ReMainTotalAmount'
    end
    object AdoQry_BodyThiSCancelAmount: TFloatField
      DisplayLabel = '本次对冲金额'
      FieldName = 'ThiSCancelAmount'
    end
    object AdoQry_BodyEachInvoiceNo: TStringField
      DisplayLabel = '对冲序号'
      FieldName = 'EachInvoiceNo'
      Size = 16
    end
    object AdoQry_BodyInvoiceNo: TStringField
      DisplayLabel = '销售发票单号'
      FieldName = 'InvoiceNo'
      Size = 16
    end
    object AdoQry_BodyInvoiceType: TIntegerField
      DisplayLabel = '发票类型'
      FieldName = 'InvoiceType'
    end
    object AdoQry_BodyBilldate: TDateTimeField
      DisplayLabel = '发票日期'
      FieldName = 'Billdate'
    end
  end
  inherited DataSource: TDataSource
    Left = 296
    Top = 225
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 176
    Top = 265
  end
end