Index: FLOWORD9.mac.rou =================================================================== diff -u -r52359 -r55344 --- FLOWORD9.mac.rou (.../FLOWORD9.mac.rou) (revision 52359) +++ FLOWORD9.mac.rou (.../FLOWORD9.mac.rou) (revision 55344) @@ -10,7 +10,6 @@ Set:'($D(^||OrderBijVH)#1) ^||OrderBijVH=$$CALCDATE^vhLib.DataTypes($H,"A",+2) Quit:($P(LijnRec,"\",25)>(^||OrderBijVH)) "" Set Status ="" - If $P(LijnRec,"\",27)'="" ; kom link { Set Status="1;Productie : Onbekend" @@ -20,15 +19,23 @@ { Set Status="2;Productie : klaargezet" } - Set pxZoek=##class(APPS.Halux.Planning.impl.BatchService).%New().ZoekToelevering(TOENr) + try + { + Set pxZoek=##class(APPS.Halux.Planning.impl.BatchService).%New().ZoekToelevering(TOENr) + } + catch + { + Set pxZoek="" + Set $ecode="" + } If $isObject(pxZoek) { Set Status="3;Productie : in batch;"_$$FormatVanafNu($ZDTH(pxZoek.ToeleveringGeplandTijdstip,3,,2)) } } Set CONSNr=$G(^ORDW("IO",ORDNr,OLUNr)) - + If Status="" && 'CONSNr &&($$GETSTOCK^PRODUKT4(PRNr,"F")<$P(LijnRec,"\",3)) { Set Status="4;Onvoldoende stock;"_$$GETSTOCK^PRODUKT4(PRNr,"F") Index: PRHIST.mac.rou =================================================================== diff -u -r54486 -r55344 --- PRHIST.mac.rou (.../PRHIST.mac.rou) (revision 54486) +++ PRHIST.mac.rou (.../PRHIST.mac.rou) (revision 55344) @@ -91,7 +91,7 @@ .Set Txt=User_" is onbekend in ^vhUSER, gelieve hiervoor het nodige te doen." .Set:$G(PRNr) Txt=Txt_"~Product :"_PRNr_" "_$P($G(^KPR(PRNr,0)),"\",1) .Set Txt=Txt_"~Magazijn: "_$G(Magazijn)_", Actie: "_$G(Actie) - .Set MailId=$$SYSTEM^vhMAIL("","","Onbekende gebruiker:"_User,"SYS",Txt,"","","A") + .;Set MailId=$$SYSTEM^vhMAIL("","","Onbekende gebruiker:"_User,"SYS",Txt,"","","A") Quit UserId ; RAADPL(PRNr,Par,%J)