sal_enter_othershiporder.dfm

一个MRPII系统源代码版本

      Left = 92
      Top = 48
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 14
      Text = ' '
      OnButtonClick = Edt_ShipAddresSCodeButtonClick
      OnExit = Edt_ShipAddresSCodeExit
      OnKeyDown = Edt_ShipAddresSCodeKeyDown
    end
    object Edt_PayTermCode: TLinkEdit
      Left = 92
      Top = 71
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 15
      Text = ' '
      OnButtonClick = Edt_PayTermCodeButtonClick
      OnExit = Edt_PayTermCodeExit
      OnKeyDown = Edt_PayTermCodeKeyDown
    end
    object Edt_ShipModeCode: TLinkEdit
      Left = 92
      Top = 94
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 16
      Text = ' '
      OnButtonClick = Edt_ShipModeCodeButtonClick
      OnExit = Edt_ShipModeCodeExit
      OnKeyDown = Edt_ShipModeCodeKeyDown
    end
    object Edt_CurrencyCode: TLinkEdit
      Left = 560
      Top = 2
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 17
      Text = ' '
      OnButtonClick = CurrencyHint1
      OnExit = Edt_CurrencyCodeExit
      OnKeyDown = CurrencyHint
    end
    object Edt_SaleDeptCode: TLinkEdit
      Left = 560
      Top = 25
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 18
      Text = ' '
      OnButtonClick = DeptHint1
      OnExit = Edt_SaleDeptCodeExit
      OnKeyDown = DeptHint
    end
    object Edt_SaleEmployeeCode: TLinkEdit
      Left = 560
      Top = 96
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 21
      Text = ' '
      OnButtonClick = EmployeeHint1
      OnExit = Edt_SaleEmployeeCodeExit
      OnKeyDown = EmployeeHint
    end
    object Edt_SaleTypeCode: TLinkEdit
      Left = 560
      Top = 119
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 22
      Text = ' '
      OnButtonClick = Edt_SaleTypeCodeButtonClick
      OnExit = Edt_SaleTypeCodeExit
      OnKeyDown = Edt_SaleTypeCodeKeyDown
    end
    object Edt_WhCode: TLinkEdit
      Left = 560
      Top = 48
      Width = 50
      Height = 20
      Enabled = False
      LinkStyle = lsEllipsis
      TabOrder = 19
      Text = ' '
      OnButtonClick = Edt_WhCodeButtonClick
      OnExit = Edt_WhCodeExit
      OnKeyDown = Edt_WhCodeKeyDown
    end
    object Edt_WhPositionCode: TLinkEdit
      Left = 560
      Top = 71
      Width = 50
      Height = 20
      Enabled = False
      LinkStyle = lsEllipsis
      TabOrder = 20
      Text = ' '
      OnButtonClick = Edt_WhPositionCodeButtonClick
      OnExit = Edt_WhPositionCodeExit
      OnKeyDown = Edt_WhPositionCodeKeyDown
    end
    object Edt_WhPositionName: TEdit
      Left = 613
      Top = 71
      Width = 140
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 26
      Text = ' '
    end
    object Edt_WhName: TEdit
      Left = 613
      Top = 48
      Width = 140
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 27
      Text = ' '
    end
    object Cmb_BillType: TComboBox
      Left = 560
      Top = 142
      Width = 145
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 25
      Items.Strings = (
        '材料销售发货'
        '产品销售发货')
    end
  end
  inherited Pnl_Body: TPanel
    Top = 222
    Height = 220
    inherited Image3: TImage
      Height = 220
    end
    inherited DBGridEh: TDBGridEh
      Height = 220
      Columns = <
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货单号'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货单行号'
          Width = 62
          Visible = False
          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 = 36
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BatchNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '批次号'
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税单价'
          Width = 59
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNoTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税单价'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNoTaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiSCountRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '折扣率'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiSCountAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '折扣额'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillLineRemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注 '
          Width = 290
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 653
    Top = 339
  end
  inherited ActionList: TActionList
    Left = 168
    Top = 320
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_kelong;Data Source=192.168' +
      '.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet Si' +
      'ze=4096;Workstation ID=XYB'
    AfterPost = AdoQry_BodyAfterPost
    AfterDelete = AdoQry_BodyAfterPost
    SQL.Strings = (
      
        'Select top 0 InvOutBill.InvBillId,InvOutBill.InvBillNo,InvOutBil' +
        'lLine.InvBillLineNo,InvOutBillLine.SloNo,'
      '                   InvOutBillLine.SloLineNo,BatchNo,  '
      '                   InvOutBillLine.ItemCode,ItemName, '
      '                  UomName, '
      '                   TmpField,'
      
        '                   InvBillQty, InvBillPrice,InvBillAmount,InvBil' +
        'lNoTaxPrice,InvBillNoTaxAmount, '
      '                   DiSCountRate,DiSCountAmount,BillLineRemArk   '
      '             From InvOutBillLine '
      
        '               Join InvOutBill on InvOutBillLine.InvBillId=InvOu' +
        'tBill.InvBillId  '
      '               Join Item  '
      '                 On Item.ItemCode=InvOutBillLine.ItemCode '
      '                 Join Uom '
      '                 On Item.UomCode=Uom.UomCode'
      '')
    Left = 384
    Top = 273
    object AdoQry_BodyInvBillId: TFloatField
      FieldName = 'InvBillId'
      ReadOnly = True
    end
    object AdoQry_BodyInvBillNo: TStringField
      FieldName = 'InvBillNo'
      Size = 10
    end
    object AdoQry_BodyInvBillLineNo: TStringField
      FieldName = 'InvBillLineNo'
      Size = 10
    end
    object AdoQry_BodySloNo: TStringField
      FieldName = 'SloNo'
      Size = 16
    end
    object AdoQry_BodySloLineNo: TIntegerField
      FieldName = 'SloLineNo'
    end
    object AdoQry_BodyBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 16
    end
    object AdoQry_BodyItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_BodyItemName: TStringField
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_BodyUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_BodyInvBillQty: TFloatField
      FieldName = 'InvBillQty'
    end
    object AdoQry_BodyInvBillPrice: TFloatField
      FieldName = 'InvBillPrice'
    end
    object AdoQry_BodyInvBillAmount: TFloatField
      FieldName = 'InvBillAmount'
    end
    object AdoQry_BodyInvBillNoTaxPrice: TFloatField
      FieldName = 'InvBillNoTaxPrice'
    end
    object AdoQry_BodyInvBillNoTaxAmount: TFloatField
      FieldName = 'InvBillNoTaxAmount'
    end
    object AdoQry_BodyDiSCountRate: TFloatField
      FieldName = 'DiSCountRate'
    end
    object AdoQry_BodyDiSCountAmount: TFloatField
      FieldName = 'DiSCountAmount'
    end
    object AdoQry_BodyBillLineRemArk: TStringField
      FieldName = 'BillLineRemArk'
      Size = 250
    end
    object AdoQry_BodyTmpField: TFloatField
      FieldName = 'TmpField'
    end
  end
  inherited DataSource: TDataSource
    Left = 608
    Top = 345
  end
  inherited ExtPrintReport: TExtPrintReport
    Top = 265
  end
end