Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml
===================================================================
diff -u -r45890 -r48260
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 45890)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 48260)
@@ -19,6 +19,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="AxProduct">
 <Type>AX.Uitgaand.PM.Product.impl.Product</Type>
 <Private>1</Private>
@@ -65,7 +70,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>AankoopApi:DOM.AKP.AankoopAPI,Utils:AXimpl.Utils,LevNrConverter:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux</FormalSpec>
+<FormalSpec>AankoopApi:DOM.AKP.AankoopAPI,Utils:AXimpl.Utils,LevNrConverter:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux,ProductApi:DOM.PM.ProductAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -75,6 +80,7 @@
 	Set ..LevNrConverter = $$$Inject(LevNrConverter,##class(AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New())
 	Set ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New())
 	Set ..AankoopAPI = $$$Inject(AankoopApi,##class(DOM.DomeinContext).Instance().GeefAankoopAPI())
+	Set ..ProductApi = $$$Inject(ProductApi,##class(DOM.DomeinContext).Instance().GeefProductAPI())
 	Set ..BlumKundeOmzetter = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde).%New()
 	Set ..SoprConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
 	Set ..BlumProductApi = ##class(DOM.PM.impl.BlumProductAPI).%New()
@@ -91,10 +97,10 @@
 	
 	Do ..BepaalLeverancier(ToeleveringLijn)
 	Do ..BepaalAxProduct(ToeleveringLijn)
-	Do ..BepaalIsBlumProduct()
 	
+	Set ..IsBlumProduct = $$$If(..Leverancier.GeefID() = "L||5005",$$$True,$$$False)
 	If ..IsBlumProduct {
-		Do ..MaakSoprAxProduct()
+		Set ..SoprAxProduct = ..SoprConvertor.AdminNaarAx(..AxProduct.Basis.IdentNrToPRNr(..AxProduct.Basis.IdentNummer))
 	}
 	
 	Do ..ConvertGemeenschappelijk(ToeleveringLijn, Vestiging)
@@ -119,24 +125,24 @@
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxRegel.Origin = ToeleveringLijn.%ClassName() // Ter controle, komt de lijn uit DOM.AKP.ProductToeleveringLijn of APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp
-	Set ..AxRegel.ConfirmedDlv = ..BepaalConfirmedDlv(ToeleveringLijn)
+	Set ..AxRegel.ConfirmedDlv = $$$If(ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn"),..DatumFormatter.FormatDate(ToeleveringLijn.GeefLeverdag(),"dd/mm/yyyy"),"")
 	Set ..AxRegel.CurrencyCode = "EUR"
-	Set ..AxRegel.DeliveryDate = ..BepaalDeliveryDate(ToeleveringLijn)
+	Set ..AxRegel.DeliveryDate = $$$If(ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn"),..DatumFormatter.FormatDate(ToeleveringLijn.GeefLeverdag(),"dd/mm/yyyy"),"")
 	Set ..AxRegel.ExternalItemId = ..BepaalExternalItemId(ToeleveringLijn)
 	Set ..AxRegel.InventLocationId = "CACHE"
 	Set ..AxRegel.ItemId = ..BepaalItemId(ToeleveringLijn,Vestiging)
 	Set ..AxRegel.LineAmount = ..BepaalLineAmount(ToeleveringLijn)
 	Set ..AxRegel.LineNumber = ..BepaalLineNumber(ToeleveringLijn)
 	Set ..AxRegel.LinePercent = ..BepaalLinePercent(ToeleveringLijn)
-	Set ..AxRegel.OverDeliveryPct = ..BepaalOverDeliveryPct(ToeleveringLijn)
+	Set ..AxRegel.OverDeliveryPct = $$$If(ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn"),"50","")
 	Set ..AxRegel.PriceUnit = ..BepaalPriceUnit(ToeleveringLijn)
 	Set ..AxRegel.PurchId = ..BepaalPurchId(ToeleveringLijn)
 	Set ..AxRegel.PurchPrice = ..BepaalPurchPrice(ToeleveringLijn)
 	Set ..AxRegel.PurchQty = ..BepaalPurchQty(ToeleveringLijn)
 	Set ..AxRegel.PurchUnit = "STK"
 	Set ..AxRegel.TaxGroup = ..Utils.ConvertLeverancierTaxGroup(Vestiging,..Leverancier)
 	Set ..AxRegel.TaxItemGroup = "G3"
-	Set ..AxRegel.UnderDeliveryPct = ..BepaalUnderDeliveryPct(ToeleveringLijn)
+	Set ..AxRegel.UnderDeliveryPct = $$$If(ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn"),"50","")
 	Set ..AxRegel.VendGroup = ..Utils.ConvertLeverancierVendGroup(Vestiging,..Leverancier)
 	//Set ..AxRegel. = ""
 ]]></Implementation>
@@ -149,7 +155,7 @@
 <Implementation><![CDATA[
 	Set ..AxRegel.DefaultDimension = ..BepaalDefaultDimensionVanHoecke()
 	Set ..AxRegel.InventSiteId = "VHEPN1"
-	Set ..AxRegel.VendAccount = ..BepaalVendAccountVanHoecke()
+	Set ..AxRegel.VendAccount = ..AxRegel.DefaultDimension
 ]]></Implementation>
 </Method>
 
@@ -164,21 +170,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalConfirmedDlv">
-<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#Dim ConfirmedDlv As %String = ""
-	
-	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn") {
-		Set ConfirmedDlv = ..DatumFormatter.FormatDate(ToeleveringLijn.GeefLeverdag(),"dd/mm/yyyy")
-	}
-	
-	Quit ConfirmedDlv
-]]></Implementation>
-</Method>
-
 <Method name="BepaalDefaultDimensionHalux">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -200,7 +191,7 @@
 	#Dim LevId As %String = ..Leverancier.GeefID()
 	
 	If ..IsBlumProduct {
-		Set DefaultDimensionVanHoecke = ..BepaalLeverancierVolgensBlumKunde()
+		Set DefaultDimensionVanHoecke = ..BlumKundeOmzetter.AdminNaarAx(..SoprAxProduct.BlumKunde)
 	} Else {
 		Set DefaultDimensionVanHoecke = ##class(TECH.StringUtils).AddLeadingChar($Extract(LevId,$Find(LevId,"||"),$Length(LevId)),"0",5)
 	}
