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)) } ]]>