FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/dto/LeveringLijn.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefOpenstaandeFacturenResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/dto/OfferteLijn.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WS/Vhisie4/KlantDocument/GeefVerkoopHistoriekRequest.cls.xml
===================================================================
diff -u -r38557 -r38567
--- WS/Vhisie4/KlantDocument/GeefVerkoopHistoriekRequest.cls.xml	(.../GeefVerkoopHistoriekRequest.cls.xml)	(revision 38557)
+++ WS/Vhisie4/KlantDocument/GeefVerkoopHistoriekRequest.cls.xml	(.../GeefVerkoopHistoriekRequest.cls.xml)	(revision 38567)
@@ -13,11 +13,6 @@
 <Required>1</Required>
 </Property>
 
-<Property name="GenerationId">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="GenerationID"/>
-</Property>
-
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>GeefVerkoopHistoriekRequestState</State>
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/dto/LeveringHoofding.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/dto/ProductGroepInfo.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38557 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Data/impl/OpenstaandeFacturenOphalen.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml
===================================================================
diff -u -r38557 -r38567
--- AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 38557)
+++ AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 38567)
@@ -44,133 +44,47 @@
 <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>KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..KlantID=KlantID
 	Set ..Taal=Taal
 	Set ..GenerationID=GenerationID
-	Set ..ProductValidator=ProductValidator
-	Set ..repOpenstaandeFactuur= ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
-	Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
-
+	Set ..ProductValidator=ProductValidator	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerHoofding">
-<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.FactuurHoofding,lbHoofding:%List</FormalSpec>
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List</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.FactuurID=$LG(lbHoofding,4)
+	Set FactuurRec=$LG(lbHoofding,7)
+	Set pxHoofding.FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6),"DK")
 	Set pxHoofding.VervalDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",3),"DK")
-	Set pxHoofding.Munt=$P(FactuurRec,"\",5)
-	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()
+	Set pxHoofding.DocType=$S($LG(lbHoofding)="P":"N",1:$P(FactuurRec,"\",2))
+	If $D(^KKL(^KK1(..KlantID),pxHoofding.FactuurID)) { ; Is nog openstaand
+	 Set pxHoofding.OpenstaandBedrag=$P(^KKL(^KK1(..KlantID),pxHoofding.FactuurID),"\",5)
+	 Set pxHoofding.AantalRappels=$P(^KKL(^KK1(..KlantID),pxHoofding.FactuurID),"\",8)
 	}
-	Else
-	{
-		Set pxHoofding.FactuurBedrag=$P(FactuurRec,"\",12)
-	}
-]]></Implementation>
-</Method>
 
-<Method name="ConverteerLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</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)
-	}
+	
+	;Set pxHoofding.EDIReferentie=$P(OrderRec,"\",40)
+	;Set pxHoofding.CommissieReferentie=$P(OrderRec,"\",19)
+	;Set pxHoofding.InternMedewerker=""
+	;Set pxHoofding.ExterneMedewerker=""
 ]]></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 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 {	
-		 	 	/// geen TrackAndTrace URL beschikbaar
-		}
-	}
-]]></Implementation>
+<Method name="VulAanLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 </Method>
 
-<Method name="ConverteerProductLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</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)
-	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)
-	Do pxLijn.VulAanMetProduct(..Taal)
-]]></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"
@@ -181,25 +95,14 @@
 ]]></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">
+<Method name="OphalenNaarCache">
 <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=""
+	Set ..Node="F"
 	
 	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
@@ -274,57 +177,32 @@
 		Set ORDNr=$P($P($LG($G(Sort(ORDCnt))),"\",5)," ")
 		Continue:ORDNr=""
 		Continue:ORDNr=999999 ; dummy order voor plus/min bonnen
+		
+		Set HoofdingVolgNr=$I(^||ECCache("D"))
+		Set ^||ECCache("D",HoofdingVolgNr)=$LB(..FactuurProforma,ORDNr,$E(BONNr,2,9),FAKNr,$LG($G(Sort(ORDCnt))),@..GlobalData@(..Node,FAKNr,BONNr,1),@..GlobalData@(..Node,FAKNr,0,0),$G(@..GlobalData@(..Node,FAKNr,BONNr,3)))
+		Set ^||ECCache("IO",ORDNr,$O(^||ECCache("IO",ORDNr,""),-1)+1)=HoofdingVolgNr
+		Set ^||ECCache("IF",FAKNr,$O(^||ECCache("IF",FAKNr,""),-1)+1)=HoofdingVolgNr
 
-		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))
+				Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr))
+				Set:LijnType="P" ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)))
 				}
 			}
 		}
 ]]></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><![CDATA[
+	Quit:Periode="" $D(^KKL(^KK1(..KlantID),FAKNr))>0 ; alleen openstande
+	Quit 1
 ]]></Implementation>
 </Method>
 
FishEye: Tag 38567 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Data/impl/LeveringenOphalen.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/HelperOrdersOphalen.cls.xml
===================================================================
diff -u -r38557 -r38567
--- AX/Uitgaand/EC/Data/impl/HelperOrdersOphalen.cls.xml	(.../HelperOrdersOphalen.cls.xml)	(revision 38557)
+++ AX/Uitgaand/EC/Data/impl/HelperOrdersOphalen.cls.xml	(.../HelperOrdersOphalen.cls.xml)	(revision 38567)
@@ -37,25 +37,25 @@
 <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.OrderID=$LG(lbHoofding,2)
+	Set pxHoofding.DocType="O"
+
+	Set OrderRec=$LG(lbHoofding,5)
 	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.InternMedewerker=""
+	Set pxHoofding.ExterneMedewerker=""
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerLijn">
 <FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-	If $LG(lbLijn,2)="P"
+	If $LG(lbLijn,1)="P"
 	{
 		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
 	}
@@ -69,7 +69,7 @@
 <Method name="ConverteerProductLijn">
 <FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-	Set OLRec=$LG(lbLijn,3)
+	Set OLRec=$LG(lbLijn,2)
 	Set pxLijn.ProductID=$P(OLRec,"\",2)
 	Set pxLijn.Aantal=$P(OLRec,"\",3)
 	Set pxLijn.NettoPrijs=+$P(OLRec,"\",6)
@@ -79,8 +79,7 @@
 	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=$LG(lbLijn,4)
+	Set pxLijn.Commentaar=$LG(lbLijn,3)
 	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
 	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
 	Do pxLijn.VulAanMetProduct(..Taal)
@@ -90,16 +89,16 @@
 <Method name="ConverteerTekstLijn">
 <FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.Commentaar=$LG(lbLijn,3)
 	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)
+	Set OLRec=$LG(lbLijn,2)
+	Set pxLijn.Status=$LG(lbLijn,4)
 ]]></Implementation>
 </Method>
 
