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