mrp_enter_newmrpinfo1.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 1,177 行 · 第 1/4 页

      end
      else  Frm_Mrp_Qry_InformalTotalMrp_Item.Show;
  finally
    activecontrol:=dbgrideh;
  end;
end;

procedure TFrm_Mrp_Enter_NewMrpInfo1.btn_OrderClick(Sender: TObject);
begin
  inherited;
  try
    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.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
           Frm_Mrp_Qry_InformalTotalMrp_Mo.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
           Frm_Mrp_Qry_InformalTotalMrp_Mo.InitForm(AdoQry_Main.Connection,True);
          end
        else Frm_Mrp_Qry_InformalTotalMrp_Mo.Show;
 finally
 activecontrol:=dbgrideh;
 end;
end;

function TFrm_Mrp_Enter_NewMrpInfo1.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_Enter_NewMrpInfo1.btn_uPMrpClick(Sender: TObject);
var AdoQry:TAdoQuery;
    sqltext:string;
begin
  inherited;
  AdoQry:=TAdoQuery.Create(self);
  AdoQry.Connection:=dbconnect;

try
  sqltext:=' Select distinct Item.ItemCode,Item.ItemName,Item.minqty,MrpResult.PmCode,Item.Batchstrat,'+
              ' Itemflag=Item.ItemCode+'' ''+Item.ItemName,'+
             ' UomName=Uom.UomName,'+
             ' ldtime=case MrpResult.PmCode '+
             '     when 0 then Item.mnldtime '+
             '     else Item.purchldtime '+
             '   end,'+
             ' Item.Preparelt,'+
             ' Item.runlt,'+
             ' Item.Qclt,'+
             ' Item.PmBatch, '+
             ' Item.CurrentonhandInv as CurrentonhandInv, '+
             ' Assignedqty=isnull(0,0), '+
             ' Item.CurrentonCheckInv as oncheckqty '+
             //' Item.CurrentonhandInv '+
             //' into #tmpItemResult'+
             ' From Item '+
             ' Join MrpResult On Item.ItemCode=MrpResult.ItemCode and MrpResult.ordinal=1'+
             '      and MrpResult.ItemCode='+quotedstr(AdoQry_Main.fieldbyname('ItemCode').asstring)+
             //' Join #tmponhandm On Item.ItemCode=#tmponhandm.ItemCode and MrpResult.PmCode=#tmponhandm.PmCode '+
             ' left outer join Uom on Item.UomCode=Uom.UomCode ';
  Executesql(AdoQry,sqltext,0);
  if Frm_Mrp_Qry_NewUpRightMrp_D=nil then
 begin
  Frm_Mrp_Qry_NewUpRightMrp_D:=TFrm_Mrp_Qry_NewUpRightMrp_D.Create(Self);
  Frm_Mrp_Qry_NewUpRightMrp_D.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
  Frm_Mrp_Qry_NewUpRightMrp_D.ItemCode:=AdoQry.fieldbyname('ItemCode').asstring;
  Frm_Mrp_Qry_NewUpRightMrp_D.ItemName:=AdoQry.fieldbyname('ItemName').asstring;
  Frm_Mrp_Qry_NewUpRightMrp_D.Uom:=AdoQry.fieldbyname('UomName').asstring;
  Frm_Mrp_Qry_NewUpRightMrp_D.ldtime:=floattostr(AdoQry.fieldbyname('ldtime').asfloat);
  Frm_Mrp_Qry_NewUpRightMrp_D.Preparelt:=floattostr(AdoQry.fieldbyname('Preparelt').asfloat);
  Frm_Mrp_Qry_NewUpRightMrp_D.runlt:=floattostr(AdoQry.fieldbyname('runlt').asfloat);
  Frm_Mrp_Qry_NewUpRightMrp_D.Qclt:=floattostr(AdoQry.fieldbyname('Qclt').asfloat);
  Frm_Mrp_Qry_NewUpRightMrp_D.PmBatch:=floattostr(AdoQry.fieldbyname('PmBatch').asfloat);
  Frm_Mrp_Qry_NewUpRightMrp_D.ItemPmCode:=AdoQry.fieldbyname('PmCode').asinteger;
  Frm_Mrp_Qry_NewUpRightMrp_D.CurrentInv:=floattostr(AdoQry.fieldbyname('CurrentonhandInv').asfloat);
  Frm_Mrp_Qry_NewUpRightMrp_D.RunMrp:=0;
  Frm_Mrp_Qry_NewUpRightMrp_D.Assignedqty:=floattostr(AdoQry.fieldbyname('Assignedqty').asfloat);
  Frm_Mrp_Qry_NewUpRightMrp_D.oncheckqty:=floattostr(AdoQry.fieldbyname('oncheckqty').asfloat);
 if AdoQry.fieldbyname('PmCode').asinteger=0 then
  Frm_Mrp_Qry_NewUpRightMrp_D.PmCode:='0 制造';
 if AdoQry.fieldbyname('PmCode').asinteger=1 then
  Frm_Mrp_Qry_NewUpRightMrp_D.PmCode:='1 采购';
 if AdoQry.fieldbyname('PmCode').asinteger=2     then
  Frm_Mrp_Qry_NewUpRightMrp_D.PmCode:='2 委外加工';
 if AdoQry.fieldbyname('PmCode').asinteger=3     then
  Frm_Mrp_Qry_NewUpRightMrp_D.PmCode:='3 既制造又委外';
 Frm_Mrp_Qry_NewUpRightMrp_D.minqty:=floattostr(AdoQry.fieldbyname('minqty').asfloat);
 if AdoQry.fieldbyname('Batchstrat').asinteger=0  then
  Frm_Mrp_Qry_NewUpRightMrp_D.Batchstrat:='直接批量法';
 if AdoQry.fieldbyname('Batchstrat').asinteger=1   then
  Frm_Mrp_Qry_NewUpRightMrp_D.Batchstrat:='固定批量法';
  try
   AdoQry.Free;
  except
  end;
  Frm_Mrp_Qry_NewUpRightMrp_D.InitForm(AdoQry_Main.Connection,True);
 end
 else Frm_Mrp_Qry_NewUpRightMrp_D.Show;
