Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r29059 -r31097
--- DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 29059)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 31097)
@@ -241,6 +241,12 @@
]]>
+
+%Decimal
+
+
+
Type:%String,IsSchaduw:%Boolean
1
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r29059 -r31097
--- DOM/PM/impl/ProductImpl.cls.xml (.../ProductImpl.cls.xml) (revision 29059)
+++ DOM/PM/impl/ProductImpl.cls.xml (.../ProductImpl.cls.xml) (revision 31097)
@@ -271,6 +271,12 @@
]]>
+
+%Decimal
+
+
+
AnderProductID:%String
%Boolean
Index: vhTest/Mock/DOM/PM/Product.cls.xml
===================================================================
diff -u -r29059 -r31097
--- vhTest/Mock/DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 29059)
+++ vhTest/Mock/DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 31097)
@@ -299,6 +299,12 @@
]]>
+
+%Decimal
+
+
+
%Date
1
+
+TECH.PeriodeComparator
+1
+
+
-ProductAPI:DOM.PM.ProductAPI,ProductTypeAPI:DOM.PM.ProductTypeAPI,VerkoopFactuurAPI:DOM.VKP.FactuurAPI
+ProductAPI:DOM.PM.ProductAPI,ProductTypeAPI:DOM.PM.ProductTypeAPI,VerkoopFactuurAPI:DOM.VKP.FactuurAPI,PeriodeComparator:TECH.PeriodeComparator
1
1
%Status
1
APPS.Stat.TAXAttentie.dto.Data
@@ -68,24 +78,32 @@
1
TECH.Iterator
0) && ( BonLijn.IsMetStockAanpassing()) {
- set Data = ##class(APPS.Stat.TAXAttentie.dto.Data).%New()
- set Data.Aantal = BonLijn.GeefAantal()
+
+ if (..ProductAPI.BestaatProduct(ProductID)) {
+ if (..ProductTypeAPI.IsTAORboxProduct(ProductID)) {
+ if ((BonLijn.GeefAantal() > 0) && (BonLijn.IsMetStockAanpassing())) {
+ #dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductID)
+ #dim Data As APPS.Stat.TAXAttentie.dto.Data = ##class(APPS.Stat.TAXAttentie.dto.Data).%New()
+ #dim Telbaar As %Decimal = 1
+
+ set:($IsValidNum(Product.GeefTelbaar()) && $$$Not(Product.GeefTelbaar() = "0")) Telbaar = Product.GeefTelbaar()
+
+ set Data.Aantal = BonLijn.GeefAantal() * Telbaar
set Data.Omzet = BonLijn.GeefTotaalNettoExclBTW()
+
do DataLijst.Insert(Data)
}
}
}
}
- Quit ##class(TECH.ListIterator).%New(DataLijst)
+
+ quit ##class(TECH.ListIterator).%New(DataLijst)
]]>
Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r29059 -r31097
--- DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 29059)
+++ DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 31097)
@@ -197,6 +197,11 @@
DOM.VKP.enu.PrijsCodex
+
+1
+%Decimal
+
+
1
%Boolean
Index: DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml
===================================================================
diff -u -r30639 -r31097
--- DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml (.../DataMTAORLadeCreator.cls.xml) (revision 30639)
+++ DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml (.../DataMTAORLadeCreator.cls.xml) (revision 31097)
@@ -3,13 +3,27 @@
1
-DOM.PM.impl.DataM.DataMProductCreator
+DOM.PM.impl.DataM.DataMProductCreator,DOM.PM.Maatwerk.TAX.impl.Base
+
+DOM.VKP.Maatwerk.BestelService
+1
+
+
+
+1
+DOM.VKP.Maatwerk.BestelService
+
+
+
DossierNummer:%String
1
%String
-
@@ -19,31 +33,32 @@
DOM.PM.ProductLangtekst
1
-
-
-DOM.VKP.Maatwerk.BestelService
-1
-
-
-
-1
-DOM.VKP.Maatwerk.BestelService
-