inv_mninaudit_h.pas

一个MRPII系统源代码版本

unit Inv_MnInAudit_H;

Interface

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

Type
  TFrm_Inv_MnInAudit_H = Class(TFrm_Base_Check_Head)
    AdoQry_HeadInvBillId: TBCDField;
    AdoQry_HeadInvBillTmpFlag: TIntegerField;
    AdoQry_HeadWHCodeName: TStringField;
    AdoQry_HeadInvBillNo: TStringField;
    AdoQry_HeadInvBillDate: TDateTimeField;
    AdoQry_HeadMONo: TStringField;
    AdoQry_HeadOverPlan: TIntegerField;
    AdoQry_HeadWhPosition: TStringField;
    AdoQry_HeadwhCode: TStringField;
    AdoQry_HeadDeptCode: TStringField;
    AdoQry_HeadDeptFlag: TStringField;
    AdoQry_HeadShiftType: TStringField;
    procedure Act_FilterExecute(Sender: TObject);
    procedure Act_LookExecute(Sender: TObject);
  private
    BillTypeCode :String;
    DeptCode     :String;
    ShiftType    :String;
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);OverRide;
    { Public declarations }
  end;

var
  Frm_Inv_MnInAudit_H: TFrm_Inv_MnInAudit_H;

implementation
Uses Inv_MnInAudit,Inv_MnInAudit_C,Sys_Global;
{$R *.DFM}

{ TFrm_Inv_MnInAudit_H }

procedure TFrm_Inv_MnInAudit_H.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  BillTypeCode:=Param6;
  SelectFromSql:='select I.InvBillId,I.InvBillTmpFlag,'+
                 '       I.WHCode,I.DeptCode,'+
                 '       I.DeptCode+'' ''+D.DeptName DeptFlag,'+
                 '       I.ShiftType,'+
                 '       I.WHCode+'' ''+w.WhName as WHCodeName,'+
                 '       I.WhPositionCode+'' ''+P.WhPositionName As WhPosition,'+
                 '       I.InvBillNo,I.InvBillDate,I.MONo,I.OverPlan ' +
                 ' from  InvInBill I,Warehouse w,WhPosition P,Dept D ';

  ConditionUserDefine:='I.WHCode=w.whCode and '+
                       'i.WhPositionCode=p.WhPositionCode and '+
                       'w.whCode=p.whCode and '+
                       'I.BillTypeCode='''+BillTypeCode+''''+
                       '   And I.InvBillWHChck=0'+
                       '   And D.DeptCode=I.DeptCode ';
  OrderByFields:='WHCodeName,InvBillNo';
  Application.CreateForm(TFrm_Inv_MnInAudit_C,Frm_Inv_MnInAudit_C);
  Frm_Inv_MnInAudit_C.SetSysParam(UserCode,ModuleCode,MenuId,LoginDate);
  Frm_Inv_MnInAudit_C.SetDBConnect(AdOConnection);
  Frm_Check_Body:=TFrm_Inv_MnInAudit.Create(Self);
  If UpperCase(Param1)='FP' then
  begin
    Frm_Inv_MnInAudit_H.Caption:='成品车间生产入库仓库核定';
    Pnl_Title.Caption:='成品车间生产入库仓库核定';
    Frm_Check_Body.Caption:='成品车间生产入库仓库核定';
    Frm_Check_Body.Pnl_Title.Caption:='成品车间生产入库仓库核定';
  end
  Else If  UpperCase(Param1)='SP' then
  begin
    Frm_Inv_MnInAudit_H.Caption:='半成品车间生产入库仓库核定';
    Pnl_Title.Caption:='半成品车间生产入库仓库核定';
    Frm_Check_Body.Caption:='半成品车间生产入库仓库核定';
    Frm_Check_Body.Pnl_Title.Caption:='半成品车间生产入库仓库核定';
  end
  Else
  begin
    DispInfo('系统参数传入有误，请与系统管理员联系！',1);
    Abort;
  end;
  OrderByFields:=' WHCode,DeptCode,InvBillNo ';
  getdata;
  //Act_Filter.Execute;
end;

procedure TFrm_Inv_MnInAudit_H.Act_FilterExecute(Sender: TObject);
begin
//  inherited;
  if Frm_Inv_MnInAudit_C.Showmodal=mrOk then
  begin
    Lbl_Condition.Caption:=Frm_Inv_MnInAudit_C.ConditionHint;
    Condition:=Frm_Inv_MnInAudit_C.Condition;
    DeptCode:=Frm_Inv_MnInAudit_C.DeptCode;
    ShiftType:=Frm_Inv_MnInAudit_C.MOFinishShift;
    GetData;
  end;
end;

procedure TFrm_Inv_MnInAudit_H.Act_LookExecute(Sender: TObject);
begin
  Param1:=AdoQry_Head.fieldbyname('WhPosition').AsString;
  Param2:=AdoQry_Head.fieldbyname('MONo').AsString;
  Param3:=AdoQry_Head.fieldbyname('DeptFlag').AsString;
  Param4:=AdoQry_Head.fieldbyname('ShiftType').AsString;
  Param5:=AdoQry_Head.fieldbyname('WHCodeName').AsString;
  Param6:=BillTypeCode;
  Frm_Check_Body.SetFormParam(AdoQry_Head.fieldbyname('InvBillId').AsString,'','','','','');
  inherited;
end;

end.