Index: APPS/VKP/Commissie/impl/CommissieService.cls.xml
===================================================================
diff -u -r31233 -r31921
--- APPS/VKP/Commissie/impl/CommissieService.cls.xml (.../CommissieService.cls.xml) (revision 31233)
+++ APPS/VKP/Commissie/impl/CommissieService.cls.xml (.../CommissieService.cls.xml) (revision 31921)
@@ -407,7 +407,9 @@
Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
}
Do ..VerwijderCommissieInfo(Commissie)
- do ##class(DOM.DomeinContext).Instance().GeefCommonAPI().VoegToeLogItem(Commissie.GeefLogBoekOnderwerpType(), CommissieID, "De commissie is verwijderd met reden, """_Reden_"""")
+ #Dim LogBericht As %String = "De commissie voor consument '" _ Commissie.Klant _ "' is verwijderd met reden, """_Reden_""""
+
+ do ##class(DOM.DomeinContext).Instance().GeefCommonAPI().VoegToeLogItem(Commissie.GeefLogBoekOnderwerpType(), CommissieID, LogBericht)
]]>
Index: vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/VerwijderCommissie/Test.cls.xml
===================================================================
diff -u -r29059 -r31921
--- vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/VerwijderCommissie/Test.cls.xml (.../Test.cls.xml) (revision 29059)
+++ vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/VerwijderCommissie/Test.cls.xml (.../Test.cls.xml) (revision 31921)
@@ -38,6 +38,11 @@
1
+
+%String
+18431
+
+
TECH.String
1
@@ -102,7 +107,7 @@
#dim CommonAPIMock As vhTest.Mock.DOM.common.CommonAPI = ##class(vhTest.Mock.DOM.common.CommonAPI).MockInstance()
#define LogBoekOnderwerpType "AanbrengerCommissie"
#define CommissieVerwijderingsReden "DummyReden"
- Do CommonAPIMock.VerwachtMethodCall("VoegToeLogItem", $$$LogBoekOnderwerpType, ..TeVerwijderenCommissieID, "De commissie is verwijderd met reden, """_$$$CommissieVerwijderingsReden_"""")
+ Do CommonAPIMock.VerwachtMethodCall("VoegToeLogItem", $$$LogBoekOnderwerpType, ..TeVerwijderenCommissieID, "De commissie voor consument '" _ ..#ConsumentKlantNummer _ "' is verwijderd met reden, """_$$$CommissieVerwijderingsReden_"""")
Do ..VerwijderCommissie($$$CommissieVerwijderingsReden)
@@ -181,13 +186,13 @@
#dim AangbrengersSubstring As TECH.String = ..#AanbrengerIDTeVerwijderenCommissie_"`"_..#AanbrengerIDBlijvendeCommissie
#dim PercentagesSubstring As TECH.String = ..#PercentageTeVerwijderenCommissie_"`"_..#PercentageBlijvendeCommissie
- Set ^KFA("F",..#FactuurNr,0,0) = "18431\C\01.02.13\1\EUR\21.08.12\172.44\168.99\0\0\0\172.44\3.45\172.44\\1\0#0\Excl\\\\\\\\\"
+ Set ^KFA("F",..#FactuurNr,0,0) = ..#ConsumentKlantNummer _ "\C\01.02.13\1\EUR\21.08.12\172.44\168.99\0\0\0\172.44\3.45\172.44\\1\0#0\Excl\\\\\\\\\"
Set ^KFA("F",..#FactuurNr,0,1) = "8#648.40#\8#648.40#\8#136.16#\\\\\\\\\\\\\\\\\\\\\\\\"
Set ^KFA("F",..#FactuurNr,"U"_..#BonNr,1) = "\01.02.13\\\\18431\R61 #CONS BE - R61\\\\\\0.00##19.92775\\\01.02.13\\EUR\\\00\2\N\###\\\\F\\OL\\\\\\\\\1\\\\63915\\62845,36267\\\\\\\\\\"_AangbrengersSubstring_"\"_PercentagesSubstring_"\234842"
Set Commissie = ##class(DOM.VKP.impl.Commissie).%New()
Set Commissie.Aanbrenger = ..#AanbrengerIDTeVerwijderenCommissie
- Set Commissie.Klant = 18431
+ Set Commissie.Klant = ..#ConsumentKlantNummer
Set Commissie.Verkoopfactuur = ..#FactuurNr
Set Commissie.Bedrag = 15
Set Commissie.Percentage = ..#PercentageTeVerwijderenCommissie
@@ -196,7 +201,7 @@
Set Commissie = ##class(DOM.VKP.impl.Commissie).%New()
Set Commissie.Aanbrenger = ..#AanbrengerIDBlijvendeCommissie
- Set Commissie.Klant = 18431
+ Set Commissie.Klant = ..#ConsumentKlantNummer
Set Commissie.Verkoopfactuur = ..#FactuurNr
Set Commissie.Bedrag = 45
Set Commissie.Percentage = ..#PercentageBlijvendeCommissie