Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r55828 -r56681
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 55828)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(.../VerzendDirectControleur.cls.xml)	(revision 56681)
@@ -30,8 +30,16 @@
 <ReturnType>%Library.String</ReturnType>
 <Implementation><![CDATA[
 	Set TOENr=..GeefGemeenschappelijkeToelev(bfrRGID,bfrVolgNr)
-	Quit:TOENr="" "GEEN GEMEENSCHAPPELIJKE TOELEV"
-	Quit ..ControleViaToelevering(TOENr)
+	Set Resultaat = ""
+	If TOENr="" {
+		Set Resultaat = "GEEN GEMEENSCHAPPELIJKE TOELEV"
+	} Else {
+		Set Resultaat = ..ControleViaToelevering(TOENr)
+	}
+	If (Resultaat'="") {
+		Do ##class(vhLib.Logger).%New("GLS").Info("Voor TOENr '"_TOENr_"' werd DI1 niet gewijzigd naar DD1 wegens '"_Resultaat_"'")
+	}
+	Quit Resultaat
 ]]></Implementation>
 </Method>