Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/PCDataPickingOnderdelen/IN/222222.pic
===================================================================
diff -u -r70836 -r70842
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/PCDataPickingOnderdelen/IN/222222.pic	(.../222222.pic)	(revision 70836)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/PCDataPickingOnderdelen/IN/222222.pic	(.../222222.pic)	(revision 70842)
@@ -1,4 +1,4 @@
 P|222222|222222|L 1 5000|0x0412|12|0|0||07054881|ZF7M70E2   FROB  V500  ZN|C Q|||||
+P|222222|222222|L 1 5000|0x040E|6|0|0||08811543|ZA7.0700.BTABD  V1000OG-M||||||
 P|222222|222222|L 1 5000|0x0212|3|0|0||04829329|750.4001S  K LI   V12  ZN||||||
 P|222222|222222|L 1 5000|0x0213|3|0|0||04853683|750.4001S  K RE   V12  ZN||||||
-P|222222|222222|L 1 5000|0x042D|1|0|0||ZONDERLOC|Zonder vaste locatie||||||
Index: APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml
===================================================================
diff -u -r69701 -r70842
--- APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml	(.../HalffabItemNaarUitvoeringInfoVisitor.cls.xml)	(revision 69701)
+++ APPS/Halux/PPS/Activiteit/impl/common/OnderdelenPicking/HalffabItemNaarUitvoeringInfoVisitor.cls.xml	(.../HalffabItemNaarUitvoeringInfoVisitor.cls.xml)	(revision 70842)
@@ -44,6 +44,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="ToeleveringID">
+<Type>%String</Type>
+</Property>
+
 <Property name="ToonInbegrepenHalffabItemBepaler">
 <Type>APPS.Halux.PPS.Activiteit.impl.common.OnderdelenPicking.ToonInbegrepenHalffabItemBepaler</Type>
 <Private>1</Private>
@@ -108,6 +112,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefToeleveringID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ToeleveringID
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBewerktHalffabItem">
 <FormalSpec>Item:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem</FormalSpec>
 <ReturnType>%Status</ReturnType>
Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml
===================================================================
diff -u -r70592 -r70842
--- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 70592)
+++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 70842)
@@ -177,6 +177,7 @@
 		#dim GesorteerdeUitvoeringInfoIterator As TECH.Iterator = GesorteerdeOnderdeelPickingsVoor1Toelevering.GeefKindIterator()	
 		#dim IsProductiegroepProbox As %Boolean = (Productiegroep = ##class(APPS.Halux.common.enu.ProductieGroep).Probox())
 		#dim IsProductiegroepFlatackV1 As %Boolean = (Productiegroep = ##class(APPS.Halux.common.enu.ProductieGroep).FlatpackV1())
+		#dim IsProductiegroepV1 As %Boolean = (Productiegroep = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk())
 		
 		If ((Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) && (IsProductiegroepProbox || IsProductiegroepFlatackV1)) {
 			Set GesorteerdeUitvoeringInfoIterator =  ..GeefAlleProductenMetSamengeteldeGeleiders(GesorteerdeUitvoeringInfoIterator)
@@ -192,8 +193,19 @@
 			If (..IsBatchEnkelVoorDKG()) {
 				Set GesorteerdeUitvoeringInfoIterator =  ..GeefAlleProductenBehalveNietZichtbaarVoorDKG(GesorteerdeUitvoeringInfoIterator)
 			}
+			
+			If $$$Not(IsProductiegroepV1) {
+				Set GesorteerdeUitvoeringInfoIterator =  ..GeefAlleProductenMetSamengeteldeAfdekkappenBinnenEnBuitenkant(GesorteerdeUitvoeringInfoIterator, "MVX")
+			}
 		} 
 		
