Index: AXimpl/Admin/Common/ProductBepaler.cls.xml =================================================================== diff -u -r47783 -r48520 --- AXimpl/Admin/Common/ProductBepaler.cls.xml (.../ProductBepaler.cls.xml) (revision 47783) +++ AXimpl/Admin/Common/ProductBepaler.cls.xml (.../ProductBepaler.cls.xml) (revision 48520) @@ -58,6 +58,8 @@ Set ProductId = ..BlumProductAPI.GeefProductIdVolgensIdentNummer(IdentNummer,BlumKunde) Do:(ProductId="") ##class(TECH.Exceptions.InvalidInputException).Throw("Er is geen product gevonden voor IdentNummer " _IdentNummer _" en Soprcontract " _SoprContractId _"!") } else { + Set ProductId = ..GeefProductId(IdentNummer) + /* #dim LeverancierNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierNummerVoorPartijID(LeverancierId) #dim SearchCriteria As BL.Prod.sub.pxSearchCriteria = ##class(BL.Prod.sub.pxSearchCriteria).Create($$$ProdCritUsageAll) Set SearchCriteria.At="I" @@ -69,9 +71,11 @@ If ($LL(Producten) = 0) { Do ##class(TECH.Exceptions.InvalidInputException).Throw("Er is geen product gevonden voor IdentNummer " _IdentNummer _" en Leverancier " _LeverancierNummer _"!") } ElseIf ($LL(Producten) > 1) { + w !,##class(TECH.ListUtils).ListbuildToPieces( Producten,"#") Do ##class(TECH.Exceptions.InvalidInputException).Throw("Er zijn meerdere producten gevonden voor IdentNummer " _IdentNummer _" en Leverancier " _LeverancierNummer _"!") } Set ProductId = $LG(Producten) + */ } Quit ProductId ]]>