Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/TiponSynchronisatiestangInkorten.cls.xml =================================================================== diff -u -r72106 -r72167 --- vhUnitTest/APPS/Halux/PPS/Document/impl/common/TiponSynchronisatiestangInkorten.cls.xml (.../TiponSynchronisatiestangInkorten.cls.xml) (revision 72106) +++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/TiponSynchronisatiestangInkorten.cls.xml (.../TiponSynchronisatiestangInkorten.cls.xml) (revision 72167) @@ -45,7 +45,7 @@ Do $$$AssertEquals(Document.GeefKolom(3).GetAt(9),"600") Do $$$AssertEquals(Document.GeefKolom(4).GetAt(9),"P") Do $$$AssertEquals(Document.GeefKolom(5).GetAt(9),"23") - Do $$$AssertEquals(Document.GeefKolom(7).GetAt(9),"") + Do $$$AssertEquals(Document.GeefKolom(7).GetAt(9),"1234567890123456789012345") Do $$$AssertEquals(Document.GeefKolom(7).GetAt(11),"5432109876543210987654321") Do $$$AssertEquals(Document.GeefKolom(7).GetAt(13),"LEGENDE") Do $$$AssertEquals(Document.GeefKolom(7).GetAt(17),"V = Voormontage ") Index: BL/PPS/TBX/DocSynchroStangInkortLijst.cls.xml =================================================================== diff -u -r72095 -r72167 --- BL/PPS/TBX/DocSynchroStangInkortLijst.cls.xml (.../DocSynchroStangInkortLijst.cls.xml) (revision 72095) +++ BL/PPS/TBX/DocSynchroStangInkortLijst.cls.xml (.../DocSynchroStangInkortLijst.cls.xml) (revision 72167) @@ -212,11 +212,19 @@ Do ..Document.GeefKolom(1).Insert(UI.Nr) 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.TotaalAantalTiponSynchronisatiestangenInToelevering) - Do ..Document.GeefKolom(6).Insert(UI.Type) - Do ..Document.GeefKolom(7).Insert(UI.TiponSynchronisatiestangKorttekst) + If (UI.TotaalAantalTiponSynchronisatiestangenInToelevering > 0) { + Do ..Document.GeefKolom(3).Insert(UI.Breedte) + Do ..Document.GeefKolom(4).Insert(UI.Uitvoer) + Do ..Document.GeefKolom(5).Insert(UI.TotaalAantalTiponSynchronisatiestangenInToelevering) + Do ..Document.GeefKolom(6).Insert(UI.Type) + Do ..Document.GeefKolom(7).Insert(UI.TiponSynchronisatiestangKorttekst) + } Else { + Do ..Document.GeefKolom(3).Insert("") + Do ..Document.GeefKolom(4).Insert("") + Do ..Document.GeefKolom(5).Insert("") + Do ..Document.GeefKolom(6).Insert("") + Do ..Document.GeefKolom(7).Insert("") + } Set VorigeUI = UI } @@ -317,12 +325,9 @@ @@ -347,7 +350,7 @@ VorigeUI:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo,UI:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo 1 %Boolean - Index: APPS/Halux/PPS/Document/impl/common/TiponSynchronisatiestangInkorten.cls.xml =================================================================== diff -u -r72106 -r72167 --- APPS/Halux/PPS/Document/impl/common/TiponSynchronisatiestangInkorten.cls.xml (.../TiponSynchronisatiestangInkorten.cls.xml) (revision 72106) +++ APPS/Halux/PPS/Document/impl/common/TiponSynchronisatiestangInkorten.cls.xml (.../TiponSynchronisatiestangInkorten.cls.xml) (revision 72167) @@ -56,13 +56,22 @@ #dim Korttekst As %String = UI.TiponSynchronisatiestangKorttekst #dim Aantal As %Integer = UI.AantalTiponSynchronisatiestangen - Set UI.AantalTiponSynchronisatiestangen = UI.TotaalAantalTiponSynchronisatiestangenInToelevering + Do ..Document.GeefKolom(1).Insert(UI.Nr) + Do ..Document.GeefKolom(2).Insert(UI.ToeDos) + If (UI.TotaalAantalTiponSynchronisatiestangenInToelevering > 0) { + Do ..Document.GeefKolom(3).Insert(UI.Breedte) + Do ..Document.GeefKolom(4).Insert(UI.Uitvoer) + Do ..Document.GeefKolom(5).Insert(UI.TotaalAantalTiponSynchronisatiestangenInToelevering) + Do ..Document.GeefKolom(6).Insert(UI.Type) + Do ..Document.GeefKolom(7).Insert(UI.TiponSynchronisatiestangKorttekst) + } Else { + Do ..Document.GeefKolom(3).Insert("") + Do ..Document.GeefKolom(4).Insert("") + Do ..Document.GeefKolom(5).Insert("") + Do ..Document.GeefKolom(6).Insert("") + Do ..Document.GeefKolom(7).Insert("") + } - Set:($IsObject(VolgendeUI) && ..ZittenTiponSynchronisatiestangenInDezelfdeGroep(UI, VolgendeUI)) UI.TiponSynchronisatiestangKorttekst = "" - Do ..VoegToeAanDocument(UI) - Set UI.TiponSynchronisatiestangKorttekst = Korttekst - Set UI.AantalTiponSynchronisatiestangen = Aantal - Set VorigeUI = UI Set UI = VolgendeUI } @@ -124,7 +133,7 @@ VorigeUI:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo,UI:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo 1 %Boolean - Index: APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml =================================================================== diff -u -r72155 -r72167 --- APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml (.../WerklijstItemsUitvoerder.cls.xml) (revision 72155) +++ APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml (.../WerklijstItemsUitvoerder.cls.xml) (revision 72167) @@ -232,7 +232,7 @@ VorigeUI:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo,UI:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo 1 %Boolean -