+		If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) {
+			If $$$Not(IsProductiegroepV1) {
+				Set GesorteerdeUitvoeringInfoIterator =  ..GeefAlleProductenMetSamengeteldeAfdekkappenBinnenEnBuitenkant(GesorteerdeUitvoeringInfoIterator, "LBX")
+			}
+			
+		}
+		
 		While GesorteerdeUitvoeringInfoIterator.HasNext() {
 			#dim DataVoorLijn As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = GesorteerdeUitvoeringInfoIterator.Next()	
 			#dim IsTussenlijnNodig As %Boolean = ..IsTussenlijnNodig(DataVoorVorigeLijn,DataVoorLijn)
@@ -360,6 +372,156 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAlleProductenMetSamengeteldeAfdekkappenBinnenEnBuitenkant">
+<FormalSpec>GesorteerdeUitvoeringInfoIterator:TECH.Iterator,Variant:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set SamengesteldeLijst = ##class(%ListOfObjects).%New()
+	#dim Product, OorspronkelijkProduct As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop
+	#dim SequentieNummerProduct, SequentieNummerOorspronkelijkProduct As %Integer
+	#dim RolOmschrijving, LadeHoogte, LadeKleur, TeGebruikenProductId, KlantID As TECH.String
+
+	While GesorteerdeUitvoeringInfoIterator.HasNext() {
+		Set Product = GesorteerdeUitvoeringInfoIterator.Next()
+		If ..IsAfdekkapBinnenOfBuitenkant(Product) {
+			Set RolOmschrijving = Product.HFV.GeefOmschrijving()
+			Set TeGebruikenProductId = Product.HFV.GeefProductID()
+			If (##class(TECH.StringUtils).Contains(RolOmschrijving,"(uit V1 ladezijkant)")) {
+				Set LadeHoogte = $Extract(Product.HFV.GeefKorttekst(), 5, 5)
+				If $$$Not(LadeHoogte = "N") {				
+					Set RolOmschrijving = $Piece(RolOmschrijving, "(", 1) //deel tussen haakjes wegdoen
+					
+					Set LadeKleur = $Extract(Product.HFV.GeefKorttekst(), 23, 26)
+					Set KlantID = $Piece(##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(Product.HFV.GeefToeleveringID()).GeefKlantID(), "K||",2)
+					If (##class(TECH.StringUtils).Contains(RolOmschrijving,"buitenkant")) {
+						Set TeGebruikenProductId = ..GeefAfdekkapBuiten(Variant, LadeKleur, KlantID)
+					} Else {
+						Set TeGebruikenProductId = ..GeefAfdekkapBinnen(Variant, LadeHoogte, LadeKleur, KlantID)
+					}
+				}
+			}
+			Set Product.HFV.Aantal = Product.HFV.Aantal
+			Set Product.HFV.Omschrijving = RolOmschrijving
+			Set Product.HFV.ProductID = TeGebruikenProductId
+			Set Product.HFV.Korttekst = ..GeefKorttekstVanProduct(TeGebruikenProductId)
+		}
+		
+		Do SamengesteldeLijst.Insert(Product)	
+	}
+	
+	#dim SamengesteldeLijstIterator AS TECH.Iterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
+	
+	Set GesorteerdeUitvoeringInfoIterator = ..TelAfdekkappenBinnenEnBuitenkantSamen(SamengesteldeLijstIterator)
+	Quit GesorteerdeUitvoeringInfoIterator
+]]></Implementation>
+</Method>
+
+<Method name="TelAfdekkappenBinnenEnBuitenkantSamen">
+<FormalSpec>GesorteerdeUitvoeringInfoIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set SamengesteldeLijst = ##class(%ListOfObjects).%New()
+	#dim SamengesteldeLijstIterator AS TECH.Iterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
+	#dim Product, OorspronkelijkProduct As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop
+	#dim SequentieNummerProduct, SequentieNummerOorspronkelijkProduct As %Integer
+	#dim OvereenkomstigeGevonden As %Boolean
+	
+	While GesorteerdeUitvoeringInfoIterator.HasNext() {
+		Set OorspronkelijkProduct = GesorteerdeUitvoeringInfoIterator.Next()
+		Set OvereenkomstigeGevonden = $$$False
+		While (SamengesteldeLijstIterator.HasNext() && $$$Not(OvereenkomstigeGevonden)) {
+			Set Product = SamengesteldeLijstIterator.Next()
+			If (..IsAfdekkapBinnenOfBuitenkant(Product)) && (..IsProductIdIdentiek(Product, OorspronkelijkProduct)) {
+				Set Product.HFV.Aantal = Product.HFV.Aantal + OorspronkelijkProduct.HFV.Aantal				
+				Set OvereenkomstigeGevonden = $$$True
+			}		
+		}
+		If ((SamengesteldeLijst.Count() = 0) || $$$Not(OvereenkomstigeGevonden)) {
+			Do SamengesteldeLijst.Insert(OorspronkelijkProduct)
+		}
+		Do SamengesteldeLijstIterator.Reset()
+	}
+	
+	If SamengesteldeLijst.Count() > 0  {
+		Set GesorteerdeUitvoeringInfoIterator = SamengesteldeLijstIterator
+	} Else {
+		Do GesorteerdeUitvoeringInfoIterator.Reset()
+	}
+	
+	Quit GesorteerdeUitvoeringInfoIterator
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfdekkapBinnen">
+<FormalSpec>Variant:%String,LadeHoogte:%String,Kleur:%String,KlantID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim PRNrAfdekkap As %String
+	#dim Datum = ##class(TECH.DateTime).%New().CurrentDateVoorQueries()
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName("DOM.PM.Maatwerk.Calc.HF.impl."_Variant_".Halffab.HalffabAfdekkapBinnen")
+	#dim SqlStatement As TECH.String = "SELECT ProductID FROM " _SqlTableName _" WHERE " _"(GeldigTot >= '"_Datum_"' or GeldigTot is null) and (GeldigVan <= '"_Datum_"' or GeldigVan is null) and LadeKleur = '"_Kleur_"' and LadeHoogte = '"_LadeHoogte_"' and Klantbeperking = '"_KlantID_"'"
+	
+	#dim QueryAPI As TECH.Query.QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement, $LB()))
+
+	If ResultSet.Next() {
+		Set PRNrAfdekkap = ResultSet.GetData(1)
+	} Else {
+		Set SqlStatement = "SELECT ProductID FROM " _SqlTableName _" WHERE " _"(GeldigTot >= '"_Datum_"' or GeldigTot is null) and (GeldigVan <= '"_Datum_"' or GeldigVan is null) and LadeKleur = '"_Kleur_"' and LadeHoogte = '"_LadeHoogte_"' and Klantbeperking is null"
+		Set ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement, $LB()))
+		If ResultSet.Next() {
+			Set PRNrAfdekkap = ResultSet.GetData(1)
+		} Else {
+			Do ##class(TECH.Exceptions.DataNotFoundException).Throw("Geen data gevonden voor "_SqlStatement_".")
+		}
+	}
+	
+	Quit PRNrAfdekkap
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfdekkapBuiten">
+<FormalSpec>Variant:%String,Kleur:%String,KlantID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim PRNrAfdekkap As %String
+	#dim Datum = ##class(TECH.DateTime).%New().CurrentDateVoorQueries()
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName("DOM.PM.Maatwerk.Calc.HF.impl."_Variant_".Halffab.HalffabAfdekkapBuiten")
+	#dim SqlStatement As TECH.String = "SELECT ProductID FROM " _SqlTableName _" WHERE " _"(GeldigTot >= '"_Datum_"' or GeldigTot is null) and (GeldigVan <= '"_Datum_"' or GeldigVan is null) and LadeKleur = '"_Kleur_"' and Klantbeperking = '"_KlantID_"'"
+	
+	#dim QueryAPI As TECH.Query.QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement, $LB()))
+
+	If ResultSet.Next() {
+		Set PRNrAfdekkap = ResultSet.GetData(1)
+	} Else {
+		Set SqlStatement = "SELECT ProductID FROM " _SqlTableName _" WHERE " _"(GeldigTot >= '"_Datum_"' or GeldigTot is null) and (GeldigVan <= '"_Datum_"' or GeldigVan is null) and LadeKleur = '"_Kleur_"' and Klantbeperking is null"
+		Set ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement, $LB()))
+		If ResultSet.Next() {
+			Set PRNrAfdekkap = ResultSet.GetData(1)
+		} Else {
+			Do ##class(TECH.Exceptions.DataNotFoundException).Throw("Geen data gevonden voor "_SqlStatement_".")
+		}
+	}
+	
+	Quit PRNrAfdekkap
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekstVanProduct">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim DataMProduct As DOM.PM.impl.DataM.DataMProduct = ##class(DOM.PM.impl.DataM.DataMProduct).%New()
+	Do DataMProduct.Open(ProductID)
+	
+	Quit DataMProduct.GeefKorttekst()
+]]></Implementation>
+</Method>
+
 <Method name="IsTAXGeleider">
 <FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
 <Private>1</Private>
