Index: AXimpl/PM/Kenmerk/ConvertAll.cls.xml
===================================================================
diff -u -r55609 -r56898
--- AXimpl/PM/Kenmerk/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 55609)
+++ AXimpl/PM/Kenmerk/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 56898)
@@ -34,12 +34,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="%OnNew">
+<FormalSpec>UpdateOnly:%Boolean=1</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..UpdateOnly=UpdateOnly
+	quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Verwerk">
 <Implementation><![CDATA[
-	Set ..itProduct=##class(AXProductIterator).%New()
+	Set ..itProduct=##class(AXProductIterator).%New($S(..UpdateOnly:$H-1,1:""))
 	#dim lbProductIDs as %List
 	#dim ProductID as %String
 	#dim RecID as %String
+	#dim InventTransID as %String
 	#dim PRNr as %String
 	#dim GenTyp as %String
 	
@@ -50,7 +60,8 @@
 		Set ProductID=$LI(lbProductIDs,1)
 		Set PRNr=$LI(lbProductIDs,2)
 		Set RecID=$LI(lbProductIDs,3)
-		Do ..ConverteerOne(ProductID,PRNr,RecID)
+		Set InventTransID=$LI(lbProductIDs,4)
+		Do ..ConverteerOne(ProductID,PRNr,RecID,InventTransID)
 	}
 ]]></Implementation>
 </Method>
@@ -79,35 +90,35 @@
 </Method>
 
 <Method name="ConverteerOne">
-<FormalSpec>ProductID:%String,PRNr:%String,RecID:%String</FormalSpec>
+<FormalSpec>ProductID:%String,PRNr:%String,RecID:%String,InventTransID:%String</FormalSpec>
 <Implementation><![CDATA[
 	If '(##class(Kenmerken).%ExistsId(ProductID)&&..UpdateOnly)
 	{
 		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)
+			Do ##class(ConvertTBX).%New().Converteer(ProductID,PRNr,RecID,InventTransID)
 		}
 		ElseIf GenTyp="LBX"
 		{	;w !,PRNr," LBX"
-			Do ##class(ConvertLBX).%New().Converteer(ProductID,PRNr,RecID)
+			Do ##class(ConvertLBX).%New().Converteer(ProductID,PRNr,RecID,InventTransID)
 		}
 		ElseIf GenTyp="TAO"
 		{
 			;w !,PRNr," TAX"
-			Do ##class(ConvertTAX).%New().Converteer(ProductID,PRNr,RecID)
+			Do ##class(ConvertTAX).%New().Converteer(ProductID,PRNr,RecID,InventTransID)
 		}
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="Add">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ProductID:%String,PRNr:%String,RecID:%String</FormalSpec>
+<FormalSpec>ProductID:%String,PRNr:%String,RecID:%String,InventTransID:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set bl=..%New()
-	Do bl.ConverteerOne(ProductID,PRNr,RecID)
+	Do bl.ConverteerOne(ProductID,PRNr,RecID,InventTransID)
 ]]></Implementation>
 </Method>
 </Class>
Index: AXimpl/PM/Kenmerk/Kenmerken.cls.xml
===================================================================
diff -u -r55609 -r56898
--- AXimpl/PM/Kenmerk/Kenmerken.cls.xml	(.../Kenmerken.cls.xml)	(revision 55609)
+++ AXimpl/PM/Kenmerk/Kenmerken.cls.xml	(.../Kenmerken.cls.xml)	(revision 56898)
@@ -8,13 +8,29 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="RecID">
+<Type>%String</Type>
+</Property>
+
+<Property name="InventTransID">
+<Type>%String</Type>
+</Property>
+
 <Index name="PrimKey">
 <IdKey>1</IdKey>
 <PrimaryKey>1</PrimaryKey>
 <Properties>ProductID</Properties>
 <Unique>1</Unique>
 </Index>
 
+<Property name="VolgNummer">
+<Type>%Decimal</Type>
+</Property>
+
+<Index name="VolgNr">
+<Properties>VolgNummer</Properties>
+</Index>
+
 <Property name="Product">
 <Type>Prod.Product</Type>
 </Property>
@@ -893,6 +909,15 @@
 <Value name="109">
 <Value>Zijwandverhogingtype</Value>
 </Value>