@@ -122,7 +121,6 @@
 	#dim ProdGrp As %String = "*"
 	#dim LastGrpTijd As %String = "" 
 	#dim LastGrpOLUNr As %String = ""
-	#dim OrderDatum As %Date = ""
 	
 	Set HasProd=""
 	Kill Sort,GrpTekst
@@ -155,29 +153,20 @@
 	 
 	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 HoofdingVolgNr=$I(^||ECCache("D"))
+	Set ^||ECCache("D",HoofdingVolgNr)=$LB("O",ORDNr,,,^KOD(..KlantID,"F",ORDNr,1),,,^KOD(..KlantID,"F",ORDNr,3))
+	Set ^||ECCache("IO",ORDNr,$O(^||ECCache("IO",ORDNr,""),-1)+1)=HoofdingVolgNr
 	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))
+	. . Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr))
+	. . Set:LijnType="P" ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("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[
@@ -190,6 +179,30 @@
 ]]></Implementation>
 </Method>
 
+<Parameter name="vsInVoorraad">
+<Default>Voldoende voorraad</Default>
+</Parameter>
+
+<Parameter name="vsBeperkteVoorraad">
+<Default>Beperkte voorraad</Default>
+</Parameter>
+
+<Parameter name="vsNietInVoorraad">
+<Default>Geen voorraad</Default>
+</Parameter>
+
+<Parameter name="vsOpBestelling">
+<Default>In bestelling lev</Default>
+</Parameter>
+
+<Parameter name="vsInProductie">
+<Default>In productie</Default>
+</Parameter>
+
+<Parameter name="vsInLevering">
+<Default>Verwerking magazijn</Default>
+</Parameter>
+
 <Method name="CheckOrderLijn">
 <FormalSpec><![CDATA[ORDNr:%String,OLNr:%String,&LijnType:%String,&VoorraadStatus:%String]]></FormalSpec>
 <Implementation><![CDATA[
@@ -202,18 +215,13 @@
 	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
+	If $P(Rec,"\",27)'="" Set VoorraadStatus=$S($D(^KPR(PRNr,"J6332")):..#vsInProductie,1:..#vsOpBestelling)
+	Else  Do 
+	. Set VoorraadStatus=$CASE(..VoorraadStatus(PRNr,$P(Rec,"\",3),,1),"F":..#vsNietInVoorraad,"P":..#vsBeperkteVoorraad,:..#vsInVoorraad)
 	Set OLUNr=$P(Rec,"\",15)
-	If $D(^ORDW("IO",ORDNr,OLUNr)) 
-	{
-		Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).VerwerkingMagazijn()
-	} Else {
-		If $P(Rec,"\",27)'="" 
-		{
-			Set VoorraadStatus=$S($D(^KPR(PRNr,"J6332")):##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).InProductie(),1:##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).InBestelling())
-		} Else {  
-			Set VoorraadStatus=$CASE(..VoorraadStatus(PRNr,$P(Rec,"\",3),,1),"F":##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).NietInVoorraad(),"P":##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).BeperkteVoorraad(),:##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).VoldoendeVoorraad())
-		}
-	}
+	If $D(^ORDW("IO",ORDNr,OLUNr)) Set VoorraadStatus=..#vsInLevering
+	;Set:VoorraadStatus=..#vsInVoorraad VoorraadStatus=""
+	
 	Set LijnType="P"
 ]]></Implementation>
 </Method>
Index: WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml
===================================================================
diff -u -r38557 -r38567
--- WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 38557)
+++ WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 38567)
@@ -57,78 +57,97 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOrders">
+<Method name="GeefRecenteOrders">
 <Description><![CDATA[
-Geeft een lijst van de openstaande OF recente orders.
-Indien Request.Periode = "" dan alleen openstaande orders
-Indien Request.Periode = Aantal dagen dan recente orders van de afgelopen X dagen
-Bij de recente worden zowel de nog openstaande orders, de reeds geleverde orders als de gefactuureerde orders worden opgehaald.
-Alle beslag producten worden opgenomen ook als die niet meer in het assortiment zijn.
+Geeft een lijst van de recente orders. Zowel de nog openstaande orders, de reeds geleverde orders als de gefactuureerde orders worden opgehaald.
+Alle beslag producten worden opgenomen ook als die niet meer in het assortiment zijn
 Alle maatwerk producten worden opgenomen, niet met de kenmerken maar als een std. product
+<br> Parameter SessionID: security sleutel (onderling af te spreken)
+<br> Parameter KlantID: Van welke klant de verkoopshistoriek moet opgehaald worden
+<br> Parameter Taal: In welke taal (N,F,D,E) moet de lijst getoond worden
 <br> 
-<br> Het resultaat is hierarische structuur van orderhoofding met eronder product en tekstlijnen]]></Description>
-<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefOrdersRequest</FormalSpec>
-<ReturnType>WS.Vhisie4.KlantDocument.GeefOrdersResponse</ReturnType>
+<br> Het resultaat is hierarische structuur van hoofding met er onder product en tekstlijnen]]></Description>
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefRecenteOrdersRequest</FormalSpec>
+<ReturnType>WS.Vhisie4.KlantDocument.GeefRecenteOrdersResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
-	Set bl=##class(AX.Uitgaand.EC.Data.impl.OrdersOphalen).%New(Request)
-	Quit bl.GeefResponse()
+	Set bl=##class(AX.Uitgaand.EC.Data.impl.OpenstaandeOrdersOphalen).%New(Request.Header.KlantId,Request.Header.Taal,..GetGenerationId(),Request.Header.SessieId)
+	Quit bl.GeefData()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOpenstaandeOrders">
+<Description><![CDATA[
+Geeft een lijst van de openstaande orders. De openstaande orders niet gefactureerde orders worden opgehaald.
+Alle beslag producten worden opgenomen ook als die niet meer in het assortiment zijn
+Alle maatwerk producten worden opgenomen, niet met de kenmerken maar als een std. product
+<br> Parameter SessionID: security sleutel (onderling af te spreken)
+<br> Parameter KlantID: Van welke klant de verkoopshistoriek moet opgehaald worden
+<br> Parameter Taal: In welke taal (N,F,D,E) moet de lijst getoond worden
+<br> 
+<br> Het resultaat is hierarische structuur van hoofding met er onder product en tekstlijnen]]></Description>
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefRecenteOrdersRequest</FormalSpec>
+<ReturnType>WS.Vhisie4.KlantDocument.GeefRecenteOrdersResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Do ..HeaderValidator.ValidateHeader(Request.Header)
+	Set bl=##class(AX.Uitgaand.EC.Data.impl.OpenstaandeOrdersOphalen).%New(Request.Header.KlantId,Request.Header.Taal,..GetGenerationId(),Request.Header.SessieId)
+	Quit bl.GeefData()
+]]></Implementation>
+</Method>
+
 <Method name="GeefFacturen">
 <Description><![CDATA[
-Geeft een lijst van de openstaande OF recente facturen en nul facturen (ook wel proformas genoemd) van de afgelopen X dagen
-Indien Request.Periode = "" dan alleen openstaande orders
-Indien Request.Periode = Aantal dagen dan recente orders van de afgelopen X dagen
+Geeft een lijst van de recente facturen en nul facturen (ook wel proformas genoemd) van de afgelopen X dagen
 Alle beslag producten worden opgenomen ook als die niet meer in het assortiment zijn
 Alle maatwerk producten worden opgenomen, niet met de kenmerken maar als een std. product
+<br> Parameter SessionID: security sleutel (onderling af te spreken)
+<br> Parameter GenerationID: ID van de data generatie waarmee gewerkt wordt
+<br> Parameter KlantID: Van welke klant de verkoopshistoriek moet opgehaald worden
+<br> Parameter Taal: In welke taal (N,F,D,E) moet de lijst getoond worden
+<br> Parameter Periode: Aantal dagen dat er factuurgegevens moeten opgehaald worden
 <br> 
-<br> Het resultaat is hierarische structuur van factuurhoofding met eronder product en tekstlijnen]]></Description>
+<br> Het resultaat is hierarische structuur van hoofding met er onder product en tekstlijnen]]></Description>
 <FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.KlantDocument.GeefFacturenResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
-	Set bl=##class(AX.Uitgaand.EC.Data.impl.FacturenOphalen).%New(Request)
-	Quit bl.GeefResponse()
+	Set bl=##class(AX.Uitgaand.EC.Data.impl.FacturenOphalen).%New(Request.Header.KlantId,Request.Header.Taal,..GetGenerationId(),Request.Header.SessieId,Request.Periode)
+	Quit bl.GeefData()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefOffertes">
 <Description><![CDATA[
 Geeft een lijst van de recente offertes die gemarkeerd zijn voor extern gebruik.
-Request.Periode moet ingevuld zijn om de offertes van de afgelopen X dagen te bepalen
 Alle beslag producten worden opgenomen ook als die niet meer in het assortiment zijn
 Alle maatwerk producten worden opgenomen, niet met de kenmerken maar als een std. product
+<br> Parameter SessionID: security sleutel (onderling af te spreken)
+<br> Parameter GenerationID: ID van de data generatie waarmee gewerkt wordt
+<br> Parameter KlantID: Van welke klant de verkoopshistoriek moet opgehaald worden
+<br> Parameter Taal: In welke taal (N,F,D,E) moet de lijst getoond worden
+<br> Parameter Periode: Aantal dagen dat er offertes moeten opgehaald worden
 <br> 
-<br> Het resultaat is hierarische structuur van offertehoofding met eronder product en tekstlijnen]]></Description>
+<br> Het resultaat is hierarische structuur van hoofding met er onder product en tekstlijnen]]></Description>
 <FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefOffertesRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.KlantDocument.GeefOffertesResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
