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