sfc_qry_mounitmnrequestauditingh.pas

一个MRPII系统源代码版本

unit Sfc_Qry_MoUnitMnRequestAuditingH;

Interface

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

Type
  TFrm_Sfc_Qry_MoUnitMnRequestAuditingH = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadInvBillWHChck: TIntegerField;
    AdoQry_HeadInvBillNo: TStringField;
    AdoQry_HeadInvBillId: TFloatField;
    AdoQry_HeadDeptCode: TStringField;
    AdoQry_HeadDeptName: TStringField;
    AdoQry_HeadDeptCodeName: TStringField;
    AdoQry_HeadWHCode: TStringField;
    AdoQry_HeadWHName: TStringField;
    AdoQry_HeadWHCodeName: TStringField;
    AdoQry_HeadWhPositionCode: TStringField;
    AdoQry_HeadWhPositionName: TStringField;
    AdoQry_HeadWHPCodeName: TStringField;
    AdoQry_HeadWH_EmployeeCode2: TStringField;
    AdoQry_HeadEmployeeName: TStringField;
    AdoQry_HeadEmpCodeName: TStringField;
    AdoQry_HeadShiftType: TStringField;
    AdoQry_HeadRemArk: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Sfc_Qry_MoUnitMnRequestAuditingH: TFrm_Sfc_Qry_MoUnitMnRequestAuditingH;

implementation

uses Sys_Global,Sfc_Qry_MoUnitMnRequestAuditing;

{$R *.DFM}

{ TFrm_Sfc_Qry_MoUnitMnRequestAuditingH }

procedure TFrm_Sfc_Qry_MoUnitMnRequestAuditingH.InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
begin
  inherited;
  SelectFromSQL:='select InvOutBill.InvBillWHChck,InvOutBill.InvBillNo,InvOutBill.InvBillId,InvOutBill.DeptCode,Dept.DeptName,'+
                        'InvOutBill.DeptCode+'' ''+Dept.DeptName DeptCodeName,InvOutBill.WHCode,Warehouse.WHName ,'+
                        'InvOutBill.WHCode+'' ''+Warehouse.WHName WHCodeName,InvOutBill.WhPositionCode,WhPosition.WhPositionName,'+
                        'InvOutBill.WhPositionCode+'' ''+WhPosition.WhPositionName WHPCodeName,InvOutBill.WH_EmployeeCode2,Employee.EmployeeName,'+
                        'InvOutBill.WH_EmployeeCode2+'' ''+Employee.EmployeeName EmpCodeName,InvOutBill.ShiftType,InvOutBill.RemArk '+
                 'from InvOutBill left join Dept on Dept.DeptCode=InvOutBill.DeptCode '+
                                 'left join Warehouse on Warehouse.WHCode=InvOutBill.WHCode '+
                                 'left join WhPosition on InvOutBill.WHCode=WhPosition.WHCode and WhPosition.WhPositionCode=InvOutBill.WhPositionCode '+
                                 'left join Employee on Employee.EmployeeCode=InvOutBill.WH_EmployeeCode2 ';
  ConditionUserDefine:='InvOutBill.ISMoUnitRequest=1';
  Condition:='InvOutBill.InvBillWHChck=0';
  OrderByFields:='DeptCode,InvBillNo';
  GetData;
  
  Frm_Entry_Body:=TFrm_Sfc_Qry_MoUnitMnRequestAuditing.Create(Self);
end;

end.