Index: vhTest/Fake/APPS/Blum/impl/OnlineProductConfigurator/ProductBepaler.cls.xml =================================================================== diff -u --- vhTest/Fake/APPS/Blum/impl/OnlineProductConfigurator/ProductBepaler.cls.xml (revision 0) +++ vhTest/Fake/APPS/Blum/impl/OnlineProductConfigurator/ProductBepaler.cls.xml (revision 41023) @@ -0,0 +1,19 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler + + +IdentNummer:%String,KlantNummer:%String +%String + + + + + + Index: vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/ProductBepaler.cls.xml =================================================================== diff -u --- vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/ProductBepaler.cls.xml (revision 0) +++ vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/ProductBepaler.cls.xml (revision 41023) @@ -0,0 +1,21 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur. +1 +APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler,Tools.Mock.MockClassBase +right + + +IdentNummer:%String,KlantNummer:%String +%String + + + + + + Index: APPS/Blum/impl/OnlineProductConfigurator/ProductBepaler.cls.xml =================================================================== diff -u --- APPS/Blum/impl/OnlineProductConfigurator/ProductBepaler.cls.xml (revision 0) +++ APPS/Blum/impl/OnlineProductConfigurator/ProductBepaler.cls.xml (revision 41023) @@ -0,0 +1,27 @@ + + + +BL.Prod +TECH.Mockable + + +IdentNummer:%String,KlantNummer:%String +%String + 1) { + Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Blum OPC - Er zijn meerdere producten gevonden voor IdentNummer " _IdentNummer _" en klant " _KlantNummer _"!") + } + Quit $LG(Producten) +]]> + + + + +