ar_enter_saleinvoice2.dfm

一个MRPII系统源代码版本

      Top = 25
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 8
      OnButtonClick = edt_SaleTypeCodeButtonClick
      OnExit = edt_SaleTypeCodeExit
      OnKeyDown = edt_SaleTypeCodeKeyDown
    end
    object edt_SaleTypeName: TEdit
      Left = 658
      Top = 25
      Width = 89
      Height = 20
      Enabled = False
      TabOrder = 9
    end
    object edt_DeptCode: TLinkEdit
      Left = 605
      Top = 48
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 12
      OnButtonClick = DeptHint1
      OnExit = edt_DeptCodeExit
      OnKeyDown = DeptHint
    end
    object edt_DeptName: TEdit
      Left = 658
      Top = 48
      Width = 88
      Height = 20
      Enabled = False
      TabOrder = 13
    end
    object edt_SaleEmployeeCode: TLinkEdit
      Left = 605
      Top = 71
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 16
      OnButtonClick = EmployeeHint1
      OnExit = edt_SaleEmployeeCodeExit
      OnKeyDown = EmployeeHint
    end
    object edt_SaleEmployeeName: TEdit
      Left = 658
      Top = 71
      Width = 88
      Height = 20
      Enabled = False
      TabOrder = 17
    end
    object Edt_TaxRate: TEdit
      Left = 450
      Top = 2
      Width = 50
      Height = 20
      TabOrder = 3
      OnExit = FloatCheck
    end
    object Edt_TotalNoTaxAmount: TEdit
      Left = 605
      Top = 94
      Width = 141
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 20
      OnExit = FloatCheck
    end
    object Edt_CreateEmployeeName: TEdit
      Left = 658
      Top = 118
      Width = 88
      Height = 20
      Enabled = False
      TabOrder = 24
    end
    object MEdt_InAccountDate: TMaskEdit
      Left = 419
      Top = 117
      Width = 81
      Height = 20
      EditMask = '!9999.99.99;1;_'
      MaxLength = 10
      TabOrder = 22
      Text = '    .  .  '
      OnExit = MEdt_InAccountDateExit
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 428
  end
  inherited Pnl_Body: TPanel
    Top = 204
    Height = 224
    inherited Image3: TImage
      Height = 224
    end
    inherited DBGridEh: TDBGridEh
      Height = 224
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'ShipNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货单号'
          Width = 73
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单行号'
          Width = 42
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 34
          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.Caption = '含税金额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'NoTaxPrice'
          PickList.Strings = ()
          Title.Caption = '未税单价'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'NoTaxAmount'
          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
    inherited Act_Modify: TAction
      Enabled = False
    end
    inherited Act_InsertLine: TAction
      Enabled = False
    end
    inherited Act_DeleteLine: TAction
      Enabled = False
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    AfterPost = AdoQry_BodyAfterPost
    AfterDelete = AdoQry_BodyAfterPost
    SQL.Strings = (
      
        ' Select Top 0 Sa_SaleInvoiceLine.InvoiceNo,Sa_SaleInvoiceLine.In' +
        'vBillId, '
      
        '               InvOutBill.InvBillNo as ShipNo,Sa_SaleInvoiceLine' +
        '.InvBillLineNo as ShipLineNo,   '
      '               InvOutBillLine.ItemCode, '
      
        '               InvOutBillLine.InvBillQty as ShipQty , InvOutBill' +
        'Line.InvBillPrice as TaxPrice, InvOutBillLine.InvBillPriceC as T' +
        'axPriceC,'
      
        '               InvOutBillLine.InvBillAmount as TaxAmount, InvOut' +
        'BillLine.InvBillAmountC as TaxAmountC,InvOutBillLine.InvBillNoTa' +
        'xPrice as NoTaxPrice, '
      
        '               InvOutBillLine.InvBillNoTaxAmount as  NoTaxAmount' +
        ',InvOutBillLine.DiSCountRate, '
      '               InvOutBillLine.DiSCountAmount , '
      '               Item.ItemName,Uom.UomName '
      '               From Sa_SaleInvoiceLine '
      
        '                Join InvOutBillLine on Sa_SaleInvoiceLine.InvBil' +
        'lId=InvOutBillLine.InvBillId '
      
        '                 and Sa_SaleInvoiceLine.InvBillLineNo=InvOutBill' +
        'Line.InvBillLineNo '
      
        '                Join InvOutBill on InvOutBillLine.InvBillId=InvO' +
        'utBill.InvBillId '
      '               left Join  Item '
      '                 On InvOutBillLine.ItemCode=Item.ItemCode '
      '               left Join Uom '
      '                 On Item.UomCode=Uom.UomCode ')
    Left = 384
    Top = 273
    object AdoQry_BodyInvoiceNo: TStringField
      FieldName = 'InvoiceNo'
      Size = 16
    end
    object AdoQry_BodyInvBillId: TFloatField
      FieldName = 'InvBillId'
    end
    object AdoQry_BodyShipNo: TStringField
      FieldName = 'ShipNo'
      Size = 10
    end
    object AdoQry_BodyShipLineNo: TStringField
      FieldName = 'ShipLineNo'
      Size = 10
    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_BodyTaxPriceC: TFloatField
      FieldName = 'TaxPriceC'
    end
    object AdoQry_BodyTaxAmount: TFloatField
      FieldName = 'TaxAmount'
    end
    object AdoQry_BodyTaxAmountC: TFloatField
      FieldName = 'TaxAmountC'
    end
    object AdoQry_BodyNoTaxPrice: TFloatField
      FieldName = 'NoTaxPrice'
    end
    object AdoQry_BodyNoTaxAmount: TFloatField
      FieldName = 'NoTaxAmount'
    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
  end
  inherited DataSource: TDataSource
    Left = 288
    Top = 305
  end
  inherited ExtPrintReport: TExtPrintReport
    Top = 265
  end
end