sal_enter_passbackshiporder.dfm

一个MRPII系统源代码版本

      TabOrder = 22
      DispLabel = Lab_SaleEmployeeName
    end
    object edt_CurrencyName: TExtEdit
      Left = 638
      Top = 78
      Width = 104
      Height = 20
      Enabled = False
      TabOrder = 23
      DispLabel = Lab_CurrencyName
    end
    object edt_AddressName: TExtEdit
      Left = 146
      Top = 53
      Width = 321
      Height = 20
      Enabled = False
      TabOrder = 24
    end
    object edt_CreateName: TExtEdit
      Left = 637
      Top = 176
      Width = 61
      Height = 20
      Enabled = False
      TabOrder = 25
    end
    object edt_ShipModeName: TExtEdit
      Left = 146
      Top = 103
      Width = 104
      Height = 20
      Enabled = False
      TabOrder = 26
    end
    object edt_assessName: TEdit
      Left = 411
      Top = 128
      Width = 57
      Height = 20
      Enabled = False
      TabOrder = 27
    end
    object Edt_WhCode: TLinkEdit
      Left = 585
      Top = 102
      Width = 52
      Height = 20
      Enabled = False
      LinkStyle = lsEllipsis
      TabOrder = 28
      Text = ' '
    end
    object Edt_WhName: TEdit
      Left = 639
      Top = 102
      Width = 103
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 29
      Text = ' '
    end
    object Edt_WhPositionName: TEdit
      Left = 639
      Top = 125
      Width = 103
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 30
      Text = ' '
    end
    object Edt_WhPositionCode: TLinkEdit
      Left = 585
      Top = 125
      Width = 52
      Height = 20
      Enabled = False
      LinkStyle = lsEllipsis
      TabOrder = 31
      Text = ' '
    end
  end
  inherited Pnl_Body: TPanel
    Top = 255
    Height = 187
    inherited Image3: TImage
      Height = 187
    end
    inherited DBGridEh: TDBGridEh
      Height = 187
      ReadOnly = False
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'InvBillLineNo'
          PickList.Strings = ()
          Title.Caption = '退货单行号'
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SloNo'
          PickList.Strings = ()
          Title.Caption = '发货单号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SloLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货单行号'
          Width = 90
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 58
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 125
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Title.Caption = '物料标识'
          Width = 150
          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 = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税单价'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNoTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税单价'
          Width = 56
          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 = 45
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DiSCountAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '折扣金额'
          Width = 59
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillLineRemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 123
          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
    inherited Act_Print: TAction
      Enabled = False
    end
    inherited Act_Preview: 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_kelong;Data Source=ExtDATAS' +
      'ERVER;Use procedure for Prepare=1;Auto Translate=True;Packet Siz' +
      'e=4096;Workstation ID=XYB'
    BeforeInsert = AdoQry_BodyBeforeInsert
    AfterPost = AdoQry_BodyAfterPost
    SQL.Strings = (
      ''
      
        'Select  InvOutBill.InvBillNo,InvOutBillLine.InvBillId,InvOutBill' +
        'Line.InvBillLineNo,InvOutBillLine.SloNo,'
      '                 InvOutBillLine.SloLineNo,BatchNo,  '
      '                 InvOutBillLine.ItemCode,ItemName, '
      
        '                 InvOutBillLine.ItemCode+'#39' '#39'+Item.ItemName as it' +
        'emflag, '
      '                 UomName, '
      '                 InvOutBill.WhCode,WhName, '
      
        '                 InvOutBill.whCode+'#39' '#39'+Warehouse.whName as whfla' +
        'g, '
      '                 InvOutBill.WhPositionCode,WhPositionName, '
      
        '                 InvOutBill.WhPositionCode+'#39' '#39'+WhPosition.whposi' +
        'tionName as WhPositionflag, '
      
        '                 InvBillQty, InvBillPrice,InvBillAmount,InvBillN' +
        'oTaxPrice,InvBillNoTaxAmount, '
      '                 DiSCountRate,DiSCountAmount,BillLineRemArk  '
      '           From InvOutBillLine '
      
        '               Join InvOutBill on InvOutBillLine.InvBillId = Inv' +
        'OutBill.InvBillId '
      '               Left Join Item  '
      '               On Item.ItemCode=InvOutBillLine.ItemCode '
      '               Left Join Uom '
      '               On Item.UomCode=Uom.UomCode'
      '               Left Join Warehouse'
      '               On InvOutBill.WhCode=Warehouse.WhCode'
      '               Left Join WhPosition '
      
        '               On (WhPosition.WhPositionCode=InvOutBill.WHPositi' +
        'onCode)'
      '                   and (WhPosition.WhCode=InvOutBill.WhCode)'
      
        '          --     where InvBillNo= '#39#39#39'+fieldbyname('#39'InvBillNo'#39').A' +
        'sString+'#39#39#39' '#39' ;')
    Left = 488
    Top = 329
    object AdoQry_BodyInvBillNo: TStringField
      FieldName = 'InvBillNo'
      ReadOnly = True
      Size = 10
    end
    object AdoQry_BodyInvBillId: TFloatField
      FieldName = 'InvBillId'
      ReadOnly = True
    end
    object AdoQry_BodyInvBillLineNo: TStringField
      FieldName = 'InvBillLineNo'
      ReadOnly = True
      Size = 10
    end
    object AdoQry_BodySloNo: TStringField
      FieldName = 'SloNo'
      ReadOnly = True
      Size = 16
    end
    object AdoQry_BodySloLineNo: TIntegerField
      FieldName = 'SloLineNo'
      ReadOnly = True
    end
    object AdoQry_BodyBatchNo: TStringField
      FieldName = 'BatchNo'
      ReadOnly = True
      Size = 16
    end
    object AdoQry_BodyItemCode: TStringField
      FieldName = 'ItemCode'
      ReadOnly = True
      Size = 16
    end
    object AdoQry_BodyItemName: TStringField
      FieldName = 'ItemName'
      ReadOnly = True
      Size = 80
    end
    object AdoQry_BodyItemflag: TStringField
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_BodyUomName: TStringField
      FieldName = 'UomName'
      ReadOnly = True
      Size = 10
    end
    object AdoQry_BodyWhCode: TStringField
      FieldName = 'WhCode'
      ReadOnly = True
      Size = 4
    end
    object AdoQry_BodyWhName: TStringField
      FieldName = 'WhName'
      ReadOnly = True
      Size = 40
    end
    object AdoQry_Bodywhflag: TStringField
      FieldName = 'whflag'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_BodyWhPositionCode: TStringField
      FieldName = 'WhPositionCode'
      ReadOnly = True
      Size = 4
    end
    object AdoQry_BodyWhPositionName: TStringField
      FieldName = 'WhPositionName'
      ReadOnly = True
      Size = 40
    end
    object AdoQry_BodyWhPositionflag: TStringField
      FieldName = 'WhPositionflag'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_BodyInvBillQty: TFloatField
      FieldName = 'InvBillQty'
      OnGetText = AdoQry_BodyInvBillQtyGetText
    end
    object AdoQry_BodyInvBillPrice: TFloatField
      FieldName = 'InvBillPrice'
      ReadOnly = True
    end
    object AdoQry_BodyInvBillAmount: TFloatField
      FieldName = 'InvBillAmount'
      ReadOnly = True
      OnGetText = AdoQry_BodyInvBillAmountGetText
    end
    object AdoQry_BodyInvBillNoTaxPrice: TFloatField
      FieldName = 'InvBillNoTaxPrice'
      ReadOnly = True
    end
    object AdoQry_BodyInvBillNoTaxAmount: TFloatField
      FieldName = 'InvBillNoTaxAmount'
      ReadOnly = True
      OnGetText = AdoQry_BodyInvBillNoTaxAmountGetText
    end
    object AdoQry_BodyDiSCountRate: TFloatField
      FieldName = 'DiSCountRate'
      ReadOnly = True
    end
    object AdoQry_BodyDiSCountAmount: TFloatField
      FieldName = 'DiSCountAmount'
      ReadOnly = True
      OnGetText = AdoQry_BodyDiSCountAmountGetText
    end
    object AdoQry_BodyBillLineRemArk: TStringField
      FieldName = 'BillLineRemArk'
      ReadOnly = True
      Size = 250
    end
  end
  inherited DataSource: TDataSource
    Left = 520
    Top = 1
  end
end