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