Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml =================================================================== diff -u -r64517 -r64518 --- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml (.../ProductIdRecycleerder.cls.xml) (revision 64517) +++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder.cls.xml (.../ProductIdRecycleerder.cls.xml) (revision 64518) @@ -296,6 +296,7 @@ #dim IsVrijeProductIdGevonden As %Boolean = $$$False #dim ProductId As %String #dim GlobalKey As %String + #dim LoggingDetail As %String Set RangeIterator = ##class(TECH.StringIterator).%New(Range, ",") While (RangeIterator.HasNext() && ($$$Not(IsVrijeProductIdGevonden))) { @@ -310,7 +311,9 @@ If ($$$Not(IsVrijeProductIdGevonden)) { Set ProductId = "" - // ERROR-LOGGING - RANGE VOLLEDIG VOLZET !!! + Set LoggingDetail = "In de range van ProductId's voor LadeVariant '"_LadeVariant_"' zijn alle ProductId's in gebruik. " + Set LoggingDetail = LoggingDetail _ "Bovenliggende code vangt dit normaliter op door een gloednieuw ProductId te gebruiken. Misschien kan de range best uitgebreid worden?! " + Do ..Logger.Error("GeefEerstvolgendeVrijeProductId", LoggingDetail) } Quit ProductId @@ -329,7 +332,7 @@ Set Ondergrens = 3 If (AantalVrijePlaatsenInRangeVolgensLadeVariant = 0) { Set LoggingDetail = "In de '"_LadeVariant_"'-range van de ProductIdRecycleerder zijn ALLE ProductId's in gebruik!!! Het is ten zeerste aan te raden de range uit te breiden!!! " - Set LoggingDetail = LoggingDetail _ "Er worden nu nieuwe ProductId's gebruikt i.p.v. dat er één uit de recyclage-range gebruikt wordt. " + Set LoggingDetail = LoggingDetail _ "Er worden vanaf nu nieuwe ProductId's gebruikt i.p.v. dat er één uit de recyclage-range gebruikt wordt. " Set LoggingDetail = LoggingDetail _ "Voor uitbreiding van de range zie uitleg in klasse: '" _ $Classname(##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder).%New()) _ "'. " Do ..Logger.Error("Schaarste in de range", LoggingDetail) } ElseIf (AantalVrijePlaatsenInRangeVolgensLadeVariant <= Ondergrens) { Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml =================================================================== diff -u -r64510 -r64518 --- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml (.../Test.cls.xml) (revision 64510) +++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/ProductIdRecycleerder/Test.cls.xml (.../Test.cls.xml) (revision 64518) @@ -593,9 +593,15 @@ If (VerwachteAantalOnbenut = 0) { Set LoggingDetail = "In de '"_LadeVariant_"'-range van de ProductIdRecycleerder zijn ALLE ProductId's in gebruik!!! Het is ten zeerste aan te raden de range uit te breiden!!! " - Set LoggingDetail = LoggingDetail _ "Er worden nu nieuwe ProductId's gebruikt i.p.v. dat er één uit de recyclage-range gebruikt wordt. " + Set LoggingDetail = LoggingDetail _ "Er worden vanaf nu nieuwe ProductId's gebruikt i.p.v. dat er één uit de recyclage-range gebruikt wordt. " Set LoggingDetail = LoggingDetail _ "Voor uitbreiding van de range zie uitleg in klasse: '" _ $Classname(##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.ProductIdRecycleerder).%New()) _ "'. " Do LoggerMock.VerwachtMethodCall("Error", "Schaarste in de range", LoggingDetail) + + If ($$$Not($$$HasLength(VerwachteProductId))) { + Set LoggingDetail = "In de range van ProductId's voor LadeVariant '"_LadeVariant_"' zijn alle ProductId's in gebruik. " + Set LoggingDetail = LoggingDetail _ "Bovenliggende code vangt dit normaliter op door een gloednieuw ProductId te gebruiken. Misschien kan de range best uitgebreid worden?! " + Do LoggerMock.VerwachtMethodCall("Error", "GeefEerstvolgendeVrijeProductId", LoggingDetail) + } } ElseIf (VerwachteAantalOnbenut <= Ondergrens) { Set LoggingDetail = "In de '"_LadeVariant_"'-range van de ProductIdRecycleerder zijn nog slechts '"_VerwachteAantalOnbenut_"' ProductId's onbenut. Het is zeer aan te raden de range uit te breiden. " Set LoggingDetail = LoggingDetail _ "Als de range volledig in gebruik is wordt er een error gelogd en wordt er een nieuwe ProductId gebruikt i.p.v. dat er één uit de recyclage-range gebruikt wordt. "