Index: HADVUL.mac.rou =================================================================== diff -u -r58437 -r65995 --- HADVUL.mac.rou (.../HADVUL.mac.rou) (revision 58437) +++ HADVUL.mac.rou (.../HADVUL.mac.rou) (revision 65995) @@ -265,7 +265,7 @@ } Set LevDatum=$P($G(^KOD(KLNr,"F",ORDNr,OLNr),"*"),"\",25) ; Orderdatum Do INITDOMVKP^FLOWORD2(KLNr,ORDNr) - Set ProdDatum=+blLeveringsTermijn.GetLaatsteProductieTijdstip(LevDatum) + Set ProdDatum=+blLeveringsTermijn.GetLaatsteProductieTijdstip(LevDatum,,ORDNr) } If 'ProdDatum { ; datum van de toelevering Set ProdDatum=$$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($P(^KTO(LevNr,TOENr,TLNr),D,25),"DW"),"W","MD")