Index: RPLKL2.mac.rou
===================================================================
diff -u -r29059 -r50372
--- RPLKL2.mac.rou	(.../RPLKL2.mac.rou)	(revision 29059)
+++ RPLKL2.mac.rou	(.../RPLKL2.mac.rou)	(revision 50372)
@@ -436,10 +436,13 @@
  .For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
  ..Set ORDMem=$E(ORDNr,1,3)_"."_$E(ORDNr,4,6)
  ..If $G(LayOut("L"))["OH" Do  ; +Orderhoofding
- ...Set U2=^KOD(KLNr,"F",ORDNr,1)
+ ...Set U2=$Get(^KOD(KLNr,"F",ORDNr,1))
  ...Set (STUPD,UPR,GO,UR,UZ)="",(Format,Bold)=1,URX=ORDMem,ORDMem=""
  ...Set $P(U2,D,2)="Order "_$$EXTNUM^vhLib.DataTypes(ORDNr,0,".",0)_" van "_$P(U2,D,2)_" - "_$P(U2,D,3)
+ ...Set:(""=$Get(^KOD(KLNr,"F",ORDNr,1))) $P(U2,D,2) = $$EXTNUM^vhLib.DataTypes(ORDNr,0,".",0) _ ": CONTACTEER ICT: ORDW-KOD CORRUPT!"
  ...Do SAVEBON(U2,ORDNr,CONSNr)
+ ..Do:(""=$Get(^KOD(KLNr,"F",ORDNr,1))) ##class(vhLib.Logger).%New("Admin RPLKL").Error("Raadplegen leveringen van klant","ORDW '" _ CONSNr _ "' verwijzing naar onbestaande KOD '" _ ORDNr _ "' voor KLNr '" _ KLNr _ "' (ORDW^RPLKL2)! Gelieve KOD, ORDW en KUL na te kijken qua aanwezigheid en status. Mogelijke oorzaken: crash bij op bon zetten; pickingopdracht op een tijdelijk order dat gewist wordt na het doorsturen naar AX.", 1)
+ ..Quit:(""=$Get(^KOD(KLNr,"F",ORDNr,1)))
  ..If $G(LayOut("L"))["OR" Do  ; +Orgaluxreferentie
  ...Set U2=^KOD(KLNr,"F",ORDNr,1)
  ...If '$L($P(U2,D,19)),'$L($P(U2,D,40)) Quit