Index: BL/MB/UGLYPicking/ReceptieProductie.cls.xml
===================================================================
diff -u -r8193 -r8305
--- BL/MB/UGLYPicking/ReceptieProductie.cls.xml	(.../ReceptieProductie.cls.xml)	(revision 8193)
+++ BL/MB/UGLYPicking/ReceptieProductie.cls.xml	(.../ReceptieProductie.cls.xml)	(revision 8305)
@@ -435,7 +435,7 @@
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
- New arefPT
+ New arefPT,InToeleveringVerhoogd
  Set arefPT=..#aPT
 
  Quit:('$D(@arefPT@(ProductNr))) -1
@@ -446,7 +446,7 @@
  Set TLNr=$O(@arefPT@(ProductNr,TLNr))
  While TLNr'=""
  {
-	 #dim InToeleveringVerhoogd As %Boolean = 0
+	Set InToeleveringVerhoogd = 0
 	Set TLUNr=$O(@arefPT@(ProductNr,TLNr,TLUNr))
 	While (TLUNr'="") && 'InToeleveringVerhoogd
 	{
@@ -989,10 +989,13 @@
  . ;het toch een 'nieuwe' pallet worden, in tegenstelling tot wat de variabele eerst bevatte (anders
  . ;waren we nooit in deze 'else' lus beland)
  . Set Result=##class(BL.MB.UGLYPicking.General).CompleteLocationViaPalletID(.lbLocation,PalletID,.IsNewPallet,1)
+ . D WLIP^vhDBG(127,"CompleteLocationViaPalletID("_$$LCVT^vhLib(lbLocation)_","_$g(PalletID)_",,1) = '"_Result_"'")
  . Do:(IsNewPallet) AddToEndOfLog("verwijderen (consolidatie): ")
  If Result="" Do
+ . D WLIP^vhDBG(127,"OK")
  . Do AddToEndOfLog("Ok.")
  Else  Do  Quit $LB(-1,Result)
+ . D WLIP^vhDBG(127,"ERROR")
  . Do AddToEndOfLog("ERROR.")
  
  ; COMMIT ADD STOCK (HistoryRemark=TLNr)