+<Value name="110">
+<Value>RecID</Value>
+</Value>
+<Value name="111">
+<Value>InventTransID</Value>
+</Value>
+<Value name="112">
+<Value>VolgNummer</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: AXimpl/PM/Kenmerk/AXProductIterator.cls.xml
===================================================================
diff -u -r54529 -r56898
--- AXimpl/PM/Kenmerk/AXProductIterator.cls.xml	(.../AXProductIterator.cls.xml)	(revision 54529)
+++ AXimpl/PM/Kenmerk/AXProductIterator.cls.xml	(.../AXProductIterator.cls.xml)	(revision 56898)
@@ -19,27 +19,29 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>SqlQueryConnection:AXimpl.SqlQueryConnection</FormalSpec>
+<FormalSpec>VanafDatum:%Date,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()
+	Do ..VoerUitQuery(.VanafDatum)
 	Set ..Converter = ##class(AXimpl.Controle.Order.Ax.AxOrderLijnConverter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VoerUitQuery">
+<FormalSpec>VanafDatum:%Date=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
 	
 	Set SqlStatement = "SELECT " ;top 10000"
  	_"  case isnull(ResProductMaster.ADUCALCTECHNOLOGYBOMBOL,0) WHEN 3 THEN sl.ITEMID WHEN 0 THEN sl.ITEMID ELSE ResProduct.DISPLAYPRODUCTNUMBER END as ProductID,"
- 	_"  Kenmerk.RecID,"
+ 	_"  Kenmerk.RecID, "
+ 	_"  sl.INVENTTRANSID as InventTransID, "
   	_"  case isnull(ResProductMaster.ADUCALCTECHNOLOGYBOMBOL,0) WHEN 3 THEN 'KIND' WHEN 0 THEN 'BESLAG' ELSE 'MW' END as ProductType, "
   	_"  Inventtable.VHProductGroup as Familie,"
   	_"  AdminProductNummer"
@@ -60,6 +62,10 @@
  	_"	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'"
+	If VanafDatum
+	{
+		Set SqlStatement=SqlStatement_" and sl.CREATEDDATETIME >= '"_$zd(VanafDatum,3)_"'"
+	}
 	
 	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
 ]]></Implementation>
@@ -75,7 +81,7 @@
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
     /// Listbuild : QlikProductID, AdminPRNr, AXRecID
- 	Quit $LB(..ResultSet.Data("ProductID"),..ResultSet.Data("AdminProductNummer"),..ResultSet.Data("RecID"))
+ 	Quit $LB(..ResultSet.Data("ProductID"),..ResultSet.Data("AdminProductNummer"),..ResultSet.Data("RecID"),..ResultSet.Data("InventTransID"))
 ]]></Implementation>
 </Method>
 
Index: AXimpl/PM/Kenmerk/ConvertProductAbstract.cls.xml
===================================================================
diff -u -r55609 -r56898
--- AXimpl/PM/Kenmerk/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 55609)
+++ AXimpl/PM/Kenmerk/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 56898)
@@ -43,7 +43,7 @@
 </Method>
 
 <Method name="Converteer">
-<FormalSpec>QlikProductID:%String,PRNr:%String,RecID</FormalSpec>
+<FormalSpec>QlikProductID:%String,PRNr:%String,RecID:%String,InventTransID:%String</FormalSpec>
 <ReturnType>WS.Vhisie4.QRcodeNaarKenmerkenResponse</ReturnType>
 <Implementation><![CDATA[
 	try {
@@ -61,8 +61,9 @@
 	Set Kenmerken.ProductID=QlikProductID
 	Do Kenmerken.ProductSetObjectId(PRNr)
 	Quit:'$isObject(Kenmerken.Product)
+	Set Kenmerken.RecID=RecID
+	Set Kenmerken.InventTransID=InventTransID
 	
-	;Set Kenmerken.RecID=RecID
 	#dim SetCount as %Integer=0
 	#dim Key as %String=""
 	While arKenmerken.GetNext(.Key)'=""
@@ -98,6 +99,7 @@
 		}
 	}
 	;Do DumpObject^%apiOBJ(Kenmerken)
+	Set Kenmerken.VolgNummer=$I(^AXimpl.PM.Kenmerk.KenmerkenD)
 	Do:SetCount Kenmerken.Save()
 	;Write:SetCount "."
 ]]></Implementation>