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))