Index: AXimpl/PM/Kenmerk/ConvertMVX.cls.xml
===================================================================
diff -u
--- AXimpl/PM/Kenmerk/ConvertMVX.cls.xml	(revision 0)
+++ AXimpl/PM/Kenmerk/ConvertMVX.cls.xml	(revision 66200)
@@ -0,0 +1,153 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.PM.Kenmerk.ConvertMVX">
+<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="Meenemerset" Property="Meenemerset"
+ 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_tiponblumotionset" Property="NMtiponblumotionset"
+ Set:Key="Nietmeeleveren_tiponblumotionseteenhedenenmeenemers" Property="NMtiponblumotionseteenhedenenmeenemers"
+ Set:Key="Nietmeeleveren_tiponblumotionsynchronisatiestang" Property="NMtiponblumotionsynchronisatiestang"
+ Set:Key="Nietmeeleveren_tiponsynchronisatieset" Property="NMtiponsynchronisatieset"
+ 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="Meenemerset" SQLName="Meenemerset"
+ 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_tiponblumotionset" SQLName="NM_tiponblumotionset"
+ Set:Key="Nietmeeleveren_tiponblumotionseteenhedenenmeenemers" SQLName="NM_tiponblumotionseteenhedenenmeenemers"
+ Set:Key="Nietmeeleveren_tiponblumotionsynchronisatiestang" SQLName="NM_tiponblumotionsynchronisatiestang"
+ Set:Key="Nietmeeleveren_tiponsynchronisatieset" SQLName="NM_tiponsynchronisatieset"
+ 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/AXLink.cls.xml
===================================================================
diff -u -r56906 -r66200
--- AXimpl/PM/Kenmerk/AXLink.cls.xml	(.../AXLink.cls.xml)	(revision 56906)
+++ AXimpl/PM/Kenmerk/AXLink.cls.xml	(.../AXLink.cls.xml)	(revision 66200)
@@ -20,6 +20,10 @@
 <Type>Prod.Product</Type>
 </Property>
 
+<Property name="CreatieTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
 <Index name="iAX">
 <Properties>ProductID</Properties>
 </Index>
@@ -51,6 +55,9 @@
 <Value name="5">
 <Value>ProductID</Value>
 </Value>
+<Value name="6">
+<Value>CreatieTijdstip</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: AXimpl/PM/Kenmerk/ConvertAll.cls.xml
===================================================================
diff -u -r62511 -r66200
--- AXimpl/PM/Kenmerk/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 62511)
+++ AXimpl/PM/Kenmerk/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 66200)
@@ -23,9 +23,18 @@
 <InitialExpression>1</InitialExpression>
 </Property>
 
+<Property name="AantalProducten">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="RunTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
 <Method name="VerwijderAlles">
 <Description>
-D ##class(AXimpl.PM.Kenmerk.ConvertAll).%New(1).Verwerk()
+D ##class(AXimpl.PM.Kenmerk.ConvertAll).%New(2).Verwerk()
 D ##class(AXimpl.PM.Kenmerk.ConvertAll).VerwijderAlles()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
@@ -43,14 +52,15 @@
 	// UpdateOnly=0 -> Alle factuurlijnen en alle data vernieuwen duurt meer dan 3 uur
 	// UpdateOnly=2 -> Alle factuurlijnen en alle niet bestaande kenmerken aanmaken
 	// UpdateOnly=1 -> Alle RECENTE factuurlijnen en alle niet bestaande kenmerken aanmaken
-	
+	Set ..RunTijdstip=$ZDT($H,3)
 	Set ..UpdateOnly=UpdateOnly
 	quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Verwerk">
 <Implementation><![CDATA[
+	;lock +ConvertKenmerken:0 Else  Quit ; slechts 1 actief
 	Set ..itProduct=##class(AXProductIterator).%New($S(..UpdateOnly=1:$H-2,1:""))
 	#dim lbProductIDs as %List
 	#dim ProductID as %String
@@ -69,6 +79,10 @@
 		Set InventTransID=$LI(lbProductIDs,4)
 		Do ..ConverteerOneFromAX(ProductID,PRNr,RecID,InventTransID)
 	}
+	Set Actie = "Kenmerken nr flattable"  
+    Set vhLibLogger = ##class(vhLib.Logger).%New("Qlik")
+    Do vhLibLogger.Info(Actie,"Aantal producten verwerkt:"_..AantalProducten_", Runtijdstip:"_..RunTijdstip_", UpdateOnly:"_..UpdateOnly)
+    lock -ConvertKenmerken
 ]]></Implementation>
 </Method>
 
