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>