Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladInhoudBuilderTemplate.cls.xml
===================================================================
diff -u -r66641 -r66658
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladInhoudBuilderTemplate.cls.xml (.../BladInhoudBuilderTemplate.cls.xml) (revision 66641)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/BladInhoudBuilderTemplate.cls.xml (.../BladInhoudBuilderTemplate.cls.xml) (revision 66658)
@@ -212,7 +212,7 @@
OmschrijvingRol:%String
1
%Boolean
-
Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml
===================================================================
diff -u -r66651 -r66658
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml (.../Inhoud.cls.xml) (revision 66651)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml (.../Inhoud.cls.xml) (revision 66658)
@@ -320,7 +320,7 @@
Set DetailLijn = ProdDetailLijnOuterDynamicIterator.Next()
If ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,8) = "Geleider") { Do BoldBepaler.ZetBoldKaraktersVoorTbxGeleiders(DetailLijn) }
ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,11) = "Bodemstrook") { Do BoldBepaler.ZetBoldKaraktersVoorTbxBodem(DetailLijn) }
- ElseIf (DetailLijn.GeefOmschrijving().GeefTekst() = "Boring voor verbinding rug met bodem") { Do BoldBepaler.ZetBoldKaraktersVoorTbxHoutSchroef(DetailLijn) }
+ ElseIf (DetailLijn.GeefOmschrijving().GeefTekst() = "Boring voor verbinding rug met bodem") { Do DetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New("")) }
ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,11) = "Ladezijkant") { Do BoldBepaler.ZetBoldKaraktersVoorTbxLadeZijkant(DetailLijn) }
ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,5) = "Greep") { Do BoldBepaler.ZetBoldKaraktersVoorTbxGreep(DetailLijn) }
ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,10) = "Stalen rug") { Do BoldBepaler.ZetBoldKaraktersVoorTbxStalenRug(DetailLijn) }
Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/DetailBladGroepenBepaler.cls.xml
===================================================================
diff -u -r66626 -r66658
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/DetailBladGroepenBepaler.cls.xml (.../DetailBladGroepenBepaler.cls.xml) (revision 66626)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/DetailBladGroepenBepaler.cls.xml (.../DetailBladGroepenBepaler.cls.xml) (revision 66658)
@@ -60,9 +60,6 @@
ElseIf ##class(TECH.StringUtils).StartsWith(Rol,##class(DOM.PM.enu.Variant).LogicalToDisplay(##class(DOM.PM.enu.Variant).MatStandaard())) { Set GroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Eindmontage() }
ElseIf ##class(TECH.StringUtils).StartsWith(Rol,##class(DOM.PM.enu.Variant).MatStandaard()_ "_" _##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX()) { Set GroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Eindmontage() }
ElseIf ##class(TECH.StringUtils).StartsWith(Rol,(##class(DOM.PM.enu.Variant).LogicalToDisplay(##class(DOM.PM.enu.Variant).MatStandaard()_##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX()))) { Set GroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Eindmontage() }
- ;ElseIf Rol [ "Wikkel" { Set GroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Verpakking() }
- ;ElseIf Rol [ "onderdelendoos" { Set GroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Verpakking() }
- ;ElseIf Rol [ "V1 " { Set GroepNaam="VERPAKKING" }
Else { Set GroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).NotCategorized() }
Quit GroepNaam
Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml
===================================================================
diff -u -r66656 -r66658
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml (.../BladInhoudBuilderNieuweBomBol.cls.xml) (revision 66656)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml (.../BladInhoudBuilderNieuweBomBol.cls.xml) (revision 66658)
@@ -33,7 +33,7 @@
#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ..Product.GeefIngegevenKenmerken()
#dim Titel As %String = "TandemBOX"
- If ##class(TECH.StringUtils).Equals(IngegevenKenmerken.VerpakkingType, ##class(DOM.PM.enu.TBXVerpakkingType).Probox()) {
+ If $$$Not(IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).V1()) {
Set Titel = Titel_ " pro"
}
@@ -120,14 +120,17 @@
If (HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).LadeZijkant())) {
#dim LadeZijkantLinks As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).LadeZijkant() _ "->Links")
- If (LadeZijkantLinks.GeefRol() = ##class(DOM.PM.enu.LiRe).LinksRechts()) {
+ If ##class(TECH.StringUtils).Contains(LadeZijkantLinks.GeefOmschrijvingVoorDocs(), "LinksRechts") {
Set PDBGroepNaam = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.LayoutGroepen).Onderdelen2()
- Set ProductDetailDataLijn = ..MaakDataLijn("V1->Positioneringsdeel vr T-box-zijkant 'K'", "", "2st","")
- Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn)
-
- Set ProductDetailDataLijn = ..MaakDataLijn("V1->Afdekkappen meeleveren LI+RE, bruinzwart", "", "","")
- Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn)
+ If (IngegevenKenmerken.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijwandHoogte).K()) {
+ Set ProductDetailDataLijn = ..MaakDataLijn("V1->Positioneringsdeel vr T-box-zijkant 'K'", "", "2st","")
+ Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn)
+ }
+ If $$$Not(HalffabItemsBoom.VerwijderdeHalffabItems.GetAt(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Afdekkap())) {
+ Set ProductDetailDataLijn = ..MaakDataLijn("V1->Afdekkappen meeleveren LI+RE, bruinzwart", "", "","")
+ Do DetailLijnenZonderHalffabItem.InsertKeyValue(PDBGroepNaam, ProductDetailDataLijn)
+ }
}
}
Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/BoldBepaler.cls.xml
===================================================================
diff -u -r66650 -r66658
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/BoldBepaler.cls.xml (.../BoldBepaler.cls.xml) (revision 66650)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/BoldBepaler.cls.xml (.../BoldBepaler.cls.xml) (revision 66658)
@@ -64,12 +64,12 @@
Set BodemKleur = $$$Trim($Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2))
If $$$Not(BodemKleur = "Lichtgrijs") {
- Set ItemNieuweOmschrijving = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",1)_""_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)_""_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), BodemKleur,2)
+ Set ItemNieuweOmschrijving = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",1)_", "_""_BodemKleur_""_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), BodemKleur,2)
Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving))
}
- If $$$Not(DetailLijn.GeefAantal().GeefTekst() = "") {
- Do DetailLijn.ZetAantal(##class(APPS.common.Document.impl.TagBasedTekst).%New(""_DetailLijn.GeefAantal().GeefTekst()_""))
+ If $$$Not(DetailLijn.GeefAfmetingen().GeefTekst() = "") {
+ Do DetailLijn.ZetAfmetingen(##class(APPS.common.Document.impl.TagBasedTekst).%New(""_DetailLijn.GeefAfmetingen().GeefTekst()_""))
}
If $$$Not($Extract(DetailLijn.GeefKorttekst().GeefTekst(),6,8) = "500") {
@@ -79,15 +79,6 @@
]]>
-
-DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn
-"_DetailLijn.GeefAantal().GeefTekst()_""))
- }
-]]>
-
-
DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn
"_$Extract(OrigineleKortTekst,22,*)_""
Do DetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweKortTekst))
@@ -155,9 +146,9 @@
"_RugKleur_""_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), RugKleur,2)
+ Set ItemNieuweOmschrijving = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",1)_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)_", "_""_RugKleur_""_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), RugKleur,2)
Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving))
}
]]>