inv_purchinaudit_h.pas

一个MRPII系统源代码版本

unit Inv_PurchInAudit_H;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Entry_Head, Menus, Db, ActnList, AdODB, Grids, DBGridEh, StdCtrls,
  ExtCtrls, ComCtrls, ToolWin, ExtPrintReport, jpeg;

Type
  TFrm_Inv_PurchInAudit_H = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadInvBillid: TBCDField;
    AdoQry_HeadwhCodeName: TStringField;
    AdoQry_HeadInvBillno: TStringField;
    AdoQry_HeadInvBilldate: TDateTimeField;
    AdoQry_HeadInvBillremArk: TStringField;
    AdoQry_HeadVendorCode: TStringField;
    AdoQry_HeadVendorName: TStringField;
    AdoQry_HeadInvBillwhchck: TIntegerField;
    AdoQry_HeadWhPositionCodeName: TStringField;
    AdoQry_HeadInvBilltaxrate: TFloatField;
    AdoQry_Headpono: TStringField;
    AdoQry_HeadInvBillValuation: TIntegerField;
  private

    { Private declarations }
  public
    BillTypeCode:string;
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Inv_PurchInAudit_H: TFrm_Inv_PurchInAudit_H;

implementation

uses Inv_PurchInAudit_B;
{$R *.DFM}

procedure TFrm_Inv_PurchInAudit_H.InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
begin
  inherited;
  BillTypeCode:=Param1;
  //显示窗体Caption
  if BillTypeCode='0101' then
  begin
    Caption:='采购入库核价';
    pnl_title.Caption:='采购入库核价';
  end
  else if BillTypeCode='0102' then
  begin
    Caption:='进口采购入库核价';
    pnl_title.Caption:='进口采购入库核价';
  end
  else
  begin
    Caption:='委外加工入库核价';
    pnl_title.Caption:='委外加工入库核价';
  end;

  SelectFromSQL:='select '+
                    'i.InvBillid,'+
                    'i.whCode+'+''' '''+'+w.whName as whCodeName, '+
                    'i.InvBillno,'+
                    'i.InvBilldate,'+
                    'i.InvBillremArk,'+
                    'i.InvBilltaxrate,'+
                    'i.InvBillValuation,'+
                    'i.pono,'+
                    'i.VendorCode,'+
                    'v.VendorName,'+
                    'i.InvBillwhchck,'+
                    'i.WhPositionCode+'+''' '''+'+p.WhPositionName as WhPositionCodeName '+
    'from InvInBill i '+
    'left join Vendor V on i.VendorCode=V.VendorCode '+
    'left join Warehouse w on i.whCode=w.whCode '+
    'left join BillType2 b on i.BillType2Code=b.BillType2Code '+
    'left join WhPosition p on i.whCode=p.whCode and i.WhPositionCode=p.WhPositionCode ';

    ConditionUserDefine:=' (i.BillTypeCode='''+BillTypeCode+''' and '+
               '      i.InvBillStkchck=0 and '+
               '      i.whCode in (select w.whCode '+
                                  ' from whAccessCtrl a,Warehouse w '+
                                  ' where a.EmployeeCode='''+userCode+''' and '+
                                        ' a.whCode=w.whCode and w.PriceType=0))';
    OrderByFields:='InvBillno';
    getdata;
    Frm_Entry_Body:=TFrm_Inv_PurchInAudit_B.Create(Self);
end;


end.