inv_otheroutaudit_h.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_OtherOutAudit_H: TFrm_Inv_OtherOutAudit_H
  Left = 4
  Top = 138
  Caption = '其他出库发货单仓库核定'
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited ToolButton1: TToolButton
        Visible = False
      end
      inherited TlBtn_Look: TToolButton
        Enabled = False
        Visible = False
      end
      inherited ToolButton5: TToolButton
        Visible = False
      end
      inherited TlBtn_Filter: TToolButton
        Enabled = False
        Visible = False
      end
      inherited TlBtn_Locate: TToolButton
        Enabled = False
        Visible = False
      end
      inherited ToolButton3: TToolButton
        Visible = False
      end
      inherited TlBtn_Order: TToolButton
        Enabled = False
        Visible = False
      end
      inherited ToolButton2: TToolButton
        Enabled = False
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '其他出库发货单仓库核定'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Width = 72
      Caption = '仓库，单据号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'InvBillId'
          PickList.Strings = ()
          Title.Alignment = taCenter
          WordWrAp = True
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库'
          Width = 117
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单据号'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单据日期'
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillType2CodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '出库类型'
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OutType'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '出库对象'
          Width = 97
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OutCode'
          PickList.Strings = ()
          Title.Caption = '出库对象代码'
          Width = 74
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OutName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '出库对象描述'
          Width = 116
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货位'
          Width = 96
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Head: TAdoQuery
    SQL.Strings = (
      'select B.InvBillId ,'
      'B.WhCode+'#39' '#39'+Warehouse.WHName As WhCodeName, '
      'B.InvBillNo, '
      'B.InvBillDate,'
      
        ' B.BillType2Code+'#39' '#39'+BillType2.BillType2Name As BillType2CodeNam' +
        'e, '
      
        'B.WhPositionCode+'#39' '#39'+WhPosition.WhPositionName As WhPositionName' +
        ','
      ' OutType= '
      'case '
      'when B.DeptCode is not null then '#39'??'#39' '
      'when B.customerCode is not null then '#39'??'#39
      'when B.VendorCode is not null then '#39'???'#39' else '#39#39' end, '
      'OutCode= case when B.DeptCode is not null then B.DeptCode '
      'when B.customerCode is not null then B.customerCode '
      'when B.VendorCode is not null then B.VendorCode else '#39#39' '
      'end,'
      ' OutName= case when B.DeptCode is not null then D.DeptName '
      'when B.customerCode is not null then C.customerName '
      'when B.VendorCode is not null then V.VendorName else '#39#39' end '
      'from InvOutBill B left join Dept D on B.DeptCode=D.DeptCode'
      
        ' left join customer C on B.customerCode=C.customerCode left join' +
        ' Vendor V on B.VendorCode=V.VendorCode Join BillType2 on B.BillT' +
        'Ype2Code=BillType2.BillType2Code Join WhPosition on B.WhPosition' +
        'Code=WhPosition.WhPositionCode Join Warehouse on (Warehouse.WhCo' +
        'de=B.WhCode)   and (b.BillTypeCode='#39'0249'#39') and (b.InvBillwhchck=' +
        '0)   and (B.InvBillWhChck=0)')
    object AdoQry_HeadInvBillId: TBCDField
      FieldName = 'InvBillId'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object AdoQry_HeadWhCodeName: TStringField
      FieldName = 'WhCodeName'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_HeadInvBillNo: TStringField
      FieldName = 'InvBillNo'
      Origin = 'InvOutBill'
      Size = 10
    end
    object AdoQry_HeadInvBillDate: TDateTimeField
      FieldName = 'InvBillDate'
      Origin = 'InvOutBill'
    end
    object AdoQry_HeadBillType2CodeName: TStringField
      FieldName = 'BillType2CodeName'
      ReadOnly = True
      Size = 25
    end
    object AdoQry_HeadWhPositionName: TStringField
      FieldName = 'WhPositionName'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_HeadOutType: TStringField
      DisplayWidth = 20
      FieldName = 'OutType'
      ReadOnly = True
    end
    object AdoQry_HeadOutCode: TStringField
      FieldName = 'OutCode'
      ReadOnly = True
      Size = 12
    end
    object AdoQry_HeadOutName: TStringField
      FieldName = 'OutName'
      ReadOnly = True
      Size = 60
    end
    object AdoQry_HeadInvBillRemArk: TStringField
      FieldName = 'InvBillRemArk'
      Size = 80
    end
  end
end