Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml =================================================================== diff -u -r66641 -r66648 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml (.../BladInhoudBuilderNieuweBomBol.cls.xml) (revision 66641) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladInhoudBuilderNieuweBomBol.cls.xml (.../BladInhoudBuilderNieuweBomBol.cls.xml) (revision 66648) @@ -154,33 +154,6 @@ - - -"_$E(Korttekst,8,8)_""_$E(Korttekst,9,*) - - Set Tekst = ##class(APPS.common.Document.impl.TagBasedTekst).%New(Korttekst) - Do ProductDetailDataLijn.ZetKorttekst(Tekst) - - Quit ProductDetailDataLijn -} -*/ -]]> - Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/BoldBepaler.cls.xml =================================================================== diff -u --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/BoldBepaler.cls.xml (revision 0) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/BoldBepaler.cls.xml (revision 66648) @@ -0,0 +1,171 @@ + + + +TECH.RegisteredObject + + +DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn +"_$Extract(ItemKortTekst,4,4)_""_$Extract(ItemKortTekst,5,6)_""_$Extract(ItemKortTekst,7,7)_""_$Extract(ItemKortTekst,8,*) + } Else { + Set ItemNieuweKortTekst = $Extract(ItemKortTekst,1,3)_""_$Extract(ItemKortTekst,4,4)_""_$Extract(ItemKortTekst,5,*) + } + Do DetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweKortTekst)) +]]> + + + +DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn +"_$Extract(ItemKortTekst,1,3)_""_$Extract(ItemKortTekst,4,*) + Do DetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweKortTekst)) + } +]]> + + + +DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn +60kg") + Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving)) + } +]]> + + + +DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn +"_$Extract(ItemKortTekst,1,9)_""_$Extract(ItemKortTekst,10,*) + Do DetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweKortTekst)) + } +]]> + + + +DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn +"_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)_""_$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($Extract(DetailLijn.GeefKorttekst().GeefTekst(),6,8) = "500") { + Set ItemNieuweKortTekst = ""_$Extract(ItemKortTekst,1,8)_""_$Extract(ItemKortTekst,9,*) + Do DetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweKortTekst)) + } +]]> + + + +DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn +"_DetailLijn.GeefAantal().GeefTekst()_"")) + } +]]> + + + +DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn +"_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)_""_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), DesignCode, 2) + Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving)) + } + + If $$$Not(LadeHoogte = "M") { + Set ItemNieuweOmschrijving = $Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)_""_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",3)_""_", "_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), ", "_LadeHoogte, 2) + Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving)) + } + + If $$$Not(LadeKleur = "metaalgrijs") { + Set ItemNieuweKortTekst = DetailLijn.GeefKorttekst().GeefTekst()_""_$Extract(ItemKortTekst,22,*)_"" + Do DetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweKortTekst)) + } + //Wanneer is ladehoogte vet in omschrijving en wanneer is eerste deel korttekst vet bij ladezijkant? +]]> + + + +DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.common.Inhoud.ProductDetailDataLijn +"_$E(Korttekst,8,8)_""_$E(Korttekst,9,*) + + Do DetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New(Korttekst)) +]]> + + + +DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.common.Inhoud.ProductDetailDataLijn +"_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",1)_""_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), Rol, 2) + Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving)) +]]> + + + +DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn +"_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)_""_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), RugKleur,2) + Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving)) + } +]]> + + + +DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.common.Inhoud.ProductDetailDataLijn +"_MatRol_""_", "_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(),",",2)_", "_""_MatKleur_""_$Piece(DetailLijn.GeefOmschrijving().GeefTekst(), MatKleur, 2) + Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving)) +]]> + + + + + Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml =================================================================== diff -u -r66188 -r66648 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml (.../Inhoud.cls.xml) (revision 66188) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml (.../Inhoud.cls.xml) (revision 66648) @@ -290,6 +290,7 @@ Set Filter = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijnFilter).%New() #dim ProdDetailLijnOuterIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..ProductDetailLijnen) #dim ProdDetailLijnOuterDynamicIterator As TECH.ListIterator = ##class(TECH.DynamicIterator).%New(ProdDetailLijnOuterIterator,,Filter) + Set BoldBepaler = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.Inhoud.BoldBepaler).%New() If ($Extract(..Langtekst,1,8) = "LEGRABOX") { While ((ProdDetailLijnOuterDynamicIterator.HasNext()) && $$$Not(FrontbevestigingIsBold) && $$$Not(VerdereIteratieIsOnnodig)) { @@ -299,7 +300,7 @@ While (ProdDetailLijnInnerIterator.HasNext() && $$$Not(FrontbevestigingIsBold)) { Set DetailLijn = ProdDetailLijnInnerIterator.Next() If ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,16) = "Frontbevestiging") { - Do ..ZetBoldKaraktersInKorttekstVoorFrontbevestiging(DetailLijn) + Do BoldBepaler.ZetBoldKaraktersVoorLbxFrontbevestiging(DetailLijn) Set FrontbevestigingIsBold = $$$True } } @@ -310,56 +311,25 @@ While (ProdDetailLijnOuterDynamicIterator.HasNext()) { Set DetailLijn = ProdDetailLijnOuterDynamicIterator.Next() If ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,8) = "Geleider") { - Do ..ZetBoldKaraktersInOmschrijvingVoorGeleider(DetailLijn) - Do ..ZetBoldKaraktersInKorttekstVoorGeleider(DetailLijn) + Do BoldBepaler.ZetBoldKaraktersInOmschrijvingVoorGeleider(DetailLijn) + Do BoldBepaler.ZetBoldKaraktersInKorttekstVoorGeleider(DetailLijn) } } + } ElseIf ($Extract(..Langtekst,1,9) = "TandemBOX") { + While (ProdDetailLijnOuterDynamicIterator.HasNext()) { + 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 ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,11) = "Ladezijkant") { Do BoldBepaler.ZetBoldKaraktersVoorTbxLadeZijkant(DetailLijn) } + ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,5) = "Greep") { Do BoldBepaler.ZetBoldKaraktersOfOmschrijvingVoorTbxGreep(DetailLijn) } + ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,10) = "Stalen rug") { Do BoldBepaler.ZetBoldKaraktersOfOmschrijvingVoorTbxStalenRug(DetailLijn) } + ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,9) = "Rugstrook") { Do BoldBepaler.ZetBoldKaraktersVoorTbxRugstrook(DetailLijn) } + ElseIf ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,3) = "Mat") { Do BoldBepaler.ZetBoldKaraktersOfOmschrijvingVoorTbxGekoppeldeMat(DetailLijn) } + } } ]]> - - -DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn -1 -"_$Extract(ItemKortTekst,4,4)_""_$Extract(ItemKortTekst,5,6)_""_$Extract(ItemKortTekst,7,7)_""_$Extract(ItemKortTekst,8,*) - } Else { - Set ItemNieuweKortTekst = $Extract(ItemKortTekst,1,3)_""_$Extract(ItemKortTekst,4,4)_""_$Extract(ItemKortTekst,5,*) - } - Do DetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweKortTekst)) -]]> - - - -DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn -1 -"_$Extract(ItemKortTekst,1,3)_""_$Extract(ItemKortTekst,4,*) - Do DetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweKortTekst)) - } -]]> - - - -DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn -1 -60kg") - Do DetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweOmschrijving)) - } -]]> -