Index: AXimpl/Dynamics/SalesOrderIn/Converter/ProductBepaler.cls.xml
===================================================================
diff -u -r43327 -r45084
--- AXimpl/Dynamics/SalesOrderIn/Converter/ProductBepaler.cls.xml	(.../ProductBepaler.cls.xml)	(revision 43327)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/ProductBepaler.cls.xml	(.../ProductBepaler.cls.xml)	(revision 45084)
@@ -21,6 +21,25 @@
 	Quit $LG(Producten)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefProductNummerVoorLeverancierID">
+<FormalSpec>IdentNummer:%String,LeverancierID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#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"
+	Set SearchCriteria.SearchTxt = IdentNummer
+	Set SearchCriteria.LimitSupplier = LeverancierNummer
+	#dim Producten As %List = ##class(BL.Prod.Search).SearchIndexAsList(SearchCriteria)
+	If ($LL(Producten) = 0) {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Er is geen product gevonden voor IdentNummer " _IdentNummer _" en Leverancier " _LeverancierNummer _"!")
+	} ElseIf ($LL(Producten) > 1) {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Er zijn meerdere producten gevonden voor IdentNummer " _IdentNummer _" en Leverancier " _LeverancierNummer _"!")
+	}
+	Quit $LG(Producten)
+]]></Implementation>
+</Method>
 </Class>