-	Set bl=##class(AX.Uitgaand.EC.Data.impl.OffertesOphalen).%New(Request)
-	Quit bl.GeefResponse()
+	Set bl=##class(AX.Uitgaand.EC.Data.impl.OffertesOphalen).%New(Request.Header.KlantId,Request.Header.Taal,..GetGenerationId(),Request.Header.SessieId,Request.Periode)
+	Quit bl.GeefData()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLeveringen">
-<Description><![CDATA[
-Geeft een lijst van de openstaande OF recente leveringen van de afgelopen X dagen
-Indien Request.Periode = "" dan alleen openstaande orders
-Indien Request.Periode = Aantal dagen dan recente orders van de afgelopen X dagen
-Alle beslag producten worden opgenomen ook als die niet meer in het assortiment zijn
-Alle maatwerk producten worden opgenomen, niet met de kenmerken maar als een std. product
-<br> 
-<br> Het resultaat is hierarische structuur van leveringhoofding met eronder product en tekstlijnen]]></Description>
-<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefLeveringenRequest</FormalSpec>
-<ReturnType>WS.Vhisie4.KlantDocument.GeefLeveringenResponse</ReturnType>
+<Method name="GeefOpenstaandeFacturen">
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefOpenstaandeFacturenRequest</FormalSpec>
+<ReturnType>WS.Vhisie4.KlantDocument.GeefOpenstaandeFacturenResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
-	Set bl=##class(AX.Uitgaand.EC.Data.impl.LeveringenOphalen).%New(Request)
+	Set bl=##class(AX.Uitgaand.EC.Data.impl.OpenstaandeFacturenOphalen).%New(Request)
 	Quit bl.GeefResponse()
 ]]></Implementation>
 </Method>
@@ -143,6 +162,12 @@
 	quit bl.GeefResponse()
 ]]></Implementation>
 </Method>
+
+<Method name="GetGenerationId">
+<Private>1</Private>
+<Implementation><![CDATA[	quit $order(^AX.Uitgaand.EC.Kla7BD6.KlantenD(""),-1)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml
===================================================================
diff -u -r38557 -r38567
--- AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 38557)
+++ AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 38567)
@@ -41,15 +41,17 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantID:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set request=##class(WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekRequest).%New()
+	Set request=##class(WS.Vhisie4.KlantDocument.GeefOpenstaandeFacturenRequest).%New()
 	Set request.Header=##class(WS.Vhisie4.RequestHeader).%New()
 	Set request.Header.KlantId=$G(KlantID,4875)
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	
-	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
-	Set dto=bl.GeefVerkoopHistoriek(request)
-	D dto.XMLExport(,"literal,indent")
+	Set request.GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+
+	Set bl=..%New(request)
+	;Do DumpObject^%apiOBJ(bl.Historiek)
+	D bl.GeefResponse().XMLExport(,"literal,indent")
 ]]></Implementation>
 </Method>
 
@@ -62,8 +64,7 @@
 
 	Set ..Request=Request
 	Set ..KlantId=..Request.Header.KlantId
