Index: APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml
===================================================================
diff -u -r32748 -r32750
--- APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml (.../OfferteDocumentReferentiesBepaler.cls.xml) (revision 32748)
+++ APPS/VKP/impl/OfferteDocumentReferentiesBepaler.cls.xml (.../OfferteDocumentReferentiesBepaler.cls.xml) (revision 32750)
@@ -55,9 +55,11 @@
Set ReturnDocRefs = ##class(APPS.VKP.impl.OfferteDocumentReferentiesBepaler.DocumentReferenties).%New()
#dim OfferteDocRef As DOM.VKP.DocumentReferenties = Offerte.GeefDocumentReferenties()
+ If $IsObject(OfferteDocRef) {
Set ReturnDocRefs.OrderReferentie = OfferteDocRef.OrderReferentie
Set ReturnDocRefs.KlantOrderNummer = OfferteDocRef.KlantOrderNummer
Set ReturnDocRefs.CommissieReferentie = OfferteDocRef.CommissieReferentie
+ }
Quit ReturnDocRefs
]]>
Index: vhUnitTest/APPS/VKP/OfferteDocumentReferentiesBepaler/GeefDocumentReferenties/Test.cls.xml
===================================================================
diff -u -r32748 -r32750
--- vhUnitTest/APPS/VKP/OfferteDocumentReferentiesBepaler/GeefDocumentReferenties/Test.cls.xml (.../Test.cls.xml) (revision 32748)
+++ vhUnitTest/APPS/VKP/OfferteDocumentReferentiesBepaler/GeefDocumentReferenties/Test.cls.xml (.../Test.cls.xml) (revision 32750)
@@ -27,6 +27,10 @@
vhTest.Mock.APPS.VKP.Offerte
+
+DOM.VKP.DocumentReferenties
+
+
aTestName:%String
+
+
+
+
+
+DocRefs:APPS.VKP.impl.OfferteDocumentReferentiesBepaler.DocumentReferenties
+
+
+
DocRefs:APPS.VKP.impl.OfferteDocumentReferentiesBepaler.DocumentReferenties
1