Index: vhUnitTest/APPS/PM/OL/TestKenmerkFormuleProcessor.cls.xml =================================================================== diff -u -r995 -r1074 --- vhUnitTest/APPS/PM/OL/TestKenmerkFormuleProcessor.cls.xml (.../TestKenmerkFormuleProcessor.cls.xml) (revision 995) +++ vhUnitTest/APPS/PM/OL/TestKenmerkFormuleProcessor.cls.xml (.../TestKenmerkFormuleProcessor.cls.xml) (revision 1074) @@ -1,15 +1,12 @@ - + Oproepen via - do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.OL") - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.OL.TestKenmerkFormuleProcessor") APPS.PM.OL.Common 1 vhUnitTest.TestCase -62180,63815.446799 -61947,62118.875095 0 @@ -127,15 +124,6 @@ Do ProdKM.Kenmerken.SetAt($LB("500"), "Diepte") Do ProdKM.Kenmerken.SetAt( "700" , "LadeBreedteMin") Do ProdKM.Kenmerken.SetAt($LB("16") , "WandDikte") - /* - // [WV OLKenm in mm] situation before mm : - Do ProdKM.KenmerkFormules.SetAt("(D*10)-33" , "ProductDiepte") - Do ProdKM.KenmerkFormules.SetAt("(B*10)-(2*WD)-85" , "ProductBreedte") - ; Do ProdKM.KenmerkFormules.SetAt("" , "ProductHoogte") ; Niet invullen, want er wordt op leeg getest - Do ProdKM.Kenmerken.SetAt($LB("50"), "Diepte") - Do ProdKM.Kenmerken.SetAt( "70" , "LadeBreedteMin") - Do ProdKM.Kenmerken.SetAt($LB("16"), "WandDikte") - */ Do KenmerkFormuleProcessor.EvalueerKenmerkFormules(ProdKM) @@ -175,5 +163,4 @@ ]]> -