Index: APPS/PM/ProductService.cls.xml =================================================================== diff -u -r29059 -r48950 --- APPS/PM/ProductService.cls.xml (.../ProductService.cls.xml) (revision 29059) +++ APPS/PM/ProductService.cls.xml (.../ProductService.cls.xml) (revision 48950) @@ -201,6 +201,18 @@ ]]> + +KlantID:DOM.VKP.VanHoeckeKlantID,ProductID:%String +%String + + + KlantID:DOM.VKP.VanHoeckeKlantID,ProductID:%String %String Index: DOM/VKP/impl/DataM/DataMProductOrderlijn.cls.xml =================================================================== diff -u -r48905 -r48950 --- DOM/VKP/impl/DataM/DataMProductOrderlijn.cls.xml (.../DataMProductOrderlijn.cls.xml) (revision 48905) +++ DOM/VKP/impl/DataM/DataMProductOrderlijn.cls.xml (.../DataMProductOrderlijn.cls.xml) (revision 48950) @@ -105,7 +105,7 @@ /// Pakketreferentie wordt niet altijd gepersisteerd, daarom halen we dit indien nodig nog op uit ^PAKKET If '$L(PakketReferentie){ #dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(..GeefKlantNr()) - Set PakketReferentie = ##class(APPS.PM.ProductService).%New().GeefPakketReferentieVoorProduct(KlantID,..GeefProductID()) + Set PakketReferentie = ##class(APPS.PM.ProductService).%New().GeefEerstePakketReferentieVoorProduct(KlantID,..GeefProductID()) } Quit PakketReferentie ]]>