-	Set ..GenerationId=..Request.GenerationId
-	Set:..GenerationId="" ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 	Set ..AssortimentGroep=..GeefAssortimentGroep()
 	Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
 
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/dto/FactuurHoofding.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefRecenteOrdersRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefOrdersResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Data/impl/OrdersOphalen.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefOpenstaandeFacturenRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/dto/FactuurLijn.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Data/impl/HelperFacturenOphalenAlsOrder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefFacturenRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml
===================================================================
diff -u -r38557 -r38567
--- WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml	(.../DocumentLijn.cls.xml)	(revision 38557)
+++ WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml	(.../DocumentLijn.cls.xml)	(revision 38567)
@@ -8,10 +8,16 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="GevraagdeLeverDatum">
+<Description>
+Leverdatum geregistreerd bij ingave, slechts ingevuld als de verwachteleverdatum gewijzigd werd</Description>
+<Type>%Date</Type>
+</Property>
+
 <Property name="ProductGroep">
 <Description>
 Maatwerk, Beslag, Orgalux</Description>
-<Type>WS.Vhisie4.KlantDocument.enu.ProductGroep</Type>
+<Type>TECH.String</Type>
 </Property>
 
 <Property name="KortTekst">
@@ -22,6 +28,16 @@
 <Type>TECH.String</Type>
 </Property>
 
+<Property name="VerwachteLeverDatum">
+<Description>
+Verwachte (of voorziene) leverdatum</Description>
+<Type>%Date</Type>
+</Property>
+
+<Property name="BackOrder">
+<Type>%Boolean</Type>
+</Property>
+
 <Property name="ProductOmschrijving">
 <Type>TECH.String</Type>
 </Property>
@@ -42,11 +58,15 @@
 <Type>%Numeric</Type>
 </Property>
 
+<Property name="GrootteOrde">
+<Type>TECH.String</Type>
+</Property>
+
 <Property name="TotaalPrijs">
 <Type>%Numeric</Type>
 </Property>
 
-<Property name="GrootteOrde">
+<Property name="Status">
 <Type>TECH.String</Type>
 </Property>
 
@@ -58,13 +78,9 @@
 <Type>%Boolean</Type>
 </Property>
 
-<Property name="OorsprongDocType">
-<Type>TECH.String</Type>
-</Property>
-
 <Property name="Type">
 <Description>
-Tekst, Orderhoofding, Levering, Retour</Description>
+Tekst, Levering, Retour</Description>
 <Type>TECH.String</Type>
 </Property>
 
@@ -105,19 +121,18 @@
 </Method>
 
 <Method name="BepaalProdGroep">
-<ReturnType>WS.Vhisie4.KlantDocument.enu.ProductGroep</ReturnType>
+<ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	
 	Set PRNr=..ProductID
 	If '$D(^KPR(PRNr)) { 
 		Set ProdGrp="Verwijderd"
 	} ElseIf ($P(^KPR(PRNr,0),"\",3)?4.8N)&&$D(^KPR(PRNr,"J6332")){
-		Set GenTyp=$P($$GENTYP^HAD(PRNr),"\")
-		Set ProdGrp=$CASE(GenTyp,"TBX":##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Tandembox(),"LBX":##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Legrabox(),"TAO":##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).TAORbox(),"KAD":##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Kaderdeur(),:##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Maatwerk())
+		Set ProdGrp="Maatwerk"
 	} ElseIf $$ISORGAL^ORGALUX(PRNr) {
-		Set ProdGrp=##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Orgalux()
+		Set ProdGrp="Orgalux"
 	} Else {
-		Set ProdGrp=##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Beslag()
+		Set ProdGrp="Beslag"
 	}
 	Quit ProdGrp
 ]]></Implementation>
@@ -182,45 +197,6 @@
 <Value name="18">
 <Value>Type</Value>
 </Value>
-<Value name="19">
-<Value>VoorzieneLeveringsDatum</Value>
-</Value>
-<Value name="20">
-<Value>LeveringsDatum</Value>
-</Value>
-<Value name="21">
-<Value>FactuurDatum</Value>
-</Value>
-<Value name="22">
-<Value>VervalDatum</Value>
-</Value>
-<Value name="23">
-<Value>OpenstaandBedrag</Value>
-</Value>
-<Value name="24">
-<Value>AantalRappels</Value>
-</Value>
-<Value name="25">
-<Value>DocType</Value>
-</Value>
-<Value name="26">
-<Value>LeveringID</Value>
-</Value>
-<Value name="27">
-<Value>TransportTraceURL</Value>
-</Value>
-<Value name="28">
-<Value>FactuurID</Value>
-</Value>
-<Value name="29">
-<Value>OorsprongDocType</Value>
-</Value>
-<Value name="30">
-<Value>FactuurBedrag</Value>
-</Value>
-<Value name="31">
-<Value>AantalHerinneringen</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
FishEye: Tag 38557 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Data/impl/OpenstaandeOrdersOphalen.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefLeveringenRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/HelperOffertesOphalen.cls.xml
===================================================================
diff -u -r38557 -r38567
--- AX/Uitgaand/EC/Data/impl/HelperOffertesOphalen.cls.xml	(.../HelperOffertesOphalen.cls.xml)	(revision 38557)
+++ AX/Uitgaand/EC/Data/impl/HelperOffertesOphalen.cls.xml	(.../HelperOffertesOphalen.cls.xml)	(revision 38567)
@@ -14,10 +14,6 @@
 <Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
 </Property>
 
-<Property name="LeveringsTermijnCalculator">
-<Type>APPS.VKP.LeveringsTermijn</Type>
-</Property>
-
 <Property name="KlantID">
 <Type>%String</Type>
 </Property>
@@ -40,22 +36,22 @@
 	Set ..Taal=Taal
 	Set ..GenerationID=GenerationID
 	Set ..ProductValidator=ProductValidator	
-	Set ..LeveringsTermijnCalculator=..GeefLeveringsTermijnCalculator()
 	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="OFFERTE"
+	Set pxHoofding.OrderID=$LG(lbHoofding,2)
+	Set pxHoofding.DocType="O"
 
 	#dim OrderRec As %String = $LG(lbHoofding,5)
 	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) ; specifieke EDI referentie
-	Set pxHoofding.IngegevenDoorMedewerker=""
+	Set:$P(OrderRec,"\",35)'="" pxHoofding.OrderReferentie = $P(OrderRec,"\",35) ; specieke EDI referentie
+	Set pxHoofding.InternMedewerker=""
+	Set pxHoofding.ExterneMedewerker=""
 ]]></Implementation>
 </Method>
 
@@ -83,14 +79,13 @@
 	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.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.Commentaar=$LG(lbLijn,3)
 	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
 	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
 	Do pxLijn.VulAanMetProduct(..Taal)
