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)
]]>