Index: APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking.cls.xml =================================================================== diff -u -r68750 -r72741 --- APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking.cls.xml (.../OnderdelenPicking.cls.xml) (revision 68750) +++ APPS/Halux/PPS/Document/impl/TAX/OnderdelenPicking.cls.xml (.../OnderdelenPicking.cls.xml) (revision 72741) @@ -13,16 +13,21 @@ 2 - + %Integer 3 - + %Integer 4 + +%Integer +5 + + %String \ @@ -113,7 +118,6 @@ 1 @@ -152,11 +158,11 @@ -Wortel:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,Categorie:APPS.Halux.common.enu.Categorie="",Productiegroep:APPS.Halux.common.enu.ProductieGroep="" +Wortel:APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop,Categorie:APPS.Halux.common.enu.Categorie="",Productiegroep:APPS.Halux.common.enu.ProductieGroep="",ToeleveringIDVoorPCDataOnderdelenPickingDocument:%Integer=0 1 @@ -185,7 +191,7 @@ #dim Omschrijving = DataVoorLijn.HFV.GeefOmschrijving() #dim OmschrijvingWordWrappedLijst As %ListOfDataTypes = ##class(TECH.StringUtils).WordWrap(Omschrijving, EersteKolomBreedte) - If ((DataVoorLijn.HFV.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder()) && (##class(TECH.StringUtils).Contains(DataVoorLijn.HFV.GeefOmschrijving(), "60kg"))) { + If ((DataVoorLijn.HFV.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder()) && (##class(TECH.StringUtils).Contains(DataVoorLijn.HFV.GeefOmschrijving(), "60kg", "70kg"))) { Set OmschrijvingWordWrappedLijst = ..OmschrijvingFormatter.GeefGeformatteerdeOmschrijving(OmschrijvingWordWrappedLijst) } @@ -234,10 +240,11 @@ #dim OPVoorEenProductLijst As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoLijst = OnderdelenPickingen.Next() If ..HeeftItems(OPVoorEenProductLijst) { #dim OPEenProduct As APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfo = OPVoorEenProductLijst.GetAt(1) - Set Lijn = ##class(TECH.StringUtils).AddLeadingChar("",..#Delimiter,4)_OPEenProduct.DossierCode_" "_OPVoorEenProductLijst.Count() + Set Lijn = ##class(TECH.StringUtils).AddLeadingChar("",..#Delimiter,5)_OPEenProduct.DossierCode_" "_OPVoorEenProductLijst.Count() If ($$$HasLength(DataVoorLijn.HFV.GeefLengte()) || VermeldKorttekst) && EersteLijnProduct { Set $Piece(Lijn,..#Delimiter,..#PosAantal) = DataVoorLijn.HFV.GeefAantal() Set $Piece(Lijn,..#Delimiter,..#PosLengte) = DataVoorLijn.HFV.GeefLengte() + Set $Piece(Lijn,..#Delimiter,..#PosLocatie) = DataVoorLijn.HFV.GeefLocatie() Set EersteLijnProduct = 0 } If VermeldKorttekst { // Op de eerste lijn van het Halffab staat soms de korttekst. @@ -254,7 +261,7 @@ 1 Lijn:%String 1 %Boolean -