FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/CorrelateBasis.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/KlantenAX/impl/Klanten.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/DataAX/impl/FacturenOphalen.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/DataAX/impl/FacturenOphalen.cls.xml	(.../FacturenOphalen.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/DataAX/impl/FacturenOphalen.cls.xml	(.../FacturenOphalen.cls.xml)	(revision 50353)
@@ -62,29 +62,32 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest</FormalSpec>
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest,ModeAX:%String="2A"</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set Timer=##class(TECH.Timing.Timer).%New("")
 	Do Timer.Start()
 
 	Set ..Request=Request
 	Set ..KlantId=..Request.Header.KlantId
-	Set ..AxCustomerId=..Request.Header.AxCustomerId
+	Set ..AxCustomerId=..Request.Header.GeefAXCustomerId()
 	Set ..Periode=Request.Periode
 	Set ..Taal=..Request.Header.Taal
-	Set ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
+	If ModeAX="2A" {
+		Set ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
+		Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
+		Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	} Else {
+		Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+		Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
+		Set ..Translator=##class(AX.Uitgaand.EC.Data.impl.Translator).%New()
+	}
+	Set ..FacturenOphaler=##class(AX.Uitgaand.EC.DataAX.impl.HelperFacturenOphalen).%New(..AxCustomerId,..KlantId, ..Taal)
+	Set ..FacturenConverter=##class(AX.Uitgaand.EC.DataAX.impl.HelperFacturenConverteren).%New(..AxCustomerId,..KlantId, ..Taal, ..ProductValidator, ..Translator, ModeAX)
 
-	Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
-	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
-	
-	Set ..FacturenOphaler=##class(AX.Uitgaand.EC.DataAX.impl.HelperFacturenOphalen).%New(..AxCustomerId,..KlantId, ..Taal, ..ProductValidator, ..Translator)
-	Set ..FacturenConverter=##class(AX.Uitgaand.EC.DataAX.impl.HelperFacturenConverteren).%New(..AxCustomerId,..KlantId, ..Taal, ..ProductValidator, ..Translator)
-
 	Do ..GenereerLijst()	
 
 	Set ..Response.Tijd=Timer.Stop()\1
-
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -105,25 +108,11 @@
 <Method name="GenereerLijst">
 <Description>
 Hoofding
-   ^||ECCache("D",HoofdingVolgNr) = $LB(Type,OrderNr,BONNr,FAKNr,OrderHfdData, LeveringHfdData, FaktuurHfdData, LevAdresData)
-	   waar Type = O,L,F,P (order, levering, factuur, proforma)
-Lijn (product of tekst)
-   ^||ECCache("D",HoofdingVolgNr,LijnVolgNr) = $LB(Type,OrderlijnData, Tekst, VoorraadStatus)
-	   waar Type = P of T (Product of Tekst)
-	   de lijnData kan van zowel KOD, KUL, KFA als KFAP komen
-Index
-   ^||ECCache("IO",OrderNr,VolgNr)=HoofdingVolgNr
-   ^||ECCache("IF",FactuurNr,VolgNr)=HoofdingVolgNr
-Hoofding
-   ^||ECCache("ORD",ORDNr) = $LB(Oorsprong,OrderDatum, HfdData, LevAdresData)
-	   waar Oorsprong = O,L,F,P (order, levering, factuur, proforma)
-       waar HfdData oorsprong afhankelijk (Order hfdData '= Levering en Factuur
-Lijn (product of tekst)
-   ^||ECCache("ORD",ORDNr,OLUNr,LijnVolgNr) = $LB(Oorsprong,Type,OrderlijnData, Tekst, VoorraadStatus, BONNr, BonHfdData, FAKNr, FakHfdData)
-	   waar Type = P of T (Product of Tekst)
-	   de lijnData kan van zowel KOD, KUL, KFA als KFAP komen
-Index
-   ^||ECCache("IORD",OrderDatum,ORDNr)=""</Description>
+   ^||ECCache("D",FactuurNr,"HFD") = ResultSet.Data
+Datum index
+   ^||ECCache("IFAK",Datum,FactuurNr) = ResultSet.Data
+FactuurLijn
+   ^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr) = ResultSet.Data</Description>
 <Implementation><![CDATA[
 	Do ..OphalenNaarCache()
 	Do ..ConverteerCacheNaarXML()
@@ -133,99 +122,102 @@
 <Method name="OphalenNaarCache">
 <Private>1</Private>
 <Implementation><![CDATA[
-	
-	Do ..FacturenOphaler.OphalenOpenstaandeFacturen()
+	If ..Periode
+	{
+		Do ..FacturenOphaler.OphalenRecenteFacturen($H-..Periode)
+	}
+	Else
+{
+		Do ..FacturenOphaler.OphalenOpenstaandeFacturen()
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerCacheNaarXML">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim FactuurDatum as %Date
-	#dim FAKNr as %String
+	#dim FactuurNr as %String
 		
 	Set FactuurDatum=$O(^||ECCache("IFAK",""),-1)
 	While FactuurDatum'=""
 	{
-		Set FAKNr=$O(^||ECCache("IFAK",FactuurDatum,""))
-		While FAKNr'=""
+		Set FactuurNr=$O(^||ECCache("IFAK",FactuurDatum,""))
+		While FactuurNr'=""
 		{
-			Do ..Converteer(FAKNr)
-			Set FAKNr=$O(^||ECCache("IFAK",FactuurDatum,FAKNr))
+			Do ..ConverteerFactuur(FactuurNr)
+			Set FactuurNr=$O(^||ECCache("IFAK",FactuurDatum,FactuurNr))
 		}
 		Set FactuurDatum=$O(^||ECCache("IFAK",FactuurDatum),-1)
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="Converteer">
-<FormalSpec>FAKNr:%String</FormalSpec>
+<Method name="ConverteerFactuur">
+<FormalSpec>FactuurNr:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim pxHoofding as WS.Vhisie4.KlantDocument.dto.DocumentHoofding
-	#dim pxLijn  as WS.Vhisie4.KlantDocument.dto.DocumentLijn 
-	#dim lbHoofding as %List
-	#dim lbLijn as %List
+	#dim pxLijn as WS.Vhisie4.KlantDocument.dto.DocumentLijn 
+	#dim pxOrder as WS.Vhisie4.KlantDocument.dto.DocumentLijn 
 	#dim LijnNiv1 as %String
 	#dim LijnNiv2 as %String
-	#dim LijnNiv3 as %String
-	#dim LijnNiv4 as %String
-	#dim ObjectType as %String
 	
-	Set lbHoofding=^||ECCache("FAK",FAKNr)
-	
-	Set pxHoofding=..ConverteerHoofding(lbHoofding)
-	Set LijnNiv1=$O(^||ECCache("FAK",FAKNr,""))
+	Set pxHoofding=..ConverteerHoofding(FactuurNr)
+	Set LijnNiv1=$O(^||ECCache("D",FactuurNr,"ORD",""))
 	While LijnNiv1'=""
 	{	
-		Set LijnNiv2=$O(^||ECCache("FAK",FAKNr,LijnNiv1,""))
-		While LijnNiv2'=""
-		{	
-			Set LijnNiv3=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,""))
-			While LijnNiv3'=""
-			{	
+		; eerst order hoofding toevoegen als een lijn
+		Set pxOrder=..ConverteerOrder(FactuurNr, LijnNiv1)
+		If $isObject(pxOrder) {
+			Do pxHoofding.Lijnen.Insert(pxOrder)
 
-				Set LijnNiv4=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,LijnNiv3,""))
-				While LijnNiv4'=""
-				{	
-
-					Set lbLijn=^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,LijnNiv3,LijnNiv4)
-					Set pxLijn=..ConverteerLijn(lbHoofding,lbLijn)
-					If $isObject(pxLijn) {
-						Do pxHoofding.Lijnen.Insert(pxLijn)
-					}
-					Set LijnNiv4=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,LijnNiv3, LijnNiv4))
+			Set LijnNiv2=$O(^||ECCache("D",FactuurNr,"ORD",LijnNiv1,""))
+			While LijnNiv2'=""
+			{	
+				Set pxLijn=..ConverteerLijn(FactuurNr, LijnNiv1, LijnNiv2)
+				If $isObject(pxLijn) {
+					Do pxHoofding.Lijnen.Insert(pxLijn)
+				}
+				Set LijnNiv2=$O(^||ECCache("D",FactuurNr,"ORD",LijnNiv1,LijnNiv2))
 			}
-				Set LijnNiv3=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,LijnNiv3))
 		}
-			Set LijnNiv2=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2))
-		}
-
-		Set LijnNiv1=$O(^||ECCache("FAK",FAKNr,LijnNiv1))
+		Set LijnNiv1=$O(^||ECCache("D",FactuurNr,"ORD",LijnNiv1))
 	}
 	Do pxHoofding.BepaalProductGroepen()
 	Do ..Facturen.Insert(pxHoofding)
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerLijn">
-<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
+<FormalSpec>FactuurNr:%String,OrderNr:%String,VolgNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Vhisie4.KlantDocument.dto.FactuurLijn</ReturnType>
 <Implementation><![CDATA[
 	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.FactuurLijn).%New()
-	Do ..FacturenOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
+	Do ..FacturenConverter.ConverteerLijn(pxLijn, FactuurNr, OrderNr, VolgNr)
 	Quit pxLijn
 ]]></Implementation>
 </Method>
 
+<Method name="ConverteerOrder">
+<FormalSpec>FactuurNr:%String,OrderNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.FactuurLijn</ReturnType>
+<Implementation><![CDATA[
+	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.FactuurLijn).%New()
+	Do ..FacturenConverter.ConverteerOrderAlsLijn(pxLijn, FactuurNr, OrderNr)
+	Quit pxLijn
+]]></Implementation>
+</Method>
+
 <Method name="ConverteerHoofding">
