Index: AXimpl/Controle/OrdDiff/DiffData.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/OrdDiff/DiffData.cls.xml	(revision 0)
+++ AXimpl/Controle/OrdDiff/DiffData.cls.xml	(revision 49378)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Controle.OrdDiff.DiffData">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="GekendInAdmin">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="GekendInAX">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Aantal">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Leverdatum">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Product">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="OrderVerschillend">
+<Type>%Boolean</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>DiffDataState</State>
+<StreamLocation>^AXimpl.Controle.OF100.DiffDataS</StreamLocation>
+<Data name="DiffDataState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>AanwezigInAdmin</Value>
+</Value>
+<Value name="2">
+<Value>AanwezigInAX</Value>
+</Value>
+<Value name="3">
+<Value>GekendInAdmin</Value>
+</Value>
+<Value name="4">
+<Value>GekendInAX</Value>
+</Value>
+<Value name="5">
+<Value>Aantal</Value>
+</Value>
+<Value name="6">
+<Value>Leverdatum</Value>
+</Value>
+<Value name="7">
+<Value>Product</Value>
+</Value>
+<Value name="8">
+<Value>OrderVerschillend</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AXimpl/Controle/OrdDiff/Admin/OrderData.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/OrdDiff/Admin/OrderData.cls.xml	(revision 0)
+++ AXimpl/Controle/OrdDiff/Admin/OrderData.cls.xml	(revision 49378)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Controle.OrdDiff.Admin.OrderData">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Aantal">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="AantalLijnen">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="OrderLijnId">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="Product">
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="ItemId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Leverdatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="AXSalesId">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AXimpl.ControleC566.OrderDataD</DataLocation>
+<DefaultData>OrderDataDefaultData</DefaultData>
+<IdLocation>^AXimpl.ControleC566.OrderDataD</IdLocation>
+<IndexLocation>^AXimpl.ControleC566.OrderDataI</IndexLocation>
+<State>OrderDataState</State>
+<StreamLocation>^AXimpl.ControleC566.OrderDataS</StreamLocation>
+<Data name="OrderDataDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Aantal</Value>
+</Value>
+<Value name="3">
+<Value>OrderLijnId</Value>
+</Value>
+<Value name="4">
+<Value>ProductNr</Value>
+</Value>
+<Value name="5">
+<Value>LeverDatum</Value>
+</Value>
+</Data>
+<Data name="OrderDataState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>Aantal</Value>
+</Value>
+<Value name="2">
+<Value>OrderLijnId</Value>
+</Value>
+<Value name="3">
+<Value>ProductNr</Value>
+</Value>
+<Value name="4">
+<Value>LeverDatum</Value>
+</Value>
+<Value name="5">
+<Value>AantalLijnen</Value>
+</Value>
+<Value name="6">
+<Value>AXSalesId</Value>
+</Value>
+<Value name="7">
+<Value>Leverdatum</Value>
+</Value>
+<Value name="8">
+<Value>ItemId</Value>
+</Value>
+<Value name="9">
+<Value>Product</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml	(revision 0)
+++ AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml	(revision 49378)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Controle.OrdDiff.VergelijkLijn">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderLijnIterator">
+<Type>TECH.ResultSetIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderLijn">
+<Type>AXimpl.Controle.OrdDiff.ProductOrderLijn</Type>
+</Property>
+
+<Property name="Diff">
+<Type>AXimpl.Controle.OrdDiff.DiffData</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+D ##class(AXimpl.Controle.OrdDiff.MaakDiff).%New().Maak()</Description>
+<FormalSpec>AdminOrderLijnIterator:AXimpl.Controle.Order.Admin.AdminOrderLijnIterator</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Set SqlStatement="select ID from AXimpl_Controle_OrdDiff.ProductOrderLijn"
+	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+	Set ..OrderLijnIterator=##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VegelijkAlleLijnen">
+<Implementation><![CDATA[
+	While ..OrderLijnIterator.HasNext()
+	{
+		Set rs=..OrderLijnIterator.Next()
+		Set ID=rs.Data("ID")
+		Set ..OrderLijn=##class(AXimpl.Controle.OrdDiff.ProductOrderLijn).%OpenId(ID)
+		Do ..VergelijkOrderLijn()
+		Set ..OrderLijn.Diff=..Diff
+		Do ..OrderLijn.Save()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VergelijkOrderLijn">
+<Implementation><![CDATA[
+	Set ..Diff=##class(AXimpl.Controle.OrdDiff.DiffData).%New()
+
+	Do ..ControleerAanwezig()
+	If ..Diff.GekendInAX&&..Diff.GekendInAdmin
+	{
+		Do ..ControleerAantal()
+		Do ..ControleerProduct()
+		Do ..ControleerLeverDatum()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControleerAanwezig">
+<Implementation><![CDATA[
+	Set ..Diff.GekendInAX=''..OrderLijn.AX.ProductNr
+	Set ..Diff.GekendInAdmin=''..OrderLijn.Admin.ProductNr
+]]></Implementation>
+</Method>
+
+<Method name="ControleerAantal">
+<Implementation><![CDATA[	Set ..Diff.Aantal=(..OrderLijn.AX.AantalOpenstaand'=..OrderLijn.Admin.Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="ControleerProduct">
+<Implementation><![CDATA[	Set ..Diff.Product=(..OrderLijn.AX.ProductNr'=..OrderLijn.Admin.ProductNr)&&($TR(..OrderLijn.AX.ItemId," ")'=$TR(..OrderLijn.Admin.ItemId," "))
+]]></Implementation>
+</Method>
+
+<Method name="ControleerLeverDatum">
+<Implementation><![CDATA[	Set ..Diff.Leverdatum=(..OrderLijn.AX.Leverdatum'=..OrderLijn.Admin.Leverdatum)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Controle/OrdDiff/MaakDiff.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/OrdDiff/MaakDiff.cls.xml	(revision 0)
+++ AXimpl/Controle/OrdDiff/MaakDiff.cls.xml	(revision 49378)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Controle.OrdDiff.MaakDiff">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AdminOrderLijnIterator">
+<Type>AXimpl.Controle.Order.Admin.AdminOrderLijnIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductOrderLijnRepository">
+<Type>AXimpl.Controle.Order.ProductOrderLijnRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+D ##class(AXimpl.Controle.OrdDiff.MaakDiff).%New().Maak()</Description>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Maak">
+<Implementation><![CDATA[
+	Do ..VerwijderOudeData()
+	Do ..HaalAdminData()
+	Do ..HaalAXData()
+	Do ..BepaalDiff()
+]]></Implementation>
+</Method>
+
+<Method name="HaalAdminData">
+<Implementation><![CDATA[
+	Set bl=##class(AXimpl.Controle.OrdDiff.Admin.DataBouwer).%New()
+	Do bl.HaalOp()
+]]></Implementation>
+</Method>
+
+<Method name="HaalAXData">
+<Implementation><![CDATA[
+	Set bl=##class(AXimpl.Controle.OrdDiff.AX.DataBouwer).%New()
+	Do bl.HaalOp()
+]]></Implementation>
+</Method>
+
+<Method name="BepaalDiff">
+<Implementation><![CDATA[
+	Set bl=##class(AXimpl.Controle.OrdDiff.VergelijkLijn).%New()
+	Do bl.VegelijkAlleLijnen()
+	Set bl=##class(AXimpl.Controle.OrdDiff.VergelijkOrder).%New()
+	Do bl.MarkeerOrdersMetVerschillen()
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOudeData">
+<Implementation><![CDATA[	Do ##class(AXimpl.Controle.OrdDiff.ProductOrderLijn).%KillExtent()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Controle/OrdDiff/AX/OrderData.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/OrdDiff/AX/OrderData.cls.xml	(revision 0)
+++ AXimpl/Controle/OrdDiff/AX/OrderData.cls.xml	(revision 49378)
@@ -0,0 +1,104 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Controle.OrdDiff.AX.OrderData">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="AantalBesteld">
+<Type>%String</Type>
+</Property>
+
+<Property name="AantalGeleverd">
+<Type>%String</Type>
+</Property>
+
+<Property name="AantalOpenstaand">
+<Type>%String</Type>
+</Property>
+
+<Property name="ItemId">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="Product">
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="Leverdatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="ConfigId">
+<Type>%String</Type>
+</Property>
+
+<Property name="SoprContractId">
+<Type>%String</Type>
+</Property>
+
+<Property name="AXSalesId">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>OrderDataState</State>
+<StreamLocation>^AXimpl.Controle3314.OrderDataS</StreamLocation>
+<Data name="OrderDataState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>Aantal</Value>
+</Value>
+<Value name="2">
+<Value>OrderLijnId</Value>
+</Value>
+<Value name="3">
+<Value>ItemID</Value>
+</Value>
+<Value name="4">
+<Value>ProductNr</Value>
+</Value>
+<Value name="5">
+<Value>LeverDatum</Value>
+</Value>
+<Value name="6">
+<Value>ConfigID</Value>
+</Value>
+<Value name="7">
+<Value>Leverdatum</Value>
+</Value>
+<Value name="8">
+<Value>AantalBesteld</Value>
+</Value>
+<Value name="9">
+<Value>AantalGeleverd</Value>
+</Value>
+<Value name="10">
+<Value>AantalOpenstaand</Value>
+</Value>
+<Value name="11">
+<Value>ItemId</Value>
+</Value>
+<Value name="12">
+<Value>ConfigId</Value>
+</Value>
+<Value name="13">
+<Value>SoprContractId</Value>
+</Value>
+<Value name="14">
+<Value>AXSalesId</Value>
+</Value>
+<Value name="15">
+<Value>Product</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml	(revision 0)
+++ AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml	(revision 49378)
@@ -0,0 +1,102 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Controle.OrdDiff.Admin.DataBouwer">
+<IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AdminOrderLijnIterator">
+<Type>AXimpl.Controle.Order.Admin.AdminOrderLijnIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>AdminOrderLijnIterator:AXimpl.Controle.Order.Admin.AdminOrderLijnIterator</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..AdminOrderLijnIterator = $$$Inject(AdminOrderLijnIterator, ##class(AXimpl.Controle.Order.Admin.AdminOrderLijnIterator).%New())
+	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HaalOp">
+<Implementation><![CDATA[
+	While (..AdminOrderLijnIterator.HasNext()) {
+		
+		#dim AdminOrderLijn As DOM.VKP.ProductOrderlijn = ..AdminOrderLijnIterator.Next()
+		#dim Order As DOM.VKP.Order = AdminOrderLijn.GeefOrder()
+		#dim KlantNr As %String = $Extract(Order.GeefKlantID(),4,*)
+		#dim OrderId As %String = Order.GeefID()
+		#dim AXSalesId As %String = Order.GeefAxSalesId()
+		#dim OrderLijnId As %String = AdminOrderLijn.GeefID()
+		#dim ProductNr As %String = AdminOrderLijn.GeefProductID()
+		#dim Aantal As %String = AdminOrderLijn.GeefAantal()
+		#dim AxInventTransId As %String = AdminOrderLijn.GeefAxInventTransId()
+		#dim AxConfigId As %String = AdminOrderLijn.GeefAxConfigId()
+		#dim AxMaatwerkGenerischItemId As %String = AdminOrderLijn.GeefAxMaatwerkGenerischItemId()
+		#dim Leverdatum As %Date = AdminOrderLijn.GeefLeverdag()
+		
+		Continue:KlantNr=$$$KlantHalux
+		Continue:KlantNr=$$$KlantVanHoeckeNV
+		Continue:KlantNr=$$$KlantVanHoeckeBV
+		
+		; Indien lijn reeds bestaat dan gaat het over een split lijn en moet deze terug gegroepeerd worden
+		Set ProductOrderLijn=..GeefBestaandeOrderLijn(KlantNr,OrderId,ProductNr,AxInventTransId)
+		If $isObject(ProductOrderLijn)
+		{
+			Set ProductOrderLijn.Admin.AantalLijnen=ProductOrderLijn.Admin.AantalLijnen+1
+			Set ProductOrderLijn.Admin.Aantal = ProductOrderLijn.Admin.Aantal + Aantal 
+		} 
+		Else
+		{
+			#dim ProductOrderLijn As AXimpl.Controle.Order.ProductOrderLijn = ##class(AXimpl.Controle.OrdDiff.ProductOrderLijn).%New()
+			Set ProductOrderLijn.KlantNr = KlantNr
+			Do ProductOrderLijn.KlantSetObjectId(KlantNr)
+
+			Set ProductOrderLijn.OrderId = OrderId
+			Set ProductOrderLijn.AxInventTransId = AxInventTransId
+			Set AdminData = ##class(AXimpl.Controle.OrdDiff.Admin.OrderData).%New()
+			Set AdminData.OrderLijnId = OrderLijnId
+			Set AdminData.ProductNr = ProductNr
+			Do AdminData.ProductSetObjectId(ProductNr)
+
+			Set AdminData.ItemId = ..Translator.GeefItemIDForAX(ProductNr)
+
+			Set AdminData.Aantal = Aantal
+			Set AdminData.AantalLijnen=1
+			Set AdminData.Leverdatum=Leverdatum
+			Set AdminData.AXSalesId=AXSalesId
+			Set ProductOrderLijn.Admin=AdminData
+		}
+		Do ProductOrderLijn.Save()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestaandeOrderLijn">
+<FormalSpec>KlantNr:%String,OrderId:%String,ProductNr:%String,AxInventTransId:%String</FormalSpec>
+<ReturnType>AXimpl.Controle.OrdDiff.ProductOrderLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderLijnID as %String=""
+	#dim ProductOrderLijn as AXimpl.Controle.OrdDiff.ProductOrderLijn=""
+	&SQL( Select ID into :OrderLijnID From AXimpl_Controle_OrdDiff.ProductOrderLijn where KlantNr=:KlantNr and OrderId=:OrderId and Admin_ProductNr=:ProductNr and AxInventTransId=:AxInventTransId)
+	
+	If OrderLijnID
+	{
+		Set ProductOrderLijn=##class(AXimpl.Controle.OrdDiff.ProductOrderLijn).%OpenId(OrderLijnID)
+	}
+	Quit ProductOrderLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Controle/OrdDiff/VergelijkOrder.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/OrdDiff/VergelijkOrder.cls.xml	(revision 0)
+++ AXimpl/Controle/OrdDiff/VergelijkOrder.cls.xml	(revision 49378)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Controle.OrdDiff.VergelijkOrder">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderLijnIterator">
+<Type>TECH.ResultSetIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderLijn">
+<Type>AXimpl.Controle.OrdDiff.ProductOrderLijn</Type>
+</Property>
+
+<Property name="Diff">
+<Type>AXimpl.Controle.OrdDiff.DiffData</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+D ##class(AXimpl.Controle.OrdDiff.MaakDiff).%New().Maak()</Description>
+<FormalSpec>AdminOrderLijnIterator:AXimpl.Controle.Order.Admin.AdminOrderLijnIterator</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<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 ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+	Set ..OrderLijnIterator=##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MarkeerOrdersMetVerschillen">
+<Implementation><![CDATA[
+	While ..OrderLijnIterator.HasNext()
+	{
+		Set rs=..OrderLijnIterator.Next()
+		Set OrderId=rs.Data("OrderId")
+		Do ..UpdateOrder(OrderId)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="UpdateOrder">
+<FormalSpec>OrderId:%String</FormalSpec>
+<Implementation><![CDATA[	&SQL(Update AXimpl_Controle_OrdDiff.ProductOrderLijn Set Diff_OrderVerschillend=1 where OrderId=:OrderId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml	(revision 0)
+++ AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml	(revision 49378)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Controle.OrdDiff.AX.DataBouwer">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AxOrderLijnIterator">
+<Type>AXimpl.Controle.Order.Ax.AxOrderLijnIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>AdminOrderLijnIterator:AXimpl.Controle.Order.Admin.AdminOrderLijnIterator</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..AxOrderLijnIterator = $$$Inject(AdminOrderLijnIterator, ##class(AXimpl.Controle.Order.Ax.AxOrderLijnIterator).%New())
+	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HaalOp">
+<Implementation><![CDATA[
+	#define Strip0(%v) $TR(%v,$C(0))
+
+	While (..AxOrderLijnIterator.HasNext()) {
+		#dim rs As %ResultSet = ..AxOrderLijnIterator.Next()
+		#dim AXSalesId As %String = rs.Data("SALESID")
+		#dim OrderId As %String = $Reverse($E($Reverse(AXSalesId),1,6))
+		#dim KlantNr As %String = +rs.Data("CUSTACCOUNT")
+
+		
+		#dim AantalGepickt As %String = +rs.Data("GEPICKTEHOEVEELHEID")
+		#dim AantalBesteld As %String = +rs.Data("QTYORDERED")
+		#dim AantalOpenstaand As %String = +rs.Data("OPENSTAANDEHOEVEELHEID")
+		#dim InventTransId As %String = rs.Data("INVENTTRANSID")
+		#dim ConfigId As %String = $$$Strip0(rs.Data("CONFIGID"))
+		#dim SoprContractId As %String =$$$Strip0(rs.Data("ADUSOPRCONTRACTID"))
+		#dim Leverdatum As %Date = $zdh(rs.Data("RECEIPTDATECONFIRMED"),3) ;CONFIRMEDDLV
+
+		#dim ItemId As %String =rs.Data("ITEMID")
+		#dim ProductNr As %String = $$$Strip0(rs.Data("ADMINPRODUCTNUMMER"))
+		If ProductNr=""
+		{
+			Set ProductNr=..Translator.GeefPRNrForAdmin(ItemId)
+		}
+
+		#dim ProductOrderLijn As AXimpl.Controle.Order.ProductOrderLijn 
+		Set ProductOrderLijn=..GeefOrderLijn(KlantNr,OrderId,InventTransId)
+		Set AXData = ##class(AXimpl.Controle.OrdDiff.AX.OrderData).%New()
+		Set AXData.ItemId = ItemId
+		Set AXData.ProductNr = ProductNr
+		Do AXData.ProductSetObjectId(ProductNr)
+		
+		Set AXData.AantalBesteld = AantalBesteld
+		Set AXData.AantalGeleverd = AantalGepickt
+		Set AXData.AantalOpenstaand = AantalOpenstaand
+		Set AXData.Leverdatum=Leverdatum
+		Set AXData.AXSalesId=AXSalesId
+		Set AXData.ConfigId=ConfigId
+		Set AXData.SoprContractId=SoprContractId
+		Set ProductOrderLijn.AX=AXData
+		
+		Do ProductOrderLijn.Save()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderLijn">
+<FormalSpec>KlantNr:%String,OrderId:%String,InventTransId:%String</FormalSpec>
+<ReturnType>AXimpl.Controle.OrdDiff.ProductOrderLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderLijnID as %String=""
+	#dim ProductOrderLijn as AXimpl.Controle.OrdDiff.ProductOrderLijn=""
+	&SQL( Select ID into :OrderLijnID From AXimpl_Controle_OrdDiff.ProductOrderLijn where KlantNr=:KlantNr and OrderId=:OrderId and AxInventTransId=:InventTransId)
+	
+	If OrderLijnID
+	{
+		Set ProductOrderLijn=##class(AXimpl.Controle.OrdDiff.ProductOrderLijn).%OpenId(OrderLijnID)
+	} else	{
+		Set ProductOrderLijn= ##class(AXimpl.Controle.OrdDiff.ProductOrderLijn).%New()
+		Set ProductOrderLijn.KlantNr = KlantNr
+		Do ProductOrderLijn.KlantSetObjectId(KlantNr)
+		
+		Set ProductOrderLijn.OrderId = OrderId
+		Set ProductOrderLijn.AxInventTransId = InventTransId			
+
+	}
+	Quit ProductOrderLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Controle/OrdDiff/ProductOrderLijn.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/OrdDiff/ProductOrderLijn.cls.xml	(revision 0)
+++ AXimpl/Controle/OrdDiff/ProductOrderLijn.cls.xml	(revision 49378)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Controle.OrdDiff.ProductOrderLijn">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+
+<Index name="IdxKlantNr">
+<Properties>KlantNr</Properties>
+</Index>
+
+<Index name="IdxOrderId">
+<Properties>OrderId</Properties>
+</Index>
+
+<Index name="IdxAxInventTransId">
+<Properties>AxInventTransId</Properties>
+</Index>
+
+<Property name="AxInventTransId">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="Klant">
+<Type>Derde.Klant.Klant</Type>
+</Property>
+
+<Property name="OrderId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Admin">
+<Type>AXimpl.Controle.OrdDiff.Admin.OrderData</Type>
+</Property>
+
+<Property name="AX">
+<Type>AXimpl.Controle.OrdDiff.AX.OrderData</Type>
+</Property>
+
+<Property name="Diff">
+<Type>AXimpl.Controle.OrdDiff.DiffData</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AXimpl.ConF100.ProductOrdeAC5AD</DataLocation>
+<DefaultData>ProductOrderLijnDefaultData</DefaultData>
+<IdLocation>^AXimpl.ConF100.ProductOrdeAC5AD</IdLocation>
+<IndexLocation>^AXimpl.ConF100.ProductOrdeAC5AI</IndexLocation>
+<StreamLocation>^AXimpl.ConF100.ProductOrdeAC5AS</StreamLocation>
+<Data name="ProductOrderLijnDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>AxInventTransId</Value>
+</Value>
+<Value name="3">
+<Value>KlantNr</Value>
+</Value>
+<Value name="4">
+<Value>OrderId</Value>
+</Value>
+<Value name="5">
+<Value>Admin</Value>
+</Value>
+<Value name="6">
+<Value>AX</Value>
+</Value>
+<Value name="7">
+<Value>Aantal</Value>
+</Value>
+<Value name="8">
+<Value>OrderLijnId</Value>
+</Value>
+<Value name="9">
+<Value>ProductNr</Value>
+</Value>
+<Value name="10">
+<Value>Diff</Value>
+</Value>
+<Value name="11">
+<Value>Klant</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>