Index: APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml =================================================================== diff -u -r32750 -r32752 --- APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml (.../OfferteDocumentReferentiesBepaler.cls.xml) (revision 32750) +++ APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml (.../OfferteDocumentReferentiesBepaler.cls.xml) (revision 32752) @@ -53,6 +53,7 @@ APPS.VKP.impl.OfferteDocumentReferentiesBepaler.DocumentReferenties UT_VanHoeckeCommRef + +%String +UT_KlantID + + vhTest.Mock.APPS.VKP.Offerte @@ -90,6 +95,7 @@ Do $$$AssertEquals(DocRefs.OrderReferentie,"") Do $$$AssertEquals(DocRefs.KlantOrderNummer,"") Do $$$AssertEquals(DocRefs.CommissieReferentie,"") + Do $$$AssertEquals(DocRefs.KlantID,..#VHKlantID) } ]]> @@ -101,6 +107,7 @@ Do $$$AssertEquals(DocRefs.OrderReferentie ,..#VanHoeckeOrderRef) Do $$$AssertEquals(DocRefs.KlantOrderNummer ,..#VanHoeckeKlantOrderNummer) Do $$$AssertEquals(DocRefs.CommissieReferentie,..#VanHoeckeCommRef) + Do $$$AssertEquals(DocRefs.KlantID,..#VHKlantID) } ]]> @@ -114,6 +121,7 @@ Set ..DocRefsVanHoeckeOfferte.CommissieReferentie = ..#VanHoeckeCommRef Set ..VanHoeckeOfferte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New() + Do ..VanHoeckeOfferte.IndienMethodCall("GeefKlantID").DanReturn(..#VHKlantID) ]]>