sal_enter_othersaleinvoice.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Enter_OtherSaleInvoice: TFrm_Sal_Enter_OtherSaleInvoice
  Left = 5
  Top = 107
  Caption = '其它销售开票'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '其它销售开票'
  end
  inherited Pnl_Head: TPanel
    Height = 124
    object Label1: TLabel
      Left = 29
      Top = 30
      Width = 60
      Height = 12
      Caption = '客户代码：'
    end
    object Label3: TLabel
      Left = 200
      Top = 6
      Width = 60
      Height = 12
      Caption = '开票日期：'
    end
    object Label8: TLabel
      Left = 53
      Top = 54
      Width = 36
      Height = 12
      Caption = '货币：'
    end
    object Label10: TLabel
      Left = 354
      Top = 53
      Width = 60
      Height = 12
      Caption = '付款条款：'
    end
    object Label11: TLabel
      Left = 589
      Top = 6
      Width = 60
      Height = 12
      Caption = '制单人员：'
    end
    object Label14: TLabel
      Left = 53
      Top = 101
      Width = 36
      Height = 12
      Caption = '备注：'
    end
    object Label15: TLabel
      Left = 325
      Top = 8
      Width = 6
      Height = 12
    end
    object Lab_CurrencyName: TLabel
      Left = 147
      Top = 53
      Width = 6
      Height = 12
      Visible = False
    end
    object Label17: TLabel
      Left = 567
      Top = 29
      Width = 84
      Height = 12
      Caption = '含税金额总额：'
    end
    object Edt_CustomerName: TLabel
      Left = 176
      Top = 58
      Width = 6
      Height = 12
      Visible = False
    end
    object Lab_SaleTermName: TLabel
      Left = 188
      Top = 28
      Width = 6
      Height = 12
      Visible = False
    end
    object Label2: TLabel
      Left = 41
      Top = 6
      Width = 48
      Height = 12
      Caption = '发票号：'
    end
    object Label18: TLabel
      Left = 613
      Top = 101
      Width = 36
      Height = 12
      Caption = '审核：'
    end
    object Label19: TLabel
      Left = 428
      Top = 101
      Width = 48
      Height = 12
      Caption = '审核人：'
    end
    object Label20: TLabel
      Left = 756
      Top = 9
      Width = 6
      Height = 12
      Visible = False
    end
    object Label4: TLabel
      Left = 5
      Top = 77
      Width = 84
      Height = 12
      Caption = '客户开户银行：'
    end
    object Label5: TLabel
      Left = 330
      Top = 77
      Width = 84
      Height = 12
      Caption = '客户银行帐号：'
    end
    object Label6: TLabel
      Left = 378
      Top = 6
      Width = 36
      Height = 12
      Caption = '汇率：'
    end
    object Label7: TLabel
      Left = 200
      Top = 53
      Width = 60
      Height = 12
      Caption = '货币名称：'
    end
    object Label9: TLabel
      Left = 504
      Top = 53
      Width = 84
      Height = 12
      Caption = '付款条款名称：'
    end
    object Label12: TLabel
      Left = 200
      Top = 30
      Width = 60
      Height = 12
      Caption = '客户名称：'
    end
    object MEdt_CreateDate: TMaskEdit
      Left = 259
      Top = 2
      Width = 81
      Height = 20
      EditMask = '!9999/99/99;1;_'
      MaxLength = 10
      TabOrder = 1
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object Edt_CurrencyCode: TExtEdit
      Left = 93
      Top = 50
      Width = 96
      Height = 20
      TabOrder = 5
      Text = 'Edt_CurrencyCode'
      OnExit = Edt_CurrencyCodeExit
      OnKeyDown = CurrencyHint
      DispLabel = Lab_CurrencyName
    end
    object Edt_TotalTaxAmount: TEdit
      Left = 655
      Top = 25
      Width = 96
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 15
      Text = 'Edt_TotalTaxAmount'
    end
    object Edt_CustomerCode: TExtEdit
      Left = 93
      Top = 26
      Width = 96
      Height = 20
      TabOrder = 3
      Text = 'Edt_CustomerCode'
      OnExit = Edt_CustomerCodeExit
      OnKeyDown = CustomerHint
      DispLabel = Edt_CustomerName
    end
    object Edt_SaleTermCode: TExtEdit
      Left = 418
      Top = 49
      Width = 76
      Height = 20
      TabOrder = 7
      Text = 'Edt_SaleTermCode'
      OnExit = Edt_SaleTermCodeExit
      OnKeyDown = Edt_SaleTermCodeKeyDown
      DispLabel = Lab_SaleTermName
    end
    object Edt_RemArk: TEdit
      Left = 93
      Top = 97
      Width = 323
      Height = 20
      TabOrder = 11
      Text = 'Edt_RemArk'
    end
    object Edt_InvoiceNo: TEdit
      Left = 93
      Top = 2
      Width = 96
      Height = 20
      TabOrder = 0
    end
    object Edt_AssessorEmployeeCode: TEdit
      Left = 484
      Top = 97
      Width = 110
      Height = 20
      TabOrder = 13
      Text = 'Edt_AssessorEmployeeCode'
      OnKeyDown = EmployeeHint
    end
    object Cx_Assess: TComboBox
      Left = 659
      Top = 97
      Width = 93
      Height = 20
      ItemHeight = 12
      TabOrder = 12
      Text = 'Cx_Assess'
      OnChange = Cx_AssesSChange
      Items.Strings = (
        '0 未审核'
        '1 审核')
    end
    object Edt_CreateEmployeeCode: TExtEdit
      Left = 655
      Top = 2
      Width = 97
      Height = 20
      TabOrder = 14
      Text = 'Edt_CreateEmployeeCode'
      OnExit = EmployeeCodeCheck
      OnKeyDown = EmployeeHint
      DispLabel = Label20
    end
    object Edt_CustomerBank: TEdit
      Left = 93
      Top = 73
      Width = 231
      Height = 20
      TabOrder = 9
    end
    object Edt_CustomerBankActNo: TEdit
      Left = 419
      Top = 73
      Width = 333
      Height = 20
      TabOrder = 10
    end
    object Edt_ExchangeRate: TEdit
      Left = 418
      Top = 2
      Width = 75
      Height = 20
      TabOrder = 2
    end
    object Edit1: TEdit
      Left = 259
      Top = 49
      Width = 88
      Height = 20
      Enabled = False
      TabOrder = 6
      Text = 'Edit1'
    end
    object Edit2: TEdit
      Left = 259
      Top = 26
      Width = 302
      Height = 20
      Enabled = False
      TabOrder = 4
      Text = 'Edit2'
    end
    object Edit3: TEdit
      Left = 589
      Top = 48
      Width = 163
      Height = 20
      Enabled = False
      TabOrder = 8
      Text = 'Edit3'
    end
  end
  inherited Pnl_Body: TPanel
    Top = 181
    Height = 261
    inherited DBGridEh: TDBGridEh
      Height = 261
      Columns = <
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 236
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 48
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '约定交货量'
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税单价'
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 59
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiSCountRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '折扣率'
          Width = 48
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiSCountAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '折扣额'
          Width = 60
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 461
    Top = 331
  end
  inherited ActionList: TActionList
    Left = 168
    Top = 320
  end
  inherited AdoQry_Body: TAdoQuery
    Active = True
    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'
    AfterPost = AdoQry_BodyAfterPost
    AfterDelete = AdoQry_BodyAfterPost
    SQL.Strings = (
      'Select Top 0 Sa_SaleInvoiceLine.*,Item.ItemName,Uom.UomName '
      '             From Sa_SaleInvoiceLine '
      '               Join  Item '
      '                 On Item.ItemCode=Sa_SaleInvoiceLine.ItemCode '
      '               Join Uom '
      '                 On Item.UomCode=Uom.UomCode ')
    Left = 384
    Top = 273
    object AdoQry_BodyInvoiceNo: TStringField
      FieldName = 'InvoiceNo'
      Size = 16
    end
    object AdoQry_BodyShipNo: TStringField
      FieldName = 'ShipNo'
      Size = 16
    end
    object AdoQry_BodyShipLineNo: TIntegerField
      FieldName = 'ShipLineNo'
    end
    object AdoQry_BodyItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_BodyShipQty: TFloatField
      FieldName = 'ShipQty'
    end
    object AdoQry_BodyTaxPrice: TFloatField
      FieldName = 'TaxPrice'
    end
    object AdoQry_BodyTaxAmount: TFloatField
      FieldName = 'TaxAmount'
    end
    object AdoQry_BodyDiSCountRate: TFloatField
      FieldName = 'DiSCountRate'
    end
    object AdoQry_BodyDiSCountAmount: TFloatField
      FieldName = 'DiSCountAmount'
    end
    object AdoQry_BodyItemName: TStringField
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_BodyUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_BodyNoTaxPrice: TFloatField
      FieldName = 'NoTaxPrice'
    end
    object AdoQry_BodyNoTaxAmount: TFloatField
      FieldName = 'NoTaxAmount'
    end
  end
  inherited DataSource: TDataSource
    Left = 288
    Top = 305
  end
  inherited ExtPrintReport: TExtPrintReport
    Top = 265
  end
end