Index: APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml
===================================================================
diff -u -r47555 -r54045
--- APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml	(.../Extract2IntakeEnGeleverd.cls.xml)	(revision 47555)
+++ APPS/BD/OrderStat/impl/Extract2IntakeEnGeleverd.cls.xml	(.../Extract2IntakeEnGeleverd.cls.xml)	(revision 54045)
@@ -2,7 +2,6 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd">
 <ClassType/>
-<CompileAfter>APPS.BD.OrderStat.impl.OrderIntake,APPS.BD.OrderStat.impl.OrderGeleverd</CompileAfter>
 <IncludeCode>vhLib.Macro,BL.Derde.KlantSpecifiek</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
@@ -122,34 +121,53 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+</Property>
+
+<Property name="Jaar">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Van:%Date,Tot:%Date</FormalSpec>
+<FormalSpec>Jaar:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ..Jaar=Jaar
 	Set ..VanDatum=+$G(Van)
 	Set ..TotDatum=+$G(Tot)
-	Set:..VanDatum=0 ..VanDatum=$$CALCDATE^vhLib.DataTypes($H,"BJ",-1,"FD")
-	Set:..TotDatum=0 ..TotDatum=$$CALCDATE^vhLib.DataTypes($H,"BJ",-1,"LD") 
-	Set ..VanDatum=..TotDatum-30 ;$$CALCDATE^vhLib.DataTypes($H,"M",-24,"FD")
+	If ..Jaar="All"
+	{
+		Set ..VanDatum=$$INTDATE^vhLib.DataTypes("01/07/"_2017)
+		Set ..TotDatum=$$INTDATE^vhLib.DataTypes("31/12/"_2017)
+	}
+	Else
+	{
+		Set:..VanDatum=0 ..VanDatum=$$INTDATE^vhLib.DataTypes("01/01/"_..Jaar)
+		Set:..TotDatum=0 ..TotDatum=$$INTDATE^vhLib.DataTypes("31/12/"_..Jaar)
+	}
 	;Set ..TotDatum=$$CALCDATE^vhLib.DataTypes($H,"M",-1,"LD") 
-	Set ..AfstandBepaler=##class(APPS.BD.CarbonFootprint.impl.AfstandBepaler).%New()
-	
+	;Set ..AfstandBepaler=##class(APPS.BD.CarbonFootprint.impl.AfstandBepaler).%New()
+	 Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="BouwEnFile">
 <Description>
