mrp_qry_informaltotalmrp_sys.pas

一个MRPII系统源代码版本

unit Mrp_Qry_InformalTotalMrp_Sys;

Interface

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

Type
  TFrm_Mrp_Qry_InformalTotalMrp_Sys = Class(TFrm_Base_Qry)
    AdoQry_MainSSId: TAutoIncField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainSSSysInfoFlag: TIntegerField;
    AdoQry_MaInOrderNo: TStringField;
    AdoQry_MaInOrderLineNo: TIntegerField;
    AdoQry_MainSSDate: TDateTimeField;
    AdoQry_MainSSQty: TFloatField;
    AdoQry_MainPmType: TIntegerField;
    AdoQry_MainGrossRequireQty: TFloatField;
    AdoQry_MaInPlanInvQty: TFloatField;
    AdoQry_MaInOrderLineStatus: TIntegerField;
    AdoQry_MainDeptVendorCode: TStringField;
    AdoQry_Mainduedate: TDateTimeField;
    AdoQry_MainReMainQty: TFloatField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainUomName: TStringField;
    AdoQry_MainDeptName: TStringField;
    AdoQry_MainDeptCode: TStringField;
    AdoQry_MainItemFlag: TStringField;
    AdoQry_MainDeptFlag: TStringField;
    AdoQry_MainEmployeeCode: TStringField;
    AdoQry_MainEmployeeName: TStringField;
    AdoQry_MainEmployeeflag: TStringField;
    AdoQry_MainssName: TStringField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    ItemCode:string;
    TotalType:integer;
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_InformalTotalMrp_Sys: TFrm_Mrp_Qry_InformalTotalMrp_Sys;

implementation
uses Sys_Global;
{$R *.DFM}

procedure TFrm_Mrp_Qry_InformalTotalMrp_Sys.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Mrp_Qry_InformalTotalMrp_Sys:=nil;
end;

procedure TFrm_Mrp_Qry_InformalTotalMrp_Sys.InitForm(
  AdOConnection: TAdOConnection; ShowExtendColumn: Boolean);
begin
  inherited;
if TotalType=1 then
 begin
  SelectFromSql:=' Select InformalSS.*,Item.MnldTime,Item.ItemName,UomName,Dept.DeptCode,Dept.DeptName,'
                +' ConVert(varchAr(10),SysSsInfo.SSCode)+'''+' '+'''+SysSsInfo.SsName As SsName,'
                +' Dept.DeptCode+'''+' '+'''+DeptName As DeptFlag, '
                +' Item.ItemCode+'''+' '+'''+Item.ItemName As ItemFlag, '
                +' Employee.EmployeeCode,Employee.EmployeeName,'
                +' Employee.EmployeeCode+'''+' '+'''+Employee.EmployeeName As EmployeeFlag'
                +' From InformalSS '
                +' Join Item On InformalSS.ItemCode=Item.ItemCode '
                +' Join Uom On Item.UomCode=Uom.UomCode '
                +' Left Join Dept On (Case  When Informalss.DeptVendorCode is  null Then Item.DeptCode Else InformalSs.DeptVendorCode end)=Dept.DeptCode '
                +' Left Join Employee On Item.Pla_EmployeeCode=Employee.EmployeeCode '
                +' Join SysSsInfo On InformalSs.SSSysInfoFlag=SysSsInfo.SSCode ';
  conditionuserDefine:='Informalss.ItemCode='+quotedstr(ItemCode);
 end;
if TotalType=2 then
 begin
  SelectFromSql:=' Select SS.*,Item.MnldTime,Item.ItemName,UomName,Dept.DeptCode,Dept.DeptName,'
                +' ConVert(varchAr(10),SysSsInfo.SSCode)+'''+' '+'''+SysSsInfo.SsName As SsName,'
                +' Dept.DeptCode+'''+' '+'''+DeptName As DeptFlag, '
                +' Item.ItemCode+'''+' '+'''+Item.ItemName As ItemFlag, '
                +' Employee.EmployeeCode,Employee.EmployeeName,'
                +' Employee.EmployeeCode+'''+' '+'''+Employee.EmployeeName As EmployeeFlag'
                +' From SS '
                +' Join Item On SS.ItemCode=Item.ItemCode '
                +' Join Uom On Item.UomCode=Uom.UomCode '
                +' Left Join Dept On (Case  When ss.DeptVendorCode is  null Then Item.DeptCode Else Ss.DeptVendorCode end)=Dept.DeptCode '
                +' Left Join Employee On Item.Pla_EmployeeCode=Employee.EmployeeCode '
                +' Join SysSsInfo On Ss.SSSysInfoFlag=SysSsInfo.SSCode ';
  conditionuserDefine:='ss.ItemCode='+quotedstr(ItemCode);
 end;
  {ConditionUserDefine:=' (ReMainQty>0 '
                      +' And (Ss.SsSysInfoFlag=1 '
                      +' And Item.LongPurchLT=0 And Ss.DueDate-(select MrpParamValueN from MrpParam '
                      +' where MrpParamCode='''+'SSForwArdDay'+''')<='''+DateTimeToStr(Date())+''')'
                      +' Or (Ss.SsSysInfoFlag=1 And Item.LongPurchLT=1) Or (Ss.SsSysInfoFlag<>1)) ';  OrderByfields:='SsDate,EmployeeCode '; }
  OrderByFields:='SSDate,EmployeeCode ';
  GetData;

end;

end.