-<FormalSpec>lbHoofding:%List</FormalSpec>
+<FormalSpec>FactuurNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Vhisie4.KlantDocument.dto.FactuurHoofding</ReturnType>
 <Implementation><![CDATA[
 	Set pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.FactuurHoofding).%New()
-	Do ..FacturenOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
+	Do ..FacturenConverter.ConverteerHoofding(pxHoofding, FactuurNr)
 	Quit pxHoofding
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalen.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 50353)
@@ -70,7 +70,7 @@
 	Set LeveringRec=$LG(lbHoofding,3)
 	Set pxHoofding.VerzendWijze=..TranslateVerzendWijze($P($P(LeveringRec,"\",7)," #"))
 	Set pxHoofding.LeveringsDatum=$$INTDATE^vhLib.DataTypes($P($P(LeveringRec,"\",7)," #"))
-	If (pxHoofding.LeveringsDatum>($H-150))&&(pxHoofding.VerzendWijze="DI1") ;bon nummers worden herbruikt
+	If (pxHoofding.LeveringsDatum>($H-150))&&(pxHoofding.VerzendWijze?1(1"DI1",1"DD1")) ;bon nummers worden herbruikt
 	{
 		try{
 		 	Set pxHoofding.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxHoofding.LeveringId)
@@ -295,7 +295,7 @@
 <Method name="CheckLevering">
 <FormalSpec>BONNr,Periode</FormalSpec>
 <Implementation><![CDATA[
-	If Periode && (..Node'="F")
+	If Periode ; && (..Node'="F")
 	{
 		Set LeverDatum=$$INTDATE^vhLib.DataTypes($P(^KUL(..KlantId,..Node,BONNr,1),"\",2))
 		Set Check=LeverDatum'<($H-Periode)
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/impl/CorrelateHeader.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/GenerateBasis.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 50353)
@@ -60,7 +60,6 @@
 	Set:..GenerationId="" ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
 	Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
 
-
 	Do ..GenereerLijst()
 		
 	Set ..Response.Tijd=Timer.Stop()\1
@@ -109,9 +108,9 @@
 	Set pxItem.ProductID=..Translator.GeefItemIDForAX($P(HistRec,"\",15))
 	Set pxItem.JaarAfname=$P(HistRec,"\",3)
 	Set pxItem.JaarOmzet=$P(HistRec,"\",12)
-	Set pxItem.NettoPrijs=$P(HistRec,"\",9)
-	Set:$P(HistRec,"\",11)="H" pxItem.GrootteOrde="%"
-	Set pxItem.Munt=$P(HistRec,"\",10)
+	Set pxItem.NettoPrijs=$P(HistRec,"\",6)
+	Set:$P(HistRec,"\",8)="H" pxItem.GrootteOrde="%"
+	Set pxItem.Munt=$P(HistRec,"\",7)
 	Set pxItem.LaatsteDatum=$$INTDATE^vhLib.DataTypes($P(HistRec,"\",5))
 	Do pxItem.VulAanMetProduct(..Taal)
 	Do ..ToevoegenAanGroep(pxItem)
@@ -141,7 +140,9 @@
 
 <Method name="CheckProduct">
 <FormalSpec>PRNr:%String</FormalSpec>
-<Implementation><![CDATA[	Quit ..ProductValidator.InAssortiment(PRNr)
+<Implementation><![CDATA[
+	Quit:$D(^HISTPAK("P",PRNr)) 0
+	Quit ..ProductValidator.InAssortiment(PRNr)
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 50353)
@@ -73,9 +73,10 @@
 	Set pxHoofding.OorsprongDocType="L"
 
 	Set LeveringRec=$LG(lbHoofding,3)
+	
 	Set pxHoofding.VerzendWijze=..TranslateVerzendWijze($P($P(LeveringRec,"\",7)," #"))
-	Set pxHoofding.LeveringsDatum=$$INTDATE^vhLib.DataTypes($P($P(LeveringRec,"\",7)," #"))
-	If (pxHoofding.LeveringsDatum>($H-150))&&(pxHoofding.VerzendWijze="DI1") ;bon nummers worden herbruikt
+	Set pxHoofding.LeveringsDatum=$$INTDATE^vhLib.DataTypes($P($P(LeveringRec,"\",2)," #"))
+	If (pxHoofding.LeveringsDatum>($H-150))&&(pxHoofding.VerzendWijze?1(1"DI1",1"DD1")) ;bon nummers worden herbruikt
 	{
 		try{
 		 	Set pxHoofding.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxHoofding.LeveringId)
@@ -84,6 +85,8 @@
 		 	/// geen TrackAndTrace URL beschikbaar
 		}
 	}
+	Set pxHoofding.LeverAdresTekst=##class(AX.Uitgaand.EC.DataAX.impl.HelperAdresConverteren).MaakAdresTekstVanAdmin(..KlantId,$LG(lbHoofding,4))
+
 	; Niet voor AX
 	;Do ..VulAanMetFactuur(pxHoofding, lbHoofding)
 ]]></Implementation>
@@ -302,7 +305,7 @@
 <Method name="CheckLevering">
 <FormalSpec>BONNr,Periode</FormalSpec>
 <Implementation><![CDATA[
-	If Periode && (..Node'="F")
+	If Periode ;&& (..Node'="F")
 	{
 		Set LeverDatum=$$INTDATE^vhLib.DataTypes($P(^KUL(..KlantId,..Node,BONNr,1),"\",2))
 		Set Check=LeverDatum'<($H-Periode)
@@ -338,7 +341,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
-	SEt Datum=""
+	Set Datum=""
 	Set:Ref?2N1"."2N1"."2N.E Datum=$$INTDATE^vhLib.DataTypes($E(Ref,1,8))
 	Set:(Datum<($H-365))||(Datum>($H+5)) Datum=+$P($P(ORDRec,"\",4),"#",3)
 	Quit Datum
@@ -349,7 +352,7 @@
 <FormalSpec>ORDRec</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
+	Set Ref=$P($P(ORDRec,"\",5)," - ",3,99)
 	Set:Ref?2N1"."2N1"."2N.E Ref=$E(Ref,9,99) ; Strip datum
 	Set:$E(Ref)=" " Ref=$E(Ref,2,99)
 	
Index: AX/Uitgaand/EC/Data/impl/Testing.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Data/impl/Testing.cls.xml	(.../Testing.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Data/impl/Testing.cls.xml	(.../Testing.cls.xml)	(revision 50353)
@@ -37,7 +37,6 @@
 	Do ..Leveringen(KlantId)
 	Do ..Leveringen(KlantId,Periode)
 	Do ..Offertes(KlantId,Periode)
-	
 	Do ..Historiek(KlantId)
 ]]></Implementation>
 </Method>
@@ -47,28 +46,33 @@
 d ##class(AX.Uitgaand.EC.Data.impl.Testing).Doc()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
+	
 	Set request=##class(WS.Vhisie4.KlantDocument.GeefDocumentRequest).%New()
 	Set request.Header.KlantId=1736
-	Set request.Header.Taal="N"
+	Set request.Header.Taal="F"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId="VH"
+	Set request.Header.PersonalityId=1
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 
-	Set request.DocumentId=591298
-	Set request.DocumentType="Factuur"
+	Set request.DocumentId="VO1800141169"
+	Set request.DocumentType="Order"
 	Set request.ResultaatType="PDF"
 	;Set request.DocumentId=315652
 	;Set request.DocumentType="Levering"
 	
-	Set request.DocumentId=166946
-	Set request.DocumentType="Order"
+	Set request.DocumentId="VC123339"
+	Set request.DocumentType="Factuur"
 	;Set request.DocumentId="573781"
 	;Set request.DocumentType="Offerte"
 
+	Do ##class(Tools.Wlip).%New(127).String(request.DocumentId)
+
 	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
+	Do ##class(Tools.Wlip).%New(127).String(request.DocumentId)
 	Set dto=bl.GeefDocument(request)
+	Do ##class(Tools.Wlip).%New(127).String(request.DocumentId)
 
 	Do ObjToXMLFile^vhLib(request,"\\notes01\shared\P V\EC Document request "_request.Header.KlantId_" "_request.DocumentId_".xml")
 	Do ObjToXMLFile^vhLib(dto,"\\notes01\shared\P V\EC Document response "_request.Header.KlantId_" "_request.DocumentId_".xml")
@@ -85,7 +89,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId="VH"
+	Set request.Header.PersonalityId=1
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set request.Periode = $G(Periode)
@@ -107,7 +111,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId="VH"
+	Set request.Header.PersonalityId=1
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set request.Periode = $G(Periode)
@@ -130,7 +134,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId="VH"
+	Set request.Header.PersonalityId=1
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
@@ -151,7 +155,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId="VH"
+	Set request.Header.PersonalityId=1
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
@@ -172,7 +176,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId="VH"
+	Set request.Header.PersonalityId=1
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set request.Periode=200
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/KlantAssortiment.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml	(.../HelperFacturenConverteren.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml	(.../HelperFacturenConverteren.cls.xml)	(revision 50353)
@@ -30,350 +30,110 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="GlobalData">
+<Property name="ModeAX">
 <Type>%String</Type>
 </Property>
 
-<Property name="GlobalIndex">
-<Type>%String</Type>
-</Property>
-
-<Property name="FactuurProforma">
-<Type>%String</Type>
-</Property>
-
-<Property name="OrderType">
-<Description>
-Standaard of Contract</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="repOpenstaandeFactuur">
-<Type>DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository</Type>
-</Property>
-
-<Property name="TrackAndTraceService">
-<Type>APPS.OV.impl.TrackAndTraceService</Type>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>AxCustomerID:%String,KlantId:%String,Taal:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator,Translator:AX.Uitgaand.EC.DataAX.impl.Translator</FormalSpec>
+<FormalSpec>AxCustomerID:%String,KlantId:%String,Taal:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator,Translator:AX.Uitgaand.EC.DataAX.impl.Translator,ModeAX:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxCustomerID=AxCustomerID
 	Set ..KlantId=KlantId
 	Set ..Taal=Taal
 	Set ..ProductValidator=ProductValidator
-	Set ..repOpenstaandeFactuur= ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
-	Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
-
+	Set ..Translator=Translator
+	Set ..ModeAX=ModeAX
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerHoofding">
-<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.FactuurHoofding,lbHoofding:%List</FormalSpec>
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.FactuurHoofding,FactuurNr:%String</FormalSpec>
 <Implementation><![CDATA[
-  	Set pxHoofding.FactuurId=$LG(lbHoofding,2)
-	Set FactuurRec=$LG(lbHoofding,3)
-
- 	Set pxHoofding.FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6),"DK")
-
-	Set pxHoofding.Munt=$P(FactuurRec,"\",5)
-	If $LG(lbHoofding,1)="P" {
+	;zw ^||ECCache("D",FactuurNr,"HFD") r k
+  	Set pxHoofding.FactuurId=FactuurNr
+  	Set pxHoofding.FactuurDatum=$zdh(^||ECCache("D",FactuurNr,"HFD","INVOICEDATE"),3)
+ 	Set pxHoofding.VervalDatum=$zdh(^||ECCache("D",FactuurNr,"HFD","DUEDATE"),3)
+ 	Set pxHoofding.FactuurBedrag=+^||ECCache("D",FactuurNr,"HFD","INVOICEAMOUNT")
+	Set pxHoofding.Munt=^||ECCache("D",FactuurNr,"HFD","CURRENCYCODE")
+	
+	Set Tebetalen=^||ECCache("D",FactuurNr,"HFD","AMOUNTCUR")
+	Set Betaald=^||ECCache("D",FactuurNr,"HFD","SETTLEAMOUNTCUR")
+	Set pxHoofding.OpenstaandBedrag=Tebetalen-Betaald
+	
+	If pxHoofding.FactuurBedrag=0 {
 		Set pxHoofding.FactuurType=##class(WS.Vhisie4.KlantDocument.enu.FactuurType).Nulfactuur()
-	} ElseIf $P(FactuurRec,"\",2)="C" {
+	} ElseIf pxHoofding.FactuurBedrag<0 {
 		Set pxHoofding.FactuurType=##class(WS.Vhisie4.KlantDocument.enu.FactuurType).Kredietnota()
-		Set pxHoofding.FactuurBedrag=-$P(FactuurRec,"\",12)
 	} Else {
 		Set pxHoofding.FactuurType=##class(WS.Vhisie4.KlantDocument.enu.FactuurType).Factuur()
-		If ..repOpenstaandeFactuur.BestaatViaKlantIDEnFactuurID("K||"_..KlantId,pxHoofding.FactuurId)
-		{ 
-			#dim OpenstaandeFactuur As DOM.BKH.OpenstaandeFactuur = ..repOpenstaandeFactuur.GeefViaKlantIDEnFactuurID("K||"_..KlantId,pxHoofding.FactuurId)
-			set pxHoofding.OpenstaandBedrag = OpenstaandeFactuur.GeefNogTeBetalenInMuntKlant()
-			set pxHoofding.AantalHerinneringen= OpenstaandeFactuur.GeefAantalHerinneringen()
-			set pxHoofding.FactuurBedrag = OpenstaandeFactuur.GeefTotaalBedragInMuntKlant()
-			set pxHoofding.VervalDatum = OpenstaandeFactuur.GeefVervalDatum()
-		}
-		Else
-		{
-			Set pxHoofding.FactuurBedrag=$P(FactuurRec,"\",12)
-		}
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Method name="ConverteerOrderAlsLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,FactuurNr:%String,OrderNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	If $LG(lbLijn,2)="O"
-	{
-		Do ..ConverteerOrderHoofdingLijn(pxLijn, lbHoofding, lbLijn)
-	}
-	ElseIf $LG(lbLijn,2)="P"
-	{
-		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
-	}
-	Else
-	{
-		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
-	}
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerOrderHoofdingLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Implementation><![CDATA[
-	;$LB(..FactuurProforma,"O",Sort(ORDCnt),,ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
-	; Order
+	Set VolgNr=$O(^||ECCache("D",FactuurNr,"ORD",OrderNr,"")) ; eerste lijn nemen voor de orderhoofding
+	;zw ^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr) r k
+  	Set pxLijn.OrderId=^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"SALESID")
+  	Set pxLijn.OrderDatum=$zdh(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"CREATEDDATETIME"),3)
+  	Set pxLijn.CommissieReferentie=$TR(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"CUSTOMERREF"),$C(0))
+  	Set pxLijn.OrderReferentie=$TR(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PURCHORDERFORMNUM"),$C(0))
+  	Set:pxLijn.OrderReferentie?2N1"."2N1"."2N.E pxLijn.OrderReferentie=$E(pxLijn.OrderReferentie,9,99) ; Strip datum van orderreferentie
+	Set:$E(pxLijn.OrderReferentie)=" " pxLijn.OrderReferentie=$E(pxLijn.OrderReferentie,2,99)
+	
+  	Set pxLijn.LeverAdresTekst=##class(AX.Uitgaand.EC.DataAX.impl.HelperAdresConverteren).MaakAdresTekstVanAX($NAME(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr)))
 	Set pxLijn.Type="O"
-	Set pxLijn.OrderId=$LG(lbLijn,5)
-	Set pxLijn.OrderDatum=..GeefOrderDatum($LG(lbLijn,3))
-	Set pxLijn.OrderReferentie=..GeefOrderReferentie($LG(lbLijn,3))
-	; Levering
-	Set LeveringRec=$LG(lbLijn,7)
-	Set pxLijn.LeveringId=$LG(lbLijn,6)
-	Set pxLijn.LeveringsDatum=$$INTDATE^vhLib.DataTypes($P(LeveringRec,"\",2))
-	Set pxLijn.VerzendWijze=$P($P(LeveringRec,"\",7)," #")
-	If (pxLijn.LeveringsDatum>($H-150))&&(pxLijn.VerzendWijze="DI1") ;bon nummers worden herbruikt daarom beperken in tijd
-	{
-		try{
-		 	Set pxLijn.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxLijn.LeveringId)
-		}Catch {	
-			Do ##class(TECH.ExceptionHandler).Catch()	
-	 	 	/// geen TrackAndTrace URL beschikbaar
-		}
-	}
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerProductLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Method name="ConverteerLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,FactuurNr:%String,OrderNr:%String,VolgNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	;$LB(..FactuurProforma,"P",OLRec,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr)
-
-	Set OLRec=$LG(lbLijn,3)
-	Set pxLijn.ProductID=$P(OLRec,"\",2)
-	Set pxLijn.Aantal=$P(OLRec,"\",3)
-	Set pxLijn.NettoPrijs=+$P(OLRec,"\",6)
-	Set pxLijn.Munt=$P(OLRec,"\",22)
-	Set pxLijn.GrootteOrde=$S($E($P(OLRec,"\",21))="H":"%",1:"")
-	Set pxLijn.TotaalPrijs=+$P(OLRec,"\",16)
-	Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25)
-	Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29)
+  	;zw ^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr) 
+  	Set pxLijn.ProductID=^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"ITEMID")
+  	Set pxLijn.PRNr=$TR(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"ADMINPRODUCTNUMMER"),$C(0))
+  	Set:'pxLijn.PRNr pxLijn.PRNr=..Translator.GeefPRNrForAdmin(pxLijn.ProductID)
+  	If ..ModeAX'="2A"
+  	{	
+  		Set pxLijn.ProductID=pxLijn.PRNr
+	}
+	Set pxLijn.Type="P"
+	Set pxLijn.Aantal=+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"QTY")
+	Set pxLijn.GrootteOrde=$S(+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRICEUNIT")=100:"%",1:"")
+	Set pxLijn.NettoPrijs=+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"SALESPRICE")
+	Set pxLijn.TotaalPrijs=+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"LINEAMOUNT")
+	Set pxLijn.Munt=^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"CURRENCYCODE")
 	Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering
-	Set pxLijn.OorsprongDocType=$CASE($LG(lbLijn,1), "L":"LEVERING", "F":"FACTUUR", "P":"NUL-FACTUUR", :"ORDER")
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
-	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
-	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
+	Set pxLijn.OorsprongDocType="FACTUUR"
+	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.PRNr)
+	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.PRNr)
+	;Set pxLijn.VerwachteLeverDatum=$zdh(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"RECEIPTDATECONFIRMED"),3)
+	;Set pxLijn.GevraagdeLeverDatum=$zdh(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"RECEIPTDATEREQUESTED"),3)
 	Do pxLijn.VulAanMetProduct(..Taal)
-	If $P(OLRec,"\",5)'=""
+	If $L(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF"))
 	{
-		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF")
 	}
-	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
+		If $L(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF"))
 	{
-		Set pxLijn.Afbeelding=""
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF")
 	}
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerTekstLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Implementation><![CDATA[
-	;$LB(..FactuurProforma,"T",,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr)
-
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
-	Set pxLijn.Type="T"
-]]></Implementation>
-</Method>
-
-<Method name="BepaalGlobal">
-<FormalSpec>FactuurProforma:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set ..FactuurProforma=FactuurProforma
-	Set ..Node="F"
-	If FactuurProforma="P" { 
-		Set ..GlobalData="^KFAP"
-		Set ..GlobalIndex="^KFAP1"
-	}Else{
-		Set ..GlobalData="^KFA"
-		Set ..GlobalIndex="^KFA1"
+	If $L(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"DLVDATE"))
+	{
+		Set pxLijn.LeveringsDatum=$zdh(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"DLVDATE"),3)
+		Set VerzendDatum=$$EXTDATE^vhLib.DataTypes(pxLijn.LeveringsDatum,"DK")
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Shipment date: "_VerzendDatum
 	}
-]]></Implementation>
-</Method>
 
-<Method name="OphalenOpenstaandeNaarCache">
-<Implementation><![CDATA[
-	
-	Do ..BepaalGlobal("F")
-	#dim Iterator As TECH.Iterator = ..repOpenstaandeFactuur.ZoekViaKlantID("K||"_..KlantId)
-	while Iterator.HasNext() {
-		#dim OpenstaandeFactuur As DOM.BKH.OpenstaandeFactuur = Iterator.Next()
-		Do ..OphalenFactuur(OpenstaandeFactuur.GeefFactuurID())
-	}
-]]></Implementation>
-</Method>
-
-<Method name="OphalenRecenteNaarCache">
-<FormalSpec>FactuurProforma:%String,Periode:%Integer</FormalSpec>
-<Implementation><![CDATA[
-	Do ..BepaalGlobal(FactuurProforma)
-	Set TotDatum=-($H-$S(Periode="":365,1:Periode)) ; alle openstaande of voor een bep periode
-	Set FAKNr=""
-	Set Datum=""
-	
-	For  Set Datum=$O(@..GlobalIndex@(..Node,..KlantId,Datum)) Quit:Datum=""  Quit:Datum>TotDatum  Do
-	. For  Set FAKNr=$O(@..GlobalIndex@(..Node,..KlantId,Datum,FAKNr)) Quit:FAKNr=""  Do
-	. . Quit:'..CheckFactuur(FAKNr,Periode)
-	. . Do ..OphalenFactuur(FAKNr)
-]]></Implementation>
-</Method>
-
-<Method name="OphalenFactuur">
-<FormalSpec>FAKNr:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set BONNr="U"
-	For  Set BONNr=$O(@..GlobalData@(..Node,FAKNr,BONNr)) Quit:$E(BONNr)'="U"  Do
-	. Quit:'..CheckLevering(FAKNr,BONNr)
-	. Do ..OphalenLevering(FAKNr,BONNr)
-]]></Implementation>
-</Method>
-
-<Method name="OphalenLevering">
-<FormalSpec>FAKNr:%String,BONNr:%String</FormalSpec>
-<Implementation><![CDATA[
-	#dim BLNr As %Integer = 99
-	#dim HasProd As %Boolean = 0
-	#dim ORDCnt As %Integer = 0
-	#dim Totaal As %Float = 0
-	#dim ProdGrp As %String = "*"
-	#dim LastGrpTijd As %String = "" 
-	#dim LastGrpOLUNr As %String = ""
-	Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr))
-	While (BLNr '= "")
+	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
 	{
-		#dim LijnType As %String = ""
-		Do ..CheckLeveringLijn(FAKNr,BONNr,BLNr,.LijnType,)
-		If (LijnType '=""){
-			#dim BLRec As %String = @..GlobalData@(..Node,FAKNr,BONNr,BLNr)
-			If LijnType="O" { 										; Orderhoofding
-				Set ORDCnt=ORDCnt+1,Sort(ORDCnt)=$LB(BLRec)
-			}else{
-				Set Totaal = Totaal+$P(BLRec,"\",16)
-				#dim PRNr As %String = $P(BLRec,"\",2)
-				Set:PRNr?4.7N HasProd=1
-				; ProdGrp wordt allen door een product gedefinieerd, anders wordt de waarde van de vorige lijn genomen
-				If ProdGrp="" {
-					Set MemSort(BLNr)=$LB(LijnType,BLRec) 			; onthouden van de lijn totdat prodgrp gekend
-				}Else{
-					Merge Sort(ORDCnt,ProdGrp)=MemSort
-					Kill MemSort
-					
-					Set Sort(ORDCnt,ProdGrp,BLNr)=$LB(LijnType,BLRec) ; onthouden van de lijn
-				}
-				If (LijnType="T"){ 									; alleen tekstlijnen groeperen
-					#dim Groep As %String = $P(BLRec,"\",18)
-					Set:LastGrpTijd'=$P(Groep,";") LastGrpOLUNr="" 	; nieuwe groep
-					Set LastGrpTijd=$P(Groep,";")
-					#dim GrpOLUNr As %String = $P(Groep,";",3)
-					Set:GrpOLUNr="" GrpOLUNr=LastGrpOLUNr
-					Set:GrpOLUNr="" GrpOLUNr=$P(BLRec,"\",15)
-					If (GrpOLUNr'=""){
-						Set GrpTekst(ORDCnt,GrpOLUNr)=$G(GrpTekst(ORDCnt,GrpOLUNr))_$S($D(GrpTekst(ORDCnt,GrpOLUNr)):"<br>",1:"")_$P(BLRec,"\",5)
-						Set LastGrpOLUNr=GrpOLUNr	
-					}
-				}
-			}
-		}
-		Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr))
+		Set pxLijn.Afbeelding=""
 	}
-	
-	Set ORDCnt = ""
-	For { set ORDCnt = $order(Sort(ORDCnt)) quit:ORDCnt=""  
-		
-		Continue:'$D(Sort(ORDCnt))>1  // heeft Sort subnodes
-		Set ORDNr=$P($P($LG($G(Sort(ORDCnt))),"\",5)," ")
-		Continue:ORDNr=""
-		Continue:ORDNr=999999 ; dummy order voor plus/min bonnen
-
-		If '$D(^||ECCache("FAK",FAKNr))
-		{
-			Set FactuurRec=@..GlobalData@(..Node,FAKNr,0,0)
-			Set FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6))
-			
-			Set ^||ECCache("FAK",FAKNr)=$LB(..FactuurProforma,FAKNr,FactuurRec)
-			Set ^||ECCache("IFAK",FactuurDatum,FAKNr)=""
-		}
-
-		Set ^||ECCache("FAK",FAKNr,BONNr,ORDNr,1,1)=$LB(..FactuurProforma,"O",Sort(ORDCnt),,ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
-		Set ProdGrp = ""
-		for { set ProdGrp = $order(Sort(ORDCnt,ProdGrp)) quit:ProdGrp="" 
-			Set BLNr = ""
-			for { set BLNr = $order(Sort(ORDCnt,ProdGrp,BLNr)) quit:BLNr="" 
-				Set LijnType = $LI(Sort(ORDCnt,ProdGrp,BLNr),1)
-				Set BLRec = $LI(Sort(ORDCnt,ProdGrp,BLNr),2)
-				#dim OLUNr As %String = $P(BLRec,"\",15)
-				Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"T",,GrpTekst(OLUNr),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
-				Set:LijnType="P" ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
-				}
-			}
-		}
 ]]></Implementation>
 </Method>
-
-<Method name="GeefOrderDatum">
-<FormalSpec>ORDRec</FormalSpec>
-<Implementation><![CDATA[
-	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
-	SEt Datum=""
-	Set:Ref?2N1"."2N1"."2N.E Datum=$$INTDATE^vhLib.DataTypes($E(Ref,1,8))
-	Set:(Datum<($H-365))||(Datum>($H+5)) Datum=+$P($P(ORDRec,"\",4),"#",3)
-	Quit Datum
-]]></Implementation>
-</Method>
-
-<Method name="GeefOrderReferentie">
-<FormalSpec>ORDRec</FormalSpec>
-<Implementation><![CDATA[
-	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
-	Set:Ref?2N1"."2N1"."2N.E Ref=$E(Ref,9,99) ; Strip datum
-	Set:$E(Ref)=" " Ref=$E(Ref,2,99)
-	
-	Quit Ref
-]]></Implementation>
-</Method>
-
-<Method name="CheckFactuur">
-<FormalSpec>FAKNr,Periode</FormalSpec>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="CheckLevering">
-<FormalSpec>FAKNr,BONNr</FormalSpec>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="CheckLeveringLijn">
-<FormalSpec><![CDATA[FAKNr:%String,BONNr:%String,LNr:%String,&LijnType,&ProdGrp]]></FormalSpec>
-<Implementation><![CDATA[
-	Set ProdGrp="*"
-	Set Rec=$G(@..GlobalData@(..Node,FAKNr,BONNr,LNr))
-	Set PRNr=$P(Rec,"\",2)
-	Set LijnType=""
-	Quit:Rec=""
-	
-	If $P(Rec,"\",17)="KF5" Set LijnType="O"  Quit ; Orderhoofding
-	
-	If $P($P(Rec,"\",17),"#")="KF11" Set:$P($P(Rec,"\",18),";",4)["B" LijnType="T"  Quit  ; Tekst dat op een leveringsbon mag verschijnen
-
-	Quit:PRNr'?4.7N 
-	
-	Set:PRNr?4.7N LijnType="P"
-]]></Implementation>
-</Method>
 </Class>
 
 
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/BasisAssortiment.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Assortiment/impl/ExportKlant.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Assortiment/impl/ExportKlant.cls.xml	(.../ExportKlant.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Assortiment/impl/ExportKlant.cls.xml	(.../ExportKlant.cls.xml)	(revision 50353)
@@ -46,6 +46,7 @@
 
 <Method name="ExportAll">
 <Implementation><![CDATA[
+	Do ..OpenOutput()
 	Set itKlant=..KlantIterator()
 	While itKlant.HasNext() {
 		Set rs=itKlant.Next()
@@ -54,13 +55,13 @@
 		Continue:'..IsGeldigeKlant(KLNr)
 		Do ..ExportKlant(KLNr)
 	}
+	Do ..CloseOutput()
 ]]></Implementation>
 </Method>
 
 <Method name="ExportKlant">
 <FormalSpec>KLNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	Do ..OpenOutput(KLNr)
 	
 	Set it=..ProductIterator(KLNr)
 	While it.HasNext() {
@@ -69,8 +70,6 @@
 		Continue:'..IsGeldigProduct(KLNr,PRNr)
 		Do ..ExportProduct(KLNr,PRNr)
 	}
-	
-	Do ..CloseOutput()
 ]]></Implementation>
 </Method>
 
@@ -91,7 +90,7 @@
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	Set rs=##class(TECH.ResultSet).%New()
-	Do rs.Prepare("Select"_$S(..BeperktAantalProducten:" TOP "_..BeperktAantalProducten,1:"")_" Product from AX_Uitgaand_EC_Assortiment_impl.KlantAssortiment where Klant=? and GenerationID=?")
+	Do rs.Prepare("Select Product from AX_Uitgaand_EC_Assortiment_impl.KlantAssortiment where Klant=? and GenerationID=? and isnull(Excluded,0)=0")
 	
  	Set sc=rs.Execute(KLNr,..ExportDefaults.NewGenerationID)
 	Set it=##class(TECH.ResultSetIterator).%New(rs)
@@ -126,38 +125,37 @@
 <FormalSpec>KLNr:%String,PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set Proxy=##class(pxKlantProduct).%New()
-	Do Proxy.InvullenMetProductData(PRNr)
-	Set KlantAssortiment=##class(AX.Uitgaand.EC.Assortiment.impl.KlantAssortiment).%OpenId(..ExportDefaults.NewGenerationID_"||"_PRNr_"||"_KLNr)
-	Set Proxy.Excluded=KlantAssortiment.Excluded
+	Set Klant=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%OpenId(..ExportDefaults.NewGenerationID_"||"_KLNr)
+	Do Proxy.InvullenMetProductData(PRNr,Klant.AssortimentGroep)
+
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set Proxy.KlantID=Translator.GeefCustomerIDForAX(KLNr)
+
+	;Set KlantAssortiment=##class(AX.Uitgaand.EC.Assortiment.impl.KlantAssortiment).%OpenId(..ExportDefaults.NewGenerationID_"||"_PRNr_"||"_KLNr)
+	;Set Proxy.Excluded=KlantAssortiment.Excluded
 	Quit Proxy
 ]]></Implementation>
 </Method>
 
 <Method name="OpenOutput">
-<FormalSpec>KLNr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..Writer=##class(%XML.Writer).%New()
 	Set ..Writer.NoXMLDeclaration=1
 	Set ..Writer.Indent=1
 	Set Omschrijving="KlantUitzAssortiment"
-	Set BestandsNaam=Omschrijving_" "_KLNr_".xml"
+	Set BestandsNaam=..ExportDefaults.GeefBestandsNaam(Omschrijving)
 	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
-	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
+	Set sc=..Writer.OutputToFile(..ExportDefaults.GeefPadEnBestandsNaam(Omschrijving))
 	Quit:$$$ISERR(sc) sc
 	Set ..Writer.Charset="UTF-8"
 	Do ..Writer.RootElement(Omschrijving)
 
 	Do ..Writer.Element("Domein")
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
-	Do ..Writer.Element("Klant")
-	Do ..Writer.Write(KLNr)
-	Do ..Writer.EndElement()
-	Do ..Writer.Element("KlantNaam")
-	Do ..Writer.Write($P(^KKL(^KK1(KLNr),0),"\",2))
-	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/KlantenAX/impl/CorrelateHeaderKlanten.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml	(.../HelperOrdersConverteren.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml	(.../HelperOrdersConverteren.cls.xml)	(revision 50353)
@@ -4,7 +4,7 @@
 <ClassType/>
 <IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>AX.Uitgaand.EC.Data.impl.Helper</Super>
+<Super>%RegisteredObject</Super>
 
 <Property name="ProductValidator">
 <Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
@@ -14,10 +14,14 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="KlantID">
+<Property name="KlantId">
 <Type>%String</Type>
 </Property>
 
+<Property name="AXCustomerID">
+<Type>%String</Type>
+</Property>
+
 <Property name="Taal">
 <Type>%String</Type>
 </Property>
@@ -26,156 +30,151 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+</Property>
+
+<Property name="ModeAX">
+<Type>%String</Type>
+</Property>
+
+<Property name="AlleenOpenstaand">
+<Type>%Boolean</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator</FormalSpec>
+<FormalSpec>AXCustomerID:%String,KlantId:%String,Taal:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator,Translator:AX.Uitgaand.EC.DataAX.impl.Translator,AlleenOpenstaand:%Boolean,ModeAX:%String="2A"</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	$$$InitOldLocals
-	Set ..KlantID=KlantID
-	Set ..KredietWaardig=$$WAARDIG^KREDIET(KlantID)
+	Set ..KlantId=KlantId
+	Set ..AXCustomerID=AXCustomerID
 	Set ..Taal=Taal
-	Set ..GenerationID=GenerationID
 	Set ..ProductValidator=ProductValidator	
+	Set ..Translator=Translator
+	Set ..ModeAX=ModeAX
+	Set ..AlleenOpenstaand=AlleenOpenstaand
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerHoofding">
-<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List</FormalSpec>
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,OrderId:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set pxHoofding.OrderId=$LG(lbHoofding,2)
-	Set pxHoofding.OorsprongDocType="ORDER"
+	Set pxHoofding.OrderId=OrderId
 	
-	Set OrderRec=$LG(lbHoofding,3)
-	Set pxHoofding.OrderDatum=$$INTDATE^vhLib.DataTypes($P(OrderRec,"\",2),"DK")
-	Set pxHoofding.OrderReferentie=$P(OrderRec,"\",3)
-	Set:$P(OrderRec,"\",35)'="" pxHoofding.OrderReferentie=$P(OrderRec,"\",35) ; specieke EDI referentie
-	Set pxHoofding.VerzendWijze=$P($P(OrderRec,"\",7),";")
-	Set pxHoofding.EDIReferentie=$P(OrderRec,"\",40)
-	Set pxHoofding.CommissieReferentie=$P(OrderRec,"\",19)
-	Set IngegevenDoorMedewerker=$P($P(OrderRec,"\",24),"#",1)
-	Set:IngegevenDoorMedewerker pxHoofding.IngegevenDoorMedewerker=$$USERNAME^vhUSER(IngegevenDoorMedewerker,1)
+	Set pxHoofding.OrderDatum=$zdh(^||ECCache("D",OrderId,"HFD","CREATEDDATETIME"),3)
+	Set pxHoofding.OrderReferentie=$TR(^||ECCache("D",OrderId,"HFD","PURCHORDERFORMNUM"),$C(0))
+	Set pxHoofding.VerzendWijze=$TR(^||ECCache("D",OrderId,"HFD","DLVMODE"),$C(0))
+	Set pxHoofding.EDIReferentie=""
+	Set pxHoofding.CommissieReferentie=$TR(^||ECCache("D",OrderId,"HFD","CUSTOMERREF"),$C(0))
+	
+	Set pxHoofding.IngegevenDoorMedewerker=$TR(^||ECCache("D",OrderId,"HFD","CREATEDBY"),$C(0))
+	Set:pxHoofding.IngegevenDoorMedewerker="KarelP" pxHoofding.IngegevenDoorMedewerker=""
+	Set:pxHoofding.IngegevenDoorMedewerker="AIF_User" pxHoofding.IngegevenDoorMedewerker=""
+	Set pxHoofding.LeverAdresTekst=##class(AX.Uitgaand.EC.DataAX.impl.HelperAdresConverteren).MaakAdresTekstVanAX($NAME(^||ECCache("D",OrderId,"HFD")))
+	Set pxHoofding.OorsprongDocType=$TR(^||ECCache("D",OrderId,"HFD","SALESORIGINID"),$C(0))
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,OrderId:%String,VolgNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	If $LG(lbLijn,2)="P"
-	{
-		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
+
+	Set pxLijn.ProductID=^||ECCache("D",OrderId,"DTL",VolgNr,"ITEMID")
+	Set pxLijn.PRNr=$TR(^||ECCache("D",OrderId,"DTL",VolgNr,"ADMINPRODUCTNUMMER"),$C(0))
+  	Set:'pxLijn.PRNr pxLijn.PRNr=..Translator.GeefPRNrForAdmin(pxLijn.ProductID)
+  	If ..ModeAX'="2A"
+  	{	
+  		Set pxLijn.ProductID=pxLijn.PRNr
 	}
-	Else
-	{
-		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
+	If ..AlleenOpenstaand {
+		Set pxLijn.Aantal=+^||ECCache("D",OrderId,"DTL",VolgNr,"REMAINSALESPHYSICAL")-^||ECCache("D",OrderId,"DTL",VolgNr,"GEPICKTEHOEVEELHEID")
+	} Else {
+		Set pxLijn.Aantal=+^||ECCache("D",OrderId,"DTL",VolgNr,"QTYORDERED")
 	}
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerProductLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Implementation><![CDATA[
-	Set OLRec=$LG(lbLijn,3)
-	Set pxLijn.ProductID=$P(OLRec,"\",2)
-	Set pxLijn.Aantal=$P(OLRec,"\",3)
-	Set pxLijn.NettoPrijs=+$P(OLRec,"\",6)
-	Set pxLijn.Munt=$P(OLRec,"\",22)
-	Set pxLijn.GrootteOrde=$S($E($P(OLRec,"\",21))="H":"%",1:"")
-	Set pxLijn.TotaalPrijs=+$P(OLRec,"\",16)
-	Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25)
-	Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29)
+	Set pxLijn.NettoPrijs=+^||ECCache("D",OrderId,"DTL",VolgNr,"SALESPRICE")
+	Set pxLijn.Munt=^||ECCache("D",OrderId,"DTL",VolgNr,"CURRENCYCODE")
+	Set pxLijn.GrootteOrde=$S(+^||ECCache("D",OrderId,"DTL",VolgNr,"PRICEUNIT")=100:"%",1:"")
+	Set pxLijn.TotaalPrijs=+^||ECCache("D",OrderId,"DTL",VolgNr,"LINEAMOUNT")
+	Set pxLijn.VerwachteLeverDatum=$zdh(^||ECCache("D",OrderId,"DTL",VolgNr,"RECEIPTDATECONFIRMED"),3)
+	Set pxLijn.GevraagdeLeverDatum=$zdh(^||ECCache("D",OrderId,"DTL",VolgNr,"RECEIPTDATEREQUESTED"),3)
 	Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering
-	Set pxLijn.OorsprongDocType=$CASE($LG(lbLijn,1), "L":"LEVERING", "F":"FACTUUR", "P":"NUL-FACTUUR", :"ORDER")
-	Set pxLijn.Commentaar=$P(OLRec,"\",5) ; projectreferentie
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
-	Set pxLijn.Commentaar=$P(OLRec,"\",5)
-	
-	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
-	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
+	Set pxLijn.Status=..TranslateStatus(pxLijn.PRNr,pxLijn.Aantal,^||ECCache("D",OrderId,"DTL",VolgNr,"SALESSTATUS"),^||ECCache("D",OrderId,"DTL",VolgNr,"ADUORDERSTATUSID"))
+	Set pxLijn.Commentaar=$TR(^||ECCache("D",OrderId,"HFD","LIJNCONFTXT"),$C(0))
+	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.PRNr)
+	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.PRNr)
 	Do pxLijn.VulAanMetProduct(..Taal)
-	If $P(OLRec,"\",5)'=""
+	If $TR(^||ECCache("D",OrderId,"DTL",VolgNr,"PRODREF"),$C(0))'=""
 	{
-		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$TR(^||ECCache("D",OrderId,"DTL",VolgNr,"PRODREF"),$C(0))
 	}
+	If $TR(^||ECCache("D",OrderId,"DTL",VolgNr,"EXTERNALITEMID"),$C(0))'=""
+	{
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$TR(^||ECCache("D",OrderId,"DTL",VolgNr,"EXTERNALITEMID"),$C(0))
+	}
 	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
 	{
 		Set pxLijn.Afbeelding=""
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerTekstLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Method name="TranslateStatus">
+<FormalSpec>PRNr:%String,Aantal:%Integer,SalesStatus:%String,BlokkeerStatus:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
-	Set pxLijn.Type="T"
-]]></Implementation>
-</Method>
-
-<Method name="VulAanLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Implementation><![CDATA[
-	Set OLRec=$LG(lbLijn,3)
-	Set pxLijn.Status=$LG(lbLijn,5)
-]]></Implementation>
-</Method>
-
-<Method name="GeefOrderDatum">
-<FormalSpec>ORDRec</FormalSpec>
-<Implementation><![CDATA[
-	Set Datum=$$INTDATE^vhLib.DataTypes($P(ORDRec,"\",2))
-	Quit Datum
-]]></Implementation>
-</Method>
-
-<Method name="CheckOrder">
-<FormalSpec>ORDNr:%String,BeperkOrderType:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set Rec=^KOD(..KlantID,"F",ORDNr,1)
-	Set OrderType=$P(Rec,"\",25)
-	If OrderType="C",BeperkOrderType="S" Quit 0 ; Is een contractorder maar geen contracten toegelaten
-	If OrderType'="C",BeperkOrderType="C" Quit 0 ; Is geen contractorder maar alleen contracten toegelaten
-		
-	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="CheckOrderLijn">
-<FormalSpec><![CDATA[ORDNr:%String,OLNr:%String,&LijnType:%String,&VoorraadStatus:WS.Vhisie4.KlantDocument.enu.OrderLijnStatus]]></FormalSpec>
-<Implementation><![CDATA[
-
-	Set Rec=^KOD(..KlantID,"F",ORDNr,OLNr)
-	Set PRNr=$P(Rec,"\",2)
-	; ProdGrp behoud in eerste instantie de oude waarde
-	Set (LijnType,VoorraadStatus)=""
-	; Tekstlijn
-	If $P($P(Rec,"\",17),"#")="KF11" Set:$P($P(Rec,"\",18),";",4)["O" LijnType="T"  Quit  ; Tekst dat op een orderbevestiging mag verschijnen
-	Quit:PRNr'?4.8N "" ; Geen product, manuele product nog te implementeren
-	;Voorraadstatus beperking
-	Set OLUNr=$P(Rec,"\",15)
-	If $P(Rec,"\",3)<0
+  ; AX SalesStatus : OpenOrder = 1, Delivered = 2, Invoiced = 3, Canceled = 4
+   ; BlokkeerStatus : Doorgegeven, Klaargezet, Geannuleerd, leeg
+	If SalesStatus=1
 	{
-		Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname()
+		If BlokkeerStatus="Klaargezet" 
+		{
+			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InProductie()
+		}
+		ElseIf BlokkeerStatus="Doorgegeven"
+		{
+			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VerwerkingMagazijn() 
+		}
+		ElseIf BlokkeerStatus="Geproduceerd"
+		{
+			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Geproduceerd()
+		}
+		ElseIf ((BlokkeerStatus="")||(BlokkeerStatus="KlaargezetWissen"))&&($P($$GENTYP^HAD(PRNr),"\")'="")
+		{
+			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).WachtenOpProductie()
+		}
+		ElseIf Aantal<1
+		{
+			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname()
+		}
+		Else
+		{
+			Set ECStatus=$CASE(..VoorraadStatus(PRNr,Aantal,,1),"F":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).NietInVoorraad(),"P":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).BeperkteVoorraad(),:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VoldoendeVoorraad())
+		}
 	}
-	Elseif $P(Rec,"\",3)>0
+	ElseIf SalesStatus=2 
 	{
-		If $D(^ORDW("IO",ORDNr,OLUNr)) 
-		{
-			Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VerwerkingMagazijn()
-		} Else {
-			If $P(Rec,"\",27)'="" 
-			{
-				Set VoorraadStatus=$S($D(^KPR(PRNr,"J6332")):##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InProductie(),1:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InBestelling())
-			} Else {  
-				Set VoorraadStatus=$CASE(..VoorraadStatus(PRNr,$P(Rec,"\",3),,1),"F":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).NietInVoorraad(),"P":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).BeperkteVoorraad(),:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VoldoendeVoorraad())
-			}
+		Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InLevering()
 		}
+	ElseIf SalesStatus=3 
+	{
+		Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Gefactureerd()
 	}
-	Set LijnType="P"
+	Quit ECStatus
 ]]></Implementation>
 </Method>
 
+<Method name="ConverteerHfdTekst">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,OrderId:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set pxLijn.Commentaar=$TR(^||ECCache("D",OrderId,"HFD","ORDERCONFTXT"),$C(0))
+	Quit:pxLijn.Commentaar="" ""
+	Set pxLijn.Type="T"
+	Quit pxLijn
+]]></Implementation>
+</Method>
+
 <Method name="VoorraadStatus">
 <FormalSpec>PRNr:%Integer,Aantal:%Integer,Week:%Date,ReedsInOrder:%Boolean</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/impl/ImportBestand.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/GenerateExclusie.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Assortiment/impl/ExportBasis.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Assortiment/impl/ExportBasis.cls.xml	(.../ExportBasis.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Assortiment/impl/ExportBasis.cls.xml	(.../ExportBasis.cls.xml)	(revision 50353)
@@ -21,6 +21,10 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="AssortimentsGroep">
+<Type>%String</Type>
+</Property>
+
 <Property name="ExportDefaults">
 <Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
 </Property>
@@ -46,13 +50,15 @@
 
 <Method name="ExportAll">
 <Implementation><![CDATA[
+	Do ..OpenOutput()
+
 	For AssortimentGroep="KS","Industrie","Handel","Consument" 
 	{
-					Do ..OpenOutput(AssortimentGroep)
-					Set it=..AssortimentsGroepIterator(AssortimentGroep)
-					Do ..ExportAssortiment(it)
-					Do ..CloseOutput()
+		Set ..AssortimentsGroep=AssortimentGroep
+		Set it=..AssortimentsGroepIterator()
+		Do ..ExportAssortiment(it)
 	}
+	Do ..CloseOutput()
 ]]></Implementation>
 </Method>
 
@@ -69,12 +75,11 @@
 </Method>
 
 <Method name="AssortimentsGroepIterator">
-<FormalSpec>AssortimentGroep:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set rs=##class(TECH.ResultSet).%New()
 	Do rs.Prepare("Select"_$S(..BeperktAantalProducten:" TOP "_..BeperktAantalProducten,1:"")_" Product from AX_Uitgaand_EC_Assortiment_impl.BasisAssortiment where AssortimentGroep=? and GenerationID=?")
 	
- 	Set sc=rs.Execute(AssortimentGroep,..ExportDefaults.NewGenerationID)
+ 	Set sc=rs.Execute(..AssortimentsGroep,..ExportDefaults.NewGenerationID)
 	Set it=##class(TECH.ResultSetIterator).%New(rs)
 	Quit it
 ]]></Implementation>
@@ -101,32 +106,31 @@
 <FormalSpec>PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set Proxy=##class(pxBasisProduct).%New()
-	Do Proxy.InvullenMetProductData(PRNr)
+	Do Proxy.InvullenMetProductData(PRNr, ..AssortimentsGroep)
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set Proxy.AssortimentsGroep=Translator.GeefAssortimentIDForAX(..AssortimentsGroep)
 	Quit Proxy
 ]]></Implementation>
 </Method>
 
 <Method name="OpenOutput">
-<FormalSpec>AssortimentGroep:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..Writer=##class(%XML.Writer).%New()
 	Set ..Writer.NoXMLDeclaration=1
 	Set ..Writer.Indent=1
 	Set Omschrijving="BasisAssortiment"
-	Set BestandsNaam=Omschrijving_" "_AssortimentGroep_".xml"
+	Set BestandsNaam=..ExportDefaults.GeefBestandsNaam(Omschrijving)
 	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
-	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
+	Set sc=..Writer.OutputToFile(..ExportDefaults.GeefPadEnBestandsNaam(Omschrijving))
 	Quit:$$$ISERR(sc) sc
 	Set ..Writer.Charset="UTF-8"
 	Do ..Writer.RootElement(Omschrijving)
-	Do ..Writer.Element("AssortimentGroep")
-	Do ..Writer.Write(AssortimentGroep)
-	Do ..Writer.EndElement()
 	Do ..Writer.Element("Domein")
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/GenerateUitzondering.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml	(.../pxProduct.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml	(.../pxProduct.cls.xml)	(revision 50353)
@@ -75,14 +75,16 @@
 <FormalSpec>PRNr:%String,AssortimentsGroep:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ..ProductSetObjectId(PRNr)
-	Set ..ProductID=PRNr
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set ..ProductID=Translator.GeefItemIDForAX(PRNr)
 	Set ..KortTekst=..Product.KortTekst
 	Set ..Leveringstermijn=..Product.Prijs.LeveringsTermijn
 	Set ..LeveringstermijnEenheid="W"
 	Set ..StockNietStock=$S(..Product.StockNietStock=1:"S",1:"NS")
 	Set ..VerpakkingNorm=..Product.Prijs.NormaleVerpakking
 	Set ..VerpakkingGroot=..Product.Prijs.GrootVerpakking
 	Do ..BepaalVeelvoud(AssortimentsGroep)
+
 	Do ..DefinieerVoorraadNiveaus()
 ]]></Implementation>
 </Method>
@@ -143,8 +145,21 @@
 
 <Method name="DefinieerVoorraadNiveaus">
 <Implementation><![CDATA[
+	; in AX is de afname niet gekend, dus vaste defaults
 	If ..Product.StockNietStock
 	{
+
+	Set ..KleineVoorraadAfname=.4 ; minder dan x% is kleine afname -> voldoende voorraaad
+	Set ..GroteVoorraadAfname=.6 ; minder dan x% is grote afname -> beperkte voorraad
+
+	Set ..KleineWeekAfname=999999 ; de weekafname telt niet mee
+	Set ..GroteWeekAfname=999999
+	}
+	Q
+	
+	
+	If ..Product.StockNietStock
+	{
 		Set ..KleineVoorraadAfname=.4 ; minder dan x% is kleine afname -> voldoende voorraaad
 		Set ..GroteVoorraadAfname=.6 ; minder dan x% is grote afname -> beperkte voorraad
 		
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/impl/FTPConfig.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/KlantenAX/impl/ExportProductHistoriek.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/DataAX/impl/Testing.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/impl/BestandVerwerker.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/DocumentOphalen.cls.xml
===================================================================
diff -u -r50012 -r50353
--- AX/Uitgaand/EC/Data/impl/DocumentOphalen.cls.xml	(.../DocumentOphalen.cls.xml)	(revision 50012)
+++ AX/Uitgaand/EC/Data/impl/DocumentOphalen.cls.xml	(.../DocumentOphalen.cls.xml)	(revision 50353)
@@ -63,6 +63,7 @@
 		//}
 	} Else {
 		Set ..DocURL = ##class(BL.EC.Data).%New().GetDocumentURL(..Request.Header.SessieId,..GeefDocumentType(),..GeefResultaatType(),..Request.DocumentId,..Request.Header.KlantId)
+		;Do DumpObject^%apiOBJ(..Request)
 	}
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml	(.../VerplaatsBestanden.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml	(.../VerplaatsBestanden.cls.xml)	(revision 50353)
@@ -36,51 +36,20 @@
 <Implementation><![CDATA[
 	Set ..ExportDefaults=ExportDefaults
 	Set ..ExportSamenvatting=ExportSamenvatting
+	Set ..FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
 	Set ..BestandVerplaatser = $$$Inject(BestandVerplaatser, ##class(AX.Uitgaand.EC.impl.VerplaatsBestanden.BestandVerplaatser).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefConfigProduction">
-<ClassMethod>1</ClassMethod>
-<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
-<Implementation><![CDATA[
-	Set FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
-	Set FtpConfig.Adres="192.168.100.61" ; production 
-	Set FtpConfig.Gebruiker="ftpuser"
-	Set FtpConfig.Paswoord="fE2_hpfYFXc-6H78"
-	Set FtpConfig.Poort=21
-	Set FtpConfig.ServerBestandsLocatie="current"
-	Quit FtpConfig
-]]></Implementation>
-</Method>
-
-<Method name="GeefConfigTest">
-<ClassMethod>1</ClassMethod>
-<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
-<Implementation><![CDATA[
-	Set FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
-	Set FtpConfig.Adres="192.168.100.60" ; test
-	Set FtpConfig.Gebruiker="ftpuser"
-	Set FtpConfig.Paswoord="fE2_hpfYFXc-6H78"
-	Set FtpConfig.Poort=21
-	Set FtpConfig.ServerBestandsLocatie="current"
-	Quit FtpConfig
-]]></Implementation>
-</Method>
-
 <Method name="InitProduction">
-<Implementation><![CDATA[
-	Set ..FtpConfig=..GeefConfigProduction()
-	Set ..FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
+<Implementation><![CDATA[	Set ..FtpConfig=##class(FTPConfig).GeefConfigProduction()
 ]]></Implementation>
 </Method>
 
 <Method name="InitTest">
-<Implementation><![CDATA[
-	Set ..FtpConfig=..GeefConfigTest()
-	Set ..FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
+<Implementation><![CDATA[	Set ..FtpConfig=##class(FTPConfig).GeefConfigTest()
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/Assortiment/impl/pxBasisProduct.cls.xml
===================================================================
diff -u -r36472 -r50353
--- AX/Uitgaand/EC/Assortiment/impl/pxBasisProduct.cls.xml	(.../pxBasisProduct.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Assortiment/impl/pxBasisProduct.cls.xml	(.../pxBasisProduct.cls.xml)	(revision 50353)
@@ -4,92 +4,10 @@
 
 <Class name="AX.Uitgaand.EC.Assortiment.impl.pxBasisProduct">
 <IncludeCode>BL.EC.Common</IncludeCode>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Super>pxProduct</Super>
 
-<Property name="Product">
-<Type>Prod.Product</Type>
-<Parameter name="XMLPROJECTION" value="NONE"/>
-</Property>
-
-<Property name="ProductID">
+<Property name="AssortimentsGroep">
 <Type>%String</Type>
 </Property>
-
-<Property name="KortTekst">
-<Type>%String</Type>
-</Property>
-
-<Property name="VerpakkingGroot">
-<Type>%Integer</Type>
-</Property>
-
-<Property name="VerpakkingNorm">
-<Type>%Integer</Type>
-</Property>
-
-<Property name="AantalIsVeelvoud">
-<Type>%Integer</Type>
-</Property>
-
-<Property name="MinBestelhoeveelheid">
-<Type>%Integer</Type>
-</Property>
-
-<Property name="Leveringstermijn">
-<Type>%Integer</Type>
-</Property>
-
-<Property name="LeveringstermijnEenheid">
-<Description>
-A: Arbeidsdagen, D: Dagen, W: Weken</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="StockNietStock">
-<Type>%String</Type>
-</Property>
-
-<Method name="InvullenMetProductData">
-<FormalSpec>PRNr:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ..ProductSetObjectId(PRNr)
-	Set ..ProductID=PRNr
-	Set ..KortTekst=..Product.KortTekst
-	Set ..MinBestelhoeveelheid=..Product.Prijs.MinimumBestelhoeveelheid
-	Set ..Leveringstermijn=..Product.Prijs.LeveringsTermijn
-	Set ..LeveringstermijnEenheid="W"
-	Set ..StockNietStock=..Product.StockNietStock
-	Set ..VerpakkingNorm=..Product.Prijs.NormaleVerpakking
-	Set ..VerpakkingGroot=..Product.Prijs.GrootVerpakking
-	Set ..AantalIsVeelvoud=..GeefVeelvoud()
-]]></Implementation>
-</Method>
-
-<Method name="GeefVeelvoud">
-<Implementation><![CDATA[
-	#dim VerkoopPerStuk as %String
-	Set VerkoopPerStuk=..Product.Prijs.VerkoopPerStuk
-	If VerkoopPerStuk
-	{
-		Set Veelvoud=1
-	}
-	else
-	{
-		If ..Product.Prijs.KleinVerpakking
-		{
-			Set Veelvoud=..Product.Prijs.KleinVerpakking
-		}
-		elseif ..Product.Prijs.NormaleVerpakking
-		{
-			Set Veelvoud=..Product.Prijs.NormaleVerpakking
-		}
-		else
-		{
-			Set Veelvoud=..Product.Prijs.GrootVerpakking
-		}
-	}
-	Quit Veelvoud
-]]></Implementation>
-</Method>
 </Class>
 </Export>
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/CorrelateExclusie.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml	(.../FacturenOphalen.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml	(.../FacturenOphalen.cls.xml)	(revision 50353)
@@ -48,7 +48,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest</FormalSpec>
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest,ModeAX:%String="PRE_2A"</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set Timer=##class(TECH.Timing.Timer).%New("")
@@ -58,11 +58,18 @@
 	Set ..KlantId=..Request.Header.KlantId
 	Set ..Periode=Request.Periode
 	Set ..Taal=..Request.Header.Taal
-	Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	
+	If ModeAX="2A" {
+		Set ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
 
-	Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
-	Set ..FacturenOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperFacturenOphalen).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator)
+		Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
+		
+	} Else {
+		Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 
+		Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
+	}
+	Set ..FacturenOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperFacturenOphalen).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator, ModeAX)
 	Do ..GenereerLijst()	
 
 	Set ..Response.Tijd=Timer.Stop()\1
@@ -127,8 +134,6 @@
 	{
 		Do ..FacturenOphaler.OphalenOpenstaandeNaarCache()
 	}
-
-	;zw ^||ECCache r k
 ]]></Implementation>
 </Method>
 
@@ -137,7 +142,6 @@
 <Implementation><![CDATA[
 	#dim FactuurDatum as %Date
 	#dim FAKNr as %String
-		
 	Set FactuurDatum=$O(^||ECCache("IFAK",""),-1)
 	While FactuurDatum'=""
 	{
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/DataAX/impl/HelperAdresConverteren.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderUitzondering.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/DataAX/impl/HelperOrdersOphalen.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/DataAX/impl/HelperOrdersOphalen.cls.xml	(.../HelperOrdersOphalen.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/DataAX/impl/HelperOrdersOphalen.cls.xml	(.../HelperOrdersOphalen.cls.xml)	(revision 50353)
@@ -4,257 +4,72 @@
 <ClassType/>
 <IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>AX.Uitgaand.EC.Data.impl.Helper</Super>
+<Super>TECH.RegisteredObject</Super>
 
-<Property name="ProductValidator">
-<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
-</Property>
-
-<Property name="GenerationID">
+<Property name="KlantId">
 <Type>%String</Type>
 </Property>
 
-<Property name="KlantID">
+<Property name="AxCustomerId">
 <Type>%String</Type>
 </Property>
 
 <Property name="Taal">
 <Type>%String</Type>
 </Property>
 
-<Property name="KredietWaardig">
-<Type>%String</Type>
+<Property name="itLijnen">
+<Type>TECH.Iterator</Type>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
+<FormalSpec>AxCustomerId:%String,KlantId:%String,Taal:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	$$$InitOldLocals
-	Set ..KlantID=KlantID
-	Set ..KredietWaardig=$$WAARDIG^KREDIET(KlantID)
+	Set ..AxCustomerId=AxCustomerId
+	Set ..KlantId=KlantId
 	Set ..Taal=Taal
-	Set ..GenerationID=GenerationID
-	Set ..ProductValidator=ProductValidator	
-	Quit $$$OK
-]]></Implementation>
-</Method>
 
-<Method name="ConverteerHoofding">
-<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List</FormalSpec>
-<Implementation><![CDATA[
-	Set pxHoofding.OrderId=$LG(lbHoofding,2)
-	Set pxHoofding.OorsprongDocType="ORDER"
-	
-	Set OrderRec=$LG(lbHoofding,3)
-	Set pxHoofding.OrderDatum=$$INTDATE^vhLib.DataTypes($P(OrderRec,"\",2),"DK")
-	Set pxHoofding.OrderReferentie=$P(OrderRec,"\",3)
-	Set:$P(OrderRec,"\",35)'="" pxHoofding.OrderReferentie=$P(OrderRec,"\",35) ; specieke EDI referentie
-	Set pxHoofding.VerzendWijze=$P($P(OrderRec,"\",7),";")
-	Set pxHoofding.EDIReferentie=$P(OrderRec,"\",40)
-	Set pxHoofding.CommissieReferentie=$P(OrderRec,"\",19)
-	Set IngegevenDoorMedewerker=$P($P(OrderRec,"\",24),"#",1)
-	Set:IngegevenDoorMedewerker pxHoofding.IngegevenDoorMedewerker=$$USERNAME^vhUSER(IngegevenDoorMedewerker,1)
-]]></Implementation>
-</Method>
+	Set ..itLijnen=##class(AX.Uitgaand.EC.DataAX.impl.AxOrderLijnIterator).%New()
 
-<Method name="ConverteerLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Implementation><![CDATA[
-	If $LG(lbLijn,2)="P"
-	{
-		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
-	}
-	Else
-	{
-		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
-	}
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerProductLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Method name="OphalenOpenstaandeOrders">
 <Implementation><![CDATA[
-	Set OLRec=$LG(lbLijn,3)
-	Set pxLijn.ProductID=$P(OLRec,"\",2)
-	Set pxLijn.Aantal=$P(OLRec,"\",3)
-	Set pxLijn.NettoPrijs=+$P(OLRec,"\",6)
-	Set pxLijn.Munt=$P(OLRec,"\",22)
-	Set pxLijn.GrootteOrde=$S($E($P(OLRec,"\",21))="H":"%",1:"")
-	Set pxLijn.TotaalPrijs=+$P(OLRec,"\",16)
-	Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25)
-	Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29)
-	Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering
-	Set pxLijn.OorsprongDocType=$CASE($LG(lbLijn,1), "L":"LEVERING", "F":"FACTUUR", "P":"NUL-FACTUUR", :"ORDER")
-	Set pxLijn.Commentaar=$P(OLRec,"\",5) ; projectreferentie
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
-	Set pxLijn.Commentaar=$P(OLRec,"\",5)
-	
-	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
-	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
-	Do pxLijn.VulAanMetProduct(..Taal)
-	If $P(OLRec,"\",5)'=""
-	{
-		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
-	}
-	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
-	{
-		Set pxLijn.Afbeelding=""
-	}
+	Do ..itLijnen.InitOpenstaande(..AxCustomerId)
+	Do ..OphalenOrders()
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerTekstLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Method name="OphalenRecenteOrders">
+<FormalSpec>Datum:%Date</FormalSpec>
 <Implementation><![CDATA[
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
-	Set pxLijn.Type="T"
+	Do ..itLijnen.InitRecente(..AxCustomerId, Datum)
+	Do ..OphalenOrders()
 ]]></Implementation>
 </Method>
 
-<Method name="VulAanLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Method name="OphalenOrders">
+<Private>1</Private>
 <Implementation><![CDATA[
-	Set OLRec=$LG(lbLijn,3)
-	Set pxLijn.Status=$LG(lbLijn,5)
-]]></Implementation>
-</Method>
-
-<Method name="OphalenNaarCache">
-<FormalSpec>BeperkOrderType:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set ORDNr=""
-	For  Set ORDNr=$O(^KOD(..KlantID,"F",ORDNr)) Quit:ORDNr=""  Do
-	. Quit:'..CheckOrder(ORDNr,BeperkOrderType)
-	. Do ..OphalenOrder(ORDNr)
-]]></Implementation>
-</Method>
-
-<Method name="OphalenOrder">
-<FormalSpec>ORDNr:%String</FormalSpec>
-<Implementation><![CDATA[
-	#dim OLNr As %Integer = 99
-	#dim HasProd As %Boolean = 0
-	#dim ORDCnt As %Integer = 0
-	#dim ProdGrp As %String = "*"
-	#dim LastGrpTijd As %String = "" 
-	#dim LastGrpOLUNr As %String = ""
-	#dim OrderDatum As %Date = ""
-	
-	Set HasProd=""
-	Kill Sort,GrpTekst
-	Set OrderTotaal=0
-	Set LastGrpTijd="",LastGrpOLUNr=""
-	For  Set OLNr=$O(^KOD(..KlantID,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
-	. Do ..CheckOrderLijn(ORDNr,OLNr,.LijnType,.VoorraadStatus)
-	. Quit:LijnType=""
-	. Set OLRec=^KOD(..KlantID,"F",ORDNr,OLNr)
-	. Set OrderTotaal=OrderTotaal+$P(OLRec,"\",16)
-	. Set PRNr=$P(OLRec,"\",2)
-	. Set:PRNr?4.8N HasProd=1
-	. ; ProdGrp wordt allen door een product gedefinieerd, anders wordt de waarde van de vorige lijn genomen
-	. If ProdGrp="" Do
-	. . Set MemSort(OLNr)=$LB(LijnType,OLRec) ; onthouden van de lijn totdat prodgrp gekend
-	. Else  Do
-	. . Merge Sort(ProdGrp)=MemSort
-	. . Kill MemSort
-	. . Set Sort(ProdGrp,OLNr)=$LB(LijnType,OLRec,VoorraadStatus) ; onthouden van de lijn
-	. Quit:LijnType'="T" ; alleen tekstlijnen groeperen
-	. Set Groep=$P(OLRec,"\",18)
-	. Set:LastGrpTijd'=$P(Groep,";") LastGrpOLUNr="" ; nieuwe groep
-	. Set LastGrpTijd=$P(Groep,";")
-	. Set GrpOLUNr=$P(Groep,";",3)
-	. Set:GrpOLUNr="" GrpOLUNr=LastGrpOLUNr
-	. Set:GrpOLUNr="" GrpOLUNr=$P(OLRec,"\",15)
-	. Quit:GrpOLUNr=""
-	. Set GrpTekst(GrpOLUNr)=$G(GrpTekst(GrpOLUNr))_$S($D(GrpTekst(GrpOLUNr)):"<br>",1:"")_$P(OLRec,"\",5)
-	. Set LastGrpOLUNr=GrpOLUNr
-	 
-	Quit:'HasProd
-	Set LijnCnt=0
-	Set OrderDatum=..GeefOrderDatum(^KOD(..KlantID,"F",ORDNr,1))
-	Set ^||ECCache("ORD",ORDNr)=$LB("O",ORDNr,^KOD(..KlantID,"F",ORDNr,1),^KOD(..KlantID,"F",ORDNr,3))
-	Set ^||ECCache("IORD",OrderDatum,ORDNr)=""
-
-	Set (ProdGrp,OLNr)=""
-	For  Set ProdGrp=$O(Sort(ProdGrp)) Quit:ProdGrp=""  Do
- 	. For  Set OLNr=$O(Sort(ProdGrp,OLNr)) Quit:OLNr=""  Do
-	. . Set LijnType=$LI(Sort(ProdGrp,OLNr),1)
-	. . Set OLRec=$LI(Sort(ProdGrp,OLNr),2)
-	. . Set OLUNr=$P(OLRec,"\",15)
-	. . Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB("O","T",,GrpTekst(OLUNr))
-	. . Set:LijnType="P" ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB("O","P",OLRec,$G(GrpTekst(OLUNr)),$LI(Sort(ProdGrp,OLNr),3))
-]]></Implementation>
-</Method>
-
-<Method name="GeefOrderDatum">
-<FormalSpec>ORDRec</FormalSpec>
-<Implementation><![CDATA[
-	Set Datum=$$INTDATE^vhLib.DataTypes($P(ORDRec,"\",2))
-	Quit Datum
-]]></Implementation>
-</Method>
-
-<Method name="CheckOrder">
-<FormalSpec>ORDNr:%String,BeperkOrderType:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set Rec=^KOD(..KlantID,"F",ORDNr,1)
-	Set OrderType=$P(Rec,"\",25)
-	If OrderType="C",BeperkOrderType="S" Quit 0 ; Is een contractorder maar geen contracten toegelaten
-	If OrderType'="C",BeperkOrderType="C" Quit 0 ; Is geen contractorder maar alleen contracten toegelaten
-		
-	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="CheckOrderLijn">
-<FormalSpec><![CDATA[ORDNr:%String,OLNr:%String,&LijnType:%String,&VoorraadStatus:WS.Vhisie4.KlantDocument.enu.OrderLijnStatus]]></FormalSpec>
-<Implementation><![CDATA[
-
-	Set Rec=^KOD(..KlantID,"F",ORDNr,OLNr)
-	Set PRNr=$P(Rec,"\",2)
-	; ProdGrp behoud in eerste instantie de oude waarde
-	Set (LijnType,VoorraadStatus)=""
-	; Tekstlijn
-	If $P($P(Rec,"\",17),"#")="KF11" Set:$P($P(Rec,"\",18),";",4)["O" LijnType="T"  Quit  ; Tekst dat op een orderbevestiging mag verschijnen
-	Quit:PRNr'?4.8N "" ; Geen product, manuele product nog te implementeren
-	;Voorraadstatus beperking
-	Set OLUNr=$P(Rec,"\",15)
-	If $P(Rec,"\",3)<0
+	#dim rsLijn as TECH.ResultSet
+	Kill ^||ECCache
+	While ..itLijnen.HasNext()
 	{
-		Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname()
-	}
-	Elseif $P(Rec,"\",3)>0
-	{
-		If $D(^ORDW("IO",ORDNr,OLUNr)) 
+		Set rsLijn=..itLijnen.Next()
+		;k %x m %x=rsLijn.Data zw %x
+		Set OrderId=rsLijn.Data("SALESID")
+		If '$D(^||ECCache("D",OrderId))
 		{
-			Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VerwerkingMagazijn()
-		} Else {
-			If $P(Rec,"\",27)'="" 
-			{
-				Set VoorraadStatus=$S($D(^KPR(PRNr,"J6332")):##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InProductie(),1:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InBestelling())
-			} Else {  
-				Set VoorraadStatus=$CASE(..VoorraadStatus(PRNr,$P(Rec,"\",3),,1),"F":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).NietInVoorraad(),"P":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).BeperkteVoorraad(),:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VoldoendeVoorraad())
-			}
+			Merge ^||ECCache("D",OrderId,"HFD")=rsLijn.Data
 		}
+		Set VolgNr=$O(^||ECCache("D",OrderId,"DTL",""),-1)
+		Merge ^||ECCache("D",OrderId,"DTL",VolgNr+1)=rsLijn.Data
 	}
-	Set LijnType="P"
 ]]></Implementation>
 </Method>
-
-<Method name="VoorraadStatus">
-<FormalSpec>PRNr:%Integer,Aantal:%Integer,Week:%Date,ReedsInOrder:%Boolean</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
-	$$$InitOldLocals
-	Set FysStock=$$GETSTOCK^PRODUKT4(PRNr,"F")
-	If $G(Aantal),FysStock<Aantal Quit "F"
-	Set PrakStock=$$GETSTOCK^PRODUKT4(PRNr,"P")
-	If PrakStock<$S($G(ReedsInOrder):0,1:Aantal) Quit "P"
-	Quit ""
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: AX/Uitgaand/EC/DataAX/impl/OrdersOphalen.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/DataAX/impl/OrdersOphalen.cls.xml	(.../OrdersOphalen.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/DataAX/impl/OrdersOphalen.cls.xml	(.../OrdersOphalen.cls.xml)	(revision 50353)
@@ -6,26 +6,16 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="OrdersIterator">
-<Type>TECH.Iterator</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="OrdersOphaler">
 <Type>AX.Uitgaand.EC.Data.impl.HelperOrdersOphalen</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LeveringenOphaler">
-<Type>AX.Uitgaand.EC.Data.impl.HelperLeveringenOphalenAlsOrder</Type>
+<Property name="OrdersConverter">
+<Type>AX.Uitgaand.EC.DataAX.impl.HelperFacturenConverteren</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="FacturenOphaler">
-<Type>AX.Uitgaand.EC.Data.impl.HelperFacturenOphalenAlsOrder</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="ProductValidator">
 <Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
 <Private>1</Private>
@@ -36,6 +26,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AxCustomerId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Orders">
 <Type>WS.Vhisie4.KlantDocument.dto.OrderHoofding</Type>
 <Collection>list</Collection>
@@ -68,27 +63,31 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefOrdersRequest</FormalSpec>
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefOrdersRequest,ModeAX:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set Timer=##class(TECH.Timing.Timer).%New("")
 	Do Timer.Start()
 
 	Set ..Request=Request
 	Set ..KlantId=..Request.Header.KlantId
+	Set ..AxCustomerId=..Request.Header.GeefAXCustomerId()
+
 	Set ..Periode=Request.Periode
 	Set ..Taal=..Request.Header.Taal
-	Set ..GenerationId=..Request.GenerationId
-	Set:..GenerationId="" ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
+	If ModeAX="2A" {
+		Set ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
+		Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
+		Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	} Else {
+		Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+		Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
+		Set ..Translator=##class(AX.Uitgaand.EC.Data.impl.Translator).%New()
+	}
 
-	Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
-	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set ..OrdersOphaler=##class(AX.Uitgaand.EC.DataAX.impl.HelperOrdersOphalen).%New(..AxCustomerId,..KlantId, ..Taal )
+	Set ..OrdersConverter=##class(AX.Uitgaand.EC.DataAX.impl.HelperOrdersConverteren).%New(..AxCustomerId,..KlantId, ..Taal, ..ProductValidator, ..Translator,$S(..Periode:0,1:1))
 
-	Set ..OrdersIterator=##class(AX.Uitgaand.EC.DataAX.impl.AxOrderLijnIterator).%New(..Request.Header.AxCustomerId)
-	;Set ..OrdersOphaler=##class(AX.Uitgaand.EC.DataAX.impl.HelperOrdersOphalen).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator)
-	;Set ..LeveringenOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperLeveringenOphalenAlsOrder).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator)
-	;Set ..FacturenOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperFacturenOphalenAlsOrder).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator)
-
 	Do ..GenereerLijst()	
 
 	Set ..Response.Tijd=Timer.Stop()\1
@@ -131,111 +130,83 @@
 <Method name="OphalenNaarCache">
 <Private>1</Private>
 <Implementation><![CDATA[
-	
-	Kill ^||ECCache
-
-	Do ..OphalenVanAx()
-	;zw ^||ECCache r k
-]]></Implementation>
-</Method>
-
-<Method name="OphalenVanAx">
-<Implementation><![CDATA[
-	While ..OrdersIterator.HasNext()
+	If ..Periode
 	{
-		Set rs=..OrdersIterator.Next()
-		IF rs.Data("ITEMID")'=$C(0)||(rs.Data("ITEMCODEID")'=$C(0))||(rs.Data("EXTERNALITEMID")'=$C(0))
-		{
-		k %q
-		m %q=rs.Data
-		zw %q
-		r k
-		}
+		Do ..OrdersOphaler.OphalenRecenteOrders($H-..Periode)
 	}
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerCacheNaarXML">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim OrderDatum as %Date
-	#dim ORDNr as %String
-		
-	Set OrderDatum=$O(^||ECCache("IORD",""),-1)
-	While OrderDatum'=""
+	Else
 	{
-		Set ORDNr=$O(^||ECCache("IORD",OrderDatum,""))
-		While ORDNr'=""
-		{
-			Do ..Converteer(ORDNr)
-			Set ORDNr=$O(^||ECCache("IORD",OrderDatum,ORDNr))
-		}
-		Set OrderDatum=$O(^||ECCache("IORD",OrderDatum),-1)
+		Do ..OrdersOphaler.OphalenOpenstaandeOrders()
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="Converteer">
-<FormalSpec>ORDNr:%String</FormalSpec>
+<Method name="ConverteerCacheNaarXML">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim pxHoofding as WS.Vhisie4.KlantDocument.dto.OrderHoofding
 	#dim pxLijn  as WS.Vhisie4.KlantDocument.dto.OrderLijn 
-	#dim lbHoofding as %List
-	#dim lbLijn as %List
 	#dim LijnNiv1 as %String
-	#dim LijnNiv2 as %String
+	#dim OrderId as %String
 	#dim ObjectType as %String
 	
-	Set lbHoofding=^||ECCache("ORD",ORDNr)
-	
-	Set pxHoofding=..ConverteerHoofding(lbHoofding)
-	Set LijnNiv1=$O(^||ECCache("ORD",ORDNr,""))
-	While LijnNiv1'=""
-	{	
-		Set LijnNiv2=$O(^||ECCache("ORD",ORDNr,LijnNiv1,""))
-		While LijnNiv2'=""
+	Set OrderId=$O(^||ECCache("D",""))
+	While OrderId'=""
+	{
+		Set pxHoofding=..ConverteerHoofding(OrderId)
+		
+		Set LijnNiv1=$O(^||ECCache("D",OrderId,"DTL",""))
+		While LijnNiv1'=""
 		{	
-			Set lbLijn=^||ECCache("ORD",ORDNr,LijnNiv1,LijnNiv2)
-			Set ObjectType=$LG(lbLijn)
-			Set pxLijn=..ConverteerLijn(lbHoofding,lbLijn)
+			Set pxLijn=..ConverteerLijn(OrderId,LijnNiv1)
 			If $isObject(pxLijn) {
 				Do pxHoofding.Lijnen.Insert(pxLijn)
-				Set:pxHoofding.MultipleDocTypes'[pxLijn.OorsprongDocType pxHoofding.MultipleDocTypes=pxHoofding.MultipleDocTypes_$S($L(pxHoofding.MultipleDocTypes):";",1:"")_pxLijn.OorsprongDocType
+				;Set:pxHoofding.MultipleDocTypes'[pxLijn.OorsprongDocType pxHoofding.MultipleDocTypes=pxHoofding.MultipleDocTypes_$S($L(pxHoofding.MultipleDocTypes):";",1:"")_pxLijn.OorsprongDocType
 			}
-			Set LijnNiv2=$O(^||ECCache("ORD",ORDNr,LijnNiv1,LijnNiv2))
+			Set LijnNiv1=$O(^||ECCache("D",OrderId,"DTL",LijnNiv1))
 		}
-
-		Set LijnNiv1=$O(^||ECCache("ORD",ORDNr,LijnNiv1))
-	}
-	Do pxHoofding.BepaalProductGroepen()
-	Do ..BepaalOrderStatus(pxHoofding)
-	; Terugnames niet toevoegen
-	Quit:pxHoofding.Status=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Terugname()
+		Set OrderId=$O(^||ECCache("D",OrderId))
+		Do pxHoofding.BepaalProductGroepen()
+		Do ..BepaalOrderStatus(pxHoofding)
+		; Terugnames niet toevoegen
+		;Quit:pxHoofding.Status=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Terugname()
 	
-	Do ..Orders.Insert(pxHoofding)
+		Do ..Orders.Insert(pxHoofding)
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerHoofding">
-<FormalSpec>lbHoofding:%List</FormalSpec>
+<FormalSpec>OrderId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Vhisie4.KlantDocument.dto.OrderHoofding</ReturnType>
 <Implementation><![CDATA[
-	#dim ObjectType as %String
 	#dim pxHoofding as WS.Vhisie4.KlantDocument.dto.OrderHoofding
 
-	Set ObjectType=$LG(lbHoofding)
-	If ObjectType="O" { 
-		Set pxHoofding=..ConverteerOrderHoofding(lbHoofding) 
-	} Else { ; (ObjectType="L")||(ObjectType="F")||(ObjectType="P") 
-		Set pxHoofding=..ConverteerLeveringHoofding(lbHoofding) 
-	}
-	;d DumpObject^%apiOBJ(pxHoofding)
+	Set pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.OrderHoofding).%New()
+	Do ..OrdersConverter.ConverteerHoofding(pxHoofding,OrderId)
+	
+	Set pxLijn=..OrdersConverter.ConverteerHfdTekst(##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New(),OrderId)
+	Do:$isObject(pxLijn) pxHoofding.Lijnen.Insert(pxLijn)
+	
 	Quit pxHoofding
 ]]></Implementation>
 </Method>
 
+<Method name="ConverteerLijn">
+<FormalSpec>OrderId:%String,VolgNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim pxLijn as WS.Vhisie4.KlantDocument.dto.OrderLijn
+
+	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New()
+	Do ..OrdersConverter.ConverteerLijn(pxLijn,OrderId,VolgNr)
+	;d DumpObject^%apiOBJ(pxLijn)
+	Quit pxLijn
+]]></Implementation>
+</Method>
+
 <Method name="BepaalOrderStatus">
 <FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.OrderHoofding</FormalSpec>
 <Implementation><![CDATA[
@@ -367,87 +338,39 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerLijn">
-<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*Method ConverteerLijn(lbHoofding As %List, lbLijn As %List) As WS.Vhisie4.KlantDocument.dto.OrderLijn [ Private ]
+{
 	#dim ObjectType as %String
 	#dim pxLijn  as WS.Vhisie4.KlantDocument.dto.OrderLijn 
 
 	Set ObjectType=$LG(lbLijn)
 	If ObjectType="O" { 
 		Set pxLijn=..ConverteerOrderLijn(lbHoofding,lbLijn) 
-	} ElseIf ObjectType="L" {
-		Set pxLijn=..ConverteerLeveringLijn(lbHoofding,lbLijn) 
-	} ElseIf (ObjectType="F")||(ObjectType="P") {
-		Set pxLijn=..ConverteerFactuurLijn(lbHoofding,lbLijn) 
 	}
 	;d DumpObject^%apiOBJ(pxLijn)
 	Quit pxLijn
-]]></Implementation>
-</Method>
+}
 
-<Method name="ConverteerOrderHoofding">
-<FormalSpec>lbHoofding:%List</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderHoofding</ReturnType>
-<Implementation><![CDATA[
+Method ConverteerOrderHoofding(lbHoofding As %List) As WS.Vhisie4.KlantDocument.dto.OrderHoofding [ Private ]
+{
 	Set pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.OrderHoofding).%New()
 	Do ..OrdersOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
 	Do ..OrdersOphaler.ConverteerAdres(pxHoofding,lbHoofding)
 	Quit pxHoofding
-]]></Implementation>
-</Method>
+}
 
-<Method name="ConverteerLeveringHoofding">
-<FormalSpec>lbHoofding:%List</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderHoofding</ReturnType>
-<Implementation><![CDATA[
-	Set pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.OrderHoofding).%New()
-	Do ..LeveringenOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
-	Do ..OrdersOphaler.ConverteerAdres(pxHoofding,lbHoofding)
-	Quit pxHoofding
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerOrderLijn">
-<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
-<Implementation><![CDATA[
+Method ConverteerOrderLijn(lbHoofding As %List, lbLijn As %List) As WS.Vhisie4.KlantDocument.dto.OrderLijn [ Private ]
+{
 	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New()
 	Do ..OrdersOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
 	Do ..OrdersOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
 	Quit pxLijn
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerLeveringLijn">
-<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
-<Implementation><![CDATA[
-	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New()
-	Do ..OrdersOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
-	Do ..LeveringenOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
-	Quit pxLijn
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerFactuurLijn">
-<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
-<Implementation><![CDATA[
-	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New()
-	Do ..OrdersOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
-	Do ..LeveringenOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
-	Do ..FacturenOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
-	Quit pxLijn
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 </Class>
 
 
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/impl/ExportDefaultsAX.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/KlantenAX/impl/CorrelateKlant.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Data/impl/Translator.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/KlantenAX/impl/GenerateKlanten.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Klanten/impl/ExportProductHistoriek.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Klanten/impl/ExportProductHistoriek.cls.xml	(.../ExportProductHistoriek.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Klanten/impl/ExportProductHistoriek.cls.xml	(.../ExportProductHistoriek.cls.xml)	(revision 50353)
@@ -123,8 +123,10 @@
 <FormalSpec>HistRec:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set pxHistItem=##class(AX.Uitgaand.EC.Klanten.impl.pxHistoriekProduct).%New()
-	Set pxHistItem.KlantID=..KlantId
-	Set pxHistItem.ProductID=$P(HistRec,"\",15)
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+
+	Set pxHistItem.KlantID=Translator.GeefCustomerIDForAX(..KlantId)
+	Set pxHistItem.ProductID=Translator.GeefItemIDForAX($P(HistRec,"\",15))
 	Set pxHistItem.JaarAfname=$P(HistRec,"\",3)
 	Set pxHistItem.LaatsteDatum=$$INTDATE^vhLib.DataTypes($P(HistRec,"\",5))
 
@@ -148,7 +150,8 @@
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml	(.../AxOrderLijnIterator.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml	(.../AxOrderLijnIterator.cls.xml)	(revision 50353)
@@ -3,11 +3,6 @@
 <Class name="AX.Uitgaand.EC.DataAX.impl.AxOrderLijnIterator">
 <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>
@@ -19,68 +14,66 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>SqlQueryConnection:AXimpl.SqlQueryConnection,RecenteDatum:%Date=""</FormalSpec>
+<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())
-	If RecenteDatum
-	{
-		Do ..VoerUitQueryRecente(RecenteDatum)
-	}
-	Else
-	{
-		Do ..VoerUitQueryOpenstaande()
-	}
-	Set ..Converter = ##class(AXimpl.Controle.Order.Ax.AxOrderLijnConverter).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="VoerUitQueryOpenstaande">
-<FormalSpec>RecenteDatum:%Date</FormalSpec>
-<Private>1</Private>
+<Method name="InitRecente">
+<FormalSpec>CustomerID:%String,VanafDatum:%Date</FormalSpec>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
-	
-	Set SqlStatement = ""
-	_"select * from SALESTABLE left outer join SALESLINE on SALESLINE.SALESID = SALESTABLE.SALESID"
-	_" where SALESLINE.DATAAREAID = SALESTABLE.DATAAREAID "
-	_" and SALESTABLE.SALESSTATUS <> 4"
-	_" and SALESLINE.SALESSTATUS <> 4"
-	_" and SALESTABLE.SALESTYPE = 3"
-	
-	;SalesStatus order header values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4
-	;SalesStatus order lines  values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4 
-	;SalesType values: Journal = 0, Sales (order) = 3, Return order = 4 
-	
+	Set SqlStatement = ..GeefSQLVoorOrderLijnen()_" AND ORD.CUSTACCOUNT='"_CustomerID_"' and ORD.CREATEDDATETIME>='"_$ZD(VanafDatum,3)_"' and SalesLine.SALESSTATUS<>4" 
 	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
 ]]></Implementation>
 </Method>
 
-<Method name="VoerUitQueryRecente">
-<FormalSpec>RecenteDatum:%Date</FormalSpec>
+<Method name="InitOpenstaande">
+<FormalSpec>CustomerID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = ..GeefSQLVoorOrderLijnen()_" AND ORD.CUSTACCOUNT='"_CustomerID_"' and SalesLine.SALESSTATUS = 1"
+	; SalesStatus order lines  values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4 
+
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLVoorOrderLijnen">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
-	
 	Set SqlStatement = ""
-	_"select * from SALESTABLE left outer join SALESLINE on SALESLINE.SALESID = SALESTABLE.SALESID"
-	_" where SALESLINE.DATAAREAID = SALESTABLE.DATAAREAID "
-	_" and SALESTABLE.SALESSTATUS = 1"
-	_" and SALESLINE.SALESSTATUS = 1"
-	_" and SALESTABLE.SALESTYPE = 3"
-	_" and SALESTABLE.CREATEDDATETIME >= '"_$zd(RecenteDatum) _ " 20171201 00:00:00.000' "
+	_"select ORD.SALESID,ORD.PURCHORDERFORMNUM,ORD.CUSTOMERREF,ORD.CREATEDDATETIME, OrdNotes.Body as ORDERCONFTXT, SalesLine.EXTERNALITEMID,"
+	_"   SalesLine.EXTERNALITEMID, SalesLine.CustomerLineNum,SalesLine.ADUORDERSTATUSID,SalesLine.ADUEXPLODEINVENTTRANSID,SalesLine.CREATEDBY,SALESORIGINID,"
+    _"   SalesLine.SALESSTATUS,SalesLine.ITEMID,ADMINPRODUCTNUMMER,QTYORDERED,REMAINSALESPHYSICAL,SalesLine.RECEIPTDATECONFIRMED,SalesLine.RECEIPTDATEREQUESTED,"
+    _"   SalesLine.SALESPRICE,SalesLine.PRICEUNIT,SalesLine.LINEAMOUNT,SalesLine.CURRENCYCODE,ProdNotes.Body as PRODREF,LijnNotes.Body as LIJNCONFTXT,SalesLine.DLVMODE, "
+    _"   ADR.RECID,ADR.COUNTRYREGIONID,ADR.CITY,ADR.ZIPCODE,ADR.STREET,ADR.ADUNOTA1EXTERNAL,ADR.ADUNOTA2EXTERNAL,ADR.ADUTRANSPORTERAUTH" 
+    _"   ,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"
+	_" from SalesLine "
+	_" join SalesTable as ORD on SalesLine.SALESID = ORD.SALESID and SalesLine.DATAAREAID = ORD.DATAAREAID"
+	_" join InventTransOrigin on InventTransOrigin.INVENTTRANSID = SalesLine.INVENTTRANSID and InventTransOrigin.DATAAREAID = SalesLine.DATAAREAID and "
+	_"                           InventTransOrigin.PARTITION = SalesLine.PARTITION "
+	_" left outer join LOGISTICSPOSTALADDRESS as ADR on ADR.RECID =Salesline.DELIVERYPOSTALADDRESS "
+	_" join InventDim  on InventDim.InventDimId =SalesLine.InventDimId "
+	_"   and InventDim.DataAreaId = SalesLine.DataAreaId "
+	_" left outer join ADUEcoResAttributeCombination as Kenmerk on InventDim.ConfigId=Kenmerk.ConfigId "
+    _"   and SalesLine.ITEMID=Kenmerk.ITEMID "
+    _"   and InventDim.ConfigId<>'' "
+	_" left outer join AduCustomerFormNotes as ProdNotes on ProdNotes.REFTABLEID=359 and ProdNotes.REFRECID=SalesLine.RECID and ProdNotes.ADUBODYTYPE=5"
+	_" left outer join AduCustomerFormNotes as LijnNotes on LijnNotes.REFTABLEID=359 and LijnNotes.REFRECID=SalesLine.RECID and LijnNotes.ADUBODYTYPE=1"
+	_" left outer join AduCustomerFormNotes as OrdNotes on OrdNotes.REFTABLEID=366 and OrdNotes.REFRECID=ORD.RECID and OrdNotes.ADUBODYTYPE=1"
+	_" where ORD.SALESTYPE = 3 " ; SalesType values: Journal = 0, Sales (order) = 3, Return order = 4 "
 
-	
-	;SalesStatus order header values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4
-	;SalesStatus order lines  values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4 
-	;SalesType values: Journal = 0, Sales (order) = 3, Return order = 4 
-	
-	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+	Quit SqlStatement
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/Service.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 50353)
@@ -23,15 +23,6 @@
 <Type>AX.Uitgaand.EC.impl.ExportSamenvatting</Type>
 </Property>
 
-<Method name="ToonTellingen">
-<Description>
-d ##class(AX.Uitgaand.EC.Service).%New().ToonTellingen()</Description>
-<Implementation><![CDATA[
-	d ##class(AX.Uitgaand.EC.Assortiment.impl.Tellingen).%New().ToonAll()
-	d ##class(AX.Uitgaand.EC.Prijzen.impl.Tellingen).%New().ToonAll()
-]]></Implementation>
-</Method>
-
 <Method name="%OnNew">
 <FormalSpec>BeperkAantal:%Boolean</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -53,7 +44,7 @@
 
 <Method name="GenerateAndExportAll">
 <Description>
-d ##class(AX.Uitgaand.EC.Service).%New().GenerateAndExportAll()</Description>
+d ##class(AX.Uitgaand.EC.Service).%New(1).GenerateAndExportAll()</Description>
 <Implementation><![CDATA[
 	Set ..ExportDefaults.NewGenerationID=..ExportDefaults.GeefNewGenerationID() ; OldGenerationID+1
 	Do ..GenerateAll()	
@@ -109,18 +100,18 @@
 d ##class(AX.Uitgaand.EC.Service).%New().ExportAll()</Description>
 <Implementation><![CDATA[
 	Do ..ExportKlanten()
-	Do ..ExportKlantGroepen()
+	;Do ..ExportKlantGroepen()
 	Do ..ExportProductReferenties()
-	;Do ..ExportHistoriek()
+	Do ..ExportHistoriek()
 	
 	Do ..ExportBasisAssortiment()
 	Do ..ExportKlantUitzAssortiment()
 	Do ..ExportKlantExcludedAssortiment()
 	
-	Do ..ExportCodexPrijzen()
-	Do ..ExportKlantUitzPrijzen()
+	;Do ..ExportCodexPrijzen()
+	;Do ..ExportKlantUitzPrijzen()
 	
-	Do ..ExportAlleVoorraad()
+	;Do ..ExportAlleVoorraad()
 	;Do ..ExportAlleProductieTijden()
 	
 	Do ..ExportBestandsSamenvatting()
@@ -298,6 +289,7 @@
 <Method name="VerplaatsBestanden">
 <Private>1</Private>
 <Implementation><![CDATA[
+	q
 	Set service=##class(AX.Uitgaand.EC.impl.VerplaatsBestanden).%New(..ExportDefaults, ..ExportSamenvatting)
 	Do service.InitProduction()
 	Do service.DoIt()
Index: AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 50353)
@@ -22,8 +22,11 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set AXPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(PRNr)
-	Set:AXPRNr="" AXPRNr=PRNr
-	Quit $P(^KPR(PRNr,2),"\",25) ; identnr
+	Set:AXPRNr'="" PRNr=AXPRNr
+	Quit:'PRNr ""
+	Set IdentNr=$P($G(^KPR(PRNr,2)),"\",25)
+	Set:IdentNr="" IdentNr=$P($G(^KPRO(PRNr,2)),"\",25)
+	Quit IdentNr
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 50353)
@@ -48,12 +48,20 @@
 <Type>DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository</Type>
 </Property>
 
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+</Property>
+
 <Property name="TrackAndTraceService">
 <Type>APPS.OV.impl.TrackAndTraceService</Type>
 </Property>
 
+<Property name="ModeAX">
+<Type>%Boolean</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KlantId:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator</FormalSpec>
+<FormalSpec>KlantId:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator,ModeAX:%String="PRE_2A"</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..KlantId=KlantId
@@ -62,6 +70,8 @@
 	Set ..ProductValidator=ProductValidator
 	Set ..repOpenstaandeFactuur= ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
 	Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
+	Set ..ModeAX=ModeAX="2A"
+	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
 
 	Quit $$$OK
 ]]></Implementation>
@@ -163,6 +173,10 @@
 	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
 	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
 	Do pxLijn.VulAanMetProduct(..Taal)
+	If ..ModeAX
+	{
+		Set pxLijn.ProductID=..Translator.GeefItemIDForAX(pxLijn.PRNr)
+	}
 	If $P(OLRec,"\",5)'=""
 	{
 		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
Index: AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml	(.../pxAdres.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml	(.../pxAdres.cls.xml)	(revision 50353)
@@ -89,7 +89,7 @@
 	; Leveringsadressen
    	Set KLNr=Klant.%Id()
 	&sql(DECLARE FAP CURSOR FOR
-		SELECT NummerLeveringsadres,Aanspreking, Naam, PostNummer, StraatNrBus, ToeNaam, Woonplaats, Land->Code,KodeLeveringsadres,Telefoon, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres,Verzendwijze
+		SELECT NummerLeveringsadres,Aanspreking, Naam, PostNummer, StraatNrBus, ToeNaam, Woonplaats, Land->Code3,KodeLeveringsadres,Telefoon, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres,Verzendwijze
     	INTO AdresID,Aanspreking, Naam, PostCode, StraatNrBus, ToeNaam, Woonplaats, LandCode,KodeLeveringsadres,Telefoon1, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres,Verzendwijze
 		FROM Derde_Klant.LevAdres
 		WHERE Klant = :KLNr and TypeAdres='L'
@@ -101,7 +101,7 @@
  	. If KodeLeveringsadres?4.6N Do  ; Het leveringsadres kan een link zijn naar het hoofdadres van een andere klant
  	. . Set oAndereKlant=##class(Derde.Klant.Klant).%OpenId(KodeLeveringsadres)
  	. . Quit:'$isObject(oAndereKlant)
- 	. . Do pxAdres.Fill(AdresID,oAndereKlant.Aanspreking,oAndereKlant.Naam, oAndereKlant.Toenaam, oAndereKlant.StraatNrBus, oAndereKlant.Postnummer, oAndereKlant.Woonplaats, oAndereKlant.LandCode,,,,oAndereKlant.Verzendwijze,"Link",TypeAdres,Klant.Taal)
+ 	. . Do pxAdres.Fill(AdresID,oAndereKlant.Aanspreking,oAndereKlant.Naam, oAndereKlant.Toenaam, oAndereKlant.StraatNrBus, oAndereKlant.Postnummer, oAndereKlant.Woonplaats, oAndereKlant.Land.Code3,,,,oAndereKlant.Verzendwijze,"Link",TypeAdres,Klant.Taal)
 	. Else  Do
 	. . Do pxAdres.Fill(AdresID,Aanspreking, Naam, ToeNaam, StraatNrBus, PostCode, Woonplaats, LandCode,Telefoon1,Telefoon2,AlternatieveNaam,$S(Verzendwijze="":Klant.Verzendwijze,1:Verzendwijze),Opmerking2,TypeAdres,Klant.Taal)
 	. Do Array.SetAt(pxAdres,$I(VolgNr))
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderExclusie.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/impl/ExportDefaultsBeperktAantal.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/impl/ExportDefaultsBeperktAantal.cls.xml	(.../ExportDefaultsBeperktAantal.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/impl/ExportDefaultsBeperktAantal.cls.xml	(.../ExportDefaultsBeperktAantal.cls.xml)	(revision 50353)
@@ -8,14 +8,24 @@
 <Method name="AllowProduct">
 <FormalSpec>PRNr:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (PRNr#100)=0
+<Implementation><![CDATA[
+	Quit:PRNr=3551 1
+	Quit:PRNr=526953 1
+	Quit:PRNr=1074556 1
+	Quit (PRNr#100)=0
 ]]></Implementation>
 </Method>
 
 <Method name="AllowKlant">
 <FormalSpec>KLNr:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (KLNr#100)=0
+<Implementation><![CDATA[
+	Quit:KLNr=8840 1
+	Quit:KLNr=12885 1
+	Quit:KLNr=1523 1
+	Quit:KLNr=1571 1
+	Quit:KLNr=1070 1
+	Quit (KLNr#100)=0
 ]]></Implementation>
 </Method>
 
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/ServiceAX.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/KlantenAX/impl/ExportProductReferenties.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/DataAX/impl/HelperFacturenOphalen.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/DataAX/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/DataAX/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 50353)
@@ -6,15 +6,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="ProductValidator">
-<Type>AX.Uitgaand.EC.DataAX.impl.ProductValidator</Type>
+<Property name="itLijnen">
+<Type>TECH.Iterator</Type>
 </Property>
 
-<Property name="Translator">
-<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
-</Property>
-
-<Property name="LijnIterator">
+<Property name="itHoofding">
 <Type>TECH.Iterator</Type>
 </Property>
 
@@ -52,209 +48,73 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="repOpenstaandeFactuur">
-<Type>DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository</Type>
-</Property>
-
-<Property name="TrackAndTraceService">
-<Type>APPS.OV.impl.TrackAndTraceService</Type>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>AxCustomerId:%String,KlantId:%String,Taal:%String,ProductValidator:AX.Uitgaand.EC.DataAX.impl.ProductValidator,Translator:AX.Uitgaand.EC.DataAX.impl.Translator</FormalSpec>
+<FormalSpec>AxCustomerId:%String,KlantId:%String,Taal:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxCustomerId=AxCustomerId
 	Set ..KlantId=KlantId
 	Set ..Taal=Taal
-	Set ..ProductValidator=ProductValidator
-	Set ..Translator=Translator
-	Set ..repOpenstaandeFactuur= ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
-	Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
+	Set ..itHoofding=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New()
+	;Set ..itLijnen=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New()
 
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OphalenOpenstaandeFacturen">
 <Implementation><![CDATA[
-	Set ..LijnIterator=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New(..AxCustomerId)
+	Do ..itHoofding.InitOpenstaande(..AxCustomerId)
 	Do ..OphalenFacturen()
+	;zw ^||ECCache
 ]]></Implementation>
 </Method>
 
 <Method name="OphalenRecenteFacturen">
+<FormalSpec>Datum:%Date</FormalSpec>
 <Implementation><![CDATA[
-	Set ..LijnIterator=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New(..AxCustomerId)
+	Do ..itHoofding.InitRecente(..AxCustomerId, Datum)
 	Do ..OphalenFacturen()
 ]]></Implementation>
 </Method>
 
 <Method name="OphalenFacturen">
+<Private>1</Private>
 <Implementation><![CDATA[
+	#dim rsHfd as TECH.ResultSet
 	Kill ^||ECCache
-	Kill ^||ECResult
-	While ..LijnIterator.HasNext()
+	While ..itHoofding.HasNext()
 	{
-		Set rs=..LijnIterator.Next()
-		Set FactuurNr=rs.Data("INVOICEID")
-		Set OrderNr=rs.Data("ORIGSALESID")
-		Set:$C(0)[OrderNr OrderNr="*"
-		Set PRNr=..Translator.GeefPRNrForAdmin(rs.Data("ITEMID"))
-	
-		If (OrderNr'="*")&&PRNr
-		{
-			If ('$D(^||ECCache(FactuurNr)))
-			{
-				Set FactuurDatum=$zdh($E(rs.Data("INVOICEDATE"),1,10),3)
-				Set ^||ECCache(FactuurNr)=$LB(FactuurNr,FactuurDatum,rs.Data("CURRENCYCODE"))
-				Set MemFactuurNr=FactuurNr
-			}
-			/// $LB(PRNr,ItemId,Aantal,NettorPrijs,GO,LijnTotaalExclBTW, LijnTotaalInclBTW,ExterneRef)
-			Set ExterneRef=rs.Data("EXTERNALITEMID") Set:ExterneRef=$C(0) ExterneRef=""
-			Set lb=$LB(PRNr,rs.Data("ITEMID"),+rs.Data("QTY"),+rs.Data("SALESPRICE"),+rs.Data("PRICEUNIT"),+rs.Data("LINEAMOUNT"),+rs.Data("LINEAMOUNTMST"),ExterneRef)
-			Set ^||ECCache(FactuurNr,OrderNr,$I(^||ECCache))=lb
-			Merge ^||ECResult(FactuurNr,OrderNr,^||ECCache)=rs.Data
-		
-		}
+		Set rsHfd=..itHoofding.Next()
+		Set FactuurNr=rsHfd.Data("INVOICEID")
+		Set FactuurDatum=$E(rsHfd.Data("INVOICEDATE"),1,10)
+		Merge ^||ECCache("D",FactuurNr,"HFD")=rsHfd.Data
+		Set ^||ECCache("IFAK",FactuurDatum,FactuurNr)=""
+		Set ..itLijnen=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New()
+		Do ..itLijnen.InitDetail(FactuurNr)
+		Do ..OphalenLijnen(FactuurNr)
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="OphalenLevering">
-<FormalSpec>FAKNr:%String,BONNr:%String</FormalSpec>
+<Method name="OphalenLijnen">
+<FormalSpec>FactuurNr:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	#dim BLNr As %Integer = 99
-	#dim HasProd As %Boolean = 0
-	#dim ORDCnt As %Integer = 0
-	#dim Totaal As %Float = 0
-	#dim ProdGrp As %String = "*"
-	#dim LastGrpTijd As %String = "" 
-	#dim LastGrpOLUNr As %String = ""
-	Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr))
-	While (BLNr '= "")
+	#dim rsLijn as TECH.ResultSet
+	#dim CountLijnen as %Decimal=0
+	While ..itLijnen.HasNext()
 	{
-		#dim LijnType As %String = ""
-		Do ..CheckLeveringLijn(FAKNr,BONNr,BLNr,.LijnType,)
-		If (LijnType '=""){
-			#dim BLRec As %String = @..GlobalData@(..Node,FAKNr,BONNr,BLNr)
-			If LijnType="O" { 										; Orderhoofding
-				Set ORDCnt=ORDCnt+1,Sort(ORDCnt)=$LB(BLRec)
-			}else{
-				Set Totaal = Totaal+$P(BLRec,"\",16)
-				#dim PRNr As %String = $P(BLRec,"\",2)
-				Set:PRNr?4.7N HasProd=1
-				; ProdGrp wordt allen door een product gedefinieerd, anders wordt de waarde van de vorige lijn genomen
-				If ProdGrp="" {
-					Set MemSort(BLNr)=$LB(LijnType,BLRec) 			; onthouden van de lijn totdat prodgrp gekend
-				}Else{
-					Merge Sort(ORDCnt,ProdGrp)=MemSort
-					Kill MemSort
-					
-					Set Sort(ORDCnt,ProdGrp,BLNr)=$LB(LijnType,BLRec) ; onthouden van de lijn
-				}
-				If (LijnType="T"){ 									; alleen tekstlijnen groeperen
-					#dim Groep As %String = $P(BLRec,"\",18)
-					Set:LastGrpTijd'=$P(Groep,";") LastGrpOLUNr="" 	; nieuwe groep
-					Set LastGrpTijd=$P(Groep,";")
-					#dim GrpOLUNr As %String = $P(Groep,";",3)
-					Set:GrpOLUNr="" GrpOLUNr=LastGrpOLUNr
-					Set:GrpOLUNr="" GrpOLUNr=$P(BLRec,"\",15)
-					If (GrpOLUNr'=""){
-						Set GrpTekst(ORDCnt,GrpOLUNr)=$G(GrpTekst(ORDCnt,GrpOLUNr))_$S($D(GrpTekst(ORDCnt,GrpOLUNr)):"<br>",1:"")_$P(BLRec,"\",5)
-						Set LastGrpOLUNr=GrpOLUNr	
-					}
-				}
-			}
-		}
-		Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr))
+		Set rsLijn=..itLijnen.Next()
+		Set OrderNr=rsLijn.Data("SALESID")
+		Set CountLijnen=CountLijnen+1
+		Merge ^||ECCache("D",FactuurNr,"ORD",OrderNr,CountLijnen)=rsLijn.Data
 	}
-	
-	Set ORDCnt = ""
-	For { set ORDCnt = $order(Sort(ORDCnt)) quit:ORDCnt=""  
-		
-		Continue:'$D(Sort(ORDCnt))>1  // heeft Sort subnodes
-		Set ORDNr=$P($P($LG($G(Sort(ORDCnt))),"\",5)," ")
-		Continue:ORDNr=""
-		Continue:ORDNr=999999 ; dummy order voor plus/min bonnen
-
-		If '$D(^||ECCache("FAK",FAKNr))
-		{
-			Set FactuurRec=@..GlobalData@(..Node,FAKNr,0,0)
-			Set FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6))
-			
-			Set ^||ECCache("FAK",FAKNr)=$LB(..FactuurProforma,FAKNr,FactuurRec)
-			Set ^||ECCache("IFAK",FactuurDatum,FAKNr)=""
-		}
-
-		Set ^||ECCache("FAK",FAKNr,BONNr,ORDNr,1,1)=$LB(..FactuurProforma,"O",Sort(ORDCnt),,ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
-		Set ProdGrp = ""
-		for { set ProdGrp = $order(Sort(ORDCnt,ProdGrp)) quit:ProdGrp="" 
-			Set BLNr = ""
-			for { set BLNr = $order(Sort(ORDCnt,ProdGrp,BLNr)) quit:BLNr="" 
-				Set LijnType = $LI(Sort(ORDCnt,ProdGrp,BLNr),1)
-				Set BLRec = $LI(Sort(ORDCnt,ProdGrp,BLNr),2)
-				#dim OLUNr As %String = $P(BLRec,"\",15)
-				Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"T",,GrpTekst(OLUNr),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
-				Set:LijnType="P" ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
-				}
-			}
-		}
+	If 'CountLijnen {
+		Kill ^||ECCache("D",FactuurNr)
+	}
 ]]></Implementation>
 </Method>
-
-<Method name="GeefOrderDatum">
-<FormalSpec>ORDRec</FormalSpec>
-<Implementation><![CDATA[
-	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
-	SEt Datum=""
-	Set:Ref?2N1"."2N1"."2N.E Datum=$$INTDATE^vhLib.DataTypes($E(Ref,1,8))
-	Set:(Datum<($H-365))||(Datum>($H+5)) Datum=+$P($P(ORDRec,"\",4),"#",3)
-	Quit Datum
-]]></Implementation>
-</Method>
-
-<Method name="GeefOrderReferentie">
-<FormalSpec>ORDRec</FormalSpec>
-<Implementation><![CDATA[
-	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
-	Set:Ref?2N1"."2N1"."2N.E Ref=$E(Ref,9,99) ; Strip datum
-	Set:$E(Ref)=" " Ref=$E(Ref,2,99)
-	
-	Quit Ref
-]]></Implementation>
-</Method>
-
-<Method name="CheckFactuur">
-<FormalSpec>FAKNr,Periode</FormalSpec>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="CheckLevering">
-<FormalSpec>FAKNr,BONNr</FormalSpec>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="CheckLeveringLijn">
-<FormalSpec><![CDATA[FAKNr:%String,BONNr:%String,LNr:%String,&LijnType,&ProdGrp]]></FormalSpec>
-<Implementation><![CDATA[
-	Set ProdGrp="*"
-	Set Rec=$G(@..GlobalData@(..Node,FAKNr,BONNr,LNr))
-	Set PRNr=$P(Rec,"\",2)
-	Set LijnType=""
-	Quit:Rec=""
-	
-	If $P(Rec,"\",17)="KF5" Set LijnType="O"  Quit ; Orderhoofding
-	
-	If $P($P(Rec,"\",17),"#")="KF11" Set:$P($P(Rec,"\",18),";",4)["B" LijnType="T"  Quit  ; Tekst dat op een leveringsbon mag verschijnen
-
-	Quit:PRNr'?4.7N 
-	
-	Set:PRNr?4.7N LijnType="P"
-]]></Implementation>
-</Method>
 </Class>
 
 
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/ExportProductIDVertaling.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/impl/VerplaatsBestandenAX.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Assortiment/impl/ExportKlantExcluded.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderBasis.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/ProductValidator.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Data/impl/ProductValidator.cls.xml	(.../ProductValidator.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Data/impl/ProductValidator.cls.xml	(.../ProductValidator.cls.xml)	(revision 50353)
@@ -20,13 +20,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KlantID:%String,GenerationID:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..KlantID=KlantID
 	Set ..GenerationID=GenerationID
 	Set ..AssortimentGroep=..GeefAssortimentGroep()
+	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -63,6 +68,15 @@
 	Quit Klant.AssortimentGroep
 ]]></Implementation>
 </Method>
+
+<Method name="GeefItemIDForAX">
+<FormalSpec>PRNr</FormalSpec>
+<Implementation><![CDATA[
+	Set AXPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(PRNr)
+	Set:AXPRNr="" AXPRNr=PRNr
+	Quit $P(^KPR(PRNr,2),"\",25) ; identnr
+]]></Implementation>
+</Method>
 </Class>
 
 
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/CorrelateUitzondering.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml	(.../ExportLevertermijnJSON.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml	(.../ExportLevertermijnJSON.cls.xml)	(revision 50353)
@@ -161,10 +161,10 @@
 <Method name="VerplaatstOutputNaarWeb">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set FtpConfig=##Class(AX.Uitgaand.EC.impl.VerplaatsBestanden).GeefConfigProduction()
+	Set FtpConfig=##Class(AX.Uitgaand.EC.impl.FTPConfig).GeefConfigProduction()
 	Do ..VerplaatsBestandNaarWeb(FtpConfig)
 	Try {
-		Set FtpConfig=##Class(AX.Uitgaand.EC.impl.VerplaatsBestanden).GeefConfigTest()
+		Set FtpConfig=##Class(AX.Uitgaand.EC.impl.FTPConfig).GeefConfigTest()
 		Do ..VerplaatsBestandNaarWeb(FtpConfig)
 	} Catch {
 		Do ##class(TECH.ExceptionHandler).Catch()	
Index: AX/Uitgaand/EC/Klanten/impl/ExportKlanten.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Klanten/impl/ExportKlanten.cls.xml	(.../ExportKlanten.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Klanten/impl/ExportKlanten.cls.xml	(.../ExportKlanten.cls.xml)	(revision 50353)
@@ -95,8 +95,9 @@
 	Set Proxy=##class(pxKlant).%New()
 	Do Proxy.InvullenMetKlantData(..KLNr)
 	Set Klant=##class(Klanten).%OpenId(..ExportDefaults.NewGenerationID_"||"_..KLNr)
-	Set Proxy.AssortimentSleutel=Klant.GeefAssortimentSleutel()
-	Set Proxy.PrijsSleutel=Klant.GeefCodexSleutel()
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set Proxy.AssortimentSleutel=Translator.GeefAssortimentIDForAX(Klant.GeefAssortimentSleutel())
+	;Set Proxy.PrijsSleutel=Klant.GeefCodexSleutel()
 	Quit Proxy
 ]]></Implementation>
 </Method>
@@ -107,17 +108,18 @@
 	Set ..Writer.NoXMLDeclaration=1
 	Set ..Writer.Indent=1
 	Set Omschrijving="Klanten"
-	Set BestandsNaam=Omschrijving_" ALL.xml"
+	Set BestandsNaam=..ExportDefaults.GeefBestandsNaam(Omschrijving)
 	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
-	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
+	Set sc=..Writer.OutputToFile(..ExportDefaults.GeefPadEnBestandsNaam(Omschrijving))
 	Quit:$$$ISERR(sc) sc
 	Set ..Writer.Charset="UTF-8"
 	Do ..Writer.RootElement(Omschrijving)
 	Do ..Writer.Element("Domein")
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Assortiment/impl/pxProductExcludeKlant.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/DataAX/impl/LeveringenOphalen.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/DataAX/impl/LeveringenOphalen.cls.xml	(.../LeveringenOphalen.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/DataAX/impl/LeveringenOphalen.cls.xml	(.../LeveringenOphalen.cls.xml)	(revision 50353)
@@ -113,7 +113,7 @@
 	
 	Kill ^||ECCache
 
-	Do ..LeveringenOphaler.OphalenNaarCache("F")
+	Do ..LeveringenOphaler.OphalenNaarCache("F",$S(..Request.Periode:..Request.Periode,1:5))
 
 	If ..Request.Periode
 	{
Index: AX/Uitgaand/EC/Assortiment/impl/pxKlantProduct.cls.xml
===================================================================
diff -u -r36472 -r50353
--- AX/Uitgaand/EC/Assortiment/impl/pxKlantProduct.cls.xml	(.../pxKlantProduct.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Assortiment/impl/pxKlantProduct.cls.xml	(.../pxKlantProduct.cls.xml)	(revision 50353)
@@ -4,57 +4,14 @@
 
 <Class name="AX.Uitgaand.EC.Assortiment.impl.pxKlantProduct">
 <IncludeCode>BL.EC.Common</IncludeCode>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Super>pxProduct</Super>
 
-<Property name="Product">
-<Type>Prod.Product</Type>
-<Parameter name="XMLPROJECTION" value="NONE"/>
-</Property>
-
-<Property name="VerpakkingGroot">
+<Property name="KlantID">
 <Type>%String</Type>
 </Property>
 
-<Property name="VerpakkingNorm">
-<Type>%String</Type>
-</Property>
-
-<Property name="ProductID">
-<Type>%String</Type>
-</Property>
-
-<Property name="KortTekst">
-<Type>%String</Type>
-</Property>
-
-<Property name="MinBestelhoeveelheid">
-<Type>%Integer</Type>
-</Property>
-
-<Property name="Leveringstermijn">
-<Type>%String</Type>
-</Property>
-
-<Property name="StockNietStock">
-<Type>%String</Type>
-</Property>
-
 <Property name="Excluded">
 <Type>%Boolean</Type>
 </Property>
-
-<Method name="InvullenMetProductData">
-<FormalSpec>PRNr:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ..ProductSetObjectId(PRNr)
-	Set ..ProductID=PRNr
-	Set ..KortTekst=..Product.KortTekst
-	Set ..MinBestelhoeveelheid=..Product.Prijs.MinimumBestelhoeveelheid
-	Set ..Leveringstermijn=..Product.Prijs.LeveringsTermijn
-	Set ..StockNietStock=..Product.StockNietStock
-	Set ..VerpakkingNorm=..Product.Prijs.NormaleVerpakking
-	Set ..VerpakkingGroot=..Product.Prijs.GrootVerpakking
-]]></Implementation>
-</Method>
 </Class>
 </Export>
Index: AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml	(.../pxKlant.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml	(.../pxKlant.cls.xml)	(revision 50353)
@@ -55,6 +55,10 @@
 <Type>DOM.enu.Munt</Type>
 </Property>
 
+<Property name="Regio">
+<Type>%String</Type>
+</Property>
+
 <Property name="ExterneVerantwID">
 <Type>%String</Type>
 </Property>
@@ -105,19 +109,24 @@
 <Implementation><![CDATA[
 	Set D="\",U=";",Q="K"
 	Do ..KlantSetObjectId(KLNr)
-	Set ..KlantID=KLNr
+	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set ..KlantID=Translator.GeefCustomerIDForAX(KLNr)
 	Set ..FirmaNaam=..Klant.Naam_$S($L(..Klant.Aanspreking):" "_..Klant.Aanspreking,1:"")
 	Set ..Naam=..Klant.Naam
 	Set ..Toenaam=..Klant.Toenaam
 	Set ..Aanspreking=..Klant.Aanspreking
 	Set ..Straat=..Klant.StraatNrBus
 	Set ..Woonplaats=..Klant.Woonplaats
-	Set ..Postcode=..Klant.Postnummer
-	Set ..Land=..Klant.LandCode
+	Set ..Postcode=..Klant.Postnummer	Set ..Land=..Klant.Land.Code3
+	
 	Set ..Munt=..Klant.Muntkode
-	Set ..ExterneVerantwID=$$USERNAME^vhUSER($$EXTVW^KLOPV(KLNr),1)
-	Set ..InterneVerantwID=$$USERNAME^vhUSER($$INTVW^KLOPV(KLNr),1)
-	Set ..Taal=..Klant.Taal
+	Set ..Regio=..Klant.Sektor
+	
+	;Set ..ExterneVerantwID=$$USERNAME^vhUSER($$EXTVW^KLOPV(KLNr),1)
+	;Set ..InterneVerantwID=$$USERNAME^vhUSER($$INTVW^KLOPV(KLNr),1)
+
+	Set ..Taal=$Case(..Klant.Taal,"N":"nl-be","F":"fr","D":"de","E":"en-us",:"nl-be")
+
 	Set ..BTWNr=..Klant.BTWnummer
 	Set ..IsInclusiefBTW=("GEEN"[..BTWNr)
 	Do ##class(pxAdres).ToevoegenLeveringsAdressen(..Klant, ..LeveringsAdressen)
Index: AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 50353)
@@ -10,7 +10,7 @@
 </Parameter>
 
 <Property name="ProductValidator">
-<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
+<Type>AX.Uitgaand.EC.DataAX.impl.ProductValidator</Type>
 <Private>1</Private>
 </Property>
 
Index: AX/Uitgaand/EC/DataAX/impl/AxFactuurLijnIterator.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/DataAX/impl/AxFactuurLijnIterator.cls.xml	(.../AxFactuurLijnIterator.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/DataAX/impl/AxFactuurLijnIterator.cls.xml	(.../AxFactuurLijnIterator.cls.xml)	(revision 50353)
@@ -21,26 +21,67 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SqlQueryConnection = $$$Implementation(SqlQueryConnection,##class(AXimpl.SqlQueryConnection).%New())
-	Do ..VoerUitQuery()
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="VoerUitQuery">
+<Method name="InitRecente">
+<FormalSpec>CustomerID:%String,VanafDatum:%Date</FormalSpec>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = ..GeefSQLVoorFactuurHoofding()_" where INV.INVOICEACCOUNT='"_CustomerID_"' and INV.INVOICEDATE>'"_$ZD(VanafDatum,3)_"'" 
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+]]></Implementation>
+</Method>
+
+<Method name="InitOpenstaande">
+<FormalSpec>CustomerID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = ..GeefSQLVoorFactuurHoofding()_" where INV.INVOICEACCOUNT='"_CustomerID_"' and TRANS.CLOSED='1900-01-01' "
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLVoorFactuurHoofding">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
-	
 	Set SqlStatement = ""
-	_"select custinvoicetrans.* from CUSTINVOICETRANS "
-	_"join INVENTDIM on INVENTDIM.INVENTDIMID = CUSTINVOICETRANS.INVENTDIMID and INVENTDIM.DATAAREAID = CUSTINVOICETRANS.DATAAREAID "
-	_"join CUSTINVOICEJOUR on CUSTINVOICEJOUR.INVOICEID = CUSTINVOICETRANS.INVOICEID and CUSTINVOICEJOUR.INVOICEDATE = CUSTINVOICETRANS.INVOICEDATE and CUSTINVOICEJOUR.DATAAREAID = CUSTINVOICETRANS.DATAAREAID "
-	_"left outer join LOGISTICSPOSTALADDRESS on LOGISTICSPOSTALADDRESS.RECID = CUSTINVOICEJOUR.INVOICEPOSTALADDRESS "
-	_" where exists (select * from CUSTTRANS where CUSTTRANS.INVOICE = CUSTINVOICEJOUR.INVOICEID and CUSTTRANS.ACCOUNTNUM = CUSTINVOICEJOUR.INVOICEACCOUNT and CUSTTRANS.TRANSDATE = CUSTINVOICEJOUR.INVOICEDATE "
-	_"               and CUSTTRANS.VOUCHER = CUSTINVOICEJOUR.LEDGERVOUCHER and CUSTTRANS.CLOSED = '1900-01-01' and  CUSTTRANS.DATAAREAID = CUSTINVOICEJOUR.DATAAREAID)"
+	_"select INV.INVOICEID, INV.ORDERACCOUNT, INV.INVOICEACCOUNT, INV.INVOICEDATE, INV.DUEDATE, INVOICEAMOUNT,SUMTAX,INV.CURRENCYCODE,INV.CASHDISC, INV.CASHDISCDATE, "
+	_"     TRANS.CLOSED,TRANS.AMOUNTCUR,TRANS.SETTLEAMOUNTCUR"
+	_" from CUSTINVOICEJOUR as INV"
+	_" join salestable as ORD on ORD.salesid = INV.salesid "
+	_" join CUSTTRANS as TRANS on TRANS.INVOICE = INV.INVOICEID "
+	_"     and TRANS.ACCOUNTNUM = INV.INVOICEACCOUNT "
+	_"     and TRANS.TRANSDATE = INV.INVOICEDATE "
+	_"     and TRANS.VOUCHER = INV.LEDGERVOUCHER "
+	_"     and TRANS.DATAAREAID = INV.DATAAREAID "
+	Quit SqlStatement
+]]></Implementation>
+</Method>
 
-	
+<Method name="InitDetail">
+<FormalSpec>FactuurID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	; toevoegen aan ADUECoResAttributeCombination where InvLine.ItemId = Kenmerk.ItemId AND
+	Set SqlStatement = ""
+	_"select INVOICEID,InvLine.LINENUM,ORD.SALESID,ORD.PURCHORDERFORMNUM,ORD.CUSTOMERREF,ORD.CREATEDDATETIME,InvLine.ITEMID,ADMINPRODUCTNUMMER,DLVDATE,MCRDLVMODE,"
+	_"     InvLine.QTY,InvLine.SALESPRICE,InvLine.PRICEUNIT,InvLine.CURRENCYCODE,InvLine.LINEAMOUNT, SalesLine.RECEIPTDATECONFIRMED,SalesLine.RECEIPTDATEREQUESTED,ProdNotes.Body as PRODREF,"
+	_"     ADR.RECID,ADR.COUNTRYREGIONID,ADR.CITY,ADR.ZIPCODE,ADR.STREET,ADR.ADUNOTA1EXTERNAL,ADR.ADUNOTA2EXTERNAL,ADR.ADUTRANSPORTERAUTH" 
+	_" from CUSTINVOICETRANS as InvLine"
+	_" join SalesLine on SalesLine.InventTransId = InvLine.InventTransId and SalesLine.DataAreaId=InvLine.DataAreaId "
+	_" join SalesTable ORD on ORD.SalesId = SalesLine.SALESID"
+	_" left outer join LOGISTICSPOSTALADDRESS as ADR on ADR.RECID =Salesline.DELIVERYPOSTALADDRESS "
+    _" join InventDim  on InventDim.InventDimId = InvLine.InventDimId "
+	_"      and InventDim.DataAreaId = InvLine.DataAreaId "
+	_" left outer join ADUEcoResAttributeCombination as Kenmerk on InventDim.ConfigId=Kenmerk.ConfigId "
+    _"   and SalesLine.ITEMID=Kenmerk.ITEMID "
+    _"   and InventDim.ConfigId<>'' "
+	_" left outer join AduCustomerFormNotes as ProdNotes on ProdNotes.REFTABLEID=359 and ProdNotes.REFRECID=SalesLine.RECID and ADUBODYTYPE=5"
+	_" where InvLine.DataAreaID='vhbe' and InvLine.INVOICEID = '"_FactuurID_"' " ; specifieke factuur
 	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/Klanten/impl/ExportProductReferenties.cls.xml
===================================================================
diff -u -r50322 -r50353
--- AX/Uitgaand/EC/Klanten/impl/ExportProductReferenties.cls.xml	(.../ExportProductReferenties.cls.xml)	(revision 50322)
+++ AX/Uitgaand/EC/Klanten/impl/ExportProductReferenties.cls.xml	(.../ExportProductReferenties.cls.xml)	(revision 50353)
@@ -119,18 +119,20 @@
 <Method name="BuildProxy">
 <FormalSpec>PakNr:%String</FormalSpec>
 <Implementation><![CDATA[
+	Set Translator=##class(AX.Uitgaand.EC.Data.impl.Translator).%New()
+
 	Set PakketHoofding=^PAKKET("D",PakNr)
 	Set pxPakket=##class(AX.Uitgaand.EC.Klanten.impl.pxPakketRef).%New()
 	Set pxPakket.Naam=$P(PakketHoofding,"\",2)
 	Set pxPakket.Omschrijving=$P(PakketHoofding,"\",4)
 	Set pxPakket.PakketID=PakNr
-	Set pxPakket.KlantID=..KlantId
+	Set pxPakket.KlantID=Translator.GeefCustomerIDForAX(..KlantId)
 
 	Set PRNr=""
 	For  Set PRNr=$O(^PAKKET("D",PakNr,PRNr)) Quit:'PRNr  Do
 	. Set Aantal=$P(^PAKKET("D",PakNr,PRNr),"\")
 	. Set pxProduct=##class(AX.Uitgaand.EC.Klanten.impl.pxPakketRefProduct).%New()
-	. Set pxProduct.ProductID=PRNr
+	. Set pxProduct.ProductID=Translator.GeefItemIDForAX(PRNr)
 	. Set pxProduct.Multiplier=$P(^PAKKET("D",PakNr,PRNr),"\")
 	. Do pxPakket.Producten.Insert(pxProduct)
 	Set:pxPakket.Producten.Count()>1 pxPakket.MultiProduct=1
@@ -154,7 +156,8 @@
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
+	Set Translator=##class(AX.Uitgaand.EC.Data.impl.Translator).%New()
+	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>