Index: zTryout/THB/TaxProductDraagkrachtLeegRapporteur.cls.xml =================================================================== diff -u -r69358 -r69359 --- zTryout/THB/TaxProductDraagkrachtLeegRapporteur.cls.xml (.../TaxProductDraagkrachtLeegRapporteur.cls.xml) (revision 69358) +++ zTryout/THB/TaxProductDraagkrachtLeegRapporteur.cls.xml (.../TaxProductDraagkrachtLeegRapporteur.cls.xml) (revision 69359) @@ -68,6 +68,7 @@ #dim CountTandem As %Integer = 0 #dim CountOngebruikteProducten As %Integer = 0 #dim CountBezwaardeProducten As %Integer = 0 + #dim CountNietActief As %Integer = 0 While ..ProductIterator.HasNext() { Set ProductID = ..ProductIterator.Next().GetData(1) @@ -80,21 +81,25 @@ Set TaorKenmerken = Product.GeefIngegevenKenmerken() If (TaorKenmerken.Draagkracht = "") { - If (..HeeftBezwaarVoorProductDelete(TaorProductID)) { - Set BezwaardeProducten = BezwaardeProducten _ TaorProductID _ "," - Set CountBezwaardeProducten = CountBezwaardeProducten + 1 - w !,TaorProductID _ " - Bezwaar: " _ ..GeefEersteBezwaarIndienAanwezig(TaorProductID) + If (Product.GeefActiefStatus() = ##class(DOM.PM.enu.ActiefStatus).Actief()) { + If (..HeeftBezwaarVoorProductDelete(TaorProductID)) { + Set BezwaardeProducten = BezwaardeProducten _ TaorProductID _ "," + Set CountBezwaardeProducten = CountBezwaardeProducten + 1 + w !,TaorProductID _ " - Bezwaar: " _ ..GeefEersteBezwaarIndienAanwezig(TaorProductID) + } Else { + Set OngebruikteProducten = OngebruikteProducten _ TaorProductID _ "," + Set CountOngebruikteProducten = CountOngebruikteProducten + 1 + } + + If (TaorKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Tandem()) { + Set CountTandem = CountTandem + 1 + } + If (TaorKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()) { + Set CountMovento = CountMovento + 1 + } } Else { - Set OngebruikteProducten = OngebruikteProducten _ TaorProductID _ "," - Set CountOngebruikteProducten = CountOngebruikteProducten + 1 + Set CountNietActief = CountNietActief + 1 } - - If (TaorKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Tandem()) { - Set CountTandem = CountTandem + 1 - } - If (TaorKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()) { - Set CountMovento = CountMovento + 1 - } } } } @@ -106,6 +111,7 @@ w !, OngebruikteProducten w !!, CountBezwaardeProducten _ " BezwaardeProducten: " w !, BezwaardeProducten + w !!, "Aantal getroffen producten reeds op niet actief: " _ CountNietActief w !!, "KLAAR !" w ! ]]>