Index: APPS/Halux/PPS/Document/impl/common/TiponSynchronisatiestangInkorten.cls.xml =================================================================== diff -u -r71983 -r72071 --- APPS/Halux/PPS/Document/impl/common/TiponSynchronisatiestangInkorten.cls.xml (.../TiponSynchronisatiestangInkorten.cls.xml) (revision 71983) +++ APPS/Halux/PPS/Document/impl/common/TiponSynchronisatiestangInkorten.cls.xml (.../TiponSynchronisatiestangInkorten.cls.xml) (revision 72071) @@ -29,6 +29,25 @@ ]]> + +UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst +1 + + + 1 %ListOfDataTypes @@ -39,7 +58,6 @@ Do List.Insert("Breedte") Do List.Insert("Uitvoer") Do List.Insert("AantalTiponSynchronisatiestangen") - Do List.Insert("TotaalAantalTiponSynchronisatiestangenInToelevering") Do List.Insert("Type") Do List.Insert("TiponSynchronisatiestangKorttekst") Quit List @@ -77,7 +95,7 @@ VorigeUI:APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo,UI:APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo 1 %Boolean - Index: APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml =================================================================== diff -u -r72026 -r72071 --- APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml (.../WerklijstItemsUitvoerder.cls.xml) (revision 72026) +++ APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml (.../WerklijstItemsUitvoerder.cls.xml) (revision 72071) @@ -74,7 +74,7 @@ Do ..ZetTotaalAantalMattenPerToelevering(UitvoeringLijstIterator) Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst) - Do ..ZetTotaalAantalTiponSynchronisatiestangenPerToelevering(UitvoeringLijstIterator) + Do ..GroepeerTiponSynchronisatiestangen(UitvoeringLijstIterator) Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst) //Matten met zelfde dimensies groeperen @@ -153,36 +153,48 @@ ]]> - -UitvoeringLijstIterator:TECH.ListIterator + +UitvoeringInfoIterator:TECH.ListIterator 1 + +VorigeUI:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo,UI:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo +1 +%Boolean + + + Object:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo 1 Index: BL/PPS/TBX/DocSynchroStangInkortLijst.cls.xml =================================================================== diff -u -r72025 -r72071 --- BL/PPS/TBX/DocSynchroStangInkortLijst.cls.xml (.../DocSynchroStangInkortLijst.cls.xml) (revision 72025) +++ BL/PPS/TBX/DocSynchroStangInkortLijst.cls.xml (.../DocSynchroStangInkortLijst.cls.xml) (revision 72071) @@ -166,7 +166,6 @@ 1 @@ -199,7 +197,7 @@ Do ..VoegToeHoofdingMetTussenLijnen("INKORTEN", ..Document.GeefAantalKolommen()) #dim UitvoeringInfoIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..UitvoeringInfoLijst) - Do ..ZetTotaalAantalTiponSynchronisatiestangenPerToelevering(UitvoeringInfoIterator) + Do ..GroepeerTiponSynchronisatiestangen(UitvoeringInfoIterator) Do UitvoeringInfoIterator.Reset() #dim VorigeUI As BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo = "" @@ -216,10 +214,9 @@ Do ..Document.GeefKolom(2).Insert(UI.ToeDos) Do ..Document.GeefKolom(3).Insert(UI.Breedte) Do ..Document.GeefKolom(4).Insert(UI.Uitvoer) - Do ..Document.GeefKolom(5).Insert(UI.AantalTiponSynchronisatiestangen) - Do ..Document.GeefKolom(6).Insert(UI.TotaalAantalTiponSynchronisatiestangenInToelevering) - Do ..Document.GeefKolom(7).Insert(UI.Type) - Do ..Document.GeefKolom(8).Insert(UI.TiponSynchronisatiestangKorttekst) + Do ..Document.GeefKolom(5).Insert(UI.TotaalAantalTiponSynchronisatiestangenInToelevering) + Do ..Document.GeefKolom(6).Insert(UI.Type) + Do ..Document.GeefKolom(7).Insert(UI.TiponSynchronisatiestangKorttekst) Set VorigeUI = UI } @@ -314,32 +311,45 @@ ]]> - + UitvoeringInfoIterator:TECH.ListIterator 1 + + +VorigeUI:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo,UI:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo +1 +%Boolean + +