Index: AXimpl/Controle/OrdDiff/MaakDiff.cls.xml
===================================================================
diff -u -r49434 -r69259
--- AXimpl/Controle/OrdDiff/MaakDiff.cls.xml	(.../MaakDiff.cls.xml)	(revision 49434)
+++ AXimpl/Controle/OrdDiff/MaakDiff.cls.xml	(.../MaakDiff.cls.xml)	(revision 69259)
@@ -3,23 +3,50 @@
 <Class name="AXimpl.Controle.OrdDiff.MaakDiff">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="Debug">
+<Type>%Boolean</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+/* OPHALEN VAN DE DIFF VIA SQL
+select Diff_GekendInAX,Diff_GekendInAdmin,Diff_Aantal,Diff_Leverdatum,Diff_Product,AxInventTransId,klant->Naam,KlantNr,OrderId,AX_AXSalesId,AX_AantalBesteld,AX_AantalGeleverd,AX_AantalOpenstaand,AX_ConfigId,AX_ItemId,
+AX_Leverdatum,ax_product->KortTekst,AX_ProductNr,AX_SoprContractId,Admin_AXSalesId,Admin_Aantal,Admin_ItemId, Admin_Leverdatum,admin_product->KortTekst,Admin_ProductNr,Admin_AantalLijnen                                                                                                                                                                      
+from AXimpl_Controle_OrdDiff.ProductOrderLijn where diff_Orderverschillend=1
+order by orderid, axinventtransid
+*/
+]]></Content>
+</UDLText>
+
 <Method name="%OnNew">
 <Description>
 D ##class(AXimpl.Controle.OrdDiff.MaakDiff).%New().Maak()</Description>
