pm_qry_poinvininvoicepay.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Qry_PoInvInInvoicePay: TFrm_Pm_Qry_PoInvInInvoicePay
  Left = 55
  Top = 76
  Caption = '采购订单-入库-发票-付款组合分析表'
  FormStyle = fsMDIChild
  Visible = True
  Windowstate = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      Width = 108
      object ToolButton1: TToolButton
        Left = 23
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 43
        Style = tbsSeparator
      end
      object ToolButton2: TToolButton
        Left = 31
        Top = 0
        Hint = '执行'
        Action = act_run
        Caption = '执行'
        ImageIndex = 15
      end
      object ToolButton4: TToolButton
        Left = 54
        Top = 0
        Action = Act_Filter
      end
      object ToolButton3: TToolButton
        Left = 77
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 44
        Style = tbsSeparator
      end
      object ToolButton5: TToolButton
        Left = 85
        Top = 0
        Action = Act_Quit
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '采购订单-入库-发票-付款组合分析表'
  end
  inherited Pnl_Head: TPanel
    object Label1: TLabel
      Left = 232
      Top = 8
      Width = 42
      Height = 12
      Caption = '行状态:'
    end
    object Label2: TLabel
      Left = 8
      Top = 8
      Width = 60
      Height = 12
      Caption = '筛选条件：'
    end
    object lbl_Status: TLabel
      Left = 288
      Top = 8
      Width = 36
      Height = 12
      Caption = '未指定'
    end
    object Cmb_Condition: TComboBox
      Left = 68
      Top = 3
      Width = 133
      Height = 20
      ItemHeight = 12
      TabOrder = 0
      Items.Strings = (
        '6 下达')
    end
  end
  inherited Pnl_Body: TPanel
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 0
      Width = 694
      Height = 314
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnCellClick = DBGridEh1CellClick
      Columns = <
        Item
          FieldName = 'VendorCodeName'
          Title.Caption = '供应商标识'
          Width = 143
        end
        Item
          FieldName = 'PcNO'
          Title.Caption = '采购订单号'
          Width = 75
        end
        Item
          FieldName = 'WHCode'
          Title.Caption = '仓库代码'
          Width = 57
        end
        Item
          FieldName = 'InvBillNo'
          Title.Caption = '入库单号'
          Width = 58
        end
        Item
          FieldName = 'ApInvOICENO'
          Title.Caption = '发票号'
          Width = 49
        end
        Item
          FieldName = 'PayBillNO'
          Title.Caption = '付款凭证号'
          Width = 67
        end
        Item
          FieldName = 'PONoTaxAmount'
          Title.Alignment = tArightJustify
          Title.Caption = '定单金额'
          Width = 61
        end
        Item
          FieldName = 'InvBillnotaxAmountc'
          Title.Alignment = tArightJustify
          Title.Caption = '入库金额'
          Width = 62
        end
        Item
          FieldName = 'ApInvOICEAmount'
          Title.Alignment = tArightJustify
          Title.Caption = '发票金额'
          Width = 55
        end
        Item
          FieldName = 'ApPayedAmount'
          Title.Alignment = tArightJustify
          Title.Caption = '付款金额'
          Width = 57
        end
        Item
          FieldName = 'POLineDATE'
          Title.Alignment = taCenter
          Title.Caption = '约定交货日期'
          Width = 80
        end
        Item
          FieldName = 'InvBillDate'
          Title.Alignment = taCenter
          Title.Caption = '入库日期'
          Width = 76
        end
        Item
          FieldName = 'ApInvoiceDate'
          Title.Alignment = taCenter
          Title.Caption = '发票日期'
        end
        Item
          FieldName = 'ApInvOICEINPUTDATE'
          Title.Alignment = taCenter
          Title.Caption = '付款日期'
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 33
    Top = 328
  end
  inherited ActionList: TActionList
    Left = 65
    Top = 328
    inherited Act_Filter: TAction
      OnExecute = Act_FilterExecute
    end
    object act_run: TAction
      Caption = 'act_run'
      ShortCut = 16500
      OnExecute = act_runExecute
    end
  end
  object AdoQry_Main: TAdoQuery
    Parameters = <>
    Left = 96
    Top = 329
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Main
    Left = 152
    Top = 337
  end
end