sal_enter_backshiporder.dfm

一个MRPII系统源代码版本

      Top = 48
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 5
      OnButtonClick = Edt_ShipAddresSCodeButtonClick
      OnExit = Edt_ShipAddresSCodeExit
      OnKeyDown = Edt_ShipAddresSCodeKeyDown
    end
    object Edt_PayTermCode: TLinkEdit
      Left = 88
      Top = 71
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 7
      OnButtonClick = Edt_PayTermCodeButtonClick
      OnExit = Edt_PayTermCodeExit
      OnKeyDown = Edt_PayTermCodeKeyDown
    end
    object Edt_ShipModeCode: TLinkEdit
      Left = 88
      Top = 94
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 10
      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 = 15
      OnButtonClick = CurrencyHint1
      OnExit = Edt_CurrencyCodeExit
      OnKeyDown = CurrencyHint
    end
    object Edt_SaleDeptCode: TLinkEdit
      Left = 560
      Top = 95
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 23
      OnButtonClick = DeptHint1
      OnExit = Edt_SaleDeptCodeExit
      OnKeyDown = DeptHint
    end
    object Edt_SaleEmployeeCode: TLinkEdit
      Left = 560
      Top = 118
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 25
      OnButtonClick = EmployeeHint1
      OnExit = Edt_SaleEmployeeCodeExit
      OnKeyDown = EmployeeHint
    end
    object Edt_SaleTypeCode: TLinkEdit
      Left = 560
      Top = 25
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 17
      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_WhName: TEdit
      Left = 613
      Top = 48
      Width = 129
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 20
      Text = ' '
    end
    object Edt_WhPositionName: TEdit
      Left = 613
      Top = 71
      Width = 129
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 22
      Text = ' '
    end
    object Edt_WhPositionCode: TLinkEdit
      Left = 560
      Top = 71
      Width = 50
      Height = 20
      Enabled = False
      LinkStyle = lsEllipsis
      TabOrder = 21
      Text = ' '
      OnButtonClick = Edt_WhPositionCodeButtonClick
      OnExit = Edt_WhPositionCodeExit
      OnKeyDown = Edt_WhPositionCodeKeyDown
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 433
    Width = 765
    inherited Image4: TImage
      Width = 765
    end
  end
  inherited Pnl_Body: TPanel
    Top = 225
    Width = 765
    Height = 208
    inherited Image3: TImage
      Width = 765
      Height = 208
    end
    inherited DBGridEh: TDBGridEh
      Width = 765
      Height = 208
      Columns = <
        Item
          FieldName = 'InvBillLINENO'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '退货行号'
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SloNo'
          PickList.Strings = ()
          Title.Caption = '发货单号'
          Width = 95
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SloLineNo'
          PickList.Strings = ()
          Title.Caption = '发货单行号'
          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 = 33
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '退货量'
          Width = 46
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税单价'
          Width = 54
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNoTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税单价'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNoTaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiSCountRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '折扣率'
          Width = 47
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiSCountAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '折扣额'
          Width = 53
          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
    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.InvBillNo,InvOutBillLine.* ,Item.ItemNa' +
        'me,Uom.UomName,'
      '                   Warehouse.WhName,WhPosition.WhPositionName  '
      '             From InvOutBillLine  '
      
        '             Join InvOutBill on InvOutBillLine.InvBillId=InvOutB' +
        'ill.InvBillId'
      '             left Join Item  '
      '               On InvOutBillLine.ItemCode=Item.ItemCode   '
      '             left Join Uom   '
      '               On Item.UomCode=Uom.UomCode    '
      '             left Join Warehouse   '
      '               On Warehouse.WhCode=InvOutBill.WhCode '
      '             left Join WhPosition  '
      '               On (InvOutBill.WhCode=WhPosition.WhCode '
      
        '                 And InvOutBill.WhPositionCode=WhPosition.WhPosi' +
        'tionCode)  ')
    Left = 384
    Top = 273
    object AdoQry_BodyInvBillNo: TStringField
      FieldName = 'InvBillNo'
      Size = 10
    end
    object AdoQry_BodyInvBillId: TFloatField
      FieldName = 'InvBillId'
    end
    object AdoQry_BodyInvBillLINENO: TStringField
      FieldName = 'InvBillLINENO'
      Size = 10
    end
    object AdoQry_BodyItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_BodyInvBillAmount: TFloatField
      FieldName = 'InvBillAmount'
      OnGetText = AdoQry_BodyInvBillAmountGetText
    end
    object AdoQry_BodyInvBillNoTaxAmount: TFloatField
      FieldName = 'InvBillNoTaxAmount'
      OnGetText = AdoQry_BodyInvBillNoTaxAmountGetText
    end
    object AdoQry_BodyInvBillnoTaxAmountc: TFloatField
      FieldName = 'InvBillnoTaxAmountc'
    end
    object AdoQry_BodyInvBillAmountC: TFloatField
      FieldName = 'InvBillAmountC'
    end
    object AdoQry_BodyInvBillQty: TFloatField
      FieldName = 'InvBillQty'
      OnGetText = AdoQry_BodyInvBillQtyGetText
    end
    object AdoQry_BodyInvBillPrice: TFloatField
      FieldName = 'InvBillPrice'
    end
    object AdoQry_BodyInvBillNoTaxPrice: TFloatField
      FieldName = 'InvBillNoTaxPrice'
    end
    object AdoQry_BodyInvBillPriceC: TFloatField
      FieldName = 'InvBillPriceC'
    end
    object AdoQry_BodyInvBillNoTaxPriceC: TFloatField
      FieldName = 'InvBillNoTaxPriceC'
    end
    object AdoQry_BodyDiSCountRate: TFloatField
      FieldName = 'DiSCountRate'
    end
    object AdoQry_BodyDiSCountAmount: TFloatField
      FieldName = 'DiSCountAmount'
      OnGetText = AdoQry_BodyDiSCountAmountGetText
    end
    object AdoQry_BodySloNo: TStringField
      FieldName = 'SloNo'
      Size = 16
    end
    object AdoQry_BodySloLineNo: TIntegerField
      FieldName = 'SloLineNo'
    end
    object AdoQry_BodyItemName: TStringField
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_BodyUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_BodyBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 16
    end
    object AdoQry_BodyBilllineremArk: TStringField
      FieldName = 'BilllineremArk'
      Size = 250
    end
  end
  inherited DataSource: TDataSource
    Left = 288
    Top = 305
  end
  inherited ExtPrintReport: TExtPrintReport
    Top = 265
  end
end