Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml =================================================================== diff -u -r63969 -r64131 --- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml (.../GeefMaatwerkDetails.cls.xml) (revision 63969) +++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml (.../GeefMaatwerkDetails.cls.xml) (revision 64131) @@ -135,10 +135,17 @@ Set Request.Aantal = Aantal Set Request.IngegevenKenmerken = IngegevenKenmerken - Set Request.KlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID) + + If ($Extract(KlantID,1,3) = "K||") { + Set Request.KlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID) + } Else { + Set Request.KlantID = KlantID + } + If $IsObject(ProductData) { Set Request.ProductData = ..ConverteerProductDataJsonObject(ProductData) } + Quit Request ]]> Index: DOM/PM/impl/DataM/DataMProductCreator.cls.xml =================================================================== diff -u -r63881 -r64131 --- DOM/PM/impl/DataM/DataMProductCreator.cls.xml (.../DataMProductCreator.cls.xml) (revision 63881) +++ DOM/PM/impl/DataM/DataMProductCreator.cls.xml (.../DataMProductCreator.cls.xml) (revision 64131) @@ -310,6 +310,7 @@ Set $Piece(Rec,"\",14) = ..BerekeningsSpecificatie.%Id() Set ^KPR(PRNr,15) = Rec + Do ##class(vhLib.OldSchool).InitVars() Do RECALC^PRODUKT2(PRNr) Do BLDIND^PRODUKT2(PRNr) Do Gemaakt^PRODUKT2(PRNr)