stk_enter_passcheckinvbillh.pas

一个MRPII系统源代码版本

unit Stk_Enter_PassCheckInvBillH;

Interface

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

Type
  TFrm_Stk_Enter_PassCheckInvBillH = Class(TFrm_Base_Check_Head)
    AdoQry_HeadInvBillNo: TStringField;
    AdoQry_HeadDeptCode: TStringField;
    AdoQry_HeadInvBillDate: TDateTimeField;
    AdoQry_HeadWhCode: TStringField;
    AdoQry_HeadWhPositionCode: TStringField;
    AdoQry_HeadCheckEmployeeCode: TStringField;
    AdoQry_HeadIsPassEmplyee: TIntegerField;
    AdoQry_HeadPassEmployeeCode: TStringField;
    AdoQry_HeadInAccountDate: TDateTimeField;
    AdoQry_HeadInvBillNo_In: TStringField;
    AdoQry_HeadRemArk: TStringField;
    AdoQry_HeadTmpField: TIntegerField;
    AdoQry_HeadCreateEmployeeCode: TStringField;
    AdoQry_HeadCreateDate: TDateTimeField;
    AdoQry_HeadEdItEmployeeCode: TStringField;
    AdoQry_HeadEditDate: TDateTimeField;
    AdoQry_HeadDeptName: TStringField;
    AdoQry_HeadwhName: TStringField;
    AdoQry_HeadWhPositionName: TStringField;
    AdoQry_HeadchEmployeeName: TStringField;
    AdoQry_HeadpsEmployeeName: TStringField;
    AdoQry_HeadCREmployeeName: TStringField;
    AdoQry_HeadedTEmployeeName: TStringField;
    procedure Act_LookExecute(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);OverRide;    
  end;

var
  Frm_Stk_Enter_PassCheckInvBillH: TFrm_Stk_Enter_PassCheckInvBillH;

implementation

uses Sys_Global,Stk_Enter_PassCheckInvBill;

{$R *.DFM}

{ TFrm_Stk_Enter_PassCheckInvBillH }

procedure TFrm_Stk_Enter_PassCheckInvBillH.InitForm(
  AdOConnection: TAdOConnection; ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:=' select Inv_CheckInvBill.*,'+
                        ' Dept.DeptName, '+
                        ' Warehouse.whName,'+
                        ' WhPosition.WhPositionName,'+
                        ' chEmployee.EmployeeName as chEmployeeName,'+
                        ' psEmployee.EmployeeName as psEmployeeName,'+
                        ' CREmployee.EmployeeName as CREmployeeName,'+
                        ' edTEmployee.EmployeeName as edTEmployeeName'+
                 ' from Inv_CheckInvBill '+
                 ' left join Dept  on Inv_CheckInvBill.DeptCode=Dept.DeptCode '+
                 ' left join Warehouse on Inv_CheckInvBill.whCode=Warehouse.whCode '+
                 ' left join WhPosition '+
                      ' on Inv_CheckInvBill.WhPositionCode=WhPosition.WhPositionCode '+
                 ' left join (select * from Employee) chEmployee '+
                      ' on Inv_CheckInvBill.CheckEmployeeCode=chEmployee.EmployeeCode '+
                 ' left join (select * from Employee) PsEmployee '+
                      ' on Inv_CheckInvBill.PassEmployeeCode=PsEmployee.EmployeeCode '+
                 ' left join (select * from Employee) CREmployee '+
                      ' on Inv_CheckInvBill.CreateEmployeeCode=CrEmployee.EmployeeCode'+
                 ' left join (select * from Employee) edTEmployee '+
                      ' on Inv_CheckInvBill.EdItEmployeeCode=edTEmployee.EmployeeCode';
  ConditionUserDefine:=' IsPassEmplyee=0';
  OrderByFields:='InvBillNo';
  GetData;
  Frm_Check_Body:=TFrm_Stk_Enter_PassCheckInvBill.Create(Self);
end;

procedure TFrm_Stk_Enter_PassCheckInvBillH.Act_LookExecute(
  Sender: TObject);
begin
  if  AdoQry_Head.fieldbyname ('IsPassEmplyee').asinteger=1 then
  begin
    DispInfo('此盘点单已批准！',3);
    abort;
  end;

  Param1:=AdoQry_Head.fieldbyname('WhCode').AsString+' '+
          AdoQry_Head.fieldbyname('WhName').AsString;
  Param2:=AdoQry_Head.fieldbyname('WhPositionCode').AsString+' '+
          AdoQry_Head.fieldbyname('WhPositionName').AsString ;
  Param3:=AdoQry_Head.fieldbyname('InvBillNo').AsString;
  Param4:=AdoQry_Head.fieldbyname('InAccountDate').AsString;
  Param5:=AdoQry_Head.fieldbyname('InvBillDate').AsString;
  Param6:=AdoQry_Head.fieldbyname('RemArk').AsString;

  Frm_Check_Body.SetFormParam(AdoQry_Head.fieldbyname('DeptCode').AsString,
                   AdoQry_Head.fieldbyname('DeptName').AsString,
                   AdoQry_Head.fieldbyname('CheckEmployeeCode').AsString,
                   AdoQry_Head.fieldbyname('chEmployeeName').AsString,
                   '','');
  inherited;

end;

procedure TFrm_Stk_Enter_PassCheckInvBillH.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Stk_Enter_PassCheckInvBillH:=nil;
end;

end.