-	Do ..BepaalLeveringsTermijn(pxLijn)
 ]]></Implementation>
 </Method>
 
@@ -204,36 +199,6 @@
 	Set LijnType="P"
 ]]></Implementation>
 </Method>
-
-<Method name="GeefLeveringsTermijnCalculator">
-<Implementation><![CDATA[
-	Set:$G(VerzendWijze)="" VerzendWijze=$$DEFAULT^KLVERZW(,..KlantID)
-	Set LandCode=$$LAND^vhRtn1(..KlantID,"K")
-	Set PostCode=$P(^KKL(^KK1(..KlantID),0),"\",6)
-	Set blVerzendWijze=##class(APPS.VKP.VerzendWijze).%New(..KlantID,VerzendWijze,LandCode,PostCode)
-	Quit ##class(APPS.VKP.LeveringsTermijn).%New(.RefDate,blVerzendWijze)
-]]></Implementation>
-</Method>
-
-<Method name="BepaalLeveringsTermijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.OfferteLijn</FormalSpec>
-<Implementation><![CDATA[
-	Set Stock=$$$ProductGet(pxLijn.ProductID, $$$StockType)
-	If Stock {
-		Set LeveringsTermijn="Op voorraad"
-	}
-	Else { ; Niet stock
-		Set lbTermijn=..LeveringsTermijnCalculator.GetLeverTermijn(pxLijn.ProductID)
-		If $LG(lbTermijn,2)="W" { ; Weken
-			Set LeveringsTermijn=$LG(lbTermijn)_" "_$S($LG(lbTermijn)=1:"week",1:"weken")
-		}
-		Else { ; Dagen
-			Set LeveringsTermijn=$LG(lbTermijn)_" "_$S($LG(lbTermijn)=1:"werkdag",1:"werkdagen")
-		}
-	}
-	Set pxLijn.LeveringsTermijn=LeveringsTermijn
-]]></Implementation>
-</Method>
 </Class>
 
 
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/dto/OrderHoofding.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/OffertesOphalen.cls.xml
===================================================================
diff -u -r38557 -r38567
--- AX/Uitgaand/EC/Data/impl/OffertesOphalen.cls.xml	(.../OffertesOphalen.cls.xml)	(revision 38557)
+++ AX/Uitgaand/EC/Data/impl/OffertesOphalen.cls.xml	(.../OffertesOphalen.cls.xml)	(revision 38567)
@@ -11,91 +11,78 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Data">
+<Type>WS.Vhisie4.KlantDocument.GeefOffertesResponse</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="OffertesOphaler">
 <Type>AX.Uitgaand.EC.Data.impl.HelperOffertesOphalen</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="Offertes">
-<Type>WS.Vhisie4.KlantDocument.dto.DocumentHoofding</Type>
-<Collection>list</Collection>
-<Private>1</Private>
+<Property name="GenerationID">
+<Type>%String</Type>
 </Property>
 
-<Property name="GenerationId">
+<Property name="KlantID">
 <Type>%String</Type>
 </Property>
 
-<Property name="KlantId">
+<Property name="Taal">
 <Type>%String</Type>
 </Property>
 
 <Property name="Periode">
-<Type>%Integer</Type>
+<Type>%String</Type>
 </Property>
 
-<Property name="Request">
-<Type>WS.Vhisie4.KlantDocument.GeefOffertesRequest</Type>
-</Property>
-
-<Property name="Response">
-<Type>WS.Vhisie4.KlantDocument.GeefOffertesResponse</Type>
-</Property>
-
 <Method name="test">
 <Description>
-d ##class(AX.Uitgaand.EC.Data.impl.OffertesOphalen).test(1736)</Description>
+d ##class(AX.Uitgaand.EC.Data.impl.OffertesOphalen).test(1736)
+SFS 12486
+DuPont 1736</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantID:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set request=##class(WS.Vhisie4.KlantDocument.GeefOffertesRequest).%New()
-	Set request.Header=##class(WS.Vhisie4.RequestHeader).%New()
-	Set request.Header.KlantId=$G(KlantID,4875)
-	Set request.Header.Taal="N"
-	Set request.Header.SessieId="xx"
-	Set request.Periode=300
-	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
-	Set dto=bl.GeefOffertes(request)
-	D dto.XMLExport(,"literal,indent")
+	Set GenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set bl=..%New($G(KlantID,4875),"N",GenerationID,"sessie",100)
+	;Do DumpObject^%apiOBJ(bl.Historiek)
+	;D bl.GeefData().XMLExport(,"literal,indent")
+	Do ObjToXMLFile^vhLib(bl.GeefData(),"\\notes01\shared\P V\EC Offertes "_KlantID_".xml")
 ]]></Implementation>
 </Method>
 
 <Method name="%OnNew">
-<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefOffertesRequest</FormalSpec>
+<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,SessionID:%String,Periode:%Integer</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 ..Periode=..Request.Periode
-	Set:..Periode="" ..Periode=60
+	Set ..KlantID=KlantID
+	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
+	Set ..Periode=Periode
 	
-	Set ..GenerationId=..Request.GenerationId
-	Set:..GenerationId="" ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set ..Data=##class(WS.Vhisie4.KlantDocument.GeefOffertesResponse).%New()
+	Set ..Data.GenerationID=GenerationID
+	Set ..Data.SessionID=SessionID
+	Set ..Data.KlantID=KlantID
+	Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(KlantID,GenerationID)
+	Set ..OffertesOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperOffertesOphalen).%New(..KlantID, ..Taal, ..GenerationID, ..ProductValidator)
 
-	Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
-	Set ..OffertesOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperOffertesOphalen).%New(..KlantId, ..Request.Header.Taal, ..GenerationId, ..ProductValidator)
-
 	Do ..GenereerLijst()	
 
-	Set ..Response.Tijd=Timer.Stop()\1
-
+	Set ..Data.Tijd=Timer.Stop()\1
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefResponse">
+<Method name="GeefData">
 <ReturnType>WS.Vhisie4.KlantDocument.GeefOffertesResponse</ReturnType>
-<Implementation><![CDATA[
-	Set ..Response.SessieId=..Request.Header.SessieId
-	Set ..Response.RequestId=..Request.Header.RequestId
-	Set ..Response.KlantId=..KlantId
-	Set ..Response.GenerationId=..GenerationId
-	Set ..Response.Lijst=..Offertes
-
-	Quit ..Response
+<Implementation><![CDATA[	Quit ..Data
 ]]></Implementation>
 </Method>
 
@@ -123,6 +110,7 @@
 	Kill ^||ECCache
 
 	Do ..OffertesOphaler.OphalenNaarCache(..Periode)
+	;zw ^||ECCache
 ]]></Implementation>
 </Method>
 
