Index: BL/Legacy/RPLKL2.cls.xml
===================================================================
diff -u
--- BL/Legacy/RPLKL2.cls.xml	(revision 0)
+++ BL/Legacy/RPLKL2.cls.xml	(revision 56272)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.RPLKL2">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="LogError">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ConsolidatieNummer,OrderNummer,KlantNummer</FormalSpec>
+<Implementation><![CDATA[
+	#dim Groep As %String = "Admin RPLKL"
+	#dim Actie As %String = "Raadplegen leveringen van klant"
+	#dim Detail As %String = ..GeefDetail(ConsolidatieNummer, OrderNummer, KlantNummer)
+	#dim MoetMailVerzenden As %Boolean = $$$True
+	
+	Do ##class(vhLib.Logger).%New(Groep).Error(Actie, Detail, MoetMailVerzenden)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDetail">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ConsolidatieNummer,OrderNummer,KlantNummer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Detail As %String = ""
+	
+	Set Detail = Detail _ "ORDW '" _ ConsolidatieNummer _ "' verwijzing naar onbestaande KOD '" _ OrderNummer _ "' voor KLNr '" _ KlantNummer _ "' (ORDW^RPLKL2)!" _ $$$CRLF
+	Set Detail = Detail _ "Gelieve volgende globals na te kijken qua aanwezigheid en status:" _ $$$CRLF
+	Set Detail = Detail _ "KOD: " _ ..GeefGlobalsUrl() _ "&$ID2=^KOD(" _ KlantNummer _ ",," _ OrderNummer _ " " _ $$$CRLF
+	Set Detail = Detail _ "ORDW: " _ ..GeefGlobalsUrl() _ "&$ID2=^ORDW(," _ ConsolidatieNummer _ " " _ $$$CRLF
+	Set Detail = Detail _ "KUL: " _ ..GeefGlobalsUrl() _ "&$ID2=^KUL(" _ KlantNummer _ ",," _ ConsolidatieNummer _ " "  _ $$$CRLF
+	Set Detail = Detail _ $$$CRLF
+	Set Detail = Detail _ "Mogelijke oorzaken: crash bij op bon zetten; pickingopdracht op een tijdelijk order dat gewist wordt na het doorsturen naar AX." _ $$$CRLF
+	Set Detail = Detail _ $$$CRLF
+	Set Detail = Detail _ $$GetJobInfo^vhLib.System()
+	
+	Quit Detail
+]]></Implementation>
+</Method>
+
+<Method name="GeefGlobalsUrl">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "http://" _ ##class(%Library.Function).HostName() _ ":57772/csp/sys/exp/UtilExpGlobalView.csp?$NAMESPACE=" _ $Namespace
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: RPLKL2.mac.rou
===================================================================
diff -u -r50381 -r56272
--- RPLKL2.mac.rou	(.../RPLKL2.mac.rou)	(revision 50381)
+++ RPLKL2.mac.rou	(.../RPLKL2.mac.rou)	(revision 56272)
@@ -444,7 +444,7 @@
  ...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)
+ ..Do:(""=$Get(^KOD(KLNr,"F",ORDNr,1))) ##class(BL.Legacy.RPLKL2).LogError(CONSNr, ORDNr, KLNr)
  ..Quit:(""=$Get(^KOD(KLNr,"F",ORDNr,1)))
  ..If $G(LayOut("L"))["OR" Do  ; +Orgaluxreferentie
  ...Set U2=^KOD(KLNr,"F",ORDNr,1)
@@ -562,4 +562,3 @@
  S UPAR=$$LANDPAR^KLANT($P(B(1),D,8)),UN=$J(UN/UPAR,0,2)
  Q
  ;
-