Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml
===================================================================
diff -u -r70541 -r74557
--- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 70541)
+++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 74557)
@@ -177,13 +177,10 @@
 		#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)) {
+		If ((Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox())&& (IsProductiegroepProbox || IsProductiegroepFlatackV1)) {
 			Set GesorteerdeUitvoeringInfoIterator =  ..GeefAlleProductenMetSamengeteldeGeleiders(GesorteerdeUitvoeringInfoIterator)
-			
-			If (IsProductiegroepProbox) {
-				Set GesorteerdeUitvoeringInfoIterator =  ..GeefAlleProductenBehalveBodemplatenIterator(GesorteerdeUitvoeringInfoIterator)			//Bodemplaten horen niet thuis op een pickinglijst
-			}
 		} 
 		
 		If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()) {
@@ -192,8 +189,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)
@@ -203,7 +211,11 @@
 			#dim VermeldOmschrijvingEnKorttekst As %Boolean = ('$IsObject(DataVoorVorigeLijn) || IsTussenlijnNodig)
 			Do ..VoegToeItem(DataVoorLijn,VermeldOmschrijvingEnKorttekst)
 			
-			If ((ToeleveringIDVoorPCDataOnderdelenPickingDocument > 0) && (##class(TECH.StringUtils).Equals(..Batch.GeefCategorie(), ##class(APPS.Halux.common.enu.Categorie).TAORbox(), ##class(APPS.Halux.common.enu.Categorie).Legrabox()))) {
+			#dim MesFaseActief As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase")
+			#dim MagDocumentVoorLBX As %Boolean = (..Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) && (MesFaseActief < 2)
+			#dim MagDocumentVoorTAX As %Boolean = (..Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox())
+			
+			If ((ToeleveringIDVoorPCDataOnderdelenPickingDocument > 0) && (MagDocumentVoorLBX || MagDocumentVoorTAX)) {
 				Do ..ZetDataVoorPCDataOnderdelenPickingDocument(DataVoorLijn, ToeleveringIDVoorPCDataOnderdelenPickingDocument)
 			}
 			Set DataVoorVorigeLijn = DataVoorLijn
@@ -218,7 +230,13 @@
 
 <Method name="ZetDataVoorPCDataOnderdelenPickingDocument">
 <FormalSpec>DataVoorLijn:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,ToeleveringIDVoorPCDataOnderdelenPickingDocument:%Integer</FormalSpec>
-<Implementation><![CDATA[	Set ^PCDataOnderdelenPickingDocument(ToeleveringIDVoorPCDataOnderdelenPickingDocument, DataVoorLijn.HFV.GeefProductID()) = DataVoorLijn.HFV.GeefAantal()
+<Implementation><![CDATA[
+	//Opvullijst is een speciaal geval, het is altijd een bewerkthalffabitemm ookal is het niet bewerkt, daarom zal het veldje lengte altijd ingevuld zijn
+	#dim HeeftBewerkingen As %Boolean = ($$$Not(DataVoorLijn.HFV.GeefLengte() = "") && ($$$Not((DataVoorLijn.HFV.GeefRol() = "Opvullijst") && (DataVoorLijn.HFV.GeefLengte() = 486))))
+	#dim EerderToegekendAantal As %Integer = 0
+	Set EerderToegekendAantal = $Get(^PCDataOnderdelenPickingDocument(ToeleveringIDVoorPCDataOnderdelenPickingDocument, HeeftBewerkingen, DataVoorLijn.HFV.GeefProductID()))
+	
+	Set ^PCDataOnderdelenPickingDocument(ToeleveringIDVoorPCDataOnderdelenPickingDocument, HeeftBewerkingen, DataVoorLijn.HFV.GeefProductID()) = (EerderToegekendAantal + DataVoorLijn.HFV.GeefAantal())
 ]]></Implementation>
 </Method>
 
@@ -252,25 +270,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAlleProductenBehalveBodemplatenIterator">
-<FormalSpec>GesorteerdeUitvoeringInfoIterator:TECH.Iterator</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[
-	#dim Product As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop
-	Set NieuweLijst = ##class(%ListOfObjects).%New()
-	
-	While GesorteerdeUitvoeringInfoIterator.HasNext() {
-		Set Product = GesorteerdeUitvoeringInfoIterator.Next()
-		If $$$Not(##class(TECH.StringUtils).StartsWith(Product.HFV.GeefOmschrijving(), "Bodemplaat")) {
-			Do NieuweLijst.Insert(Product)
-		}
-	}
-	
-	Quit ##class(TECH.ListIterator).%New(NieuweLijst)
-]]></Implementation>
-</Method>
-
 <Method name="GeefAlleProductenMetSamengeteldeGeleiders">
 <FormalSpec>GesorteerdeUitvoeringInfoIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
@@ -357,6 +356,160 @@
 ]]></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)			
+				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.Omschrijving = RolOmschrijving
+			Set Product.HFV.ProductID = TeGebruikenProductId
+			Set Product.HFV.Korttekst = ..GeefKorttekstVanProduct(TeGebruikenProductId)
+			
+			Set Prod = ##class(Prod.Product).%OpenId(TeGebruikenProductId)
+			If (Prod.CycleCountTypeWMS = "") {
+				Set Product.HFV.Locatie = "XXX"	
+			} Else {
+				Set Product.HFV.Locatie = ""	
+			}
+		}
+		
+		Do SamengesteldeLijst.Insert(Product)	
+	}
+	
+	#dim SamengesteldeLijstIterator AS TECH.Iterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
+	Set GesorteerdeUitvoeringInfoIterator = ..GroepeerNietBewerkteIdentiekeProducten(SamengesteldeLijstIterator)
+	
+	Quit GesorteerdeUitvoeringInfoIterator
+]]></Implementation>
+</Method>
+
+<Method name="GroepeerNietBewerkteIdentiekeProducten">
+<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 (..IsProductIdIdentiekEnNietBewerktProduct(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>
@@ -376,6 +529,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>
@@ -392,6 +556,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsProductIdIdentiekEnNietBewerktProduct">
+<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()) && (Product.HFV.GeefLengte() = "") && (OorspronkelijkProduct.HFV.GeefLengte() = ""))
+]]></Implementation>
+</Method>
+
 <Method name="GeefSequentieNummer">
 <FormalSpec>Product:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop</FormalSpec>
 <Private>1</Private>
@@ -522,6 +694,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)