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 -