Index: HADVUL.mac.rou =================================================================== diff -u -r44291 -r58437 --- HADVUL.mac.rou (.../HADVUL.mac.rou) (revision 44291) +++ HADVUL.mac.rou (.../HADVUL.mac.rou) (revision 58437) @@ -260,6 +260,9 @@ Set KLNr=$P($G(^KTO($$$LevHalux,TOENr,1)),"\",8) ; klant Set ORDNr=$P($G(^KTO($$$LevHalux,TOENr,$G(^TO("IU",TOENr,TLUNr),"*"))),"\",27) ; KOMLink Set OLNr=$P($G(^KTO($$$LevHalux,TOENr,$G(^TO("IU",TOENr,TLUNr),"*"))),"\",28) ; KOMLink + If (ORDNr="") { + Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Fout bij ProductieDatum : OrderID = '' voor Toelevering '"_TOENr_"' op lijn TLUNr='"_TLUNr_"' ") + } Set LevDatum=$P($G(^KOD(KLNr,"F",ORDNr,OLNr),"*"),"\",25) ; Orderdatum Do INITDOMVKP^FLOWORD2(KLNr,ORDNr) Set ProdDatum=+blLeveringsTermijn.GetLaatsteProductieTijdstip(LevDatum)