Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml =================================================================== diff -u -r65996 -r66188 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml (.../Inhoud.cls.xml) (revision 65996) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml (.../Inhoud.cls.xml) (revision 66188) @@ -287,11 +287,11 @@ #dim FrontbevestigingIsBold As %Boolean = $$$False #dim VerdereIteratieIsOnnodig As %Boolean = $$$False #dim ProdDetailLijnInnerIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..ProductDetailLijnen) + 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) If ($Extract(..Langtekst,1,8) = "LEGRABOX") { - #dim ProdDetailLijnOuterIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..ProductDetailLijnen) - Set Filter = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijnFilter).%New() - #dim ProdDetailLijnOuterDynamicIterator As TECH.ListIterator = ##class(TECH.DynamicIterator).%New(ProdDetailLijnOuterIterator,,Filter) While ((ProdDetailLijnOuterDynamicIterator.HasNext()) && $$$Not(FrontbevestigingIsBold) && $$$Not(VerdereIteratieIsOnnodig)) { #dim DetailLijn As APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn = ProdDetailLijnOuterDynamicIterator.Next() If ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,2) = "V1") { @@ -307,9 +307,6 @@ } } } ElseIf ($Extract(..Langtekst,1,9) = "TA'OR BOX") { - Set ProdDetailLijnOuterIterator = ##class(TECH.ListIterator).%New(..ProductDetailLijnen) - Set Filter = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijnFilter).%New() - Set ProdDetailLijnOuterDynamicIterator = ##class(TECH.DynamicIterator).%New(ProdDetailLijnOuterIterator,,Filter) While (ProdDetailLijnOuterDynamicIterator.HasNext()) { Set DetailLijn = ProdDetailLijnOuterDynamicIterator.Next() If ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,8) = "Geleider") {