@@ -209,21 +200,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalDeliveryDate">
-<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#Dim DeliveryDate As %String = ""
-	
-	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn") {
-		Set DeliveryDate = ..DatumFormatter.FormatDate(ToeleveringLijn.GeefLeverdag(),"dd/mm/yyyy")
-	}
-	
-	Quit DeliveryDate
-]]></Implementation>
-</Method>
-
 <Method name="BepaalExternalItemId">
 <FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
@@ -260,10 +236,13 @@
 	}}} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp") {
 		#dim LeverancierReferentie As %String = ToeleveringLijn.LeverancierReferentie
 		Set ItemId = $Extract(LeverancierReferentie,1)_"."_$Extract(LeverancierReferentie,2,4)_"."_$Extract(LeverancierReferentie,5,7)_"."_$Extract(LeverancierReferentie,8)
-		If (..SoprAxProduct.HeeftVervangSoprPRNr = $$$True) {
-				#dim VervangProductBlOrdRsp As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..SoprAxProduct.VervangSoprPRNr)
-				Set ItemId = VervangProductBlOrdRsp.Basis.IdentNummer
-	}}
+		Set ItemId = ..GeefBestaandIdentNummer(ItemId)
+		#dim ItemIdAlsPRNr As %String = ..ProductApi.GeefProductIdVoorIdentNummer(ItemId)
+		If $$$HasLength(..SoprConvertor.GeefVervangProductDoorSOPRInAX(ItemIdAlsPRNr)) {
+			Set VervangProductBlOrdRsp = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..SoprConvertor.GeefVervangProductDoorSOPRInAX(ItemIdAlsPRNr))
+			Set ItemId = VervangProductBlOrdRsp.Basis.IdentNummer
+		}
+	}
 	
 	Quit ItemId
 ]]></Implementation>
@@ -319,21 +298,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalOverDeliveryPct">
-<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#Dim OverDeliveryPct As %String = ""
-	
-	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn") {
-		Set OverDeliveryPct = "50"
-	}
-	
-	Quit OverDeliveryPct
-]]></Implementation>
-</Method>
-
 <Method name="BepaalPriceUnit">
 <FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
@@ -410,21 +374,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalUnderDeliveryPct">
-<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#Dim UnderDeliveryPct As %String = ""
-	
-	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn") {
-		Set UnderDeliveryPct = "50"
-	}
-	
-	Quit UnderDeliveryPct
-]]></Implementation>
-</Method>
-
 <Method name="BepaalVendAccountHalux">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -436,53 +385,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalVendAccountVanHoecke">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim VendAccountVanHoecke As %String
-	
-	Set VendAccountVanHoecke = ..BepaalDefaultDimensionVanHoecke()
-	
-	Quit VendAccountVanHoecke
-]]></Implementation>
-</Method>
-
-<Method name="BepaalIsBlumProduct">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim LeverancierId As %String = ..Leverancier.GeefID()
-	
-	If (LeverancierId = "L||5005") {
-		Set ..IsBlumProduct = $$$True
-	}
-	
-	Quit
-]]></Implementation>
-</Method>
-
-<Method name="MaakSoprAxProduct">
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set ..SoprAxProduct = ..SoprConvertor.AdminNaarAx(..AxProduct.Basis.IdentNrToPRNr(..AxProduct.Basis.IdentNummer))
-	
-	Quit
-]]></Implementation>
-</Method>
-
-<Method name="BepaalLeverancierVolgensBlumKunde">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim LeverancierVolgensBlumKunde As %String
-	#dim BlumKunde As %String = ..SoprAxProduct.BlumKunde
-	
-	Set LeverancierVolgensBlumKunde = ..BlumKundeOmzetter.AdminNaarAx(BlumKunde)
-	
-	Quit LeverancierVolgensBlumKunde
-]]></Implementation>
-</Method>
-
 <Method name="BepaalLeverancier">
 <FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
@@ -510,6 +412,24 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBestaandIdentNummer">
+<FormalSpec>ItemId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Gevonden As %Boolean = $$$False
+	#dim IdentNummer,Prefix As %String = ItemId
+	#dim CH As %Integer
+	
+	For Prefix=0,1,2,3,4,5,7,8 DO  IF Prefix=8 FOR CH=65:1:90 Set Prefix=$char(CH) Do  ; [IdentNummer] 0..8 & A..Z
+	. Quit:Gevonden
+	. Set IdentNummer = Prefix_$Extract(ItemId,2,*)
+	. Set:..ProductApi.BestaatIdentNr(IdentNummer) Gevonden = $$$True
+	
+	Quit IdentNummer
+]]></Implementation>
+</Method>
 </Class>