+<FormalSpec>Debug:%Boolean=1</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[	Quit $$$OK
+<Implementation><![CDATA[
+	Set ..Debug=Debug
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Maak">
 <Implementation><![CDATA[
+	If ..Debug Write "Clean",!
 	Do ..VerwijderOudeData()
+	
+	If ..Debug Write "Ophalen Admin orders",!
 	Do ..HaalAdminData()
+	
+	If ..Debug Write "Ophalen AX orders",!
 	Do ..HaalAXData()
+	
+	If ..Debug Write "Bepaal verschillen",!
 	Do ..BepaalDiff()
+	
+	If ..Debug Write "Klaar. Druk enter om verder te gaan" Read K
 ]]></Implementation>
 </Method>
 
Index: AXimpl/Controle/OrdDiff/Admin/OrderData.cls.xml
===================================================================
diff -u -r49378 -r69259
--- AXimpl/Controle/OrdDiff/Admin/OrderData.cls.xml	(.../OrderData.cls.xml)	(revision 49378)
+++ AXimpl/Controle/OrdDiff/Admin/OrderData.cls.xml	(.../OrderData.cls.xml)	(revision 69259)
@@ -28,6 +28,14 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="InWMS">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="HeeftGeenToelevering">
+<Type>%Boolean</Type>
+</Property>
+
 <Property name="Leverdatum">
 <Type>%Date</Type>
 </Property>
@@ -45,8 +53,6 @@
 <State>OrderDataState</State>
 <StreamLocation>^AXimpl.ControleC566.OrderDataS</StreamLocation>
 <Data name="OrderDataDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
@@ -64,8 +70,6 @@
 </Value>
 </Data>
 <Data name="OrderDataState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>Aantal</Value>
 </Value>
@@ -93,6 +97,12 @@
 <Value name="9">
 <Value>Product</Value>
 </Value>
+<Value name="10">
+<Value>InWMS</Value>
+</Value>
+<Value name="11">
+<Value>HeeftGeenToelevering</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: AXimpl/Controle/OrdDiff/VergelijkOrder.cls.xml
===================================================================
diff -u -r49434 -r69259
--- AXimpl/Controle/OrdDiff/VergelijkOrder.cls.xml	(.../VergelijkOrder.cls.xml)	(revision 49434)
+++ AXimpl/Controle/OrdDiff/VergelijkOrder.cls.xml	(.../VergelijkOrder.cls.xml)	(revision 69259)
@@ -35,7 +35,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
-	Set SqlStatement="select Orderid from AXimpl_Controle_OrdDiff.ProductOrderLijn group by orderid having max(Diff_Product)=1 or max(Diff_Aantal)=1 or sum(Diff_GekendInAdmin)<>sum(Diff_GekendInAX)"
+	Set SqlStatement="select Orderid from AXimpl_Controle_OrdDiff.ProductOrderLijn group by orderid having max(Diff_Product)=1 or max(Diff_Aantal)=1 or max(Admin_HeeftGeenToelevering)=1 or sum(Diff_GekendInAdmin)<>sum(Diff_GekendInAX)"
 	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
 	Set ..OrderLijnIterator=##class(TECH.ResultSetIterator).%New(..ResultSet)
 	Quit $$$OK
@@ -44,12 +44,15 @@
 
 <Method name="MarkeerOrdersMetVerschillen">
 <Implementation><![CDATA[
+	Set Cnt=0
 	While ..OrderLijnIterator.HasNext()
 	{
 		Set rs=..OrderLijnIterator.Next()
 		Set OrderId=rs.Data("OrderId")
 		Do ..UpdateOrder(OrderId)
+		Set Cnt=Cnt+1
 	}
+	Write "Aantal verschillende orders ",Cnt,!
 ]]></Implementation>
 </Method>
 
Index: AXimpl/Controle/OrdDiff/DiffData.cls.xml
===================================================================
diff -u -r49378 -r69259
--- AXimpl/Controle/OrdDiff/DiffData.cls.xml	(.../DiffData.cls.xml)	(revision 49378)
+++ AXimpl/Controle/OrdDiff/DiffData.cls.xml	(.../DiffData.cls.xml)	(revision 69259)
@@ -8,6 +8,10 @@
 <Type>%Boolean</Type>
 </Property>
 
+<Property name="WasGekendInAdmin">
+<Type>%Boolean</Type>
+</Property>
+
 <Property name="GekendInAX">
 <Type>%Boolean</Type>
 </Property>
@@ -33,8 +37,6 @@
 <State>DiffDataState</State>
 <StreamLocation>^AXimpl.Controle.OF100.DiffDataS</StreamLocation>
 <Data name="DiffDataState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>AanwezigInAdmin</Value>
 </Value>
@@ -59,6 +61,9 @@
 <Value name="8">
 <Value>OrderVerschillend</Value>
 </Value>
+<Value name="9">
+<Value>WasGekendInAdmin</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: AXimpl/Controle/OrdDiff/AX/AxOrderLijnIterator.cls.xml
===================================================================
diff -u -r49438 -r69259
--- AXimpl/Controle/OrdDiff/AX/AxOrderLijnIterator.cls.xml	(.../AxOrderLijnIterator.cls.xml)	(revision 49438)
+++ AXimpl/Controle/OrdDiff/AX/AxOrderLijnIterator.cls.xml	(.../AxOrderLijnIterator.cls.xml)	(revision 69259)
@@ -41,27 +41,35 @@
 	Set SqlStatement = "Select salesLine.SALESID,salesLine.CUSTACCOUNT,salesline.INVENTTRANSID,salesline.ITEMID,salesline.CONFIRMEDDLV,salesline.RECEIPTDATECONFIRMED,salesline.QTYORDERED"
 	_"  ,isnull(( select -sum(qty) from inventtrans where INVENTTRANSORIGIN.RECID = inventtrans.INVENTTRANSORIGIN and INVENTTRANS.STATUSISSUE = 3 and "
 	_"            inventtrans.STATUSRECEIPT = 0 and inventtrans.DATAAREAID = INVENTTRANSORIGIN.DATAAREAID and inventtrans.PARTITION = INVENTTRANSORIGIN.PARTITION),0) as GEPICKTEHOEVEELHEID"
-	_"  ,salesline.REMAINSALESPHYSICAL as OPENSTAANDEHOEVEELHEID,ADMINPRODUCTNUMMER "
-	_"  ,inventtransorigin.ADUSOPRCONTRACTID "
+	_"  ,salesline.REMAINSALESPHYSICAL as OPENSTAANDEHOEVEELHEID, QtyOpBon,ADMINPRODUCTNUMMER "
+	_"  ,INVENTTRANSORIGIN.ADUSOPRCONTRACTID "
 	_"  ,InventDim.CONFIGID "
 	_"  ,isnull(LogisticsPostalAddress.CountryRegionId,'') as COUNTRYREGIONID "
 	_"  ,isnull(LogisticsPostalAddress.City,'') as CITY "
 	_"  ,isnull(LogisticsPostalAddress.Street,'') as STREET "
 	_"  ,isnull(LogisticsPostalAddress.Zipcode,'') as ZIPCODE "
-	_"from SALESLINE "
-	_"join inventdim on inventdim.INVENTDIMID = salesline.INVENTDIMID and inventdim.DATAAREAID = SALESLINE.DATAAREAID and inventdim.PARTITION = salesline.PARTITION "
-	_"join SALESTABLE on SALESTABLE.SALESID = salesline.SALESID and SALESTABLE.DATAAREAID = salesline.DATAAREAID and salestable.PARTITION = salesline.PARTITION "
-	_"left outer join ADUEcoResAttributeCombination as Kenmerk on InventDim.ConfigId=Kenmerk.ConfigId "
+	_"	,(select top 1 r.LOG from VHVALENTITYRUN r where r.PARTITION = SALESTABLE.PARTITION and r.DATAAREAID = SALESTABLE.DATAAREAID and r.ENTITY = 2 and r.REFRECID = SALESTABLE.recid and r.STATUS in (2,3) and SALESTABLE.DOCUMENTSTATUS=0 ) as  VALIDATIECODE "
+	_" from SALESLINE "
+	_" join inventdim on inventdim.INVENTDIMID = salesline.INVENTDIMID and inventdim.DATAAREAID = SALESLINE.DATAAREAID and inventdim.PARTITION = salesline.PARTITION "
+	_" join SALESTABLE on SALESTABLE.SALESID = salesline.SALESID and SALESTABLE.DATAAREAID = salesline.DATAAREAID and salestable.PARTITION = salesline.PARTITION "
+	_" left outer join ADUEcoResAttributeCombination as Kenmerk on InventDim.ConfigId=Kenmerk.ConfigId "
     _"   and SalesLine.ITEMID=Kenmerk.ITEMID "
     _"   and InventDim.ConfigId<>'' "
-	_"left outer join LOGISTICSPOSTALADDRESS on LOGISTICSPOSTALADDRESS.RECID = salesline.DELIVERYPOSTALADDRESS and LOGISTICSPOSTALADDRESS.PARTITION = salesline.PARTITION "
-	_"join INVENTTRANSORIGIN on INVENTTRANSORIGIN.INVENTTRANSID = salesline.INVENTTRANSID and INVENTTRANSORIGIN.DATAAREAID = salesline.DATAAREAID and "
+	_" left outer join LOGISTICSPOSTALADDRESS on LOGISTICSPOSTALADDRESS.RECID = salesline.DELIVERYPOSTALADDRESS and LOGISTICSPOSTALADDRESS.PARTITION = salesline.PARTITION "
+	_" join INVENTTRANSORIGIN on INVENTTRANSORIGIN.INVENTTRANSID = salesline.INVENTTRANSID and INVENTTRANSORIGIN.DATAAREAID = salesline.DATAAREAID and "
 	_"   INVENTTRANSORIGIN.PARTITION = salesline.PARTITION "
-	_"where salestable.SALESSTATUS = 1 and salestable.SALESTYPE = 3 and salesline.SALESQTY >= 0 "
+	_" Left outer join (select ito.INVENTTRANSID, -sum(qty) as QtyOpBon "
+    _"             from inventtrans it "
+    _"             join INVENTTRANSORIGIN ito "
+    _"                 on  it.INVENTTRANSORIGIN = ito.recid and ito.DATAAREAID='vhbe' and ito.PARTITION=5637144576 "
+    _"             where it.PARTITION = 5637144576 and it.DATAAREAID = 'vhbe' and it.StatusIssue=3 "
+    _"             group  by  ito.INVENTTRANSID) it2 "
+	_"  on  salesline.inventtransid = it2.INVENTTRANSID " 
+	_" where salestable.SALESSTATUS = 1 and salestable.SALESTYPE = 3 and salesline.SALESQTY >= 0 "
 	_"  and salesLine.DATAAREAID = 'VHBE' and salesline.PARTITION = '5637144576' "
-	_"  and salesline.REMAINSALESPHYSICAL - isnull(( select -sum(qty) from inventtrans where INVENTTRANSORIGIN.RECID = inventtrans.INVENTTRANSORIGIN and INVENTTRANS.STATUSISSUE = 3 and "
-	_"  inventtrans.STATUSRECEIPT = 0 and inventtrans.DATAAREAID = INVENTTRANSORIGIN.DATAAREAID and inventtrans.PARTITION = INVENTTRANSORIGIN.PARTITION),0) > 0 "
-	_"order by salesline.inventtransid"
+	_"  and salesline.REMAINSALESPHYSICAL  > 0 "
+	_"  and not exists (select 'x' from adushoppingcart sc where sc.dataareaid = 'vhbe' and sc.partition = 5637144576 and sc.salesid = salestable.salesid and sc.shoppingcartstatus <> 4 and sc.SOURCESERVICE in (0,1)) "
+	_" order by salesline.inventtransid"
 	
 	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
 ]]></Implementation>
Index: AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml
===================================================================
diff -u -r65693 -r69259
--- AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml	(.../VergelijkLijn.cls.xml)	(revision 65693)
+++ AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml	(.../VergelijkLijn.cls.xml)	(revision 69259)
@@ -65,8 +65,13 @@
 	{
 		Do ..ControleerAantal()
 		Do ..ControleerProduct()
+		
 		Do ..ControleerLeverDatum()
 	}
+	elseif  (..Diff.GekendInAX) && ('..Diff.GekendInAdmin) && ((..OrderLijn.AX.AantalOpenstaand=0) && (..OrderLijn.AX.ValidatieBlokkering=""))
+	{
+		Set ..Diff.GekendInAX=0 ; Niet meer gekend omdat er niets meer te leveren is
+	}
 ]]></Implementation>
 </Method>
 
