Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36524 -r36531
--- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36524)
+++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml	(.../INVOIC02Verwerker.cls.xml)	(revision 36531)
@@ -43,9 +43,7 @@
 		#dim BlumFaktuurNr as %String = ..GeefBlumFaktuurNummer(INVOIC02)
 		#dim BlumFaktuur as Blum.Facturen = ..BlumFacturenRepository.GeefViaLeverancierEnFactuur(..#BlumLevNr,BlumFaktuurNr)
 		if '$isObject(BlumFaktuur){
-			w !,"maak blum.factuur"
 			set BlumFaktuur = ..MaakBlumFaktuur(INVOIC02,E1EDP01)
-			w !,"maak blum.factuur gedaan"
 		}
 		Do ..ZendingService.MaakZendingFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01),..GeefBlumFaktuurNummer(INVOIC02),BlumFaktuur)
 		Do ..ZendingService.VerplaatsDummyFaktuurLijn(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,..GeefToelevingInfo(E1EDP01),..GeefIdentNummer(E1EDP01),..GeefAantalGefaktureerd(E1EDP01))
@@ -63,7 +61,6 @@
 <FormalSpec>INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02,E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01</FormalSpec>
 <Implementation><![CDATA[
 	#dim BlumFaktuur as Blum.Facturen = ..BlumFacturenRepository.Maak()
-	w !,"MaakBlumFaktuur gemaakt"
 	Set BlumFaktuur.CreatieTijdStip=$zdt($H,3)
 	set BlumFaktuur.FactuurType = ..GeefFaktuurType(INVOIC02)
 	Do BlumFaktuur.LeverancierSetObjectId(..#BlumLevNr)
@@ -81,9 +78,7 @@
 	//kan dat niet alle shipments all ontvangen zijn, dus mag de faktuur nog niet ingeboekt worden.
 	// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 	Set BlumFaktuur.VervoersID = ..GeefZendingID(E1EDP01)
-	w !,"zending id ",BlumFaktuur.VervoersID
 	Do ..BlumFacturenRepository.Bewaar(BlumFaktuur)
-	w !,"Blumfactuur bewaard"
 	quit BlumFaktuur
 ]]></Implementation>
 </Method>
Index: APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger.cls.xml
===================================================================
diff -u -r36524 -r36531
--- APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger.cls.xml	(.../FactuurBerichtOntvanger.cls.xml)	(revision 36524)
+++ APPS/AKP/AankoopControle/BLUM/impl/FactuurBerichtOntvanger.cls.xml	(.../FactuurBerichtOntvanger.cls.xml)	(revision 36531)
@@ -42,12 +42,10 @@
 <Implementation><![CDATA[
 	#Dim BestandenList = ..GeefTeVerwerkenBestanden()
 	#Dim BestandenListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BestandenList)
-	w !,"Start"
 	While BestandenListIterator.HasNext()
 	{		
 		Do ..VerwerkFactuurBestand(BestandenListIterator.Next().Name)
 	}
-	w !,"Einde"
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -58,19 +56,14 @@
 <Implementation><![CDATA[
 	
 	try{
-		w !,"verwerken bestand ", BestandVolledigeNaam
 		#dim INVOIC02 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 = ..LeesXMLBestand(BestandVolledigeNaam)
-		w !,"Gelezen"
 		do ..INVOIC02Verwerker.Verwerk(INVOIC02)	
-		w !,"Verwerkt"
-		;Do ..KopieerNaarArchiefMap(BestandVolledigeNaam)
-		w !,"Gearchiveerd"
+		Do ..KopieerNaarArchiefMap(BestandVolledigeNaam)
 	} catch {		
-		w !,"Niet verwerkt"
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()		
 		#dim BerichtVoorGebruiker As %String = "Een INVOIC bericht van BLUM kon niet verwerkt worden. : " _BestandVolledigeNaam
 		Do ##class(vhLib.Logger).%New("").ErrorMail("VerwerkFactuurBestand",(BerichtVoorGebruiker _" " _Exceptie.ToString()))
-		;Do ..KopieerNaarErrorMap(BestandVolledigeNaam)		
+		Do ..KopieerNaarErrorMap(BestandVolledigeNaam)		
 	}
 ]]></Implementation>
 </Method>
Index: APPS/AKP/Zending/impl/ZendingService.cls.xml
===================================================================
diff -u -r36524 -r36531
--- APPS/AKP/Zending/impl/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36524)
+++ APPS/AKP/Zending/impl/ZendingService.cls.xml	(.../ZendingService.cls.xml)	(revision 36531)
@@ -121,9 +121,7 @@
 			#dim nieuweindex as %Integer = $Order(@..#Global(BlumLevNr,"D",ZendingID,BlumFaktuurNr,100),-1) + 1
 			Merge @..#Global(BlumLevNr,"D",ZendingID,BlumFaktuurNr,nieuweindex) = @..#Global(BlumLevNr,"D",ZendingID,"999999",index)
 			kill @..#Global(BlumLevNr,"D",ZendingID,"999999",index)
-			w !,"Voor update receptie",..GeefReceptieNummerZending(BlumLevNr,ZendingID)," " ,ToeleveringInfo," ","999999"," ",index," ",BlumFaktuurNr," ",nieuweindex 
 			do ..ReceptieService.UpdateReceptie(..GeefReceptieNummerZending(BlumLevNr,ZendingID) ,ToeleveringInfo,"999999",index,BlumFaktuurNr,nieuweindex )
-			w !,"Na update receptie"
 			quit
 		} 
 		set index = $Order(@..#Global(BlumLevNr,"D",ZendingID,"999999",index))