Index: BL/Legacy/HADWIZ.cls.xml
===================================================================
diff -u -r29059 -r31766
--- BL/Legacy/HADWIZ.cls.xml	(.../HADWIZ.cls.xml)	(revision 29059)
+++ BL/Legacy/HADWIZ.cls.xml	(.../HADWIZ.cls.xml)	(revision 31766)
@@ -96,8 +96,8 @@
 	 . For i = 1 : 1 : 100 Do  Quit:(CanQuitECPWaitingLoop)  Hang 0.1   ; met interval van 0.1 sec checken of ^IPCom() ingevuld is (global mapping via ECP).  --> max 100 iteraties = 10 sec wachten 
 	 . . Set IsCancelled=($G(^IPCom("D",Key,"P","DialogResult"))="CANCELLED")
 	 . . Set PRNr=$G(^IPCom("D",Key,"P","PRNR")) 
-	 . . Set CanQuitECPWaitingLoop=(IsCancelled)||($length(PRNr))
-	 . do ##class(vhLib.Logger).%New("TBX_CREATE").Info("IPComEinde","Aantal loops : "_i_" ProductID : "_PRNr)
+	 . . Set CanQuitECPWaitingLoop = ($G(^IPCom("D",Key,"P","ECP-READY")) = 1)  ; (IsCancelled)||($length(PRNr))
+	 . Do ##class(vhLib.Logger).%New("TBX_CREATE").Info("IPComEinde","Aantal loops : "_i_" ProductID : "_PRNr_"  ECP-READY:"_$G(^IPCom("D",Key,"P","ECP-READY"),"???"))
 	 . Set Qty=$G(^IPCom("D",Key,"P","AANTAL"))
 	 Else  Do
 	 . Set FP=2320 Write @F Read Qty