@@ -159,15 +147,14 @@
 		}
 		Set LijnVolgNr=$O(^||ECCache("D",HoofdingVolgNr,LijnVolgNr))
 	}
-	Do pxHoofding.BepaalProductGroepen()
-	Do ..Offertes.Insert(pxHoofding)
+	Do ..Data.Lijst.Insert(pxHoofding)
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerHoofding">
 <FormalSpec>lbHoofding:%List</FormalSpec>
 <Implementation><![CDATA[
-	Set pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.OfferteHoofding).%New()
+	Set pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.DocumentHoofding).%New()
 	Do ..OffertesOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
 	Do ..OffertesOphaler.ConverteerAdres(pxHoofding,lbHoofding)
 	Quit pxHoofding
@@ -177,7 +164,7 @@
 <Method name="ConverteerLijn">
 <FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.OfferteLijn).%New()
+	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.DocumentLijn).%New()
 	Do ..OffertesOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
 	Do ..OffertesOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
 	Quit pxLijn
FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefOpenstaandeOrdersRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/PakketRefOphalen.cls.xml
===================================================================
diff -u -r38557 -r38567
--- AX/Uitgaand/EC/Data/impl/PakketRefOphalen.cls.xml	(.../PakketRefOphalen.cls.xml)	(revision 38557)
+++ AX/Uitgaand/EC/Data/impl/PakketRefOphalen.cls.xml	(.../PakketRefOphalen.cls.xml)	(revision 38567)
@@ -43,29 +43,28 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantID:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set request=##class(WS.Vhisie4.KlantProduct.GeefKlantProductReferentiesRequest).%New()
+	Set request=##class(WS.Vhisie4.KlantDocument.GeefOpenstaandeFacturenRequest).%New()
 	Set request.Header=##class(WS.Vhisie4.RequestHeader).%New()
 	Set request.Header.KlantId=$G(KlantID,4875)
-	;Set request.GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set request.Header.GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
-	Set bl=##class(WS.Vhisie4.KlantProduct.KlantProductService).%New()
-	Set dto=bl.GeefKlantProductReferenties(request)
-	D dto.XMLExport(,"literal,indent")
+	Set bl=..%New(request)
+	;Do DumpObject^%apiOBJ(bl.Historiek)
+	D bl.GeefResponse().XMLExport(,"literal,indent")
 ]]></Implementation>
 </Method>
 
 <Method name="%OnNew">
-<FormalSpec>Request:WS.Vhisie4.KlantProduct.GeefKlantProductReferentiesRequest</FormalSpec>
+<FormalSpec>Request</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 ..GenerationId=..Request.GenerationId
-	Set:..GenerationId="" ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 	
 	Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
 	
Index: AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml
===================================================================
diff -u -r38557 -r38567
--- AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml	(.../FacturenOphalen.cls.xml)	(revision 38557)
+++ AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml	(.../FacturenOphalen.cls.xml)	(revision 38567)
@@ -4,109 +4,59 @@
 <ClassType/>
 <IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>OpenstaandeOrdersOphalen</Super>
 
 <Property name="Periode">
 <Type>%Integer</Type>
 </Property>
 
-<Property name="FacturenOphaler">
-<Type>AX.Uitgaand.EC.Data.impl.HelperFacturenOphalen</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="ProductValidator">
-<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Taal">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Facturen">
-<Type>WS.Vhisie4.KlantDocument.dto.FactuurHoofding</Type>
-<Collection>list</Collection>
-<Private>1</Private>
-</Property>
-
-<Property name="GenerationId">
-<Type>%String</Type>
-</Property>
-
-<Property name="KlantId">
-<Type>%String</Type>
-</Property>
-
-<Property name="Request">
-<Type>WS.Vhisie4.KlantDocument.GeefFacturenRequest</Type>
-</Property>
-
-<Property name="Response">
-<Type>WS.Vhisie4.KlantDocument.GeefFacturenResponse</Type>
-</Property>
-
 <Method name="test">
 <Description>
 d ##class(AX.Uitgaand.EC.Data.impl.FacturenOphalen).test(1736)
 SFS 12486
 DuPont 1736</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>KlantID:%String</FormalSpec>
+<FormalSpec>KlantID:%String,Periode:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	Set request=##class(WS.Vhisie4.KlantDocument.GeefFacturenRequest).%New()
-	Set request.Header=##class(WS.Vhisie4.RequestHeader).%New()
-	Set request.Header.KlantId=$G(KlantID,4875)
-	Set request.Header.Taal="N"
-	Set request.Periode=260
-	Set request.Header.SessieId="xx"
-	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
-	;Set dto=bl.GeefOpenstaandeOrders(request)
-	Set dto=bl.GeefFacturen(request)
-	D dto.XMLExport(,"literal,indent")
-	;Do ObjToXMLFile^vhLib(bl.GeefData(),"\\notes01\shared\P V\EC Offertes "_KlantID_".xml")
+	Set GenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set bl=..%New($G(KlantID,4875),"N",GenerationID,"sessie",$G(Periode, 365/2))
+	;Do DumpObject^%apiOBJ(bl.Historiek)
+	;D bl.GeefData().XMLExport(,"literal,indent")
+	Do ObjToXMLFile^vhLib(bl.GeefData(),"\\notes01\shared\P V\EC Facturen "_KlantID_".xml")
 ]]></Implementation>
 </Method>
 
 <Method name="%OnNew">
-<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest</FormalSpec>
+<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,SessionID:%String,Periode:%Integer</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 ..Periode=Request.Periode
-	Set ..Taal=..Request.Header.Taal
-	Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set ..KlantID=KlantID
+	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
+	Set ..Periode=$G(Periode)
+	
+	Set ..Data=##class(WS.Vhisie4.KlantDocument.GeefFacturenResponse).%New()
+	Set ..Data.GenerationID=GenerationID
+	Set ..Data.SessionID=SessionID
+	Set ..Data.KlantID=KlantID
+	
+	Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(KlantID,GenerationID)
+	Set ..OrdersOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperOrdersOphalen).%New(..KlantID, ..Taal, ..GenerationID, ..ProductValidator)
+	Set ..LeveringenOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperLeveringenOphalen).%New(..KlantID, ..Taal, ..GenerationID, ..ProductValidator)
+	Set ..FacturenOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperFacturenOphalen).%New(..KlantID, ..Taal, ..GenerationID, ..ProductValidator)
 
