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
-