ar_enter_passsaleinvoice.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_PassSaleInvoice: TFrm_Ar_Enter_PassSaleInvoice
  Left = -11
  Top = 86
  Caption = '发票审核'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '发票审核'
  end
  inherited Pnl_Head: TPanel
    Height = 154
    object Label4: TLabel
      Left = 59
      Top = 7
      Width = 48
      Height = 12
      Caption = '发票号：'
    end
    object Label15: TLabel
      Left = 517
      Top = 8
      Width = 6
      Height = 12
      Visible = False
    end
    object Label3: TLabel
      Left = 192
      Top = 7
      Width = 60
      Height = 12
      Caption = '发票日期：'
    end
    object Label8: TLabel
      Left = 47
      Top = 82
      Width = 60
      Height = 12
      Caption = '货币标识：'
    end
    object Lab_CurrencyName: TLabel
      Left = 141
      Top = 31
      Width = 6
      Height = 12
    end
    object Lab_SaleDeptName: TLabel
      Left = 509
      Top = 32
      Width = 6
      Height = 12
      Visible = False
    end
    object Label9: TLabel
      Left = 360
      Top = 7
      Width = 36
      Height = 12
      Caption = '汇率：'
    end
    object Label17: TLabel
      Left = 509
      Top = 37
      Width = 84
      Height = 12
      Caption = '含税金额总额：'
    end
    object Label2: TLabel
      Left = 47
      Top = 32
      Width = 60
      Height = 12
      Caption = '发票类型：'
    end
    object Label18: TLabel
      Left = 71
      Top = 107
      Width = 36
      Height = 12
      Caption = '审核：'
    end
    object Label19: TLabel
      Left = 345
      Top = 107
      Width = 48
      Height = 12
      Caption = '审核人：'
    end
    object Label11: TLabel
      Left = 532
      Top = 11
      Width = 60
      Height = 12
      Caption = '制单人员：'
    end
    object Label1: TLabel
      Left = 23
      Top = 57
      Width = 84
      Height = 12
      Caption = '销售客户标识：'
    end
    object Label14: TLabel
      Left = 71
      Top = 132
      Width = 36
      Height = 12
      Caption = '备注：'
    end
    object Lab_SaleEmployeeName: TLabel
      Left = 141
      Top = 55
      Width = 6
      Height = 12
    end
    object Lab_SaleTermName: TLabel
      Left = 462
      Top = 55
      Width = 6
      Height = 12
      Visible = False
    end
    object Label20: TLabel
      Left = 756
      Top = 9
      Width = 6
      Height = 12
      Visible = False
    end
    object Edt_InvoiceNo: TEdit
      Left = 110
      Top = 3
      Width = 68
      Height = 20
      Enabled = False
      TabOrder = 0
    end
    object MEdt_CreateDate: TMaskEdit
      Left = 257
      Top = 3
      Width = 81
      Height = 20
      Enabled = False
      EditMask = '!9999/99/99;1;_'
      MaxLength = 10
      TabOrder = 1
      Text = '    .  .  '
    end
    object Edt_CurrencyCode: TExtEdit
      Left = 110
      Top = 76
      Width = 50
      Height = 20
      Enabled = False
      TabOrder = 2
      DispLabel = Lab_CurrencyName
    end
    object Edt_ExchangeRate: TEdit
      Left = 409
      Top = 3
      Width = 81
      Height = 20
      Enabled = False
      TabOrder = 3
    end
    object Edt_TotalTaxAmount: TEdit
      Left = 592
      Top = 31
      Width = 111
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 4
    end
    object Edt_InvoiceType: TEdit
      Left = 110
      Top = 29
      Width = 147
      Height = 20
      Enabled = False
      TabOrder = 5
    end
    object Cx_Assess: TComboBox
      Left = 110
      Top = 101
      Width = 154
      Height = 20
      Enabled = False
      ItemHeight = 12
      TabOrder = 6
      Items.Strings = (
        '0 未审核'
        '1 审核')
    end
    object Edt_AssessorEmployeeCode: TEdit
      Left = 392
      Top = 101
      Width = 50
      Height = 20
      Enabled = False
      TabOrder = 7
    end
    object Edt_CustomerCode: TExtEdit
      Left = 110
      Top = 52
      Width = 50
      Height = 20
      Enabled = False
      TabOrder = 8
    end
    object Edt_RemArk: TEdit
      Left = 110
      Top = 126
      Width = 381
      Height = 20
      Enabled = False
      TabOrder = 9
    end
    object Edt_CreateEmployeeCode: TExtEdit
      Left = 591
      Top = 4
      Width = 50
      Height = 20
      Enabled = False
      TabOrder = 10
    end
    object edt_CustomerName: TExtEdit
      Left = 160
      Top = 52
      Width = 330
      Height = 20
      Enabled = False
      TabOrder = 11
    end
    object edt_CurrencyName: TExtEdit
      Left = 160
      Top = 76
      Width = 103
      Height = 20
      Enabled = False
      TabOrder = 12
      DispLabel = Lab_CurrencyName
    end
    object edt_CreateName: TExtEdit
      Left = 641
      Top = 4
      Width = 61
      Height = 20
      Enabled = False
      TabOrder = 13
    end
    object edt_assessName: TEdit
      Left = 441
      Top = 101
      Width = 50
      Height = 20
      Enabled = False
      TabOrder = 14
    end
  end
  inherited Pnl_Body: TPanel
    Top = 211
    Height = 231
    inherited DBGridEh: TDBGridEh
      Height = 231
      Columns = <
        Item
          FieldName = 'InvoiceNo'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipNo'
          PickList.Strings = ()
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShiplineNo'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 164
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Width = 34
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipQty'
          PickList.Strings = ()
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TaxPrice'
          PickList.Strings = ()
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TaxAmount'
          PickList.Strings = ()
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'NoTaxPrice'
          PickList.Strings = ()
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'NoTaxAmount'
          PickList.Strings = ()
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiSCountRate'
          PickList.Strings = ()
          Width = 44
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiSCountAmount'
          PickList.Strings = ()
          Width = 46
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Width = 81
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 589
    Top = 267
  end
  inherited ActionList: TActionList
    Left = 384
    Top = 280
    inherited Act_CancelCheck: TAction
      Enabled = False
      Visible = False
      OnExecute = Act_CancelCheckExecute
    end
    inherited Act_Check: TAction
      OnExecute = Act_CheckExecute
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B_old;Data Source=192.16' +
      '8.0.151;Use procedure for Prepare=1;Auto Translate=True;Packet S' +
      'ize=4096;Workstation ID=XYB'
    SQL.Strings = (
      
        ' Select  sa_SaleInvoiceline.InvoiceNo,sa_SaleInvoiceline.ShipNo,' +
        'sa_SaleInvoiceline.ShiplineNo,'
      '                 sa_SaleInvoiceline.ItemCode,ItemName,'
      
        '                 sa_SaleInvoiceline.ItemCode+'#39' '#39'+Item.ItemName a' +
        's Itemflag,'
      '                 UomName,'
      
        '                 ShipQty, TaxPrice,TaxAmount,NoTaxPrice,NoTaxAmo' +
        'unt,'
      '                 DiSCountRate,DiSCountAmount,RemArk'
      '           From sa_SaleInvoiceline'
      '               Join Item'
      '               On Item.ItemCode=sa_SaleInvoiceline.ItemCode'
      '               Join Uom'
      '               On Item.UomCode=Uom.UomCode')
    Left = 472
    Top = 305
    object AdoQry_BodyInvoiceNo: TStringField
      FieldName = 'InvoiceNo'
      Size = 16
    end
    object AdoQry_BodyShipNo: TStringField
      DisplayLabel = '销售发货单号'
      FieldName = 'ShipNo'
      Size = 16
    end
    object AdoQry_BodyShiplineNo: TIntegerField
      DisplayLabel = '发货单行号'
      FieldName = 'ShiplineNo'
    end
    object AdoQry_BodyItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_BodyItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_BodyItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_BodyUomName: TStringField
      DisplayLabel = '单位'
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_BodyShipQty: TFloatField
      DisplayLabel = '发货量'
      FieldName = 'ShipQty'
    end
    object AdoQry_BodyTaxPrice: TFloatField
      DisplayLabel = '含税单价'
      FieldName = 'TaxPrice'
    end
    object AdoQry_BodyTaxAmount: TFloatField
      DisplayLabel = '含税金额'
      FieldName = 'TaxAmount'
    end
    object AdoQry_BodyNoTaxPrice: TFloatField
      DisplayLabel = '未税单价'
      FieldName = 'NoTaxPrice'
    end
    object AdoQry_BodyNoTaxAmount: TFloatField
      DisplayLabel = '未税金额'
      FieldName = 'NoTaxAmount'
    end
    object AdoQry_BodyDiSCountRate: TFloatField
      DisplayLabel = '折扣率'
      FieldName = 'DiSCountRate'
    end
    object AdoQry_BodyDiSCountAmount: TFloatField
      DisplayLabel = '折扣额'
      FieldName = 'DiSCountAmount'
    end
    object AdoQry_BodyRemArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'RemArk'
      Size = 60
    end
  end
  inherited DataSource: TDataSource
    Left = 536
    Top = 1
  end
end