📄 mrp_enter_newmrpinfo3.pas
字号:
end
else Frm_Mrp_Qry_InformalTotalMrp_Mo.Show;
finally
activecontrol:=dbgrideh;
end;
end;
function TFrm_Mrp_Enter_NewMrpInfo3.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_NewMrpInfo3.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_NewMrpInfo3.btn_OblongMrpClick(Sender: TObject);
begin
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;
end;
procedure TFrm_Mrp_Enter_NewMrpInfo3.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));
Frm_Mrp_Enter_NewMoSsParent.ItemCode:=AdoQry_Main.fieldbyname('ItemCode').asstring;
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.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_NewMrpInfo3.Button2Click(Sender: TObject);
var noandlineno:string;
BookmArk:string;
mono:string;
MoLineno:integer;
begin
inherited;
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=3 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_NewMrpInfo3.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: label3.Caption:='';
2: label3.Caption:='应取消原因：父项需求发生改变，当前数量的订单没有父项需求';
3: label3.Caption:='应关闭原因：订单生产完毕';
4: begin
if ((AdoQry_Main.fieldbyname('duedate').asdatetime<date()) or (AdoQry_Main.fieldbyname('ssdate').asdatetime<date())) then
label3.Caption:='应重排原因：订单的约定开工日或约定交货日小于Mrp展开运算的日期'
else
if AdoQry_Main.fieldbyname('canuseonhand').asfloat=0 then
label3.Caption:='应重排原因：订单的约定交货日大于物料毛需求的需求日期 '
end;
5: label3.Caption:='应减少原因：物料的供应量大于需求量';
6: label3.Caption:='应提前到'+AdoQry_Main.fieldbyname('realreleasedate').asstring;
end;
end;
procedure TFrm_Mrp_Enter_NewMrpInfo3.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_NewMrpInfo3.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;
case strtoint(copy(AdoQry_Main.fieldbyname('ssflag').asstring,1,1)) of
2: begin
afont.Color:=clred;
end;
4: begin
afont.Color:=clred;
end;
end;
end;
procedure TFrm_Mrp_Enter_NewMrpInfo3.Button4Click(Sender: TObject);
var noandlineno:string;
BookmArk:string;
mono:string;
MoLineno:integer;
begin
inherited;
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=4 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_NewEditPassMo1=Nil Then
begin
Frm_Mrp_Enter_NewEditPassMo1:=TFrm_Mrp_Enter_NewEditPassMo1.Create(Self);
Frm_Mrp_Enter_NewEditPassMo1.SetSysParam(userCode,ModuleCode,menuid,DatetimeToStr(Now));
Frm_Mrp_Enter_NewEditPassMo1.Ordernoandlineno:=noandlineno;
Frm_Mrp_Enter_NewEditPassMo1.nowmono:=mono;
Frm_Mrp_Enter_NewEditPassMo1.nowMoLineno:=MoLineno;
Frm_Mrp_Enter_NewEditPassMo1.InitForm(dbconnect,False);
end
Else
Frm_Mrp_Enter_NewEditPassMo1.Show;
finally
AdoQry_Main.BookmArk:=BookmArk;
activecontrol:=dbgrideh;
end;
end;
procedure TFrm_Mrp_Enter_NewMrpInfo3.FormKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
inherited;
if key = vk_Space then
begin
AdoQry_Main.Edit;
AdoQry_Main.fieldbyname('sScheck').AsInteger:=iifinteger(AdoQry_Main.fieldbyname('sScheck').AsInteger=0,1,0);
AdoQry_Main.Post;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -