mrp_qry_informaltotalmrp.pas

一个MRPII系统源代码版本

procedure TFrm_Mrp_Qry_InformalTotalMrp.DBGridEhGetCellParams(
  Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
begin
  inherited;
if  AdoQry_Main.fieldbyname('PmCode').asinteger=1 then
  begin
   Background:=$eeddcc;
   afont.Color:=clblack;
   end;
if AdoQry_Main.fieldbyname('PmCode').asinteger=2  then
   begin
   Background:=$ffccee;
   afont.Color:=clblack;
   end;
if AdoQry_Main.fieldbyname('PmCode').asinteger=3  then
   begin
   Background:=$ff99bb;
   afont.Color:=clblack;
   end;

end;

procedure TFrm_Mrp_Qry_InformalTotalMrp.btn_OrderClick(Sender: TObject);
begin
  inherited;
  try
ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
  if ((AdoQry_Main.fieldbyname('PmCode').asinteger=1) or (AdoQry_Main.fieldbyname('PmCode').asinteger=2)) then
   begin
    if AdoQry_Main.fieldbyname('Orderpreqty').asfloat+AdoQry_Main.fieldbyname('Orderxdqty').asfloat=0 then
      exit;
    if Frm_Mrp_Qry_InformalTotalMrp_Po=nil then
          begin
           Frm_Mrp_Qry_InformalTotalMrp_Po:=TFrm_Mrp_Qry_InformalTotalMrp_Po.Create(Self);
           Frm_Mrp_Qry_InformalTotalMrp_Po.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
           Frm_Mrp_Qry_InformalTotalMrp_Po.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
           Frm_Mrp_Qry_InformalTotalMrp_Po.InitForm(AdoQry_Main.Connection,True);
          end
        else Frm_Mrp_Qry_InformalTotalMrp_Po.Show;
    exit;
   end;
if AdoQry_Main.fieldbyname('PmCode').asinteger=0 then
  begin
   if AdoQry_Main.fieldbyname('Orderpreqty').asfloat+AdoQry_Main.fieldbyname('Orderxdqty').asfloat=0 then
     exit;
   if Frm_Mrp_Qry_InformalTotalMrp_Mo=nil then
          begin
           Frm_Mrp_Qry_InformalTotalMrp_Mo:=TFrm_Mrp_Qry_InformalTotalMrp_Mo.Create(Self);
           Frm_Mrp_Qry_InformalTotalMrp_Mo.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
           Frm_Mrp_Qry_InformalTotalMrp_Mo.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
           Frm_Mrp_Qry_InformalTotalMrp_Mo.InitForm(AdoQry_Main.Connection,True);
          end
        else Frm_Mrp_Qry_InformalTotalMrp_Mo.Show;
   exit;
  end;
if AdoQry_Main.fieldbyname('PmCode').asinteger=3 then
 begin
   if ismorethanzero('moqty','MoLine','ItemCode')=True then
   if Frm_Mrp_Qry_InformalTotalMrp_Mo=nil then
          begin
           Frm_Mrp_Qry_InformalTotalMrp_Mo:=TFrm_Mrp_Qry_InformalTotalMrp_Mo.Create(Self);
           Frm_Mrp_Qry_InformalTotalMrp_Mo.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
           Frm_Mrp_Qry_InformalTotalMrp_Mo.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
           Frm_Mrp_Qry_InformalTotalMrp_Mo.InitForm(AdoQry_Main.Connection,True);
          end
        else Frm_Mrp_Qry_InformalTotalMrp_Mo.Show;
   if ismorethanzero('poqty','poline','ItemCode')=True then
       if Frm_Mrp_Qry_InformalTotalMrp_Po=nil then
          begin
           Frm_Mrp_Qry_InformalTotalMrp_Po:=TFrm_Mrp_Qry_InformalTotalMrp_Po.Create(Self);
           Frm_Mrp_Qry_InformalTotalMrp_Po.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
           Frm_Mrp_Qry_InformalTotalMrp_Po.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
           Frm_Mrp_Qry_InformalTotalMrp_Po.InitForm(AdoQry_Main.Connection,True);
          end
        else Frm_Mrp_Qry_InformalTotalMrp_Po.Show;

 end;
 finally
 activecontrol:=dbgrideh;
 end;

end;

function TFrm_Mrp_Qry_InformalTotalMrp.getValue(Code,
  tableName: string;ValueType:integer): variant;
var tmpAdoQry:TAdoQuery;
begin
 tmpAdoQry:=TAdoQuery.Create(Application);
 tmpAdoQry.EnableBCD:=False;
 try
   with tmpAdoQry do
     begin
      Connection:=dbconnect;
       Close;
       sql.clear;
       sql.Text:='select MrpParamValuen,MrpParamValuec from '+tableName+' where MrpParamCode='+quotedstr(Code);
       open;
       if ValueType=0 then
       Result:=fieldbyname('MrpParamValuec').asstring;
       if ValueType=1 then
       Result:=floattostr(fieldbyname('MrpParamValuen').asfloat);
     end;
 finally
   tmpAdoQry.Free;
 end;
end;

function TFrm_Mrp_Qry_InformalTotalMrp.getenddate(sdate: string;
  dayCount: integer): string;
begin
 try
  Result:=slCalendar(dbconnect,sdate,-(dayCount-1));
 except
   Result:='';
 end;
end;


function TFrm_Mrp_Qry_InformalTotalMrp.ismorethanzero(fieldName,
  tableName,conditionfield: string): boolean;
var AdoQry:TAdoQuery;
begin
 Result:=False;
  AdoQry:=TAdoQuery.Create(Application);
  AdoQry.EnableBCD:=False;
  try
    with AdoQry do
     begin
       Close;
       Connection:=dbconnect;
       sql.clear;
       sql.Add('select sum('+fieldName+') as SumQty from '+tableName+' where '+conditionfield+'='+quotedstr(AdoQry_Main.fieldbyname('ItemCode').asstring));
       open;
       if fieldbyname('SumQty').asfloat>0 then
         Result:=True
       else Result:=False;
     end;
  finally
   AdoQry.Free;
  end;
end;

procedure TFrm_Mrp_Qry_InformalTotalMrp.btn_SySclick(Sender: TObject);
begin
  inherited;
  try
       if Frm_Mrp_Qry_InformalTotalMrp_Sys=nil then
          begin
           Frm_Mrp_Qry_InformalTotalMrp_Sys:=TFrm_Mrp_Qry_InformalTotalMrp_Sys.Create(Self);
           Frm_Mrp_Qry_InformalTotalMrp_Sys.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
           Frm_Mrp_Qry_InformalTotalMrp_Sys.TotalType:=1;
           Frm_Mrp_Qry_InformalTotalMrp_Sys.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
           Frm_Mrp_Qry_InformalTotalMrp_Sys.InitForm(AdoQry_Main.Connection,True);
          end
        else Frm_Mrp_Qry_InformalTotalMrp_Sys.Show;
  finally
  activecontrol:=dbgrideh;
  end;

end;

procedure TFrm_Mrp_Qry_InformalTotalMrp.btn_VendorClick(Sender: TObject);
begin
  inherited;
 try
  if ((AdoQry_Main.fieldbyname('PmCode').asinteger<>1) and (AdoQry_Main.fieldbyname('PmCode').asinteger<>2) and (AdoQry_Main.fieldbyname('PmCode').asinteger<>3)) then
  exit;
    if AdoQry_Main.fieldbyname('Orderpreqty').asfloat+AdoQry_Main.fieldbyname('Orderxdqty').asfloat=0 then
      exit;
        if Frm_Mrp_Qry_InformalTotalMrp_vd=nil then
          begin
           Frm_Mrp_Qry_InformalTotalMrp_vd:=TFrm_Mrp_Qry_InformalTotalMrp_vd.Create(Self);
           Frm_Mrp_Qry_InformalTotalMrp_vd.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
           Frm_Mrp_Qry_InformalTotalMrp_vd.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
           Frm_Mrp_Qry_InformalTotalMrp_vd.InitForm(AdoQry_Main.Connection,True);
          end
        else Frm_Mrp_Qry_InformalTotalMrp_vd.Show;
 finally
 activecontrol:=dbgrideh;
 end;

end;

procedure TFrm_Mrp_Qry_InformalTotalMrp.btn_iteItem_PeggingClick(
  Sender: TObject);
begin
  inherited;
  try
 if  Frm_Mrp_Qry_InformalUpRightMrp_D_ParentMo=nil then
 begin
  Frm_Mrp_Qry_InformalUpRightMrp_D_ParentMo:=TFrm_Mrp_Qry_InformalUpRightMrp_D_ParentMo.Create(Self);
  Frm_Mrp_Qry_InformalUpRightMrp_D_ParentMo.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
  Frm_Mrp_Qry_InformalUpRightMrp_D_ParentMo.Qclt:=inttostr(AdoQry_Main.fieldbyname('Qclt').asinteger);
  tmplowPmCode1:=AdoQry_Main.fieldbyname('PmCode').asinteger;
  Frm_Mrp_Qry_InformalUpRightMrp_D_ParentMo.initType:=1;
  Frm_Mrp_Qry_InformalUpRightMrp_D_ParentMo.TotalType:='InformalMrpTotal';
  Frm_Mrp_Qry_InformalUpRightMrp_D_ParentMo.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
//  Frm_Mrp_Qry_InformalUpRightMrp_D_ParentMo.duedate:=datetimetostr(AdoQry_Main.fieldbyname('requiredate').asdatetime);
  Frm_Mrp_Qry_InformalUpRightMrp_D_ParentMo.strpath:=AdoQry_Main.fieldbyname('ItemCode').asstring+',';
  Frm_Mrp_Qry_InformalUpRightMrp_D_ParentMo.InitForm(dbconnect,True);
 end
 else  Frm_Mrp_Qry_InformalUpRightMrp_D_ParentMo.Show;
 finally
 activecontrol:=dbgrideh;
 end;
end;

procedure TFrm_Mrp_Qry_InformalTotalMrp.btn_ite_ItemClick(Sender: TObject);
begin
  inherited;
  try
 if  Frm_Mrp_Qry_InformalTotalMrp_Item=nil then
 begin
  Frm_Mrp_Qry_InformalTotalMrp_Item:=TFrm_Mrp_Qry_InformalTotalMrp_Item.Create(Self);
  Frm_Mrp_Qry_InformalTotalMrp_Item.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
  Frm_Mrp_Qry_InformalTotalMrp_Item.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
  Frm_Mrp_Qry_InformalTotalMrp_Item.InitForm(dbconnect,True);
 end
 else  Frm_Mrp_Qry_InformalTotalMrp_Item.Show;
 finally
 activecontrol:=dbgrideh;
 end;

end;

procedure TFrm_Mrp_Qry_InformalTotalMrp.FormActivate(Sender: TObject);
begin
  inherited;
activecontrol:=dbgrideh;
end;

end.