finally
  activecontrol:=dbgrideh;
end;

end;



procedure TFrm_Mrp_Enter_NewMrpInfo1.btn_OblongMrpClick(Sender: TObject);
begin
  inherited;
if AdoQry_Main.fieldbyname('ssSysInfoflag').asinteger=2 then
     begin
     activecontrol:=dbgrideh;
     exit;
     end;   
 // inherited;
try
if Frm_Mrp_Qry_NewOblongMrp_D=nil then
 begin
  Frm_Mrp_Qry_NewOblongMrp_D:=TFrm_Mrp_Qry_NewOblongMrp_D.Create(Self);
  Frm_Mrp_Qry_NewOblongMrp_D.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
  Frm_Mrp_Qry_NewOblongMrp_D.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
  Frm_Mrp_Qry_NewOblongMrp_D.mRunMrp:=0;
  Frm_Mrp_Qry_NewOblongMrp_D.InitForm(dbconnect,True);
 end
 else Frm_Mrp_Qry_NewOblongMrp_D.Show;
finally
 activecontrol:=dbgrideh;
end;  {    if AdoQry_Main.fieldbyname('ssSysInfoflag').asinteger<>1 then
     begin
     activecontrol:=dbgrideh;
     exit;
     end;

try
if Frm_Mrp_Qry_OblongMrp_D=nil then
 begin
  Frm_Mrp_Qry_OblongMrp_D:=TFrm_Mrp_Qry_OblongMrp_D.Create(Self);
  Frm_Mrp_Qry_OblongMrp_D.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
  Frm_Mrp_Qry_OblongMrp_D.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
  Frm_Mrp_Qry_OblongMrp_D.mRunMrp:=0;
    Frm_Mrp_Qry_OblongMrp_D.InitForm(dbconnect,True);
 end
 else Frm_Mrp_Qry_OblongMrp_D.Show;
finally
 activecontrol:=dbgrideh;
end;}
end;

procedure TFrm_Mrp_Enter_NewMrpInfo1.Button1Click(Sender: TObject);
begin
  inherited;
try
 If (AdoQry_Main.RecordCount>0) And (AdoQry_Main.fieldbyname('SsSysInfoFlag').AsInteger=1) Then
 if  Frm_Mrp_Enter_NewMoSsParent=nil then
 begin
  Frm_Mrp_Enter_NewMoSsParent:=TFrm_Mrp_Enter_NewMoSsParent.Create(Self);
  Frm_Mrp_Enter_NewMoSsParent.SetSysParam(userCode,ModuleCode,menuid,formatdatetime('yyyy.mm.dd',now));
  tmplowPmCode:=AdoQry_Main.fieldbyname('PmCode').asinteger;
  Frm_Mrp_Enter_NewMoSsParent.peggingType:=2;
  Frm_Mrp_Enter_NewMoSsParent.Qclt:=getQclt(AdoQry_Main.fieldbyname('ItemCode').asstring);
  Frm_Mrp_Enter_NewMoSsParent.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
  Frm_Mrp_Enter_NewMoSsParent.duedate:=datetimetostr(AdoQry_Main.fieldbyname('realreleasedate').asdatetime);
  Frm_Mrp_Enter_NewMoSsParent.strpath:=AdoQry_Main.fieldbyname('ItemCode').asstring+',';
  Frm_Mrp_Enter_NewMoSsParent.InitForm(dbconnect,True);
 end
 else  Frm_Mrp_Enter_NewMoSsParent.Show;
finally
 activecontrol:=dbgrideh;
end;

end;