-	D ##class(APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd).%New().BouwEnFile("I")</Description>
+	D ##class(APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd).%New("All").BouwEnFile("F")
+	D ##class(APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd).%New(),CorrStatistiek()</Description>
 <FormalSpec>WelkBestand:%String="IL"</FormalSpec>
 <Implementation><![CDATA[
 	;Set Dev=$$OPEN^vhDEV("c:\scratch","OrderStat_Build.txt","W","T")
 	;Use Dev
 
 	Do ..HerbouwenOrders()
 	;Do CLOSE^vhDEV(Dev)
+	Do:WelkBestand["F" ##class(APPS.BD.OrderStat.impl.OrderFacturen).Export2File(..Jaar),##class(APPS.BD.OrderStat.impl.BIProduct).Export2File(..Jaar)
 	Do:WelkBestand["L" ##class(APPS.BD.OrderStat.impl.OrderGeleverd).Export2File()
 	Do:WelkBestand["I" ##class(APPS.BD.OrderStat.impl.OrderIntake).Export2File()
 ]]></Implementation>
@@ -159,11 +177,17 @@
 <Implementation><![CDATA[
 	Do ##class(APPS.BD.OrderStat.impl.OrderIntake).DeleteAll()
 	Do ##class(APPS.BD.OrderStat.impl.OrderGeleverd).DeleteAll()
+	Do ##class(APPS.BD.OrderStat.impl.OrderFacturen).DeleteAll()
+	Do ##class(APPS.BD.OrderStat.impl.BIProduct).DeleteAll()
+	k ^||MaandCumul
+	k ^||MaandCumulK
 
 	Do ..HerbouwenOrdersVanuitKFA()
-	Do ..HerbouwenOrdersVanuitKFAP()
-	Do ..HerbouwenOrdersVanuitKUL()
-	Do ..HerbouwenOrdersVanuitKOD()
+	Do ..CorrStatistiekKlant()
+	Do ..CorrStatistiekAll()
+	;Do ..HerbouwenOrdersVanuitKFAP()
+	;Do ..HerbouwenOrdersVanuitKUL()
+	;Do ..HerbouwenOrdersVanuitKOD()
 ]]></Implementation>
 </Method>
 
@@ -186,7 +210,7 @@
 	 		While ..FAKNr'="" 
 	 		{
 			;w !,"  Faktuur",..MinDatum," ",..FAKNr
-				Do ..HerbouwOrderVanuitKFALijnen()
+				Do:..CheckDatum(-..MinDatum) ..HerbouwOrderVanuitKFALijnen()
 		 		Set ..FAKNr=$O(^KFA1(..Node,..KLNr,..MinDatum,..FAKNr))	
 	 		}
 	 		Set ..MinDatum=$O(^KFA1(..Node,..KLNr,..MinDatum))
@@ -222,7 +246,7 @@
 				Set VerwachteLeverDatum=$P(Rec,"\",29)
 				Set OmzetVerkoop=$P(Rec,"\",34)
 				Set OmzetAankoop=$P(Rec,"\",33)
-				Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
+				;Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 				Do ..AddGeleverd(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 			}
 			Set LNr=$O(^KFA(..Node,..FAKNr,BONNr,LNr))
@@ -281,7 +305,7 @@
 				Set VerwachteLeverDatum=$P(Rec,"\",29)
 				Set OmzetVerkoop=$P(Rec,"\",34)
 				Set OmzetAankoop=$P(Rec,"\",33)
-				Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
+				;Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 				Do ..AddGeleverd(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 			}
 			Set LNr=$O(^KFAP(..Node,..FAKNr,BONNr,LNr))
@@ -299,15 +323,22 @@
 	While ..KLNr'=""
 	{
 		Set ..Node=$O(^KUL(..KLNr,""))
-		While ..Node="F"
+		While ..Node'=""
 		{
-			Set ..FromType=$S(..Node="F":"U",1:"F") ; in levering of reeds gefactureerd
-	 		Set ..BONNr=$O(^KUL(..KLNr,..Node,""))
-	 		While ..BONNr'="" 
-	 		{
-				Do ..HerbouwOrderVanuitKULLijnen()
-		 		Set ..BONNr=$O(^KUL(..KLNr,..Node,..BONNr))	
-	 		}
+			If ((..Node="F")||(..Node="G"))
+			{
+				Set ..FromType=$S(..Node="F":"U",1:"F") ; in levering of reeds gefactureerd
+		 		Set ..BONNr=$O(^KUL(..KLNr,..Node,""))
+		 		While ..BONNr'="" 
+		 		{
+					Set LeverDatum=$$INTDATE^vhLib.DataTypes($P(^KUL(..KLNr,..Node,..BONNr,1),"\",2),"DKP")
+					If (..Node="F")||((..Node="G")&&(LeverDatum>$$INTDATE^vhLib.DataTypes("01.01.18","DKP")))
+					{
+						Do ..HerbouwOrderVanuitKULLijnen()
+					}
+			 		Set ..BONNr=$O(^KUL(..KLNr,..Node,..BONNr))	
+		 		}
+			}
 	 		Set ..Node=$O(^KUL(..KLNr,..Node))
 		}
 		Set ..KLNr=$O(^KUL(..KLNr))
@@ -335,7 +366,7 @@
 			Set VerwachteLeverDatum=$P(Rec,"\",29)
  			Set OmzetVerkoop=$P(Rec,"\",9)
  			Set OmzetAankoop=..CifPPL(PRNr)*Qty
- 			Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
+ 			;Do ..AddIntake(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 			Do ..AddGeleverd(PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
 		}
 		Set LNr=$O(^KUL(..KLNr,..Node,..BONNr,LNr))
@@ -377,12 +408,12 @@
 	{
 		Set AdresNode="   "_$P(AdresRec,"\",1)
 		Set AdresNode="L"_$E(AdresNode,$L(AdresNode)-3)
-		Set AdresRec=$G(^KKL(^KK1(..KLNr),AdresNode))
+		Set AdresRec=$G(^KKL(^KK1(KLNr),AdresNode))
 	}
 	
 	If $TR($P(AdresRec,"\",1,9),"\ ","")="" ; geen adres opgegeven default naar de klant hoofdadres
 	{
-		Set AdresRec=$G(^KKL(^KK1(..KLNr),0))
+		Set AdresRec=$G(^KKL(^KK1(KLNr),0))
 	}
 	Set ..Woonplaats=$P(AdresRec,"\",7)
 	Set ..PostKode=$P(AdresRec,"\",6)
@@ -496,20 +527,89 @@
 <Method name="AddGeleverd">
 <FormalSpec>PRNr:%String,Qty:%Integer,BevestigdeLeverDatum:%Date,VerwachteLeverDatum:%Date,OmzetVerkoop:%Float,OmzetAankoop:%Float</FormalSpec>
 <Implementation><![CDATA[
+	If '..ExistProduct(PRNr)
 	
-	Quit:'..ExistProduct(PRNr)
-	Quit:'..CheckDatum(..PickDatum)
-	
-	Set OrderInLevering=##class(OrderGeleverd).Add(..FromType,..KLNr,..ORDNr,..OrderDatum,..OrderTijd,..IntakeType,..OrderVerwerker,..BONNr,..LeverDatum,..Verzendwijze,..PickDatum,..PickTijd,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
+	Quit:'..CheckDatum(-..MinDatum)
+	;Set OrderInLevering=##class(OrderGeleverd).Add(..FromType,..KLNr,..ORDNr,..OrderDatum,..OrderTijd,..IntakeType,..OrderVerwerker,..BONNr,..LeverDatum,..Verzendwijze,..PickDatum,..PickTijd,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
+	Set OrderFactuur=##class(OrderFacturen).Add(..Translator,..FAKNr,-..MinDatum,..FromType,..KLNr,..ORDNr,..OrderDatum,..OrderTijd,..IntakeType,..OrderVerwerker,..BONNr,..LeverDatum,..Verzendwijze,..PickDatum,..PickTijd,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop)
+	Do ##class(OrderFacturen).MaandCumul(OrderFactuur)
 ]]></Implementation>
 </Method>
 
+<Method name="CorrStatistiekKlant">
+<Implementation><![CDATA[
+	Set KLNr=$O(^||MaandCumulK(""))
+
+	While KLNr
+	{
+		Set ..KLNr=KLNr
+		Do ..ExtractLeverAdres("")
+		Set Maand=$O(^||MaandCumul(""))
+		While Maand
+		{
+			Set FaktOmz=$LG($G(^||MaandCumulK(KLNr,Maand)),1)
+			Set FaktKost=$LG($G(^||MaandCumulK(KLNr,Maand)),2)
+			Set Maand4J=$$EXTDATE^vhLib.DataTypes(Maand,"DM4")_" "
+			Set StatOmz=$P($G(^KSTKL(KLNr,0,Maand4J)),"\",3)
+			Set StatMarge=$P($G(^KSTKL(KLNr,0,Maand4J)),"\",4)
+			
+			Set Verschil=StatOmz-FaktOmz
+			Set:Verschil<0 Verschil=-Verschil
+			If Verschil>1
+			{
+				Write KLNr," ",Maand, " ",Maand4J," o:",FaktOmz," = ",StatOmz," M:",FaktKost," = ",StatOmz-StatMarge,!
+				Set PRNr=902707
+				Set OrderFactuur=##class(OrderFacturen).Add(..Translator,"999999",Maand,"X",KLNr,999999,Maand,0,"OV","",999999,Maand,"INT",0,0,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,1,Maand,Maand,(StatOmz-FaktOmz),(StatOmz-StatMarge-FaktKost))
+				Do ##class(OrderFacturen).MaandCumul(OrderFactuur)
+			}
+			Set Maand=$O(^||MaandCumul(Maand))
+		}
+		Set KLNr=$O(^||MaandCumulK(KLNr))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CorrStatistiekAll">
+<Implementation><![CDATA[
+	w !!
+		Set ..KLNr=$$$KlantVanHoeckeNV
+		Do ..ExtractLeverAdres("")
+		Set Maand=$O(^||MaandCumul(""))
+		While Maand
+		{
+			Set FaktOmz=$LI(^||MaandCumul(Maand),1)
+			Set FaktKost=$LI(^||MaandCumul(Maand),2)
+			Set Maand4J=$$EXTDATE^vhLib.DataTypes(Maand,"DM4")_" "
+			Set StatOmz=0, StatMarge=0
+			Set KLNr=$O(^KSTKL(0))
+			w Maand4J,!
+			While KLNr
+			{
+				Set StatOmz=StatOmz+$P($G(^KSTKL(KLNr,0,Maand4J)),"\",3)
+				Set StatMarge=StatMarge+$P($G(^KSTKL(KLNr,0,Maand4J)),"\",4)
+				Set KLNr=$O(^KSTKL(KLNr))
+			}
+			
+			Set Verschil=StatOmz-FaktOmz
+			Set:Verschil<0 Verschil=-Verschil
+			If Verschil>1
+			{
+				Write ..KLNr," ",Maand, " ",Maand4J," o:",FaktOmz," = ",StatOmz," M:",FaktKost," = ",StatOmz-StatMarge,!
+				Set PRNr=902707
+				Set OrderFactuur=##class(OrderFacturen).Add(..Translator,"999999",Maand,"X",..KLNr,888888,Maand,0,"OV","",888888,Maand,"INT",0,0,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,1,Maand,Maand,(StatOmz-FaktOmz),(StatOmz-StatMarge-FaktKost))
+			}
+			Set Maand=$O(^||MaandCumul(Maand))
+		}
+]]></Implementation>
+</Method>
+
 <Method name="ExistProduct">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	Quit:PRNr'?4.8N 0
-	Quit:'$D(^KPR(PRNr)) 0
+	Quit:PRNr'?4.10N 0
+	
+	Quit:('$D(^KPR(PRNr))) 0
 	;Quit:'(($P($$GENTYP^HAD(PRNr),"\")="TBX")||($P($$GENTYP^HAD(PRNr),"\")="LBX")) 0
 	Quit 1
 ]]></Implementation>
@@ -522,7 +622,7 @@
 <Implementation><![CDATA[
 	Quit:'..ExistProduct(PRNr) 0
 	Set D="\"
-	Quit $P($$PRIJSGEG^KPRIJS(PRNr,.NoSa),D,6)
+	Quit $$CifPPL^KPRIJS(PRNr,.NoSa)
 ]]></Implementation>
 </Method>
 
Index: AXimpl/PM/Kenmerk/ConvertProductAbstract.cls.xml
===================================================================
diff -u
--- AXimpl/PM/Kenmerk/ConvertProductAbstract.cls.xml	(revision 0)
+++ AXimpl/PM/Kenmerk/ConvertProductAbstract.cls.xml	(revision 54045)
@@ -0,0 +1,158 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.PM.Kenmerk.ConvertProductAbstract">
+<Super>%RegisteredObject</Super>
+
+<Property name="ConfiguratorService">
+<Type>APPS.VKP.Maatwerk.impl.ConfiguratorService</Type>
+</Property>
+
+<Property name="AppsNaarEconConverter">
+<Type>ECONimpl.PM.Maatwerk.AppsConverter</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+LBX  d ##Class(AXimpl.PM.Kenmerk.ConvertLBX).%New().Converteer("PR:1941680",1941680,"")
+TBX d ##Class(AXimpl.PM.Kenmerk.ConvertTBX).%New().Converteer("PR:1991580",1991580,"")
+TBX d ##Class(AXimpl.PM.Kenmerk.ConvertTBX).%New().Converteer("PR:1083199",1083199,"")
+TAX d ##Class(AXimpl.PM.Kenmerk.ConvertTAX).%New().Converteer("PR:2032286",2032286,"")</Description>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ConfiguratorService = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New()
+	Set ..AppsNaarEconConverter = ##class(ECONimpl.PM.Maatwerk.AppsConverter).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefProperties">
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	#dim lb as %List =""
+	Set lb=lb_$LB("Familie")
+	Set lb=lb_$LB("Variant")
+	
+	Quit lb
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>QlikProductID:%String,PRNr:%String,RecID</FormalSpec>
+<ReturnType>WS.Vhisie4.QRcodeNaarKenmerkenResponse</ReturnType>
+<Implementation><![CDATA[
+	try {
+		#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(PRNr)
+		#dim arKenmerken As %ArrayOfDataTypes = ..AppsNaarEconConverter.ConverteerAppsNaarEcon(IngegevenKenmerken).ToArray()
+		}
+	Catch
+		{
+		set arKenmerken=""
+		}
+		
+	Quit:arKenmerken=""
+	
+	Set Kenmerken=##class(Kenmerken).%New()
+	Set Kenmerken.ProductID=QlikProductID
+	Do Kenmerken.ProductSetObjectId(PRNr)
+	Quit:'$isObject(Kenmerken.Product)
+	
+	;Set Kenmerken.RecID=RecID
+	#dim SetCount as %Integer=0
+	#dim Key as %String=""
+	While arKenmerken.GetNext(.Key)'=""
+	{
+		Do ..ConverteerBasicKeyToProperty(Key) ; Logging
+
+		#dim Property as %String=..ConverteerKeyToProperty(Key)
+		If $L(Property)
+		{
+			#dim Value as %String=arKenmerken.GetAt(Key)
+			If Value'=""
+			{
+				;Write:Property="" $S(Property="":"???"_Key,1:Property)," ",Value,!
+				try {
+					Set $Property(Kenmerken,Property)=Value
+					Set SetCount=SetCount+1
+					If '$D(^PVKeys("EXIST",Property))
+					{
+						Set ^PVKeys("EXIST")=$G(^PVKeys("EXIST"))_","_..ConverteerKeyToSQLName(Key)
+					}
+					Set ^PVKeys("EXIST",Property,Key,$E(..%ClassName(),8,11))=""
+					
+				}
+				Catch
+				{
+					Set ^PVKeys("ERROR",Property,Key,$E(..%ClassName(),8,11))=""
+				}
+			}
+		}
+		Else
+		{
+			Set ^PVKeys("MISSING",Key,$E(..%ClassName(),8,11))=""
+		}
+	}
+	;Do DumpObject^%apiOBJ(Kenmerken)
+	Do:SetCount Kenmerken.Save()
+	Write:SetCount "."
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerBasicKeyToProperty">
+<FormalSpec>Key:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim KeyCompact as %String=$TR($P(Key,".",$L(Key,".")),"_","")
+	Set KeyCompact=$$REPLACE^vhRtn1(KeyCompact,"Nietmeeleveren","NM")
+	Set ^PVKeys("PROPERTY",..Strip2Nodes(Key),KeyCompact,$E(..%ClassName(),8,11))=""
+	Quit KeyCompact
+]]></Implementation>
+</Method>
+
+<Method name="Strip2Nodes">
+<FormalSpec>Key:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If $P(Key,".",1,2)="Data.Kenmerken"
+	{
+		Set Key=$P(Key,".",3,9)
+	}
+	If $P(Key,".",1)="Nietmeeleveren"
+	{
+		Set Key=$P(Key,".",2,9)
+	}
+	Quit Key
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerKeyToProperty">
+<FormalSpec>Key:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..TranslateProperty(..Strip2Nodes(Key))
+]]></Implementation>
+</Method>
+
+<Method name="TranslateProperty">
+<FormalSpec>Key:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit Key
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerKeyToSQLName">
+<FormalSpec>Key:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..TranslateSQLName(..Strip2Nodes(Key))
+]]></Implementation>
+</Method>
+
+<Method name="TranslateSQLName">
+<FormalSpec>Key:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[ Quit $G(SQLName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/PM/Kenmerk/ConvertTBX.cls.xml
===================================================================
diff -u
--- AXimpl/PM/Kenmerk/ConvertTBX.cls.xml	(revision 0)
+++ AXimpl/PM/Kenmerk/ConvertTBX.cls.xml	(revision 54045)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.PM.Kenmerk.ConvertTBX">
+<Super>ConvertProductAbstract</Super>
+
+<Method name="GeefProperties">
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	#dim lb as %List =""
+ Set:Key="Bodemkleur" Property="BodemKleur"
+ Set:Key="Corpusbreedte" Property="CorpusBreedte"
+ Set:Key="Corpuswanddikte" Property="CorpusWandDikte"
+ Set:Key="Draagkracht" Property="Draagkracht"
+ Set:Key="Dwarsverdelingaantal" Property="DwarsverdelingAantal"
+ Set:Key="Frontbevestiging" Property="FrontBevestiging"
+ Set:Key="Geleidertechnologie" Property="GeleiderTechnologie"
+ Set:Key="Heeftopvullijstlinks" Property="HeeftOpvullijstLinks"
+ Set:Key="Heeftopvullijstrechts" Property="HeeftOpvullijstRechts"
+ Set:Key="Heeftzijstabilisering" Property="HeeftZijstabilisering"
+ Set:Key="Isbinnenbreedte" Property="IsBinnenbreedte"
+ Set:Key="Isbinnenlade" Property="IsBinnenlade"
+ Set:Key="Ladediepte" Property="LadeDiepte"
+ Set:Key="Ladehoogte" Property="LadeHoogte"
+ Set:Key="Ladekleur" Property="LadeKleur"
+ Set:Key="Matkleur" Property="MatKleur"
+ Set:Key="Matmateriaal" Property="MatMateriaal"
+
+ Set:Key="Nietmeeleveren_afdekkapbinnen" Property="NMAfdekkapBinnen"
+ Set:Key="Nietmeeleveren_afdekkapbuiten" Property="NMAfdekkapBuiten"
+ Set:Key="Nietmeeleveren_afdekkaprugwandhouder" Property="NMAfdekkapRugWandHouder"
+ Set:Key="Nietmeeleveren_bevestigingbodemfront" Property="NMBevestigingBodemFront"
+ Set:Key="Nietmeeleveren_frontbevestiging" Property="NMFrontBevestiging"
+ Set:Key="Nietmeeleveren_geleider" Property="NMGeleider"
+ Set:Key="Nietmeeleveren_inschuifelementvoor" Property="NMInschuifElementVoor"
+ Set:Key="Nietmeeleveren_inschuifelementzijkant" Property="NMInschuifElementZijkant"
+ Set:Key="Nietmeeleveren_opvullijst" Property="NMOpvullijst"
+
+ Set:Key="Nietmeeleveren_tiponblumotionseteenhedenenmeenemers" Property="NMTOBSetEenhedenEnMeenemers"
+ Set:Key="Nietmeeleveren_tiponblumotionsynchronisatiestang" Property="NMTOBSynchronisatieStang"
+
+ Set:Key="Nietmeeleveren_zijstabilisering" Property="NMZijstabilisering"
+ Set:Key="Opvullijstkleur" Property="OpvullijstKleur"
+ Set:Key="Productiewijze" Property="ProductieWijze"
+ Set:Key="Rughoogte" Property="RugHoogte"
+ Set:Key="Rugwandmateriaal" Property="RugWandMateriaal"
+ Set:Key="Toepassing" Property="Toepassing"
+ Set:Key="Uitsparingdata.M.Breedte" Property="UitsparingDataMBreedte"
+ Set:Key="Uitsparingdata.M.Hoogte" Property="UitsparingDataMHoogte"
+ Set:Key="Uitsparingdata.M.Materiaal" Property="UitsparingDataMMateriaal"
+ Set:Key="Uitsparingdata.Uitsparingaantal" Property="UitsparingDataUitsparingAantal"
+ Set:Key="Uitsparingdata.X.Breedte" Property="UitsparingDataXBreedte"
+ Set:Key="Uitsparingdata.X.Hoogte" Property="UitsparingDataXHoogte"
+ Set:Key="Uitsparingdata.X.Materiaal" Property="UitsparingDataXMateriaal"
+ Set:Key="Uitsparingdata.Y.Breedte" Property="UitsparingDataYBreedte"
+ Set:Key="Uitsparingdata.Y.Hoogte" Property="UitsparingDataYHoogte"
+ Set:Key="Uitsparingdata.Y.Materiaal" Property="UitsparingDataYMateriaal"
+ Set:Key="Uitsparingdata.Z1.Breedte" Property="UitsparingDataZ1Breedte"
+ Set:Key="Uitsparingdata.Z1.Diepte" Property="UitsparingDataZ1Diepte"
+ Set:Key="Uitsparingdata.Z1.Hoogte" Property="UitsparingDataZ1Hoogte"
+ Set:Key="Uitsparingdata.Z1.Materiaal" Property="UitsparingDataZ1Materiaal"
+ Set:Key="Uitsparingdata.Z1.Vorm" Property="UitsparingDataZ1Vorm"
+ Set:Key="Uitsparingdata.Z2.Breedte" Property="UitsparingDataZ2Breedte"
+ Set:Key="Uitsparingdata.Z2.Diepte" Property="UitsparingDataZ2Diepte"
+ Set:Key="Uitsparingdata.Z2.Hoogte" Property="UitsparingDataZ2Hoogte"
+ Set:Key="Uitsparingdata.Z2.Materiaal" Property="UitsparingDataZ2Materiaal"
+ Set:Key="Uitsparingdata.Z2.Vorm" Property="UitsparingDataZ2Vorm"
+ Set:Key="Variant" Property="Variant"
+ Set:Key="Verpakkingtype" Property="VerpakkingType"
+ Set:Key="Voorwandtypevancbinnenlade" Property="VoorWandTypeVanCBinnenlade"
+ Set:Key="Voorwandtypevankbinnenlade" Property="VoorWandTypeVanKBinnenlade"
+ Set:Key="Voorwandtypevanmbinnenlade" Property="VoorWandTypeVanMBinnenlade"
+ Set:Key="Zijwandtype" Property="ZijWandType"
+
+	Quit lb
+]]></Implementation>
+</Method>
+
+<Method name="TranslateSQLName">
+<FormalSpec>Key:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+
+ 
+ Quit $G(SQLName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/PM/Kenmerk/Kenmerken.cls.xml
===================================================================
diff -u
--- AXimpl/PM/Kenmerk/Kenmerken.cls.xml	(revision 0)
+++ AXimpl/PM/Kenmerk/Kenmerken.cls.xml	(revision 54045)
@@ -0,0 +1,368 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.PM.Kenmerk.Kenmerken">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Index name="PrimKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>ProductID</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Property name="Product">
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="BodemKleur">
+<Description>
+
+vanaf hier kenmerken
+</Description>
+<Type>%String</Type>
+<SqlFieldName>BodemKleur</SqlFieldName>
+</Property>
+
+<Property name="CorpusBreedte">
+<Type>%String</Type>
+<SqlFieldName>CorpusBreedte</SqlFieldName>
+</Property>
+
+<Property name="CorpusWandDikte">
+<Type>%String</Type>
+<SqlFieldName>CorpusWandDikte</SqlFieldName>
+</Property>
+
+<Property name="Depth">
+<Type>%String</Type>
+<SqlFieldName>Depth</SqlFieldName>
+</Property>
+
+<Property name="DistinctProductVariant">
+<Type>%String</Type>
+<SqlFieldName>DistinctProductVariant</SqlFieldName>
+</Property>
+
+<Property name="Draagkracht">
+<Type>%String</Type>
+<SqlFieldName>Draagkracht</SqlFieldName>
+</Property>
+
+<Property name="DwarsverdelingAantal">
+<Type>%String</Type>
+<SqlFieldName>DwarsverdelingAantal</SqlFieldName>
+</Property>
+
+<Property name="Familie">
+<Type>%String</Type>
+<SqlFieldName>Familie</SqlFieldName>
+</Property>
+
+<Property name="FrontBevestiging">
+<Type>%String</Type>
+<SqlFieldName>FrontBevestiging</SqlFieldName>
+</Property>
+
+<Property name="GeleiderTechnologie">
+<Type>%String</Type>
+<SqlFieldName>GeleiderTechnologie</SqlFieldName>
+</Property>
+
+<Property name="HeeftOpvullijstLinks">
+<Type>%String</Type>
+<SqlFieldName>HeeftOpvullijstLinks</SqlFieldName>
+</Property>
+
+<Property name="HeeftOpvullijstRechts">
+<Type>%String</Type>
+<SqlFieldName>HeeftOpvullijstRechts</SqlFieldName>
+</Property>
+
+<Property name="HeeftZijstabilisering">
+<Type>%String</Type>
+<SqlFieldName>HeeftZijstabilisering</SqlFieldName>
+</Property>
+
+<Property name="Height">
+<Type>%String</Type>
+<SqlFieldName>Height</SqlFieldName>
+</Property>
+
+<Property name="IsBinnenbreedte">
+<Type>%String</Type>
+<SqlFieldName>IsBinnenbreedte</SqlFieldName>
+</Property>
+
+<Property name="IsBinnenlade">
+<Type>%String</Type>
+<SqlFieldName>IsBinnenlade</SqlFieldName>
+</Property>
+
+<Property name="ItemId">
+<Type>%String</Type>
+<SqlFieldName>ItemId</SqlFieldName>
+</Property>
+
+<Property name="LadeDiepte">
+<Type>%String</Type>
+<SqlFieldName>LadeDiepte</SqlFieldName>
+</Property>
+
+<Property name="LadeHoogte">
+<Type>%String</Type>
+<SqlFieldName>LadeHoogte</SqlFieldName>
+</Property>
+
+<Property name="LadeKleur">
+<Type>%String</Type>
+<SqlFieldName>LadeKleur</SqlFieldName>
+</Property>
+
+<Property name="MatKleur">
+<Type>%String</Type>
+<SqlFieldName>MatKleur</SqlFieldName>
+</Property>
+
+<Property name="MatMateriaal">
+<Type>%String</Type>
+<SqlFieldName>MatMateriaal</SqlFieldName>
+</Property>
+
+<Property name="NMAfdekkapBinnen">
+<Type>%String</Type>
+<SqlFieldName>NM_AfdekkapBinnen</SqlFieldName>
+</Property>
+
+<Property name="NMAfdekkapBuiten">
+<Type>%String</Type>
+<SqlFieldName>NM_AfdekkapBuiten</SqlFieldName>
+</Property>
+
+<Property name="NMAfdekkapRugWandHouder">
+<Type>%String</Type>
+<SqlFieldName>NM_AfdekkapRugWandHouder</SqlFieldName>
+</Property>
+
+<Property name="NMBevestigingBodemFront">
+<Type>%String</Type>
+<SqlFieldName>NM_BevestigingBodemFront</SqlFieldName>
+</Property>
+
+<Property name="NMFrontBevestiging">
+<Type>%String</Type>
+<SqlFieldName>NM_FrontBevestiging</SqlFieldName>
+</Property>
+
+<Property name="NMGeleider">
+<Type>%String</Type>
+<SqlFieldName>NM_Geleider</SqlFieldName>
+</Property>
+
+<Property name="NMInschuifElementVoor">
+<Type>%String</Type>
+<SqlFieldName>NM_InschuifElementVoor</SqlFieldName>
+</Property>
+
+<Property name="NMInschuifElementZijkant">
+<Type>%String</Type>
+<SqlFieldName>NM_InschuifElementZijkant</SqlFieldName>
+</Property>
+
+<Property name="NMOpvullijst">
+<Type>%String</Type>
+<SqlFieldName>NM_Opvullijst</SqlFieldName>
+</Property>
+
+<Property name="NMTOBSetEenhedenEnMeenemers">
+<Type>%String</Type>
+<SqlFieldName>NM_TOBSetEenhedenEnMeenemers</SqlFieldName>
+</Property>
+
+<Property name="NMTOBSynchronisatieStang">
+<Type>%String</Type>
+<SqlFieldName>NM_TOBSynchronisatieStang</SqlFieldName>
+</Property>
+
+<Property name="NMZijstabilisering">
+<Type>%String</Type>
+<SqlFieldName>NM_Zijstabilisering</SqlFieldName>
+</Property>
+
+<Property name="OpvullijstKleur">
+<Type>%String</Type>
+<SqlFieldName>OpvullijstKleur</SqlFieldName>
+</Property>
+
+<Property name="ProductieWijze">
+<Type>%String</Type>
+<SqlFieldName>ProductieWijze</SqlFieldName>
+</Property>
+
+<Property name="RetailVariantId">
+<Type>%String</Type>
+<SqlFieldName>RetailVariantId</SqlFieldName>
+</Property>
+
+<Property name="RugHoogte">
+<Type>%String</Type>
+<SqlFieldName>RugHoogte</SqlFieldName>
+</Property>
+
+<Property name="RugWandMateriaal">
+<Type>%String</Type>
+<SqlFieldName>RugWandMateriaal</SqlFieldName>
+</Property>
+
+<Property name="SearchName">
+<Type>%String</Type>
+<SqlFieldName>SearchName</SqlFieldName>
+</Property>
+
+<Property name="Toepassing">
+<Type>%String</Type>
+<SqlFieldName>Toepassing</SqlFieldName>
+</Property>
+
+<Property name="UitsparingMBreedte">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_M_Breedte</SqlFieldName>
+</Property>
+
+<Property name="UitsparingMHoogte">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_M_Hoogte</SqlFieldName>
+</Property>
+
+<Property name="UitsparingMMateriaal">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_M_Materiaal</SqlFieldName>
+</Property>
+
+<Property name="UitsparingUitsparingAantal">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_UitsparingAantal</SqlFieldName>
+</Property>
+
+<Property name="UitsparingXBreedte">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_X_Breedte</SqlFieldName>
+</Property>
+
+<Property name="UitsparingXHoogte">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_X_Hoogte</SqlFieldName>
+</Property>
+
+<Property name="UitsparingXMateriaal">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_X_Materiaal</SqlFieldName>
+</Property>
+
+<Property name="UitsparingYBreedte">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_Y_Breedte</SqlFieldName>
+</Property>
+
+<Property name="UitsparingYHoogte">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_Y_Hoogte</SqlFieldName>
+</Property>
+
+<Property name="UitsparingYMateriaal">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_Y_Materiaal</SqlFieldName>
+</Property>
+
+<Property name="UitsparingZ1Breedte">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_Z1_Breedte</SqlFieldName>
+</Property>
+
+<Property name="UitsparingZ1Diepte">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_Z1_Diepte</SqlFieldName>
+</Property>
+
+<Property name="UitsparingZ1Hoogte">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_Z1_Hoogte</SqlFieldName>
+</Property>
+
+<Property name="UitsparingZ1Materiaal">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_Z1_Materiaal</SqlFieldName>
+</Property>
+
+<Property name="UitsparingZ1Vorm">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_Z1_Vorm</SqlFieldName>
+</Property>
+
+<Property name="UitsparingZ2Breedte">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_Z2_Breedte</SqlFieldName>
+</Property>
+
+<Property name="UitsparingZ2Diepte">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_Z2_Diepte</SqlFieldName>
+</Property>
+
+<Property name="UitsparingZ2Hoogte">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_Z2_Hoogte</SqlFieldName>
+</Property>
+
+<Property name="UitsparingZ2Materiaal">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_Z2_Materiaal</SqlFieldName>
+</Property>
+
+<Property name="UitsparingZ2Vorm">
+<Type>%String</Type>
+<SqlFieldName>Uitsparing_Z2_Vorm</SqlFieldName>
+</Property>
+
+<Property name="Variant">
+<Type>%String</Type>
+<SqlFieldName>Variant</SqlFieldName>
+</Property>
+
+<Property name="VerpakkingType">
+<Type>%String</Type>
+<SqlFieldName>VerpakkingType</SqlFieldName>
+</Property>
+
+<Property name="VoorWandTypeVanCBinnenlade">
+<Type>%String</Type>
+<SqlFieldName>VoorWandTypeVanCBinnenlade</SqlFieldName>
+</Property>
+
+<Property name="VoorWandTypeVanKBinnenlade">
+<Type>%String</Type>
+<SqlFieldName>VoorWandTypeVanKBinnenlade</SqlFieldName>
+</Property>
+
+<Property name="VoorWandTypeVanMBinnenlade">
+<Type>%String</Type>
+<SqlFieldName>VoorWandTypeVanMBinnenlade</SqlFieldName>
+</Property>
+
+<Property name="Width">
+<Type>%String</Type>
+<SqlFieldName>Width</SqlFieldName>
+</Property>
+
+<Property name="ZijWandType">
+<Type>%String</Type>
+<SqlFieldName>ZijWandType</SqlFieldName>
+</Property>
+</Class>
+
+
+</Export>
Index: AXimpl/PM/Kenmerk/AXProductIterator.cls.xml
===================================================================
diff -u
--- AXimpl/PM/Kenmerk/AXProductIterator.cls.xml	(revision 0)
+++ AXimpl/PM/Kenmerk/AXProductIterator.cls.xml	(revision 54045)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.PM.Kenmerk.AXProductIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="Converter">
+<Type>AXimpl.Controle.Order.Ax.AxOrderLijnConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SqlQueryConnection">
+<Type>AXimpl.SqlQueryConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SqlQueryConnection:AXimpl.SqlQueryConnection</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SqlQueryConnection = $$$Implementation(SqlQueryConnection,##class(AXimpl.SqlQueryConnection).%New())
+	Do ..VoerUitQuery()
+	Set ..Converter = ##class(AXimpl.Controle.Order.Ax.AxOrderLijnConverter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	
+	Set SqlStatement = "SELECT "
+ 	_"  case isnull(ResProductMaster.ADUCALCTECHNOLOGYBOMBOL,0) WHEN 3 THEN sl.ITEMID WHEN 0 THEN sl.ITEMID ELSE ResProduct.DISPLAYPRODUCTNUMBER END as ProductID,"
+ 	_"  Kenmerk.RecID,"
+  	_"  case isnull(ResProductMaster.ADUCALCTECHNOLOGYBOMBOL,0) WHEN 3 THEN 'KIND' WHEN 0 THEN 'BESLAG' ELSE 'MW' END as ProductType, "
+  	_"  Inventtable.VHProductGroup as Familie,"
+  	_"  AdminProductNummer"
+ 	_" FROM SalesLine sl"
+ 	_" join InventTable  "
+ 	_"   on InventTable.ITEMID = sl.ITEMID and InventTable.DataAreaId = sl.DataAreaId and inventtable.PARTITION = sl.PARTITION"
+	_" join INVENTDIM dim "
+ 	_"   on dim.DATAAREAID = sl.DATAAREAID and dim.INVENTDIMID = sl.INVENTDIMID and dim.Partition=sl.PARTITION"
+ 	_" left outer join INVENTDIM dimbase "
+ 	_"   on dimbase.DATAAREAID = dim.DATAAREAID and dimbase.Partition=dim.PARTITION and dim.ConfigID =dimbase.configid and dimbase.WMSLOCATIONID='' and dimbase.inventlocationid ='' and dimbase.inventsiteid='' and dimbase.inventbatchid='' and dimbase.recversion=dim.recversion"
+	_" left outer join INVENTDIMCOMBINATION as Idc "
+ 	_"   on  Idc.DATAAREAID= sl.DATAAREAID and Idc.ITEMID=sl.ITEMID and Idc.INVENTDIMID=DimBase.INVENTDIMID and idc.PARTITION = sl.PARTITION"
+ 	_" left outer join ECORESPRODUCT ResProduct "
+ 	_"	on idc.DISTINCTPRODUCTVARIANT= ResProduct.RecID and ResProduct.PARTITION = sl.PARTITION"
+ 	_" join ECORESPRODUCT ResProductMaster"
+ 	_"	on ResProductMaster.RecID= isnull(ResProduct.ProductMaster,ResProduct.RecID) and ResProduct.PARTITION = sl.PARTITION"
+	_" left outer join ADUEcoResAttributeCombination as Kenmerk "
+ 	_"	on dim.ConfigId=Kenmerk.ConfigId and sl.ITEMID=Kenmerk.ITEMID and dim.ConfigId<>''"
+	_" where sl.Dataareaid='vhbe' "
+	_" and case isnull(ResProductMaster.ADUCALCTECHNOLOGYBOMBOL,0) WHEN 3 THEN 'KIND' WHEN 0 THEN 'BESLAG' ELSE 'MW' END ='MW'"
+	
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..ResultSet.Next() > 0)
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+    /// Listbuild : QlikProductID, AdminPRNr, AXRecID
+ 	Quit $LB(..ResultSet.Data("ProductID"),..ResultSet.Data("AdminProductNummer"),..ResultSet.Data("RecID"))
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do:$IsObject(..ResultSet) ..SqlQueryConnection.Disconnect()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/PM/Kenmerk/ConvertTAX.cls.xml
===================================================================
diff -u
--- AXimpl/PM/Kenmerk/ConvertTAX.cls.xml	(revision 0)
+++ AXimpl/PM/Kenmerk/ConvertTAX.cls.xml	(revision 54045)
@@ -0,0 +1,138 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.PM.Kenmerk.ConvertTAX">
+<Super>ConvertProductAbstract</Super>
+
+<Method name="TranslateProperty">
+<FormalSpec>Key:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+ Set:Key="Bodemkleur" Property="BodemKleur"
+ Set:Key="Corpusbreedte" Property="CorpusBreedte"
+ Set:Key="Corpuswanddikte" Property="CorpusWandDikte"
+ Set:Key="Draagkracht" Property="Draagkracht"
+ Set:Key="Frontbevestiging" Property="FrontBevestiging"
+
+ Set:Key="Geleidertechnologie" Property="GeleiderTechnologie"
+
+
+ Set:Key="Heeftopvullijstlinks" Property="HeeftOpvullijstLinks"
+ Set:Key="Heeftopvullijstrechts" Property="HeeftOpvullijstRechts"
+ Set:Key="Heeftzijstabilisering" Property="HeeftZijstabilisering"
+ Set:Key="Isbinnenbreedte" Property="IsBinnenbreedte"
+ Set:Key="Isbinnenlade" Property="IsBinnenlade"
+
+
+
+ Set:Key="Ladediepte" Property="LadeDiepte"
+ Set:Key="Ladehoogte" Property="LadeHoogte"
+ Set:Key="Ladekleur" Property="LadeKleur"
+
+ Set:Key="Matkleur" Property="MatKleur"
+ Set:Key="Matmateriaal" Property="MatMateriaal"
+
+
+ Set:Key="Nietmeeleveren_frontbevestiging" Property="NMFrontBevestiging"
+ Set:Key="Nietmeeleveren_geleider" Property="NMGeleider"
+
+ Set:Key="Nietmeeleveren_opvullijst" Property="NMOpvullijst"
+
+ Set:Key="Nietmeeleveren_tiponblumotionseteenhedenenmeenemers" Property="NMTOBSetEenhedenEnMeenemers"
+ Set:Key="Nietmeeleveren_tiponblumotionsynchronisatiestang" Property="NMTOBSynchronisatieStang"
+
+ Set:Key="Opvullijstkleur" Property="OpvullijstKleur"
+ Set:Key="Productiewijze" Property="ProductieWijze"
+ Set:Key="Rughoogte" Property="RugHoogte"
+
+ Set:Key="Toepassing" Property="Toepassing"
+ Set:Key="Uitsparingdata.M.Breedte" Property="UitsparingMBreedte"
+ Set:Key="Uitsparingdata.Uitsparingaantal" Property="UitsparingUitsparingAantal"
+ Set:Key="Uitsparingdata.X.Breedte" Property="UitsparingXBreedte"
+ Set:Key="Uitsparingdata.X.Hoogte" Property="UitsparingXHoogte"
+ Set:Key="Uitsparingdata.X.Materiaal" Property="UitsparingXMateriaal"
+ Set:Key="Uitsparingdata.Y.Breedte" Property="UitsparingYBreedte"
+ Set:Key="Uitsparingdata.Y.Hoogte" Property="UitsparingYHoogte"
+ Set:Key="Uitsparingdata.Y.Materiaal" Property="UitsparingYMateriaal"
+ Set:Key="Uitsparingdata.Z1.Breedte" Property="UitsparingZ1Breedte"
+ Set:Key="Uitsparingdata.Z1.Diepte" Property="UitsparingZ1Diepte"
+ Set:Key="Uitsparingdata.Z1.Hoogte" Property="UitsparingZ1Hoogte"
+ Set:Key="Uitsparingdata.Z1.Materiaal" Property="UitsparingZ1Materiaal"
+ Set:Key="Uitsparingdata.Z1.Vorm" Property="UitsparingZ1Vorm"
+ Set:Key="Uitsparingdata.Z2.Breedte" Property="UitsparingZ2Breedte"
+ Set:Key="Uitsparingdata.Z2.Diepte" Property="UitsparingZ2Diepte"
+ Set:Key="Variant" Property="Variant"
+ Set:Key="Verpakkingtype" Property="VerpakkingType"
+
+	
+ Quit $G(Property)
+]]></Implementation>
+</Method>
+
+<Method name="TranslateSQLName">
+<FormalSpec>Key:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+
+  Set:Key="Bodemkleur" SQLName="BodemKleur"
+ Set:Key="Corpusbreedte" SQLName="CorpusBreedte"
+ Set:Key="Corpuswanddikte" SQLName="CorpusWandDikte"
+ Set:Key="Draagkracht" SQLName="Draagkracht"
+ Set:Key="Frontbevestiging" SQLName="FrontBevestiging"
+
+ Set:Key="Geleidertechnologie" SQLName="GeleiderTechnologie"
+
+
+ Set:Key="Heeftopvullijstlinks" SQLName="HeeftOpvullijstLinks"
+ Set:Key="Heeftopvullijstrechts" SQLName="HeeftOpvullijstRechts"
+ Set:Key="Heeftzijstabilisering" SQLName="HeeftZijstabilisering"
+ Set:Key="Isbinnenbreedte" SQLName="IsBinnenbreedte"
+ Set:Key="Isbinnenlade" SQLName="IsBinnenlade"
+
+
+
+ Set:Key="Ladediepte" SQLName="LadeDiepte"
+ Set:Key="Ladehoogte" SQLName="LadeHoogte"
+ Set:Key="Ladekleur" SQLName="LadeKleur"
+
+ Set:Key="Matkleur" SQLName="MatKleur"
+ Set:Key="Matmateriaal" SQLName="MatMateriaal"
+
+
+ Set:Key="Nietmeeleveren_frontbevestiging" SQLName="NM_FrontBevestiging"
+ Set:Key="Nietmeeleveren_geleider" SQLName="NM_Geleider"
+
+ Set:Key="Nietmeeleveren_opvullijst" SQLName="NM_Opvullijst"
+
+ Set:Key="Nietmeeleveren_tiponblumotionseteenhedenenmeenemers" SQLName="NM_TOBSetEenhedenEnMeenemers"
+ Set:Key="Nietmeeleveren_tiponblumotionsynchronisatiestang" SQLName="NM_TOBSynchronisatieStang"
+
+ Set:Key="Opvullijstkleur" SQLName="OpvullijstKleur"
+ Set:Key="Productiewijze" SQLName="ProductieWijze"
+ Set:Key="Rughoogte" SQLName="RugHoogte"
+
+ Set:Key="Toepassing" SQLName="Toepassing"
+ Set:Key="Uitsparingdata.M.Breedte" SQLName="Uitsparing_M_Breedte"
+ Set:Key="Uitsparingdata.Uitsparingaantal" SQLName="Uitsparing_UitsparingAantal"
+ Set:Key="Uitsparingdata.X.Breedte" SQLName="Uitsparing_X_Breedte"
+ Set:Key="Uitsparingdata.X.Hoogte" SQLName="Uitsparing_X_Hoogte"
+ Set:Key="Uitsparingdata.X.Materiaal" SQLName="Uitsparing_X_Materiaal"
+ Set:Key="Uitsparingdata.Y.Breedte" SQLName="Uitsparing_Y_Breedte"
+ Set:Key="Uitsparingdata.Y.Hoogte" SQLName="Uitsparing_Y_Hoogte"
+ Set:Key="Uitsparingdata.Y.Materiaal" SQLName="Uitsparing_Y_Materiaal"
+ Set:Key="Uitsparingdata.Z1.Breedte" SQLName="Uitsparing_Z1_Breedte"
+ Set:Key="Uitsparingdata.Z1.Diepte" SQLName="Uitsparing_Z1_Diepte"
+ Set:Key="Uitsparingdata.Z1.Hoogte" SQLName="Uitsparing_Z1_Hoogte"
+ Set:Key="Uitsparingdata.Z1.Materiaal" SQLName="Uitsparing_Z1_Materiaal"
+ Set:Key="Uitsparingdata.Z1.Vorm" SQLName="Uitsparing_Z1_Vorm"
+ Set:Key="Uitsparingdata.Z2.Breedte" SQLName="Uitsparing_Z2_Breedte"
+ Set:Key="Uitsparingdata.Z2.Diepte" SQLName="Uitsparing_Z2_Diepte"
+ Set:Key="Variant" SQLName="Variant"
+ Set:Key="Verpakkingtype" SQLName="VerpakkingType"
+
+ Quit $G(SQLName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/PM/Kenmerk/ConvertLBX.cls.xml
===================================================================
diff -u
--- AXimpl/PM/Kenmerk/ConvertLBX.cls.xml	(revision 0)
+++ AXimpl/PM/Kenmerk/ConvertLBX.cls.xml	(revision 54045)
@@ -0,0 +1,154 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.PM.Kenmerk.ConvertLBX">
+<Super>ConvertProductAbstract</Super>
+
+<Method name="TranslateProperty">
+<FormalSpec>Key:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+  Set:Key="Bodemkleur" Property="BodemKleur"
+ Set:Key="Corpusbreedte" Property="CorpusBreedte"
+ Set:Key="Corpuswanddikte" Property="CorpusWandDikte"
+ Set:Key="Draagkracht" Property="Draagkracht"
+ Set:Key="Dwarsverdelingaantal" Property="DwarsverdelingAantal"
+ Set:Key="Frontbevestiging" Property="FrontBevestiging"
+ Set:Key="Geleidertechnologie" Property="GeleiderTechnologie"
+ Set:Key="Heeftopvullijstlinks" Property="HeeftOpvullijstLinks"
+ Set:Key="Heeftopvullijstrechts" Property="HeeftOpvullijstRechts"
+ Set:Key="Heeftzijstabilisering" Property="HeeftZijstabilisering"
+ Set:Key="Isbinnenbreedte" Property="IsBinnenbreedte"
+ Set:Key="Isbinnenlade" Property="IsBinnenlade"
+ Set:Key="Ladediepte" Property="LadeDiepte"
+ Set:Key="Ladehoogte" Property="LadeHoogte"
+ Set:Key="Ladekleur" Property="LadeKleur"
+ Set:Key="Matkleur" Property="MatKleur"
+ Set:Key="Matmateriaal" Property="MatMateriaal"
+
+ Set:Key="Nietmeeleveren_afdekkapbinnen" Property="NMAfdekkapBinnen"
+ Set:Key="Nietmeeleveren_afdekkapbuiten" Property="NMAfdekkapBuiten"
+ Set:Key="Nietmeeleveren_afdekkaprugwandhouder" Property="NMAfdekkapRugWandHouder"
+ Set:Key="Nietmeeleveren_bevestigingbodemfront" Property="NMBevestigingBodemFront"
+ Set:Key="Nietmeeleveren_frontbevestiging" Property="NMFrontBevestiging"
+ Set:Key="Nietmeeleveren_geleider" Property="NMGeleider"
+ Set:Key="Nietmeeleveren_inschuifelementvoor" Property="NMInschuifElementVoor"
+ Set:Key="Nietmeeleveren_inschuifelementzijkant" Property="NMInschuifElementZijkant"
+ Set:Key="Nietmeeleveren_opvullijst" Property="NMOpvullijst"
+
+ Set:Key="Nietmeeleveren_tiponblumotionseteenhedenenmeenemers" Property="NMTOBSetEenhedenEnMeenemers"
+ Set:Key="Nietmeeleveren_tiponblumotionsynchronisatiestang" Property="NMTOBSynchronisatieStang"
+
+ Set:Key="Nietmeeleveren_zijstabilisering" Property="NMZijstabilisering"
+ Set:Key="Opvullijstkleur" Property="OpvullijstKleur"
+ Set:Key="Productiewijze" Property="ProductieWijze"
+ Set:Key="Rughoogte" Property="RugHoogte"
+ Set:Key="Rugwandmateriaal" Property="RugWandMateriaal"
+ Set:Key="Toepassing" Property="Toepassing"
+ Set:Key="Uitsparingdata.M.Breedte" Property="UitsparingMBreedte"
+ Set:Key="Uitsparingdata.M.Hoogte" Property="UitsparingMHoogte"
+ Set:Key="Uitsparingdata.M.Materiaal" Property="UitsparingMMateriaal"
+ Set:Key="Uitsparingdata.Uitsparingaantal" Property="UitsparingUitsparingAantal"
+ Set:Key="Uitsparingdata.X.Breedte" Property="UitsparingXBreedte"
+ Set:Key="Uitsparingdata.X.Hoogte" Property="UitsparingXHoogte"
+ Set:Key="Uitsparingdata.X.Materiaal" Property="UitsparingXMateriaal"
+ Set:Key="Uitsparingdata.Y.Breedte" Property="UitsparingYBreedte"
+ Set:Key="Uitsparingdata.Y.Hoogte" Property="UitsparingYHoogte"
+ Set:Key="Uitsparingdata.Y.Materiaal" Property="UitsparingYMateriaal"
+ Set:Key="Uitsparingdata.Z1.Breedte" Property="UitsparingZ1Breedte"
+ Set:Key="Uitsparingdata.Z1.Diepte" Property="UitsparingZ1Diepte"
+ Set:Key="Uitsparingdata.Z1.Hoogte" Property="UitsparingZ1Hoogte"
+ Set:Key="Uitsparingdata.Z1.Materiaal" Property="UitsparingZ1Materiaal"
+ Set:Key="Uitsparingdata.Z1.Vorm" Property="UitsparingZ1Vorm"
+ Set:Key="Uitsparingdata.Z2.Breedte" Property="UitsparingZ2Breedte"
+ Set:Key="Uitsparingdata.Z2.Diepte" Property="UitsparingZ2Diepte"
+ Set:Key="Uitsparingdata.Z2.Hoogte" Property="UitsparingZ2Hoogte"
+ Set:Key="Uitsparingdata.Z2.Materiaal" Property="UitsparingZ2Materiaal"
+ Set:Key="Uitsparingdata.Z2.Vorm" Property="UitsparingZ2Vorm"
+ Set:Key="Variant" Property="Variant"
+ Set:Key="Verpakkingtype" Property="VerpakkingType"
+ Set:Key="Voorwandtypevancbinnenlade" Property="VoorWandTypeVanCBinnenlade"
+ Set:Key="Voorwandtypevankbinnenlade" Property="VoorWandTypeVanKBinnenlade"
+ Set:Key="Voorwandtypevanmbinnenlade" Property="VoorWandTypeVanMBinnenlade"
+ Set:Key="Zijwandtype" Property="ZijWandType"
+
+	
+ Quit $G(Property)
+]]></Implementation>
+</Method>
+
+<Method name="TranslateSQLName">
+<FormalSpec>Key:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+ Set:Key="Bodemkleur" SQLName="BodemKleur"
+ Set:Key="Corpusbreedte" SQLName="CorpusBreedte"
+ Set:Key="Corpuswanddikte" SQLName="CorpusWandDikte"
+ Set:Key="Draagkracht" SQLName="Draagkracht"
+ Set:Key="Dwarsverdelingaantal" SQLName="DwarsverdelingAantal"
+ Set:Key="Frontbevestiging" SQLName="FrontBevestiging"
+ Set:Key="Geleidertechnologie" SQLName="GeleiderTechnologie"
+ Set:Key="Heeftopvullijstlinks" SQLName="HeeftOpvullijstLinks"
+ Set:Key="Heeftopvullijstrechts" SQLName="HeeftOpvullijstRechts"
+ Set:Key="Heeftzijstabilisering" SQLName="HeeftZijstabilisering"
+ Set:Key="Isbinnenbreedte" SQLName="IsBinnenbreedte"
+ Set:Key="Isbinnenlade" SQLName="IsBinnenlade"
+ Set:Key="Ladediepte" SQLName="LadeDiepte"
+ Set:Key="Ladehoogte" SQLName="LadeHoogte"
+ Set:Key="Ladekleur" SQLName="LadeKleur"
+ Set:Key="Matkleur" SQLName="MatKleur"
+ Set:Key="Matmateriaal" SQLName="MatMateriaal"
+
+ Set:Key="Nietmeeleveren_afdekkapbinnen" SQLName="NM_AfdekkapBinnen"
+ Set:Key="Nietmeeleveren_afdekkapbuiten" SQLName="NM_AfdekkapBuiten"
+ Set:Key="Nietmeeleveren_afdekkaprugwandhouder" SQLName="NM_AfdekkapRugWandHouder"
+ Set:Key="Nietmeeleveren_bevestigingbodemfront" SQLName="NM_BevestigingBodemFront"
+ Set:Key="Nietmeeleveren_frontbevestiging" SQLName="NM_FrontBevestiging"
+ Set:Key="Nietmeeleveren_geleider" SQLName="NM_Geleider"
+ Set:Key="Nietmeeleveren_inschuifelementvoor" SQLName="NM_InschuifElementVoor"
+ Set:Key="Nietmeeleveren_inschuifelementzijkant" SQLName="NM_InschuifElementZijkant"
+ Set:Key="Nietmeeleveren_opvullijst" SQLName="NM_Opvullijst"
+
+ Set:Key="Nietmeeleveren_tiponblumotionseteenhedenenmeenemers" SQLName="NM_TOBSetEenhedenEnMeenemers"
+ Set:Key="Nietmeeleveren_tiponblumotionsynchronisatiestang" SQLName="NM_TOBSynchronisatieStang"
+
+ Set:Key="Nietmeeleveren_zijstabilisering" SQLName="NM_Zijstabilisering"
+ Set:Key="Opvullijstkleur" SQLName="OpvullijstKleur"
+ Set:Key="Productiewijze" SQLName="ProductieWijze"
+ Set:Key="Rughoogte" SQLName="RugHoogte"
+ Set:Key="Rugwandmateriaal" SQLName="RugWandMateriaal"
+ Set:Key="Toepassing" SQLName="Toepassing"
+ Set:Key="Uitsparingdata.M.Breedte" SQLName="Uitsparing_M_Breedte"
+ Set:Key="Uitsparingdata.M.Hoogte" SQLName="Uitsparing_M_Hoogte"
+ Set:Key="Uitsparingdata.M.Materiaal" SQLName="Uitsparing_M_Materiaal"
+ Set:Key="Uitsparingdata.Uitsparingaantal" SQLName="Uitsparing_UitsparingAantal"
+ Set:Key="Uitsparingdata.X.Breedte" SQLName="Uitsparing_X_Breedte"
+ Set:Key="Uitsparingdata.X.Hoogte" SQLName="Uitsparing_X_Hoogte"
+ Set:Key="Uitsparingdata.X.Materiaal" SQLName="Uitsparing_X_Materiaal"
+ Set:Key="Uitsparingdata.Y.Breedte" SQLName="Uitsparing_Y_Breedte"
+ Set:Key="Uitsparingdata.Y.Hoogte" SQLName="Uitsparing_Y_Hoogte"
+ Set:Key="Uitsparingdata.Y.Materiaal" SQLName="Uitsparing_Y_Materiaal"
+ Set:Key="Uitsparingdata.Z1.Breedte" SQLName="Uitsparing_Z1_Breedte"
+ Set:Key="Uitsparingdata.Z1.Diepte" SQLName="Uitsparing_Z1_Diepte"
+ Set:Key="Uitsparingdata.Z1.Hoogte" SQLName="Uitsparing_Z1_Hoogte"
+ Set:Key="Uitsparingdata.Z1.Materiaal" SQLName="Uitsparing_Z1_Materiaal"
+ Set:Key="Uitsparingdata.Z1.Vorm" SQLName="Uitsparing_Z1_Vorm"
+ Set:Key="Uitsparingdata.Z2.Breedte" SQLName="Uitsparing_Z2_Breedte"
+ Set:Key="Uitsparingdata.Z2.Diepte" SQLName="Uitsparing_Z2_Diepte"
+ Set:Key="Uitsparingdata.Z2.Hoogte" SQLName="Uitsparing_Z2_Hoogte"
+ Set:Key="Uitsparingdata.Z2.Materiaal" SQLName="Uitsparing_Z2_Materiaal"
+ Set:Key="Uitsparingdata.Z2.Vorm" SQLName="Uitsparing_Z2_Vorm"
+ Set:Key="Variant" SQLName="Variant"
+ Set:Key="Verpakkingtype" SQLName="VerpakkingType"
+ Set:Key="Voorwandtypevancbinnenlade" SQLName="VoorWandTypeVanCBinnenlade"
+ Set:Key="Voorwandtypevankbinnenlade" SQLName="VoorWandTypeVanKBinnenlade"
+ Set:Key="Voorwandtypevanmbinnenlade" SQLName="VoorWandTypeVanMBinnenlade"
+ Set:Key="Zijwandtype" SQLName="ZijWandType"
+
+ 
+ Quit $G(SQLName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/PM/Kenmerk/ConvertAll.cls.xml
===================================================================
diff -u
--- AXimpl/PM/Kenmerk/ConvertAll.cls.xml	(revision 0)
+++ AXimpl/PM/Kenmerk/ConvertAll.cls.xml	(revision 54045)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.PM.Kenmerk.ConvertAll">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Converter">
+<Type>AXimpl.Controle.Order.Ax.AxOrderLijnConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="itProduct">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SqlQueryConnection">
+<Type>AXimpl.SqlQueryConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="VerwijderAlles">
+<Description>
+D ##class(AXimpl.PM.Kenmerken.ConvertAll).%New().Verwerk()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(Kenmerken).%KillExtent()
+	k ^PVKeys
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<Implementation><![CDATA[
+	Set ..itProduct=##class(AXProductIterator).%New()
+	#dim lbProductIDs as %List
+	#dim ProductID as %String
+	#dim RecID as %String
+	#dim PRNr as %String
+	#dim GenTyp as %String
+	
+	;Do ..VerwijderAlles()
+	While ..itProduct.HasNext()
+	{
+		Set lbProductIDs=..itProduct.Next()
+		Set ProductID=$LI(lbProductIDs,1)
+		Set PRNr=$LI(lbProductIDs,2)
+		Set RecID=$LI(lbProductIDs,3)
+		Do ..ConverteerOne(ProductID,PRNr,RecID)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerOne">
+<FormalSpec>ProductID:%String,PRNr:%String,RecID:%String</FormalSpec>
+<Implementation><![CDATA[
+	If ##class(Kenmerken).%ExistsId(ProductID)
+	{
+		Do ##class(Kenmerken).%DeleteId(ProductID)
+	}
+
+	Set GenTyp=$P($$GENTYP^HAD(PRNr),"\")
+	If GenTyp="TBX"
+	{   w !,PRNr," TBX"
+		;Do ##class(ConvertTBX).%New().Converteer(ProductID,PRNr,RecID)
+	}
+	ElseIf GenTyp="LBX"
+	{	w !,PRNr," LBX"
+		Do ##class(ConvertLBX).%New().Converteer(ProductID,PRNr,RecID)
+	}
+	ElseIf GenTyp="TAO"
+	{
+		w !,PRNr," TAX"
+		Do ##class(ConvertTAX).%New().Converteer(ProductID,PRNr,RecID)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Add">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductID:%String,PRNr:%String,RecID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set bl=..%New()
+	Do bl.ConverteerOne(ProductID,PRNr,RecID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>