-	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)
-
 	Do ..GenereerLijst()	
 
-	Set ..Response.Tijd=Timer.Stop()\1
-
+	Set ..Data.Tijd=Timer.Stop()\1
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefResponse">
-<ReturnType>WS.Vhisie4.KlantDocument.GeefFacturenResponse</ReturnType>
-<Implementation><![CDATA[
-	Set ..Response.SessieId=..Request.Header.SessieId
-	Set ..Response.RequestId=..Request.Header.RequestId
-	Set ..Response.KlantId=..KlantId
-	Set ..Response.GenerationId=..GenerationId
-	Set ..Response.Lijst=..Facturen
-
-	Quit ..Response
-]]></Implementation>
-</Method>
-
-<Method name="GenereerLijst">
+<Method name="OphalenNaarCache">
 <Description>
 Hoofding
    ^||ECCache("D",HoofdingVolgNr) = $LB(Type,OrderNr,BONNr,FAKNr,OrderHfdData, LeveringHfdData, FaktuurHfdData, LevAdresData)
@@ -117,134 +67,15 @@
 	   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("IF",FactuurNr,VolgNr)=HoofdingVolgNr</Description>
 <Implementation><![CDATA[
-	Do ..OphalenNaarCache()
-	Do ..ConverteerCacheNaarXML()
-]]></Implementation>
-</Method>
-
-<Method name="OphalenNaarCache">
-<Private>1</Private>
-<Implementation><![CDATA[
-	
 	Kill ^||ECCache
 
-	If ..Periode
-	{
-		Do ..FacturenOphaler.OphalenRecenteNaarCache("F",..Periode)
-		Do ..FacturenOphaler.OphalenRecenteNaarCache("P",..Periode)
-	}
-	Else
-	{
-		Do ..FacturenOphaler.OphalenOpenstaandeNaarCache()
-	}
-
-	zw ^||ECCache r k
+	Do ..FacturenOphaler.OphalenNaarCache("F",..Periode)
+	Do ..FacturenOphaler.OphalenNaarCache("P",..Periode)
+	;zw ^||ECCache
 ]]></Implementation>
 </Method>
-
-<Method name="ConverteerCacheNaarXML">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim OrderDatum as %Date
-	#dim FAKNr as %String
-		
-	Set OrderDatum=$O(^||ECCache("IFAK",""))
-	While OrderDatum'=""
-	{
-		Set FAKNr=$O(^||ECCache("IFAK",OrderDatum,""))
-		While FAKNr'=""
-		{
-			Do ..Converteer(FAKNr)
-			Set FAKNr=$O(^||ECCache("IFAK",OrderDatum,FAKNr))
-		}
-		Set OrderDatum=$O(^||ECCache("IFAK",OrderDatum))
-	}
-]]></Implementation>
-</Method>
-
-<Method name="Converteer">
-<FormalSpec>FAKNr:%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 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,""))
-	While LijnNiv1'=""
-	{	
-		Set LijnNiv2=$O(^||ECCache("FAK",FAKNr,LijnNiv1,""))
-		While LijnNiv2'=""
-		{	
-			Set LijnNiv3=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,""))
-			While LijnNiv3'=""
-			{	
-
-				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 LijnNiv3=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,LijnNiv3))
-		}
-			Set LijnNiv2=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2))
-		}
-
-		Set LijnNiv1=$O(^||ECCache("FAK",FAKNr,LijnNiv1))
-	}
-	Do pxHoofding.BepaalProductGroepen()
-	Do ..Facturen.Insert(pxHoofding)
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerLijn">
-<FormalSpec>lbHoofding:%List,lbLijn:%List</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)
-	Quit pxLijn
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerHoofding">
-<FormalSpec>lbHoofding:%List</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)
-	Quit pxHoofding
-]]></Implementation>
-</Method>
 </Class>
 
 
FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefFacturenResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WS/Vhisie4/KlantDocument/dto/DocumentHoofding.cls.xml
===================================================================
diff -u -r38557 -r38567
--- WS/Vhisie4/KlantDocument/dto/DocumentHoofding.cls.xml	(.../DocumentHoofding.cls.xml)	(revision 38557)
+++ WS/Vhisie4/KlantDocument/dto/DocumentHoofding.cls.xml	(.../DocumentHoofding.cls.xml)	(revision 38567)
@@ -3,97 +3,89 @@
 <Class name="WS.Vhisie4.KlantDocument.dto.DocumentHoofding">
 <Super>%SerialObject,%XML.Adaptor</Super>
 
-<Parameter name="XMLNAME">
-<Description>
-Parameter XMLIGNORENULL As STRING = 1;</Description>
+<Parameter name="XMLIGNORENULL">
 <Type>STRING</Type>
-<Default>Hoofding</Default>
+<Default>1</Default>
 </Parameter>
 
-<Property name="OorsprongDocType">
+<Property name="OrderID">
 <Type>TECH.String</Type>
 </Property>
 
-<Property name="MultipleDocTypes">
+<Property name="OrderDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="LeveringsDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="FactuurDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="VervalDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="OpenstaandBedrag">
+<Type>%Float</Type>
+</Property>
+
+<Property name="AantalRappels">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="DocType">
 <Type>TECH.String</Type>
 </Property>
 
-<Property name="arProductGroepen">
-<Type>WS.Vhisie4.KlantDocument.dto.ProductGroepInfo</Type>
-<Collection>array</Collection>
-<Parameter name="XMLPROJECTION" value="NONE"/>
+<Property name="LeveringID">
+<Type>TECH.String</Type>
 </Property>
 
-<Property name="ProductGroepen">
-<Type>WS.Vhisie4.KlantDocument.dto.ProductGroepInfo</Type>
-<Collection>list</Collection>
+<Property name="TransportTraceURL">
+<Type>TECH.String</Type>
 </Property>
 
-<Property name="TotaalPrijs">
-<Type>%Decimal</Type>
+<Property name="FactuurID">
+<Type>TECH.String</Type>
 </Property>
 
-<Property name="Munt">
-<Type>DOM.enu.Munt</Type>
+<Property name="OrderReferentie">
+<Type>TECH.String</Type>
 </Property>
 
-<Property name="Lijnen">
-<Type>WS.Vhisie4.KlantDocument.dto.DocumentLijn</Type>
-<Collection>list</Collection>
-<Parameter name="XMLITEMNAME" value="Lijn"/>
+<Property name="EDIReferentie">
+<Type>TECH.String</Type>
 </Property>
 