procedure TFrm_Mrp_Enter_NewMrpInfo1.Button2Click(Sender: TObject);
var noandlineno:string;
    BookmArk:string;
    mono:string;
    MoLineno:integer;
    CloseOrCancel : integer;//0:关闭，1：取消
begin
  inherited;
  CloseOrCancel := 0;
  if AdoQry_Main.fieldbyname('ssSysInfoflag').AsInteger=2 then
  CloseOrCancel := 1;
try
  BookmArk:=AdoQry_Main.BookmArk;
  mono:=AdoQry_Main.fieldbyname('Orderno').asstring;
  MoLineno:=AdoQry_Main.fieldbyname('Orderlineno').asinteger;
  noandlineno:=quotedstr('zzzzzzzzzzzzzzzzzzzzzzzz');
    AdoQry_Main.First;
     while not AdoQry_Main.Eof do
       begin
         if AdoQry_Main.fieldbyname('ssSysInfoflag').asinteger=iifinteger(CloseOrCancel=0,3,2) then
           noandlineno:=noandlineno+','+quotedstr(AdoQry_Main.fieldbyname('Orderno').asstring+inttostr(AdoQry_Main.fieldbyname('Orderlineno').asinteger));
           AdoQry_Main.Next;
       end;
 if noandlineno=quotedstr('zzzzzzzzzzzzzzzzzzzzzzzz') then exit;
  If Frm_Mrp_Enter_CloseMo1=Nil Then
  begin
    Frm_Mrp_Enter_CloseMo1:=TFrm_Mrp_Enter_CloseMo1.Create(Self);
     Frm_Mrp_Enter_CloseMo1.SetSysParam(userCode,ModuleCode,menuid,DatetimeToStr(Now));
    Frm_Mrp_Enter_CloseMo1.Ordernoandlineno:=noandlineno;
    Frm_Mrp_Enter_CloseMo1.nowmono:=mono;
    Frm_Mrp_Enter_CloseMo1.nowMoLineno:=MoLineno;
    Frm_Mrp_Enter_CloseMo1.InitForm(dbconnect,False);
  end
  Else
    Frm_Mrp_Enter_CloseMo1.Show;
finally
 AdoQry_Main.BookmArk:=BookmArk;
  activecontrol:=dbgrideh;
end;
end;


procedure TFrm_Mrp_Enter_NewMrpInfo1.DataSourceDataChange(Sender: TObject;
  Field: TField);
var i:integer;
begin
  inherited;
  try
   i:=strtoint(copy(AdoQry_Main.fieldbyname('ssflag').asstring,1,1))
  except
  if ShowAnimate<>nil then ShowAnimate.Free;
  if ShowPanel<>nil then ShowPanel.Free;
  abort;
  end;
case strtoint(copy(AdoQry_Main.fieldbyname('ssflag').asstring,1,1)) of
      1: label6.Caption:='';
      2: label6.Caption:='应取消原因：父项需求发生改变，当前数量的订单没有父项需求';
      3: label6.Caption:='应关闭原因：订单生产完毕';
      4: begin
           if ((AdoQry_Main.fieldbyname('duedate').asdatetime<date()) or (AdoQry_Main.fieldbyname('ssdate').asdatetime<date())) then
             label6.Caption:='应重排原因：订单的约定开工日或约定交货日小于Mrp展开运算的日期'
           else
            if AdoQry_Main.fieldbyname('canuseonhand').asfloat=0 then
           label6.Caption:='应重排原因：订单的约定交货日大于物料毛需求的需求日期 '
         end;
      5: label6.Caption:='应减少原因：物料的供应量大于需求量';
      6: label6.Caption:='应提前到'+AdoQry_Main.fieldbyname('realreleasedate').asstring;
end;


end;

procedure TFrm_Mrp_Enter_NewMrpInfo1.Button3Click(Sender: TObject);
begin
  inherited;
if AdoQry_Main.RecordCount=0 then
  begin
    activecontrol:=dbgrideh;
    exit;
  end;
try
  Frm_Bas_Qry_MultiBomSViewMaster:=TFrm_Bas_Qry_MultiBomSViewMaster.Create(self);
  Frm_Bas_Qry_MultiBomSViewMaster.InitForm(AdoQry_Tmp.Connection);
  Frm_Bas_Qry_MultiBomSViewMaster.ExpandBom(AdoQry_Main.fieldbyname('ItemCode').asstring);
finally
  activecontrol:=dbgrideh;
end;
end;

procedure TFrm_Mrp_Enter_NewMrpInfo1.DBGridEhGetCellParams(Sender: TObject;
  Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
var i:integer;
begin
  inherited;
if AdoQry_Main.RecordCount=0 then exit;
  try
   i:=strtoint(copy(AdoQry_Main.fieldbyname('ssflag').asstring,1,1))
  except
  if ShowAnimate<>nil then ShowAnimate.Free;
  if ShowPanel<>nil then ShowPanel.Free;
  abort;
  end;