@@ -92,6 +106,12 @@
 			;w !,PRNr," TAX"
 			Do ##class(ConvertTAX).%New().Show(PRNr)
 		}
+
+		ElseIf GenTyp="MVX"
+		{
+			;w !,PRNr," MVX"
+			Do ##class(ConvertMVX).%New().Show(PRNr)
+		}
 ]]></Implementation>
 </Method>
 
@@ -123,27 +143,35 @@
 <Method name="ConverteerOne">
 <FormalSpec>PRNr</FormalSpec>
 <Implementation><![CDATA[
-	;w "."
+	w "."
 		Set GenTyp=$P($$GENTYP^HAD(PRNr),"\")
-		Quit:##class(Kenmerken).%ExistsId(PRNr)&&(GenTyp'="TBX")
+		Quit:##class(Kenmerken).%ExistsId(PRNr)
+		Set ..AantalProducten=..AantalProducten+1
 		;w "+"
 		Do ##class(Kenmerken).%DeleteId(PRNr) ;  steeds herrekenen (laatste versie) ook al wordt het Admin product herbruikt voor een verschillend ProductID (is verschillend ConfigID)
 		If GenTyp="TBX"
-		{   ;w !,PRNr," TBX"
+		{   ;w PRNr,"TBX "
 			Do ##class(ConvertTBX).%New().Converteer(PRNr)
 		}
 		ElseIf GenTyp="LBX"
-		{	;w !,PRNr," LBX"
+		{	;w PRNr,"LBX "
 			Do ##class(ConvertLBX).%New().Converteer(PRNr)
 		}
 		ElseIf GenTyp="TAO"
 		{
-			;w !,PRNr," TAX"
+			;w PRNr,"TAX "
 			Do ##class(ConvertTAX).%New().Converteer(PRNr)
 		}
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+//Do ##class(AXimpl.PM.Kenmerk.ConvertMVX).%New().Converteer(2993642)
+
+]]></Content>
+</UDLText>
+
 <Method name="CreateAXLink">
 <FormalSpec>ProductID:%String,PRNr:%String,RecID:%String,InventTransID:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -154,6 +182,7 @@
 	Quit:'$isObject(AXLink.Product)
 	Set AXLink.RecID=RecID
 	Set AXLink.InventTransID=InventTransID
+	Set AXLink.CreatieTijdstip=..RunTijdstip
 	Do AXLink.Save()
 ]]></Implementation>
 </Method>
Index: AXimpl/PM/Kenmerk/ConvertProductAbstract.cls.xml
===================================================================
diff -u -r60424 -r66200
--- AXimpl/PM/Kenmerk/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 60424)
+++ AXimpl/PM/Kenmerk/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 66200)
@@ -13,7 +13,7 @@
 
 <Method name="%OnNew">
 <Description>
-LBX  d ##Class(AXimpl.PM.Kenmerk.ConvertLBX).%New().Converteer("PR:1941680",1941680,"")
+LBX  d ##Class(AXimpl.PM.Kenmerk.ConvertTBX).%New().Converteer(560001)
 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>
@@ -45,22 +45,25 @@
 <Method name="Converteer">
 <FormalSpec>PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	;w " 1"
+	
+	w " 1"
 	try {
 		#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(PRNr)
+		w 2
 		#dim arKenmerken As %ArrayOfDataTypes = ..AppsNaarEconConverter.ConverteerAppsNaarEcon(IngegevenKenmerken).ToArray()
+		w 3
 		}
 	Catch
 		{
 		set arKenmerken=""
 		}
 		
 	Quit:arKenmerken=""
-	;w "2"
+	w "2"
 	Set Kenmerken=##class(Kenmerken).%New()
 	Do Kenmerken.ProductSetObjectId(PRNr)
 	Quit:'$isObject(Kenmerken.Product)
-	;w "3"
+	w "3"
 	#dim SetCount as %Integer=0
 	#dim Key as %String=""
 	While arKenmerken.GetNext(.Key)'=""
@@ -99,7 +102,7 @@
 	}
 	;Do DumpObject^%apiOBJ(Kenmerken)
 	;Set Kenmerken.VolgNummer=$I(^AXimpl.PM.Kenmerk.KenmerkenD)
-	;w "4"
+	w "4"
 	Do:SetCount Kenmerken.Save()
 	;Write:SetCount "."
 ]]></Implementation>