-<Property name="LeverAdres">
-<Type>WS.Vhisie4.KlantDocument.dto.LeverAdres</Type>
+<Property name="CommissieReferentie">
+<Type>TECH.String</Type>
 </Property>
 
-<Method name="BepaalProductGroepen">
-<Implementation><![CDATA[
-	Set it=##class(TECH.ListIterator).%New(..Lijnen)
-	While it.HasNext()
-	{
-		#dim pxLijn as DocumentLijn
-		Set pxLijn=it.Next()
-		#dim ProductGroep as WS.Vhisie4.KlantDocument.enu.ProductGroep = pxLijn.ProductGroep
-		If pxLijn.Type="L"&&(ProductGroep'="")
-		{
-			#dim pxProductGroep as ProductGroepInfo=..arProductGroepen.GetAt(ProductGroep)
-			If '$isobject(pxProductGroep) {
-				Set pxProductGroep=##class(ProductGroepInfo).%New()
-				Set pxProductGroep.ProductGroep=ProductGroep
-				Do ..arProductGroepen.SetAt(pxProductGroep,ProductGroep)
-			}
-			Set pxProductGroep.AantalLijnen=pxProductGroep.AantalLijnen+1
-			Set pxProductGroep.AantalStuks=pxProductGroep.AantalStuks+pxLijn.Aantal
-			Set pxProductGroep.TotaalPrijs=pxProductGroep.TotaalPrijs+pxLijn.TotaalPrijs
-			Set ..TotaalPrijs=..TotaalPrijs+pxLijn.TotaalPrijs
-		}
-	}
-	Do ..SorteerProductGroepen()
-]]></Implementation>
-</Method>
+<Property name="InternMedewerker">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="InterneMedewerker"/>
+</Property>
 
-<Method name="SorteerProductGroepen">
-<Description>
-Op volgorde brengen van de productgroepen</Description>
-<Implementation><![CDATA[
-	Do ..InsertProductGroep(##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Legrabox())
-	Do ..InsertProductGroep(##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).TAORbox())
-	Do ..InsertProductGroep(##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Tandembox())
-	Do ..InsertProductGroep(##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Kaderdeur())
-	Do ..InsertProductGroep(##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Beslag())
-	Do ..InsertProductGroep(##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Orgalux())
-]]></Implementation>
-</Method>
+<Property name="ExterneMedewerker">
+<Type>TECH.String</Type>
+</Property>
 
-<Method name="InsertProductGroep">
-<FormalSpec>ProductGroep:WS.Vhisie4.KlantDocument.enu.ProductGroep</FormalSpec>
-<Implementation><![CDATA[
-	#dim pxProductGroep as WS.Vhisie4.KlantDocument.dto.ProductGroepInfo =..arProductGroepen.GetAt(ProductGroep)
-	Do:$isObject(pxProductGroep) ..ProductGroepen.Insert(pxProductGroep)
-]]></Implementation>
-</Method>
+<Property name="VerzendWijze">
+<Type>TECH.String</Type>
+</Property>
 
+<Property name="LeverAdres">
+<Type>WS.Vhisie4.KlantDocument.dto.LeverAdres</Type>
+</Property>
+
+<Property name="Lijnen">
+<Type>WS.Vhisie4.KlantDocument.dto.DocumentLijn</Type>
+<Collection>list</Collection>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>DocumentHoofdingState</State>
@@ -158,30 +150,6 @@
 <Value name="19">
 <Value>Lijnen</Value>
 </Value>
-<Value name="20">
-<Value>IngegevenDoorMedewerker</Value>
-</Value>
-<Value name="21">
-<Value>OorsprongDocType</Value>
-</Value>
-<Value name="22">
-<Value>DataFromDocs</Value>
-</Value>
-<Value name="23">
-<Value>MultipleDocTypes</Value>
-</Value>
-<Value name="24">
-<Value>ProductGroepen</Value>
-</Value>
-<Value name="25">
-<Value>arProductGroepen</Value>
-</Value>
-<Value name="26">
-<Value>TotaalPrijs</Value>
-</Value>
-<Value name="27">
-<Value>Munt</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/dto/OfferteHoofding.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefRecenteOrdersResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WS/Vhisie4/KlantDocument/GeefOffertesResponse.cls.xml
===================================================================
diff -u -r38557 -r38567
--- WS/Vhisie4/KlantDocument/GeefOffertesResponse.cls.xml	(.../GeefOffertesResponse.cls.xml)	(revision 38557)
+++ WS/Vhisie4/KlantDocument/GeefOffertesResponse.cls.xml	(.../GeefOffertesResponse.cls.xml)	(revision 38567)
@@ -3,30 +3,18 @@
 <Class name="WS.Vhisie4.KlantDocument.GeefOffertesResponse">
 <Super>%SerialObject,%XML.Adaptor</Super>
 
-<Property name="RequestId">
-<Type>TECH.String</Type>
-<Required>1</Required>
-<Parameter name="XMLNAME" value="RequestID"/>
+<Property name="KlantID">
+<Type>%String</Type>
 </Property>
 
-<Property name="SessieId">
-<Type>TECH.String</Type>
-<Required>1</Required>
-<Parameter name="XMLNAME" value="SessieID"/>
+<Property name="SessionID">
+<Type>%String</Type>
 </Property>
 
-<Property name="GenerationId">
-<Type>TECH.String</Type>
-<Required>1</Required>
-<Parameter name="XMLNAME" value="GenerationID"/>
+<Property name="GenerationID">
+<Type>%String</Type>
 </Property>
 
-<Property name="KlantId">
-<Type>TECH.String</Type>
-<Required>1</Required>
-<Parameter name="XMLNAME" value="KlantID"/>
-</Property>
-
 <Property name="Tijd">
 <Type>%Integer</Type>
 </Property>
@@ -58,18 +46,6 @@
 <Value name="5">
 <Value>Lijst</Value>
 </Value>
-<Value name="6">
-<Value>RequestId</Value>
-</Value>
-<Value name="7">
-<Value>SessieId</Value>
-</Value>
-<Value name="8">
-<Value>GenerationId</Value>
-</Value>
-<Value name="9">
-<Value>KlantId</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefOpenstaandeOrdersResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/dto/OrderLijn.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalenAlsOrder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefOrdersRequest.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38557 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalen.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefLeveringenResponse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38557 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Data/impl/pxHistoriek.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/enu/OrderStatus/Verwerker.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/enu/ProductGroep.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/enu/ProductGroep/Verwerker.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/enu/OrderStatus.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/enu/OrderStatus/AutoComplete.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 38567 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/enu/ProductGroep/AutoComplete.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?