sal_enter_passshiporder.dfm

一个MRPII系统源代码版本

    end
    object edt_SaleTypeName: TExtEdit
      Left = 604
      Top = 72
      Width = 105
      Height = 20
      Enabled = False
      TabOrder = 17
      DispLabel = Label15
    end
    object edt_CustomerName: TExtEdit
      Left = 145
      Top = 26
      Width = 328
      Height = 20
      Enabled = False
      TabOrder = 6
    end
    object edt_SaleEmployeeName: TExtEdit
      Left = 604
      Top = 49
      Width = 105
      Height = 20
      Enabled = False
      TabOrder = 12
      DispLabel = Lab_SaleEmployeeName
    end
    object edt_CurrencyName: TExtEdit
      Left = 604
      Top = 3
      Width = 105
      Height = 20
      Enabled = False
      TabOrder = 4
      DispLabel = Lab_CurrencyName
    end
    object edt_AddressName: TExtEdit
      Left = 145
      Top = 49
      Width = 328
      Height = 20
      Enabled = False
      TabOrder = 10
    end
    object edt_CreateName: TExtEdit
      Left = 707
      Top = 201
      Width = 61
      Height = 20
      Enabled = False
      TabOrder = 28
      Visible = False
    end
    object edt_ShipModeName: TExtEdit
      Left = 145
      Top = 95
      Width = 141
      Height = 20
      Enabled = False
      TabOrder = 19
    end
    object edt_assessName: TEdit
      Left = 144
      Top = 118
      Width = 105
      Height = 20
      Enabled = False
      TabOrder = 22
    end
    object Edit1: TEdit
      Left = 91
      Top = 165
      Width = 381
      Height = 20
      Enabled = False
      TabOrder = 25
    end
    object Edt_WhCode: TLinkEdit
      Left = 552
      Top = 95
      Width = 50
      Height = 20
      Enabled = False
      LinkStyle = lsEllipsis
      TabOrder = 29
      Text = ' '
    end
    object Edt_WhName: TEdit
      Left = 604
      Top = 95
      Width = 134
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 30
      Text = ' '
    end
    object Edt_WhPositionName: TEdit
      Left = 604
      Top = 118
      Width = 134
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 31
      Text = ' '
    end
    object Edt_WhPositionCode: TLinkEdit
      Left = 552
      Top = 118
      Width = 50
      Height = 20
      Enabled = False
      LinkStyle = lsEllipsis
      TabOrder = 32
      Text = ' '
    end
    object Cmb_BillType: TComboBox
      Left = 552
      Top = 164
      Width = 145
      Height = 20
      Style = csDropDownList
      Enabled = False
      ItemHeight = 12
      TabOrder = 33
      Items.Strings = (
        '材料销售发货'
        '产品销售发货')
    end
  end
  inherited Pnl_Body: TPanel
    Top = 247
    Height = 195
    inherited Image3: TImage
      Height = 195
    end
    inherited DBGridEh: TDBGridEh
      Height = 195
      ReadOnly = False
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'InvBillLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售发货行号'
          Width = 80
          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 = '发货量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BatchNo'
          PickList.Strings = ()
          Title.Caption = '批次号'
          Width = 48
          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
      OnExecute = Act_PrintExecute
    end
    inherited Act_Preview: TAction
      OnExecute = Act_PreviewExecute
    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=192.168' +
      '.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet Si' +
      'ze=4096;Workstation ID=XYB'
    BeforeInsert = AdoQry_BodyBeforeInsert
    AfterPost = AdoQry_BodyAfterPost
    SQL.Strings = (
      ' Select  InvOutBill.InvBillId,InvOutBill.InvBillNo,   '
      
        '                 InvOutBillLine.InvBillLineNo,InvOutBillLine.Slo' +
        'No,'
      '                 InvOutBillLine.SloLineNo,BatchNo,  '
      '                 InvOutBillLine.ItemCode,ItemName, '
      
        '                 InvOutBillLine.ItemCode+'#39' '#39'+Item.ItemName as it' +
        'emflag, '
      '                 UomName, '
      
        '                 InvBillQty, InvBillPrice,InvBillAmount,InvBillN' +
        'oTaxPrice,InvBillNoTaxAmount, '
      '                 DiSCountRate,DiSCountAmount,BillLineRemArk   '
      '           From InvOutBillLine '
      
        '            Join InvOutBill on InvOutBillLine.InvBillId=InvOutBi' +
        'll.InvBillId '
      '               Join Item  '
      '               On Item.ItemCode=InvOutBillLine.ItemCode '
      '               Join Uom '
      '               On Item.UomCode=Uom.UomCode'
      '')
    Left = 472
    Top = 305
    object AdoQry_BodyInvBillId: TFloatField
      FieldName = 'InvBillId'
      ReadOnly = True
    end
    object AdoQry_BodyInvBillNo: TStringField
      FieldName = 'InvBillNo'
      ReadOnly = True
      Size = 10
    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_BodyInvBillQty: TFloatField
      FieldName = 'InvBillQty'
    end
    object AdoQry_BodyInvBillPrice: TFloatField
      FieldName = 'InvBillPrice'
      ReadOnly = True
    end
    object AdoQry_BodyInvBillAmount: TFloatField
      FieldName = 'InvBillAmount'
      ReadOnly = True
    end
    object AdoQry_BodyInvBillNoTaxPrice: TFloatField
      FieldName = 'InvBillNoTaxPrice'
      ReadOnly = True
    end
    object AdoQry_BodyInvBillNoTaxAmount: TFloatField
      FieldName = 'InvBillNoTaxAmount'
      ReadOnly = True
    end
    object AdoQry_BodyDiSCountRate: TFloatField
      FieldName = 'DiSCountRate'
      ReadOnly = True
    end
    object AdoQry_BodyDiSCountAmount: TFloatField
      FieldName = 'DiSCountAmount'
      ReadOnly = True
    end
    object AdoQry_BodyBillLineRemArk: TStringField
      FieldName = 'BillLineRemArk'
      ReadOnly = True
      Size = 250
    end
  end
  inherited DataSource: TDataSource
    Left = 536
    Top = 1
  end
end