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
-