Index: APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml =================================================================== diff -u -r60877 -r60880 --- APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml (.../LadeZijkanten.cls.xml) (revision 60877) +++ APPS/Halux/PPS/Document/impl/LBX/LadeZijkanten.cls.xml (.../LadeZijkanten.cls.xml) (revision 60880) @@ -250,14 +250,20 @@ #dim TellerAantalProducten,TellerAantalStippelijnen As %Integer = 0 #dim MagLijnenToevoegen As %Boolean = $$$False #dim MaximaalAantalWitregels = ..#AantalBeschrijfbareRegelsOpDocument - ..#AantalZijkantenPerKar + #dim IsLadeToegevoegd As %Boolean = $$$False while RijenIterator.HasNext() { Set LadeZijkantData = RijenIterator.Next() - Do Rijen.Insert(LadeZijkantData) + Set IsLadeToegevoegd = $$$False If ($Extract(LadeZijkantData.SequentieNummer, 1,2) = "--") { Set TellerAantalStippelijnen = TellerAantalStippelijnen +1 If (TellerAantalProducten = ..#AantalZijkantenPerKar) { + + If $$$Not(..#AantalBeschrijfbareRegelsOpDocument-##class(TECH.Math).Abs(MaximaalAantalWitregels-TellerAantalStippelijnen) = ..#AantalBeschrijfbareRegelsOpDocument-1){ + Do Rijen.Insert(LadeZijkantData) + } + Set IsLadeToegevoegd = $$$True //Dit voorkomt dat een extra pagina wordt afgedrukt met enkel en alleen een stippelijn op If TellerAantalStippelijnen <= MaximaalAantalWitregels { Set Rijen = ..VoegToeAantalLegeLijnen(MaximaalAantalWitregels-TellerAantalStippelijnen, Rijen) } Else { @@ -267,10 +273,15 @@ Set TellerAantalStippelijnen = 0 Set TellerAantalProducten = 0 } + + If $$$Not(IsLadeToegevoegd) { + Do Rijen.Insert(LadeZijkantData) + } + } Else { + Do Rijen.Insert(LadeZijkantData) Set TellerAantalProducten = TellerAantalProducten +1 - } - + } } Quit Rijen ]]> @@ -415,7 +426,11 @@