Index: vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/Test.cls.xml =================================================================== diff -u -r35777 -r40394 --- vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/Test.cls.xml (.../Test.cls.xml) (revision 35777) +++ vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/Test.cls.xml (.../Test.cls.xml) (revision 40394) @@ -152,7 +152,6 @@ do $$$AssertEquals(Commissie.Aanbrenger.ID,..Aanbrenger.GeefID(),"De juiste aanbrenger wordt terugggeven") do $$$AssertEquals(Commissie.Verkoopfactuur,VerkoopfactuurID,"De juiste verkoopfactuur wordt terugggeven") do $$$AssertEquals(Commissie.Aankoopfactuur,AankoopfactuurID,"De juiste aankoopfactuur wordt terugggeven") - do $$$AssertEquals(Commissie.DatumAankoopfactuur,62836,"De aankoopfactuur datum wordt goed terugggeven") do $$$AssertFalse(itCommissies.HasNext(),"Er is geen volgende commissie terug te geven") do ##class(DOM.VKP.impl.Commissie).DeleteId(CommissieID) Index: APPS/VKP/Commissie/impl/CommissieService.cls.xml =================================================================== diff -u -r40092 -r40394 --- APPS/VKP/Commissie/impl/CommissieService.cls.xml (.../CommissieService.cls.xml) (revision 40092) +++ APPS/VKP/Commissie/impl/CommissieService.cls.xml (.../CommissieService.cls.xml) (revision 40394) @@ -346,10 +346,7 @@ } if $length(Commissie.Aankoopfactuur) { - #dim Aankoopfactuur As DOM.BKH.AankoopFactuur = ..BoekhoudingAPI.GeefAankoopFactuur(Commissie.Aankoopfactuur) set dtoCommissie.Aankoopfactuur = Commissie.Aankoopfactuur - set dtoCommissie.DatumAankoopfactuur = Aankoopfactuur.GeefDatum() - set dtoCommissie.DatumAankoopfactuurVoldaan = Aankoopfactuur.GeefDatumVoldaan() } @@ -473,10 +470,6 @@ if $length(Commissie.Aankoopfactuur) { set Status = ##class(DOM.VKP.Commissie.enu.CommissieStatus).AankoopfactuurIngeboekt() - If $$$Not(..IsAankoopFactuurDieWaarschijnlijkInAXZit( Commissie.Aankoopfactuur )) { - #dim Aankoopfactuur As DOM.BKH.AankoopFactuur = ..BoekhoudingAPI.GeefAankoopFactuur(Commissie.Aankoopfactuur) - if Aankoopfactuur.IsVoldaan() set Status = ##class(DOM.VKP.Commissie.enu.CommissieStatus).AankoopfactuurBetaald() - } } quit Status