Index: APPS/common/KlantKost/impl/data/IndividueelKostItem.cls.xml =================================================================== diff -u -r1933 -r1964 --- APPS/common/KlantKost/impl/data/IndividueelKostItem.cls.xml (.../IndividueelKostItem.cls.xml) (revision 1933) +++ APPS/common/KlantKost/impl/data/IndividueelKostItem.cls.xml (.../IndividueelKostItem.cls.xml) (revision 1964) @@ -29,7 +29,9 @@ 1 1 %Status - JBL ] Hier properties invullen? + Quit $$$OK ]]> Index: APPS/common/KlantKost/impl/data/AfhalingKostItem.cls.xml =================================================================== diff -u -r1940 -r1964 --- APPS/common/KlantKost/impl/data/AfhalingKostItem.cls.xml (.../AfhalingKostItem.cls.xml) (revision 1940) +++ APPS/common/KlantKost/impl/data/AfhalingKostItem.cls.xml (.../AfhalingKostItem.cls.xml) (revision 1964) @@ -16,6 +16,7 @@ 1 %Status JBL ] Properties van basisklasse doorgeven via constructor Set ..Datum = Datum Set ..KlantNr = KlantNr Set ..KostType = ##class(APPS.common.KlantKost.enu.KostType).Afhaling() Index: APPS/common/KlantKost/impl/AfhalingKostCalculator.cls.xml =================================================================== diff -u -r1940 -r1964 --- APPS/common/KlantKost/impl/AfhalingKostCalculator.cls.xml (.../AfhalingKostCalculator.cls.xml) (revision 1940) +++ APPS/common/KlantKost/impl/AfhalingKostCalculator.cls.xml (.../AfhalingKostCalculator.cls.xml) (revision 1964) @@ -6,6 +6,8 @@ 0 + JBL ] Mss een array of integer gebruiken ipv multidimensial?]]> %String 1 1 @@ -24,6 +26,7 @@ Set Kost = ..GeefFactor(Datum) Set KlantAPI=##class(DOM.DomeinContext).Instance().GeefKlantAPI() + /// [ Review CSC -> JBL ] .%New() staat hier teveel. Set KlantIterator = KlantAPI.GeefKlantenIterator().%New() While KlantIterator.HasNext() { @@ -40,6 +43,7 @@ /// Voor deze klant, voor één dag. Set Datum = "" + /// [ Review CSC -> JBL ] Als je array gebruikt dan kan hier een iterator komen Set Datum = $O(..DatumAantal(Datum)) While Datum '= "" { @@ -49,6 +53,7 @@ Set Bericht = "Failed to save "_KostItem.%ClassName(1)_": " Set Bericht = Bericht_": "_Datum_","_KlantNr Set Bericht = Bericht_$c(13,10)_$$ParseStatus^vhLib(Status) + /// [ Review CSC -> JBL ] Er is een SaveFailed exception waar je rechtstreeks de status als extra parameter kan meegeven :-) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),Bericht)) } Set Datum = $O(..DatumAantal(Datum))