@@ -379,6 +541,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsAfdekkapBinnenOfBuitenkant">
+<FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim RolOmschrijving As TECH.String = $Piece(Product.HFV.GeefOmschrijving(), ", ", 1)
+	
+	Quit (##class(TECH.StringUtils).Contains(RolOmschrijving, "Afdekkap buitenkant")) || (##class(TECH.StringUtils).Contains(RolOmschrijving, "Afdekkap binnenkant"))
+]]></Implementation>
+</Method>
+
 <Method name="IsKorttekstIdentiek">
 <FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,OorspronkelijkProduct:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
 <Private>1</Private>
@@ -395,6 +568,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsProductIdIdentiek">
+<FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,OorspronkelijkProduct:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (Product.HFV.GeefProductID() = OorspronkelijkProduct.HFV.GeefProductID())
+]]></Implementation>
+</Method>
+
 <Method name="GeefSequentieNummer">
 <FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
 <Private>1</Private>
@@ -525,6 +706,7 @@
 			While HalffabItemsVoorKnoopIt.HasNext(){
 				#dim HalffabItemVoorKnoop As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsVoorKnoopIt.Next()
 				#dim OnderdeelPickingBinaireKnoop As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = ..GeefOnderdeelPickingBinaireKnoop(HalffabItemVoorKnoop,UitvoeringInfo)
+				Set OnderdeelPickingBinaireKnoop.HFV.ToeleveringID = ToeleveringID
 				If 'GesorteerdeOnderdeelPickingsPerToelevering.IsDefined(ToeleveringID){
 					Do GesorteerdeOnderdeelPickingsPerToelevering.SetAt(OnderdeelPickingBinaireKnoop,ToeleveringID)
 					Do ..ToeleveringSequentie.Insert(ToeleveringID)
Index: APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml
===================================================================
diff -u -r70836 -r70842
--- APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml	(.../PickingOnderdelen.cls.xml)	(revision 70836)
+++ APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml	(.../PickingOnderdelen.cls.xml)	(revision 70842)
@@ -153,6 +153,7 @@
 			If $$$Not(PCDataLocatie = "") && $$$Not(HalffabIsBewerkt) {
 				Do ..FileWriter.WriteLine("P" _"|"_ ToeleveringID _"|"_ BoxBarcode _"|"_ OrderDesc _"|"_ PCDataLocatie _"|"_ Aantal _"|"_ PickedAmount _"|"_ PackAmount _"|"_ SourceEmpty _"|"_ OBJTIdentNr _"|"_ KortTekst _"|"_ HLXLocatie _"|"_ UserField2 _"|"_ UserField3 _"|"_ UserField4 _"|"_UserField5 _"|"_ UserField6)
 			} Else {
+				Do ..Logger.Info("Onbekende locatie", "Product '" _ IdentNr _"' heeft geen gekende PCData locatie.")
 				Set AantalVerschillendeProductenZonderLocatie = AantalVerschillendeProductenZonderLocatie + 1
 			}
 		}
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX productie_003_LBX_OnderdelenPickingLijst.txt
===================================================================
diff -u -r68352 -r70842
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX productie_003_LBX_OnderdelenPickingLijst.txt	(.../LBX productie_003_LBX_OnderdelenPickingLijst.txt)	(revision 68352)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Legrabox.Aansturing/TestLBXFree/StartBatch/LBX productie_003_LBX_OnderdelenPickingLijst.txt	(.../LBX productie_003_LBX_OnderdelenPickingLijst.txt)	(revision 70842)
@@ -8,9 +8,8 @@
     --------------------------------|--------------------------|----|------
     Frontbevestiging, M, EXPANDO    |ZF7M70E2   FROB  V500  ZN | 12 |       |
                                     |                          |    |       |
-    Afdekkap buitenkant,            |*780C4002S  Z R+L  V1 OG- |  6 |       |
-    Oriongrijs (uit V1              |                          |    |       |
-    ladezijkant)                    |                          |    |       |
+    Afdekkap buitenkant,            |ZA7.0700.BTABD  V1000OG-M |  6 |       |
+    Oriongrijs                      |                          |    |       |
                                     |                          |    |       |
     Geleider, 400mm, 40kg, Links    |750.4001S  K LI   V12  ZN |  3 |       |
                                     |                          |    |       |