Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightService.cls.xml
===================================================================
diff -u -r37196 -r37350
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightService.cls.xml	(.../BijladenPickToLightService.cls.xml)	(revision 37196)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightService.cls.xml	(.../BijladenPickToLightService.cls.xml)	(revision 37350)
@@ -3,12 +3,110 @@
 <Class name="WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.BijladenPickToLightService">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductApi = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefLocatie">
 <FormalSpec>Id:TECH.String</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	Quit "Een locatie"
+<Implementation><![CDATA[
+	#dim Locatie As TECH.String = ""
+	
+
+	Do ##class(Tools.Wlip).%New(42).ScheidingsLijn()
+	
+	Do ..LoopDoorNodes(Id)
+	//Do ..GeefLocatieVoorProduct(685060)	
+
+	Quit Locatie
 ]]></Implementation>
 </Method>
+
+<Method name="LoopDoorNodes">
+<FormalSpec>Id:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (##class(TECH.StringUtils).StartsWith(Id, "MVI")) {
+		#dim BarCode As TECH.String = ##class(TECH.StringUtils).StripFirstPart(Id, "MVI")		
+		Do ##class(Tools.Wlip).%New(42).String("Gescande barcode:" _ BarCode)
+
+		Set Data = "qsdf"
+		
+		#dim Counter As TECH.Integer = 0
+		
+		While $$$Not(Data = "") {
+			Set Counter = Counter + 1
+			
+			Set Data = $Order(^KPR(Counter))
+			
+			If ($data(^KPR(Counter, 2))) {
+				If $$$Not($piece(^KPR(Counter, 2), "\", 14) = "") {
+					If ($piece(^KPR(Counter, 2), "\", 14) = BarCode) {
+						Do ##class(Tools.Wlip).%New(42).String("############### " _ Counter _ ": " _ ^KPR(Counter, 2))
+						
+						Do ..GeefLocatieVoorProduct(Counter)	
+					}
+				}
+			}			
+		}
+		
+		Do ##class(Tools.Wlip).%New(42).String("END")
+
+	}
+	
+	Quit "afgelopen"
+]]></Implementation>
+</Method>
+
+<Method name="GeefLocatieVoorIdentNummer">
+<FormalSpec>IdentNummer:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(Prod.Product).IdentNrToPRNr()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLocatieVoorProduct">
+<FormalSpec>ProductId:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(ProductId)
+	
+	Do ##class(Tools.Wlip).%New(42).String("------------------------------------")
+	
+	Do ##class(Tools.Wlip).%New(42).String("korttekst:" _ Product.GeefKorttekst())
+	Do ##class(Tools.Wlip).%New(42).String("identnr: " _ Product.GeefIdentNr())
+	Do ##class(Tools.Wlip).%New(42).String("id: " _ Product.GeefID())
+	
+	#dim Iterator As TECH.Iterator = Product.GeefKindBouwstenenIterator()
+
+	While (Iterator.HasNext()) {
+		#dim BouwSteen As DOM.PM.Bouwstenen.BouwsteenKind = Iterator.Next()
+		#dim IdentNummer As TECH.String = BouwSteen.KindProduct.IdentNummer
+		#dim ProductNummer As TECH.String = ##class(Prod.Product).IdentNrToPRNr(IdentNummer)
+		
+		Do ##class(Tools.Wlip).%New(42).String("KindBouwSteen identnr:" _ IdentNummer)
+		Do ##class(Tools.Wlip).%New(42).String("KindBouwSteen productnr:" _ ProductNummer)
+	}		
+
+	Quit "locatie voor ProductId"
+]]></Implementation>
+</Method>
 </Class>