Index: APPS/MAG/InventarisService.cls.xml
===================================================================
diff -u -r1981 -r1986
--- APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1981)
+++ APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1986)
@@ -5,6 +5,34 @@
 <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>
@@ -41,11 +69,11 @@
 		}
 	}
 	
-	If ($LI(Result) < 0)
+	If ($LI(Result) < 0)  
 	{
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New($LI(Result,2)))
 	}
-	If (AantalOpBronPallet < AantalBijTeLaden)
+	If (AantalOpBronPallet < AantalBijTeLaden) 
 	{
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Bijladen  van "_AantalBijTeLaden_" producten is niet mogelijk, max "_AantalOpBronPallet_" mogelijk."))
 	}
@@ -79,6 +107,7 @@
 		Set BijladenInfo.DoelPalletStatus = ##class(APPS.MAG.Inventaris.enu.BijladenDoelPalletStatus).PalletEnSectieBestaat()
 	}
 	
+
 	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)
 	
 	Set GrootVerpakking = ##class(APPS.MAG.Inventaris.dto.BijladenVanVerpakking).%New()
@@ -121,12 +150,13 @@
 	Set BijladenUitgevoerd.BronPalletKanTerugAutoMagazijn = 0
 	
 	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 = ?")
 	
+	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
+		
 	Set Result = $LB()
 	If (##class(EWMS.ToReceive).PalletIsInToReceive(BronPalletID))
 	{
-		Do DoelResultSet.Execute(DoelPalletID, ProductID)
+		Do DoelResultSet.Execute(DoelPalletID, ProductID) 
 		If (DoelResultSet.Next())
 		{
 			Set DoelLocatie = $LB(DoelResultSet.Data("loc_m"),DoelResultSet.Data("loc_g"),DoelResultSet.Data("loc_x"),DoelResultSet.Data("loc_y"),DoelResultSet.Data("loc_z"))
@@ -215,7 +245,7 @@
 	{
 		If (##class(BL.MB.UGLYPicking.General).LocMIsInTransit(ResultSet.Data("loc_m")))
 		{
-			Set Result = ##class(EWMS.Carriers).SetLocMViaPalletID(PalletID,1)
+			Set Result = ##class(EWMS.Carriers).SetLocMViaPalletID(PalletID,1) ; [RV-JCL] : '1' ??? enu ??
 			If (Result '= "")
 			{
 				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kon het magazijn niet veranderen van pallet "_PalletID_": "_Result))
@@ -278,7 +308,7 @@
 		Set ProductOpPallet.PalletID = PalletID
 		Set ProductOpPallet.LocatieID = ResultSet.Data("LocatieID")
 		Set ProductOpPallet.Korttekst = Product.GeefKorttekst()
-		Set ProductOpPallet.Langtekst = Product.GeefLangtekst("N")
+		Set ProductOpPallet.Langtekst = Product.GeefLangtekst("N") ; [RV-JCL] : taal van de gebruiker ophalen via één of andere context ipv hardcoded.
 		Set ProductOpPallet.MagazijnOmschrijving = ##class(Prod.Product).GetMagViaOpslagzone(ResultSet.Data("loc_m"))
 		Set ProductOpPallet.AantalSecties = ResultSet.Data("AantalSecties")
 		Do ProductenOpPallet.Insert(ProductOpPallet)
@@ -308,6 +338,7 @@
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	
 	Set ResultSet = ##class(%ResultSet).%New()
+	
 	Do ResultSet.Prepare("SELECT CAST(qty_pcs AS INT) as Aantal, I.loc_id As PalletID, I.loc_m, (SELECT count(1) FROM EWMS.Inventory WHERE loc_id = I.loc_id GROUP BY loc_id) as AantalSecties, T.Loc_Trans As LocatieID"
 							_" FROM EWMS.Inventory I"
 							_" JOIN EWMS.Locations L ON I.loc_m = L.loc_m and I.loc_id = L.loc_id"
@@ -323,7 +354,7 @@
 		Set ProductOpPallet.PalletID = ResultSet.Data("PalletID")
 		Set ProductOpPallet.LocatieID = ResultSet.Data("LocatieID")
 		Set ProductOpPallet.Korttekst = Product.GeefKorttekst()
-		Set ProductOpPallet.Langtekst = Product.GeefLangtekst()
+		Set ProductOpPallet.Langtekst = Product.GeefLangtekst() ; [RV-JCL] : waar is taal van gebruiker ???? zie bovenstaande method  ??
 		Set ProductOpPallet.MagazijnOmschrijving = ##class(Prod.Product).GetMagViaOpslagzone(ResultSet.Data("loc_m"))
 		Set ProductOpPallet.AantalSecties = ResultSet.Data("AantalSecties")
 		Do ProductenOpPallet.Insert(ProductOpPallet)
@@ -393,7 +424,8 @@
 			}
 			Else
 			{
-				Set Result = "Palletten opvragen is niet mogelijk vanop deze server"
+				Set Result = "Palletten opvragen is niet mogelijk vanop deze server" 
+				; [RV-JCL] : andere manier gebruiken .. code zal altijd falen op test-server
 			}
 		}
 	}