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