Index: vhPowerTools/APPS/TRANSP/PakbonMagGeboektWordenManueelVerzenden.cls.xml
===================================================================
diff -u -r59231 -r59273
--- vhPowerTools/APPS/TRANSP/PakbonMagGeboektWordenManueelVerzenden.cls.xml	(.../PakbonMagGeboektWordenManueelVerzenden.cls.xml)	(revision 59231)
+++ vhPowerTools/APPS/TRANSP/PakbonMagGeboektWordenManueelVerzenden.cls.xml	(.../PakbonMagGeboektWordenManueelVerzenden.cls.xml)	(revision 59273)
@@ -3,34 +3,16 @@
 <Class name="vhPowerTools.APPS.TRANSP.PakbonMagGeboektWordenManueelVerzenden">
 <Super>TECH.RegisteredObject</Super>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Tool voor het vinkje "Opnemen in automatische pakbonboeking" aan te zetten voor een bepaalde pakbon
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Tool voor het vinkje 'Opnemen in automatische pakbonboeking' aan te zetten voor een bepaalde pakbon.</Default>
+</Parameter>
 
-]]></Content>
-</UDLText>
+<Parameter name="OmschrijvingPart2">
+<Type>%String</Type>
+<Default>Normaal zou dit via een tweede bericht moeten gebeuren na het uitvoeren van het PickingCompleet of via batch job (afhangkelijk van de verzendwijze)</Default>
+</Parameter>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Normaal zou dit via een tweede bericht moeten gebeuren na het uitvoeren van het PickingCompleet event en op sommige andere plaatsen (afhangkelik van de erzendwijze)
-
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-// TODO TODO TODO
-
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-// TODO else kant vervangen door volgende methode Do ##class(AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden).ManualPakbonMagGeboektWordenAfhandelaar()
-
-]]></Content>
-</UDLText>
-
 <Method name="ManueelVerzenden">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%String</ReturnType>
@@ -42,19 +24,9 @@
 	 	Quit $$$False
  	}
  	Else {
- 		#dim PakbonMagGeboektWordenAfhandelaar As AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).%New()
-		#dim resultaat As %Boolean = PakbonMagGeboektWordenAfhandelaar.RaisePakbonMagGeboektWordenEvent($$$True, PakbonNummer)
- 	
- 		#dim Message As %String = "Pakbon nummer '" + PakbonNummer + "', bericht 'Opnemen in automatische pakbonboeking'"
- 	
- 		If (resultaat) {
-	 		// KUL piece 63 op true  (pakbonmaggeboektworden) gaan zetten?
-			write Message + " succesvol verzonden"
-		}
-		Else {
-			write "Probleem bij het verzenden van "+ Message
-		}
-		 	
+	 	
+	 	#dim resultaat As %Boolean = ##class(AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden).ManualPakbonMagGeboektWordenAfhandelaar()
+ 			
 		Quit resultaat
  	}
 ]]></Implementation>
Index: AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml
===================================================================
diff -u -r59266 -r59273
--- AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml	(.../BatchJobPakbonMagGeboektWorden.cls.xml)	(revision 59266)
+++ AXimpl/Dynamics/InventoryOut/BatchJobPakbonMagGeboektWorden.cls.xml	(.../BatchJobPakbonMagGeboektWorden.cls.xml)	(revision 59273)
@@ -27,7 +27,6 @@
 						Set Piece63PakbonReedsGeboekt = $Piece(Data,"\",63)
 						If ($$$Not($$$HasLength(Piece63PakbonReedsGeboekt))) {
 							Do ..ManualPakbonMagGeboektWordenAfhandelaar(Node3Leverbon)
-							//Set $Piece(^KUL(Node1Klant,"F",Node3Leverbon,Node4),"\",63) = "PakbonMagGeboektWorden_True"
 						}
 					}					
 				}
@@ -44,21 +43,23 @@
 <Method name="ManualPakbonMagGeboektWordenAfhandelaar">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PakbonNummer:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim PakbonMagGeboektWordenAfhandelaar As AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden = ##class(AXimpl.Dynamics.InventoryOut.EventHandler.PickingCompleet.PakbonMagGeboektWorden).%New()
 	#dim resultaat As %Boolean = PakbonMagGeboektWordenAfhandelaar.RaisePakbonMagGeboektWordenEvent($$$True, PakbonNummer)
  	
  	#dim Message As %String = "Pakbon nummer '" + PakbonNummer + "', bericht 'Opnemen in automatische pakbonboeking'"
  	
  	If (resultaat) {
-	// KUL piece 63 op true  (pakbonmaggeboektworden) gaan zetten?
+	
 		Set Message = Message + " succesvol verzonden"
 	}
 	Else {
-		Set Message = "Probleem bij het verzenden van "+ Message							
+		Set Message = "Probleem bij het verzenden van "+ Message
 	}
-	// TODO Logging regel wegschrijven met boodschap voor welke leverbon er een bericht naar AX werd gestuurd!
+	
 	Do ##class(vhLib.Logger).%New("AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden").Info(Message,##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp())
+	Quit resultaat
 ]]></Implementation>
 </Method>
 </Class>