inv_purchinaudit_b.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_PurchInAudit_B: TFrm_Inv_PurchInAudit_B
  Left = 21
  Top = 63
  Caption = ''
  ClientHeight = 486
  ClientWidth = 786
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 786
  end
  inherited Pnl_Title: TPanel
    Width = 786
    Height = 39
    inherited Image2: TImage
      Width = 786
      Height = 39
    end
  end
  inherited Pnl_Head: TPanel
    Top = 69
    Width = 786
    Height = 75
    inherited Image1: TImage
      Width = 786
      Height = 75
    end
    object Label1: TLabel
      Left = 34
      Top = 5
      Width = 36
      Height = 12
      Caption = '仓库：'
    end
    object Label4: TLabel
      Left = 256
      Top = 5
      Width = 36
      Height = 12
      Caption = '货位：'
    end
    object Label5: TLabel
      Left = 620
      Top = 28
      Width = 36
      Height = 12
      Caption = '日期：'
    end
    object Label8: TLabel
      Left = 34
      Top = 51
      Width = 36
      Height = 12
      Caption = '备注：'
    end
    object Label10: TLabel
      Left = 608
      Top = 5
      Width = 48
      Height = 12
      Caption = '单据号：'
    end
    object lbl_WhCode: TLabel
      Left = 72
      Top = 5
      Width = 6
      Height = 12
    end
    object lbl_WhPositionCode: TLabel
      Left = 294
      Top = 5
      Width = 6
      Height = 12
    end
    object lbl_Date: TLabel
      Left = 659
      Top = 28
      Width = 6
      Height = 12
    end
    object Label6: TLabel
      Left = 490
      Top = 28
      Width = 36
      Height = 12
      Caption = '税率：'
    end
    object Label2: TLabel
      Left = 454
      Top = 5
      Width = 72
      Height = 12
      Caption = '采购订单号：'
    end
    object lbl_Pono: TLabel
      Left = 525
      Top = 5
      Width = 48
      Height = 12
      Caption = 'lbl_Pono'
    end
    object Label9: TLabel
      Left = 32
      Top = 28
      Width = 48
      Height = 12
      Caption = '供应商：'
    end
    object lbl_Vendor: TLabel
      Left = 80
      Top = 28
      Width = 60
      Height = 12
      Caption = 'lbl_Vendor'
    end
    object Label12: TLabel
      Left = 312
      Top = 28
      Width = 36
      Height = 12
      Caption = '币种：'
    end
    object lbl_Currency: TLabel
      Left = 352
      Top = 28
      Width = 72
      Height = 12
      Caption = 'lbl_Currency'
    end
    object Label7: TLabel
      Left = 575
      Top = 26
      Width = 8
      Height = 16
      Caption = '%'
      Font.ChArset = GB2312_CHArSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Extedt_Billno: TExtEdit
      Left = 656
      Top = 1
      Width = 101
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 0
    end
    object chkbx_PoreferencedPrice: TCheckBox
      Left = 624
      Top = 49
      Width = 60
      Height = 17
      Caption = '暂估价'
      TabOrder = 3
    end
    object Extedt_memo: TExtEdit
      Left = 72
      Top = 47
      Width = 497
      Height = 20
      TabOrder = 2
    end
    object Extedt_InvBilltaxrate: TExtEdit
      Left = 528
      Top = 24
      Width = 41
      Height = 20
      TabOrder = 1
      OnExit = Extedt_InvBilltaxrateExit
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 451
    Width = 786
    Height = 35
    inherited Image4: TImage
      Width = 786
      Height = 35
    end
    object Label3: TLabel
      Left = 40
      Top = 15
      Width = 96
      Height = 12
      Caption = '当前行物料描述：'
    end
    object DBText1: TDBText
      Left = 144
      Top = 15
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Top = 144
    Width = 786
    Height = 307
    inherited Image3: TImage
      Width = 786
      Height = 307
    end
    inherited DBGridEh: TDBGridEh
      Width = 786
      Height = 307
      Columns = <
        Item
          FieldName = 'polineno'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '采购订单行号'
          Width = 80
          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 = 27
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税价'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillnotaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税价'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillnotaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 80
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_New: TAction
      Visible = False
    end
    inherited Act_InsertLine: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_DeleteLine: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Hint: TAction
      Enabled = False
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = ''
    SQL.Strings = (
      'select bl.InvBillid,'
      '                   bl.InvBilllineno,'
      '                   bl.pono,'
      '                   bl.polineno,'
      '                   bl.InvBillqty,'
      '                   bl.ItemCode,'
      '                   i.ItemName,'
      '                   u.UomName,'
      '                   pl.poreferencedPrice,'
      '                   pl.potaxPrice as InvBillPrice,'
      '                   pl.potaxAmount as InvBillAmount,'
      '                   pl.ponotaxPrice as InvBillnotaxPrice,'
      '                   pl.ponotaxAmount as InvBillnotaxAmount'
      '             from InvInBillline bl'
      '              left join poline pl on bl.pono=pl.pono '
      '                                 and bl.polineno=pl.polineno '
      '              left join Item i on bl.ItemCode=i.ItemCode '
      '              left join Uom u on i.UomCode=u.UomCode ')
  end
end