@@ -76,6 +81,14 @@
 	Set:('..Diff.GekendInAX)&&(..OrderLijn.Admin.ProductNr=1793108) ..Diff.GekendInAX=1 ; SERV.TRANSPORT is nooit gekend in AX
 	
 	Set ..Diff.GekendInAdmin=''..OrderLijn.Admin.ProductNr
+	If ..Diff.GekendInAX && ('..Diff.GekendInAdmin) && (..OrderLijn.AX.AXSalesId'="")
+	{
+		Set Rec=$G(^KO1($reverse($E($reverse(..OrderLijn.AX.AXSalesId),1,6)),"F"))
+		If ($P(Rec,"\")=..OrderLijn.KlantNr) && $P(Rec,"\",2) ; Bonnummer is ingevuld
+		{
+			Set ..Diff.WasGekendInAdmin=1
+		}
+	}
 ]]></Implementation>
 </Method>
 
Index: AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml
===================================================================
diff -u -r49434 -r69259
--- AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml	(.../DataBouwer.cls.xml)	(revision 49434)
+++ AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml	(.../DataBouwer.cls.xml)	(revision 69259)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="AXimpl.Controle.OrdDiff.Admin.DataBouwer">
-<IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
+<IncludeCode>BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="AdminOrderLijnIterator">
@@ -13,6 +13,15 @@
 <Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
 </Property>
 
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+</Property>
+
+<Property name="Cache">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -21,13 +30,15 @@
 <Implementation><![CDATA[
 	Set ..AdminOrderLijnIterator = ##class(AXimpl.Controle.Order.Admin.AdminOrderLijnIterator).%New()
 	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
 
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="HaalOp">
 <Implementation><![CDATA[
+	Set Cnt=0
 	While (..AdminOrderLijnIterator.HasNext()) {
 		
 		#dim AdminOrderLijn As DOM.VKP.ProductOrderlijn = ..AdminOrderLijnIterator.Next()
@@ -65,21 +76,42 @@
 			Set AdminData = ##class(AXimpl.Controle.OrdDiff.Admin.OrderData).%New()
 			Set AdminData.OrderLijnId = OrderLijnId
 			Set AdminData.ProductNr = ProductNr
+			Set AXPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(ProductNr)
+			Set:AXPRNr'="" ProductNr=AXPRNr
+
 			Do AdminData.ProductSetObjectId(ProductNr)
 
-			Set AdminData.ItemId = ..Translator.GeefItemIDForAX(ProductNr)
+			Set AdminData.ItemId = ##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New().GeefItemIDForAX(ProductNr)
 
 			Set AdminData.Aantal = Aantal
 			Set AdminData.AantalLijnen=1
 			Set AdminData.Leverdatum=Leverdatum
 			Set AdminData.AXSalesId=AXSalesId
+			Set:$D(^ORDW("IO",OrderId,OrderLijnId)) AdminData.InWMS=1
 			Set ProductOrderLijn.Admin=AdminData
 		}
+		Do ..ControleToeleveringHLX(AdminData,AdminOrderLijn)
 		Do ProductOrderLijn.Save()
+		Set Cnt=Cnt+1
+
 	}
+	w "Admin orderlijnen",Cnt,!
 ]]></Implementation>
 </Method>
 
+<Method name="ControleToeleveringHLX">
+<FormalSpec>AdminData:AXimpl.Controle.OrdDiff.Admin.OrderData,AdminOrderLijn:DOM.VKP.ProductOrderlijn</FormalSpec>
+<Implementation><![CDATA[
+	If (AdminData.Product.LeverancierNummer=$$$LevHalux) && (AdminOrderLijn.GeefToeleveringLijnNr()'="KOM") && ('AdminData.Product.StockNietStock)  ; LijnNr=KOM : reeds geproduceerd
+	{ If '$isObject(AdminOrderLijn.GeefToeleveringLijn()) ;toeleveringslijn bestaat niet
+		{
+			Set AdminData.HeeftGeenToelevering=1
+			Write AdminOrderLijn.GeefOrderID()," "
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefBestaandeOrderLijn">
 <FormalSpec>KlantNr:%String,OrderId:%String,ProductNr:%String,AxInventTransId:%String</FormalSpec>
 <ReturnType>AXimpl.Controle.OrdDiff.ProductOrderLijn</ReturnType>
Index: AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml
===================================================================
diff -u -r65693 -r69259
--- AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml	(.../DataBouwer.cls.xml)	(revision 65693)
+++ AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml	(.../DataBouwer.cls.xml)	(revision 69259)
@@ -28,7 +28,7 @@
 <Method name="HaalOp">
 <Implementation><![CDATA[
 	#define Strip0(%v) $TR(%v,$C(0))
-
+	Set Cnt=0
 	While (..AxOrderLijnIterator.HasNext()) {
 		#dim rs As %ResultSet = ..AxOrderLijnIterator.Next()
 		#dim AXSalesId As %String = rs.Data("SALESID")
@@ -38,7 +38,6 @@
 		Continue:KlantNr=$$$KlantHalux
 		Continue:KlantNr=$$$KlantVanHoeckeNV
 		Continue:KlantNr=$$$KlantVanHoeckeBV
-		
 		#dim AantalGepickt As %String = +rs.Data("GEPICKTEHOEVEELHEID")
 		#dim AantalBesteld As %String = +rs.Data("QTYORDERED")
 		#dim AantalOpenstaand As %String = +rs.Data("OPENSTAANDEHOEVEELHEID")-rs.Data("GEPICKTEHOEVEELHEID")
@@ -66,14 +65,18 @@
 		Set AXData.AantalBesteld = AantalBesteld
 		Set AXData.AantalGeleverd = AantalGepickt
 		Set AXData.AantalOpenstaand = AantalOpenstaand
+		Set AXData.AantalOpBon = rs.Data("QtyOpBon")		
+		Set AXData.ValidatieBlokkering=$E($$$Strip0(rs.Data("VALIDATIECODE")),1,50) ; geblokkeerd order
 		Set AXData.Leverdatum=Leverdatum
 		Set AXData.AXSalesId=AXSalesId
 		Set AXData.ConfigId=ConfigId
 		Set AXData.SoprContractId=SoprContractId
 		Set ProductOrderLijn.AX=AXData
 		
 		Do ProductOrderLijn.Save()
+		Set Cnt=Cnt+1
 	}
+	w "AX orderlijnen",Cnt,!
 ]]></Implementation>
 </Method>
 
Index: AXimpl/Controle/OrdDiff/AX/OrderData.cls.xml
===================================================================
diff -u -r50300 -r69259
--- AXimpl/Controle/OrdDiff/AX/OrderData.cls.xml	(.../OrderData.cls.xml)	(revision 50300)
+++ AXimpl/Controle/OrdDiff/AX/OrderData.cls.xml	(.../OrderData.cls.xml)	(revision 69259)
@@ -16,10 +16,18 @@
 <Type>%Decimal</Type>
 </Property>
 
+<Property name="AantalOpBon">
+<Type>%Decimal</Type>
+</Property>
+
 <Property name="ItemId">
 <Type>%String</Type>
 </Property>
 
+<Property name="ValidatieBlokkering">
+<Type>%String</Type>
+</Property>
+
 <Property name="ProductNr">
 <Type>%String</Type>
 </Property>
@@ -49,8 +57,6 @@
 <State>OrderDataState</State>
 <StreamLocation>^AXimpl.Controle3314.OrderDataS</StreamLocation>
 <Data name="OrderDataState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>Aantal</Value>
 </Value>
@@ -96,6 +102,12 @@
 <Value name="15">
 <Value>Product</Value>
 </Value>
+<Value name="16">
+<Value>AantalOpBon</Value>
+</Value>
+<Value name="17">
+<Value>ValidatieBlokkering</Value>
+</Value>
 </Data>
 </Storage>
 </Class>