Index: APPS/MAG/InventarisService.cls.xml
===================================================================
diff -u -r1986 -r2004
--- APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1986)
+++ APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 2004)
@@ -5,34 +5,6 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<UDLText name="T">
-<Content><![CDATA[
-// [RV-JCL] : status van ResultSet uitlezen bij Prepare & Execute
-
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-// 			: prepare en execute misschien in aparte klasse uitwerken waar errorhandling in zit
-
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-// [RV-JCL] : Method opsplitsen soms vrij veel code per method
-
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-// [RV-JCL] : Voorstander om $listget te gebruiken ipv $list
-
-]]></Content>
-</UDLText>
-
 <Method name="GeefBijladenInfo">
 <FormalSpec>BronPalletID:%String,DoelPalletID:%String,ProductID:%String,AantalBijTeLaden:%Integer</FormalSpec>
 <ReturnType>APPS.MAG.Inventaris.dto.BijladenInfo</ReturnType>
@@ -151,7 +123,7 @@
 	
 	Set DoelResultSet = ##class(%ResultSet).%New()
 	
-	Do DoelResultSet.Prepare("SELECT loc_m,loc_g,loc_x,loc_y,loc_z FROM EWMS.Locations WHERE loc_id = ?") // [RV-JCL] : status van ResultSet uitlezen
+	Do DoelResultSet.Prepare("SELECT loc_m,loc_g,loc_x,loc_y,loc_z FROM EWMS.Locations WHERE loc_id = ?")
 		
 	Set Result = $LB()
 	If (##class(EWMS.ToReceive).PalletIsInToReceive(BronPalletID))
@@ -245,7 +217,7 @@
 	{
 		If (##class(BL.MB.UGLYPicking.General).LocMIsInTransit(ResultSet.Data("loc_m")))
 		{
-			Set Result = ##class(EWMS.Carriers).SetLocMViaPalletID(PalletID,1) ; [RV-JCL] : '1' ??? enu ??
+			Set Result = ##class(EWMS.Carriers).SetLocMViaPalletID(PalletID,1)
 			If (Result '= "")
 			{
 				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kon het magazijn niet veranderen van pallet "_PalletID_": "_Result))
@@ -308,7 +280,7 @@
 		Set ProductOpPallet.PalletID = PalletID
 		Set ProductOpPallet.LocatieID = ResultSet.Data("LocatieID")
 		Set ProductOpPallet.Korttekst = Product.GeefKorttekst()
-		Set ProductOpPallet.Langtekst = Product.GeefLangtekst("N") ; [RV-JCL] : taal van de gebruiker ophalen via één of andere context ipv hardcoded.
+		Set ProductOpPallet.Langtekst = Product.GeefLangtekst("N")
 		Set ProductOpPallet.MagazijnOmschrijving = ##class(Prod.Product).GetMagViaOpslagzone(ResultSet.Data("loc_m"))
 		Set ProductOpPallet.AantalSecties = ResultSet.Data("AantalSecties")
 		Do ProductenOpPallet.Insert(ProductOpPallet)
@@ -354,7 +326,7 @@
 		Set ProductOpPallet.PalletID = ResultSet.Data("PalletID")
 		Set ProductOpPallet.LocatieID = ResultSet.Data("LocatieID")
 		Set ProductOpPallet.Korttekst = Product.GeefKorttekst()
-		Set ProductOpPallet.Langtekst = Product.GeefLangtekst() ; [RV-JCL] : waar is taal van gebruiker ???? zie bovenstaande method  ??
+		Set ProductOpPallet.Langtekst = Product.GeefLangtekst("N")
 		Set ProductOpPallet.MagazijnOmschrijving = ##class(Prod.Product).GetMagViaOpslagzone(ResultSet.Data("loc_m"))
 		Set ProductOpPallet.AantalSecties = ResultSet.Data("AantalSecties")
 		Do ProductenOpPallet.Insert(ProductOpPallet)
@@ -425,7 +397,6 @@
 			Else
 			{
 				Set Result = "Palletten opvragen is niet mogelijk vanop deze server" 
-				; [RV-JCL] : andere manier gebruiken .. code zal altijd falen op test-server
 			}
 		}
 	}