Index: AX/Uitgaand/EC/Klanten/impl/Klanten.cls.xml
===================================================================
diff -u -r36472 -r38273
--- AX/Uitgaand/EC/Klanten/impl/Klanten.cls.xml	(.../Klanten.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Klanten/impl/Klanten.cls.xml	(.../Klanten.cls.xml)	(revision 38273)
@@ -108,6 +108,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="LaatsteGenerationID">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	&SQL(Select MAX(GenerationID) into :GenerationID From AX_Uitgaand_EC_Klanten_impl.Klanten) 
+	Quit GenerationID
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^AX.Uitgaand.EC.Kla7BD6.KlantenD</DataLocation>
Index: WS/Vhisie4/KlantDocument/dto/OpenstaandeFacturen.cls.xml
===================================================================
diff -u -r38270 -r38273
--- WS/Vhisie4/KlantDocument/dto/OpenstaandeFacturen.cls.xml	(.../OpenstaandeFacturen.cls.xml)	(revision 38270)
+++ WS/Vhisie4/KlantDocument/dto/OpenstaandeFacturen.cls.xml	(.../OpenstaandeFacturen.cls.xml)	(revision 38273)
@@ -8,10 +8,30 @@
 <Parameter name="XMLNAME" value="FactuurID"/>
 </Property>
 
-<Property name="Bedrag">
+<Property name="FactuurBedrag">
 <Type>%Decimal</Type>
 </Property>
 
+<Property name="FactuurDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="VervalDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="OpenstaandBedrag">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="AantalHerinneringen">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Munt">
+<Type>%String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>OpenstaandeFacturenState</State>
@@ -23,6 +43,27 @@
 <Value name="2">
 <Value>FactuurId</Value>
 </Value>
+<Value name="3">
+<Value>FactuurBedrag</Value>
+</Value>
+<Value name="4">
+<Value>FactuurDatum</Value>
+</Value>
+<Value name="5">
+<Value>VervalDatum</Value>
+</Value>
+<Value name="6">
+<Value>OpenstaandBedrag</Value>
+</Value>
+<Value name="7">
+<Value>AantalRappels</Value>
+</Value>
+<Value name="8">
+<Value>AantalHerinneringen</Value>
+</Value>
+<Value name="9">
+<Value>Munt</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/GeefVerkoopHistoriekRequest.cls.xml
===================================================================
diff -u -r38135 -r38273
--- WS/Vhisie4/KlantDocument/GeefVerkoopHistoriekRequest.cls.xml	(.../GeefVerkoopHistoriekRequest.cls.xml)	(revision 38135)
+++ WS/Vhisie4/KlantDocument/GeefVerkoopHistoriekRequest.cls.xml	(.../GeefVerkoopHistoriekRequest.cls.xml)	(revision 38273)
@@ -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>
Index: AX/Uitgaand/EC/Data/impl/PakketRefOphalen.cls.xml
===================================================================
diff -u -r37882 -r38273
--- AX/Uitgaand/EC/Data/impl/PakketRefOphalen.cls.xml	(.../PakketRefOphalen.cls.xml)	(revision 37882)
+++ AX/Uitgaand/EC/Data/impl/PakketRefOphalen.cls.xml	(.../PakketRefOphalen.cls.xml)	(revision 38273)
@@ -11,66 +11,90 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Data">
+<Property name="PakketRefs">
+<Type>AX.Uitgaand.EC.Data.impl.pxPakketRefItem</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="Request">
+<Type>WS.Vhisie4.KlantProduct.GeefKlantProductReferentiesRequest</Type>
+</Property>
+
+<Property name="Response">
 <Type>WS.Vhisie4.KlantProduct.GeefKlantProductReferentiesResponse</Type>
 </Property>
 
-<Property name="GenerationID">
+<Property name="Historiek">
+<Type>WS.Vhisie4.KlantDocument.dto.HistoriekItem</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="GenerationId">
 <Type>%String</Type>
 </Property>
 
-<Property name="KlantID">
+<Property name="KlantId">
 <Type>%String</Type>
 </Property>
 
 <Method name="test">
 <Description>
 d ##class(AX.Uitgaand.EC.Data.impl.PakketRefOphalen).test()</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>KlantID:%String=4875</FormalSpec>
+<FormalSpec>KlantID:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set GenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
-	Set bl=..%New(KlantID,"N",GenerationID,"sessie")
+	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.GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set request.Header.Taal="N"
+	Set request.Header.SessieId="xx"
+	Set bl=..%New(request)
 	;Do DumpObject^%apiOBJ(bl.Historiek)
-	Do ObjToXMLFile^vhLib(bl.GeefData(),"\\notes01\shared\P V\EC PakketRef "_KlantID_".xml")
+	D bl.GeefResponse().XMLExport(,"literal,indent")
 ]]></Implementation>
 </Method>
 
 <Method name="%OnNew">
-<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,SessionID:%String</FormalSpec>
+<FormalSpec>Request</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set Timer=##class(TECH.Timing.Timer).%New("")
 	Do Timer.Start()
 
-	Set ..KlantID=KlantID
-	Set ..GenerationID=GenerationID
+	Set ..Request=Request
+	Set ..KlantId=..Request.Header.KlantId
+	Set ..GenerationId=..Request.Header.GenerationId
+	Set:..GenerationId="" ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 	
-	Set ..Data=##class(WS.Vhisie4.KlantProduct.GeefKlantProductReferentiesResponse).%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 ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
 	
 	Do ..GenereerLijst()	
 	
-	Set ..Data.Tijd=Timer.Stop()\1
+	Set ..Response.Tijd=Timer.Stop()\1
 
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefData">
+<Method name="GeefResponse">
 <ReturnType>WS.Vhisie4.KlantProduct.GeefKlantProductReferentiesResponse</ReturnType>
-<Implementation><![CDATA[	Quit ..Data
+<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=..PakketRefs
+
+	Quit ..Response
 ]]></Implementation>
 </Method>
 
 <Method name="GenereerLijst">
 <Implementation><![CDATA[
 	Set Pakket="" 
-	For  Set Pakket=$O(^PAKKET("IK",..KlantID,Pakket)) Quit:Pakket=""  Do
-	. Set PakNr=^PAKKET("IK",..KlantID,Pakket),R=^PAKKET("D",PakNr),PakCode=$P(R,"\",2),PakOms=$P(R,"\",4)
+	For  Set Pakket=$O(^PAKKET("IK",..KlantId,Pakket)) Quit:Pakket=""  Do
+	. Set PakNr=^PAKKET("IK",..KlantId,Pakket),R=^PAKKET("D",PakNr),PakCode=$P(R,"\",2),PakOms=$P(R,"\",4)
 	. Quit:'..CheckValidPakket(PakNr)
 	. Do ..ToevoegenPakket(PakNr)
 ]]></Implementation>
@@ -104,7 +128,7 @@
 	. Set pxProduct.Multiplier=$P(^PAKKET("D",PakNr,PRNr),"\")
 	. Do pxItem.Producten.Insert(pxProduct)
 	Set:pxItem.Producten.Count()>1 pxItem.MultiProduct=1
-	Do ..Data.Lijst.Insert(pxItem)
+	Do ..PakketRefs.Insert(pxItem)
 ]]></Implementation>
 </Method>
 </Class>
Index: BL/Sys/FOP/CommonTasks.cls.xml
===================================================================
diff -u -r31641 -r38273
--- BL/Sys/FOP/CommonTasks.cls.xml	(.../CommonTasks.cls.xml)	(revision 31641)
+++ BL/Sys/FOP/CommonTasks.cls.xml	(.../CommonTasks.cls.xml)	(revision 38273)
@@ -364,6 +364,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefUniekePlaceholderZTS">
+<Description><![CDATA[
+Unieke naam met placeholder wordt zo doorgegeven voor de FTP-transfert van bestand. 
+Via de placeholder kunnen alle bestanden met dezelfde naam (placeholder --> "*") verwijderd worden. ]]></Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "[zts:"_$TR($zts,",.","")_"]"
+]]></Implementation>
+</Method>
+
+<Method name="VervangPlaceholderZTSDoorWaarde">
+<Description>
+Deze method is gerelateerd aan GeefUniekeNaamMetPlaceholder() 
+Via deze method kan de placeholder vervangen worden door :    
+ - ofwel zijn voorziene waarde : parameter "VervangWaarde" moet leeg zijn 
+ - ofwel de opgegeven parameter VervangWaarde : moet ingevuld zijn        </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>NaamMetPlaceholder:%String,VervangWaarde:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Naam=""
+	If (NaamMetPlaceholder [ "[zts:") {
+		Set PlaceholderWaarde=$$$TextBetween(NaamMetPlaceholder,"[zts:","]")
+		If VervangWaarde="" {
+			Set VervangWaarde=PlaceholderWaarde
+		}
+		Set Naam=$$$Replace(NaamMetPlaceholder,"[zts:"_PlaceholderWaarde_"]",VervangWaarde)
+	}
+	Else {
+		Set Naam=NaamMetPlaceholder
+	}
+	Quit Naam
+]]></Implementation>
+</Method>
+
 <Method name="LoggedOnUserPath">
 <Description>
 Geeft het pad van de gebruiker die aangelogd is op het systeem via TELNET sessie</Description>
Index: WS/Vhisie4/KlantDocument/GeefDocumentResponse.cls.xml
===================================================================
diff -u -r38134 -r38273
--- WS/Vhisie4/KlantDocument/GeefDocumentResponse.cls.xml	(.../GeefDocumentResponse.cls.xml)	(revision 38134)
+++ WS/Vhisie4/KlantDocument/GeefDocumentResponse.cls.xml	(.../GeefDocumentResponse.cls.xml)	(revision 38273)
@@ -3,10 +3,42 @@
 <Class name="WS.Vhisie4.KlantDocument.GeefDocumentResponse">
 <Super>%SerialObject,%XML.Adaptor</Super>
 
+<Property name="RequestId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="RequestID"/>
+</Property>
+
+<Property name="SessieId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="SessieID"/>
+</Property>
+
+<Property name="GenerationId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="GenerationID"/>
+</Property>
+
+<Property name="KlantId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="KlantID"/>
+</Property>
+
+<Property name="Tijd">
+<Type>%Integer</Type>
+</Property>
+
 <Property name="Bestandsnaam">
 <Type>%String</Type>
 </Property>
 
+<Property name="URL">
+<Type>%String</Type>
+</Property>
+
 <Property name="Status">
 <Type>%String</Type>
 </Property>
@@ -25,6 +57,24 @@
 <Value name="3">
 <Value>Status</Value>
 </Value>
+<Value name="4">
+<Value>KlantId</Value>
+</Value>
+<Value name="5">
+<Value>SessieId</Value>
+</Value>
+<Value name="6">
+<Value>RequestId</Value>
+</Value>
+<Value name="7">
+<Value>Tijd</Value>
+</Value>
+<Value name="8">
+<Value>URL</Value>
+</Value>
+<Value name="9">
+<Value>GenerationId</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantProduct/KlantProductService.cls.xml
===================================================================
diff -u -r37882 -r38273
--- WS/Vhisie4/KlantProduct/KlantProductService.cls.xml	(.../KlantProductService.cls.xml)	(revision 37882)
+++ WS/Vhisie4/KlantProduct/KlantProductService.cls.xml	(.../KlantProductService.cls.xml)	(revision 38273)
@@ -21,8 +21,8 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	Do ..ValidateSessie(Request.Header.SessieId, Request.Header.KlantId)
-	Set bl=##class(AX.Uitgaand.EC.Data.impl.PakketRefOphalen).%New(Request.Header.KlantId, Request.Header.Taal, Request.GenerationId, Request.Header.SessieId)
-	Quit bl.GeefData()
+	Set bl=##class(AX.Uitgaand.EC.Data.impl.PakketRefOphalen).%New(Request)
+	Quit bl.GeefResponse()
 ]]></Implementation>
 </Method>
 
Index: WS/Vhisie4/RequestHeader.cls.xml
===================================================================
diff -u -r37912 -r38273
--- WS/Vhisie4/RequestHeader.cls.xml	(.../RequestHeader.cls.xml)	(revision 37912)
+++ WS/Vhisie4/RequestHeader.cls.xml	(.../RequestHeader.cls.xml)	(revision 38273)
@@ -20,6 +20,12 @@
 <Parameter name="XMLNAME" value="SessieID"/>
 </Property>
 
+<Property name="GenerationId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="GenerationID"/>
+</Property>
+
 <Property name="GebruikerId">
 <Type>TECH.String</Type>
 <Required>1</Required>
@@ -83,6 +89,9 @@
 <Value name="8">
 <Value>Taal</Value>
 </Value>
+<Value name="9">
+<Value>GenerationId</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/GeefVerkoopHistoriekResponse.cls.xml
===================================================================
diff -u -r37863 -r38273
--- WS/Vhisie4/KlantDocument/GeefVerkoopHistoriekResponse.cls.xml	(.../GeefVerkoopHistoriekResponse.cls.xml)	(revision 37863)
+++ WS/Vhisie4/KlantDocument/GeefVerkoopHistoriekResponse.cls.xml	(.../GeefVerkoopHistoriekResponse.cls.xml)	(revision 38273)
@@ -8,18 +8,30 @@
 <Default>1</Default>
 </Parameter>
 
-<Property name="KlantID">
-<Type>%String</Type>
+<Property name="RequestId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="RequestID"/>
 </Property>
 
-<Property name="SessionID">
-<Type>%String</Type>
+<Property name="SessieId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="SessieID"/>
 </Property>
 
-<Property name="GenerationID">
-<Type>%String</Type>
+<Property name="GenerationId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="GenerationID"/>
 </Property>
 
+<Property name="KlantId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="KlantID"/>
+</Property>
+
 <Property name="Tijd">
 <Type>%Integer</Type>
 </Property>
@@ -51,6 +63,18 @@
 <Value name="5">
 <Value>Lijst</Value>
 </Value>
+<Value name="6">
+<Value>KlantId</Value>
+</Value>
+<Value name="7">
+<Value>SessieId</Value>
+</Value>
+<Value name="8">
+<Value>RequestId</Value>
+</Value>
+<Value name="9">
+<Value>GenerationId</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantProduct/GeefKlantProductReferentiesResponse.cls.xml
===================================================================
diff -u -r37864 -r38273
--- WS/Vhisie4/KlantProduct/GeefKlantProductReferentiesResponse.cls.xml	(.../GeefKlantProductReferentiesResponse.cls.xml)	(revision 37864)
+++ WS/Vhisie4/KlantProduct/GeefKlantProductReferentiesResponse.cls.xml	(.../GeefKlantProductReferentiesResponse.cls.xml)	(revision 38273)
@@ -3,18 +3,30 @@
 <Class name="WS.Vhisie4.KlantProduct.GeefKlantProductReferentiesResponse">
 <Super>%SerialObject,%XML.Adaptor</Super>
 
-<Property name="KlantID">
-<Type>%String</Type>
+<Property name="RequestId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="RequestID"/>
 </Property>
 
-<Property name="SessionID">
-<Type>%String</Type>
+<Property name="SessieId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="SessieID"/>
 </Property>
 
-<Property name="GenerationID">
-<Type>%String</Type>
+<Property name="GenerationId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="GenerationID"/>
 </Property>
 
+<Property name="KlantId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="KlantID"/>
+</Property>
+
 <Property name="Tijd">
 <Type>%Integer</Type>
 </Property>
@@ -48,6 +60,18 @@
 <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>
Index: WS/Vhisie4/KlantDocument/GeefOpenstaandeFacturenResponse.cls.xml
===================================================================
diff -u -r38270 -r38273
--- WS/Vhisie4/KlantDocument/GeefOpenstaandeFacturenResponse.cls.xml	(.../GeefOpenstaandeFacturenResponse.cls.xml)	(revision 38270)
+++ WS/Vhisie4/KlantDocument/GeefOpenstaandeFacturenResponse.cls.xml	(.../GeefOpenstaandeFacturenResponse.cls.xml)	(revision 38273)
@@ -3,6 +3,34 @@
 <Class name="WS.Vhisie4.KlantDocument.GeefOpenstaandeFacturenResponse">
 <Super>%SerialObject,%XML.Adaptor</Super>
 
+<Property name="RequestId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="RequestID"/>
+</Property>
+
+<Property name="SessieId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="SessieID"/>
+</Property>
+
+<Property name="GenerationId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="GenerationID"/>
+</Property>
+
+<Property name="KlantId">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLNAME" value="KlantID"/>
+</Property>
+
+<Property name="Tijd">
+<Type>%Integer</Type>
+</Property>
+
 <Property name="Facturen">
 <Type>WS.Vhisie4.KlantDocument.dto.OpenstaandeFacturen</Type>
 <Collection>list</Collection>
@@ -18,6 +46,33 @@
 <Value name="1">
 <Value>Facturen</Value>
 </Value>
+<Value name="2">
+<Value>KlantID</Value>
+</Value>
+<Value name="3">
+<Value>SessionID</Value>
+</Value>
+<Value name="4">
+<Value>GenerationID</Value>
+</Value>
+<Value name="5">
+<Value>Tijd</Value>
+</Value>
+<Value name="6">
+<Value>KlantId</Value>
+</Value>
+<Value name="7">
+<Value>SessionId</Value>
+</Value>
+<Value name="8">
+<Value>RequestId</Value>
+</Value>
+<Value name="9">
+<Value>SessieId</Value>
+</Value>
+<Value name="10">
+<Value>GenerationId</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: AX/Uitgaand/EC/Data/impl/OpenstaandeFacturenOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/OpenstaandeFacturenOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/OpenstaandeFacturenOphalen.cls.xml	(revision 38273)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Data.impl.OpenstaandeFacturenOphalen">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="Facturen">
+<Type>WS.Vhisie4.KlantDocument.dto.OpenstaandeFacturen</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="Request">
+<Type>WS.Vhisie4.KlantDocument.GeefOpenstaandeFacturenRequest</Type>
+</Property>
+
+<Property name="Response">
+<Type>WS.Vhisie4.KlantDocument.GeefOpenstaandeFacturenResponse</Type>
+</Property>
+
+<Method name="test">
+<Description>
+d ##class(AX.Uitgaand.EC.Data.impl.OpenstaandeFacturenOphalen).test(1736)
+SFS 12486
+DuPont 1736</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantID:%String</FormalSpec>
+<Implementation><![CDATA[
+	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=..%New(request)
+	;Do DumpObject^%apiOBJ(bl.Historiek)
+	D bl.GeefResponse().XMLExport(,"literal,indent")
+	Do ObjToXMLFile^vhLib(bl.GeefResponse(),"\\notes01\shared\P V\EC Facturen "_KlantID_".xml")
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefOpenstaandeFacturenRequest</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
+
+	Set ..Request=Request
+	
+	Do ..GenereerLijst()	
+
+	Set ..Response.Tijd=Timer.Stop()\1
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenereerLijst">
+<Implementation><![CDATA[
+	
+	set Repository = ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
+	#dim Iterator As TECH.Iterator = Repository.ZoekViaKlantID("K||"_..Request.Header.KlantId)
+	while Iterator.HasNext() {
+		#dim OpenstaandeFactuur As DOM.BKH.OpenstaandeFactuur = Iterator.Next()
+		set dtoOpenstaandeFactuur = ##class(WS.Vhisie4.KlantDocument.dto.OpenstaandeFacturen).%New()
+		set dtoOpenstaandeFactuur.FactuurId = OpenstaandeFactuur.GeefFactuurID()
+		set dtoOpenstaandeFactuur.OpenstaandBedrag = OpenstaandeFactuur.GeefNogTeBetalenInMuntKlant()
+		set dtoOpenstaandeFactuur.AantalHerinneringen = OpenstaandeFactuur.GeefAantalHerinneringen()
+		set dtoOpenstaandeFactuur.FactuurBedrag = OpenstaandeFactuur.GeefTotaalBedragInMuntKlant()
+		set dtoOpenstaandeFactuur.Munt = OpenstaandeFactuur.GeefMunt()
+		set dtoOpenstaandeFactuur.VervalDatum = OpenstaandeFactuur.GeefVervalDatum()
+		set dtoOpenstaandeFactuur.FactuurDatum = OpenstaandeFactuur.GeefFactuurDatum()
+		do ..Facturen.Insert(dtoOpenstaandeFactuur)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefResponse">
+<Implementation><![CDATA[
+	Set ..Response.SessieId=..Request.Header.SessieId
+	Set ..Response.KlantId=..Request.Header.KlantId
+	Set ..Response.RequestId=..Request.Header.RequestId
+	Set ..Response.Facturen=..Facturen
+	Quit ..Response
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml
===================================================================
diff -u -r38270 -r38273
--- WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 38270)
+++ WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 38273)
@@ -36,8 +36,8 @@
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	Do ..ValidateSessie(Request.Header.SessieId, Request.Header.KlantId)
-	Set bl = ##class(AX.Uitgaand.EC.Data.impl.HistoriekOphalen).%New(Request.Header.KlantId, ..GetGenerationId(), Request.Header.SessieId)
-	Quit bl.GeefData()
+	Set bl = ##class(AX.Uitgaand.EC.Data.impl.HistoriekOphalen).%New(Request)
+	Quit bl.GeefResponse()
 ]]></Implementation>
 </Method>
 
@@ -130,19 +130,9 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefOpenstaandeFacturenResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	set Response = ##class(WS.Vhisie4.KlantDocument.GeefOpenstaandeFacturenResponse).%New()
-	
-	set Repository = ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
-	#dim Iterator As TECH.Iterator = Repository.ZoekViaKlantID("K||"_Request.Header.KlantId)
-	while Iterator.HasNext() {
-		#dim OpenstaandeFactuur As DOM.BKH.OpenstaandeFactuur = Iterator.Next()
-		set dtoOpenstaandeFactuur = ##class(WS.Vhisie4.KlantDocument.dto.OpenstaandeFacturen).%New()
-		set dtoOpenstaandeFactuur.FactuurId = OpenstaandeFactuur.GeefFactuurID()
-		set dtoOpenstaandeFactuur.Bedrag = OpenstaandeFactuur.GeefNogTeBetalenInEUR()
-		do Response.Facturen.Insert(dtoOpenstaandeFactuur)
-	}
-
-	quit Response
+	Do ..ValidateSessie(Request.Header.SessieId, Request.Header.KlantId)
+	Set bl=##class(AX.Uitgaand.EC.Data.impl.OpenstaandeFacturenOphalen).%New(Request)
+	Quit bl.GeefResponse()
 ]]></Implementation>
 </Method>
 
@@ -151,9 +141,8 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefDocumentResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	set Response = ##class(WS.Vhisie4.KlantDocument.GeefDocumentResponse).%New()
-	do Response.Document.LinkToFile("E:\File.pdf")
-	quit Response
+	Set bl=##class(AX.Uitgaand.EC.Data.impl.DocumentOphalen).%New(Request)
+	quit bl.GeefResponse()
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml
===================================================================
diff -u -r37894 -r38273
--- AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 37894)
+++ AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 38273)
@@ -5,19 +5,33 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="Historiek">
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Request">
+<Type>WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekRequest</Type>
+</Property>
+
+<Property name="Response">
 <Type>WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekResponse</Type>
 </Property>
 
-<Property name="GenerationID">
+<Property name="Historiek">
+<Type>WS.Vhisie4.KlantDocument.dto.HistoriekItem</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="GenerationId">
 <Type>%String</Type>
 </Property>
 
 <Property name="AssortimentGroep">
 <Type>%String</Type>
 </Property>
 
-<Property name="KlantID">
+<Property name="KlantId">
 <Type>%String</Type>
 </Property>
 
@@ -27,48 +41,66 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantID:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set bl=##class(AX.Uitgaand.EC.Data.impl.HistoriekOphalen).%New($G(KlantID,4875),+$H,"sessie")
+	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.GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set request.Header.Taal="N"
+	Set request.Header.SessieId="xx"
+
+	Set bl=..%New(request)
 	;Do DumpObject^%apiOBJ(bl.Historiek)
-	D bl.Historiek.XMLExport(,"literal,indent")
+	D bl.GeefResponse().XMLExport(,"literal,indent")
 ]]></Implementation>
 </Method>
 
 <Method name="%OnNew">
-<FormalSpec>KlantID:%String,GenerationID:%String,SessionID:%String</FormalSpec>
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekRequest</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..KlantID=KlantID
-	Set ..GenerationID=GenerationID
-	
-	Set ..Historiek=##class(WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekResponse).%New()
-	Set ..Historiek.GenerationID=GenerationID
-	Set ..Historiek.SessionID=SessionID
-	Set ..Historiek.KlantID=KlantID
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
+
+	Set ..Request=Request
+	Set ..KlantId=..Request.Header.KlantId
+	Set ..GenerationId=..Request.Header.GenerationId
+	Set:..GenerationId="" ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 	Set ..AssortimentGroep=..GeefAssortimentGroep()
-	Do ..GenereerLijst()	
+	Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
+
+	Do ..GenereerLijst()
+		
+	Set ..Response.Tijd=Timer.Stop()\1
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefData">
+<Method name="GeefResponse">
 <ReturnType>WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekResponse</ReturnType>
-<Implementation><![CDATA[	Quit ..Historiek
+<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=..Historiek
+
+	Quit ..Response
 ]]></Implementation>
 </Method>
 
 <Method name="GenereerLijst">
 <Implementation><![CDATA[
  	Set HoofdGroep=0
  	Set LijnCnt=0
- 	For  Set HoofdGroep=$O(^KKAAP(..KlantID,HoofdGroep)) Quit:HoofdGroep=""  Do
+ 	For  Set HoofdGroep=$O(^KKAAP(..KlantId,HoofdGroep)) Quit:HoofdGroep=""  Do
 	. Set Groep=""
-	. For  Set Groep=$O(^KKAAP(..KlantID,HoofdGroep,Groep)) Quit:Groep=""  Do
+	. For  Set Groep=$O(^KKAAP(..KlantId,HoofdGroep,Groep)) Quit:Groep=""  Do
 	. . Set SubGroep=""
-	. . For  Set SubGroep=$O(^KKAAP(..KlantID,HoofdGroep,Groep,SubGroep)) Quit:SubGroep=""  Do
+	. . For  Set SubGroep=$O(^KKAAP(..KlantId,HoofdGroep,Groep,SubGroep)) Quit:SubGroep=""  Do
 	. . . Set KortText=""
-	. . . For  Set KortText=$O(^KKAAP(..KlantID,HoofdGroep,Groep,SubGroep,KortText)) Quit:KortText=""  Do
-	. . . . Set HistRec=^KKAAP(..KlantID,HoofdGroep,Groep,SubGroep,KortText)
+	. . . For  Set KortText=$O(^KKAAP(..KlantId,HoofdGroep,Groep,SubGroep,KortText)) Quit:KortText=""  Do
+	. . . . Set HistRec=^KKAAP(..KlantId,HoofdGroep,Groep,SubGroep,KortText)
 	. . . . Set PRNr=$P(HistRec,"\",15)
 	. . . . Quit:'..CheckProduct(PRNr)
 	. . . . Do ..ToevoegenHistoriek(HistRec)
@@ -82,24 +114,19 @@
 	Set pxItem.ProductID=$P(HistRec,"\",15)
 	Set pxItem.JaarAfname=$P(HistRec,"\",3)
 	Set pxItem.LaatsteDatum=$$INTDATE^vhLib.DataTypes($P(HistRec,"\",5))
-	Do ..Historiek.Lijst.Insert(pxItem)
+	Do ..Historiek.Insert(pxItem)
 ]]></Implementation>
 </Method>
 
 <Method name="CheckProduct">
 <FormalSpec>PRNr:%String</FormalSpec>
-<Implementation><![CDATA[
-	Quit:PRNr'?4.9N 0
-	Quit:'$D(^KPR(PRNr)) 0
-	Quit:##class(AX.Uitgaand.EC.Assortiment.impl.KlantAssortiment).%ExistsId(..GenerationID_"||"_PRNr_"||"_..KlantID) 1
-	Quit:##class(AX.Uitgaand.EC.Assortiment.impl.BasisAssortiment).%ExistsId(..GenerationID_"||"_PRNr_"||"_..AssortimentGroep) 1
-	Quit 0
+<Implementation><![CDATA[	Quit ..ProductValidator.InAssortiment(PRNr)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefAssortimentGroep">
 <Implementation><![CDATA[
-	Set Klant = ##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%OpenId(..GenerationID_"||"_..KlantID)
+	Set Klant = ##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%OpenId(..GenerationId_"||"_..KlantId)
 	Quit Klant.AssortimentGroep
 ]]></Implementation>
 </Method>
Index: BL/EC/Data.cls.xml
===================================================================
diff -u -r38094 -r38273
--- BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 38094)
+++ BL/EC/Data.cls.xml	(.../Data.cls.xml)	(revision 38273)
@@ -3184,7 +3184,7 @@
 </Parameter>
 
 <Parameter name="DocumentPadCache">
-<Default>f:\AX.EC\TempDoc</Default>
+<Default>\\cache01\AX.EC\TempDoc</Default>
 </Parameter>
 
 <Method name="GetDocumentURL">
@@ -3196,6 +3196,7 @@
 <FormalSpec>URLKey,Toegang,RecordType,DocNr,KlantNr</FormalSpec>
 <ReturnType>BL.EC.pxDocLink</ReturnType>
 <Implementation><![CDATA[
+	
 	#Define errCannotOpenDoc      "PR:CannotOpenDoc"
 	#Define errOfferteIsOngeldig   "OfferteIsOngeldig"
 	
Index: AX/Uitgaand/EC/Service.cls.xml
===================================================================
diff -u -r38084 -r38273
--- AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 38084)
+++ AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 38273)
@@ -45,7 +45,7 @@
 		Set ..ExportDefaults=##class(AX.Uitgaand.EC.impl.ExportDefaults).%New()
 	}
 	Set ..ExportSamenvatting=##class(AX.Uitgaand.EC.impl.ExportSamenvatting).%New(..ExportDefaults)
-	Set ..ExportDefaults.NewGenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set ..ExportDefaults.NewGenerationID=+$H ;##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 	Set ..Tijdstip=$zdt($H,3)
 	Set ..Debug=1
 	Quit $$$OK
Index: AX/Uitgaand/EC/Data/impl/DocumentOphalen.cls.xml
===================================================================
diff -u -r38134 -r38273
--- AX/Uitgaand/EC/Data/impl/DocumentOphalen.cls.xml	(.../DocumentOphalen.cls.xml)	(revision 38134)
+++ AX/Uitgaand/EC/Data/impl/DocumentOphalen.cls.xml	(.../DocumentOphalen.cls.xml)	(revision 38273)
@@ -3,153 +3,103 @@
 <Class name="AX.Uitgaand.EC.Data.impl.DocumentOphalen">
 <Description>
 Aan DocBase vragen om document te berekenen (PDF of XML) en dit als BLOB in een XML opnemen</Description>
+<IncludeCode>BL.EC.Common</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
-<Parameter name="ExternalDocumentPad">
-<Default>\\cache01\AX.EC\TempDoc</Default>
-</Parameter>
+<Property name="Request">
+<Type>WS.Vhisie4.KlantDocument.GeefDocumentRequest</Type>
+</Property>
 
+<Property name="Response">
+<Type>WS.Vhisie4.KlantDocument.GeefDocumentResponse</Type>
+</Property>
+
+<Property name="DocURL">
+<Type>BL.EC.pxDocLink</Type>
+</Property>
+
 <Method name="test">
 <Description>
-d ##class(AX.Uitgaand.EC.Data.impl.DocumentOphalen).%New().test()</Description>
+d ##class(AX.Uitgaand.EC.Data.impl.DocumentOphalen).test()</Description>
+<ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	Set Aanvraag=##class(WS.Vhisie4.KlantDocument.GeefDocumentRequest).%New()
 	Set Aanvraag.Header=##class(WS.Vhisie4.RequestHeader).%New()
 	Set Aanvraag.Header.KlantId=1736
+	Set Aanvraag.Header.Taal="N"
 
-	Set Aanvraag.DocumentId=409656
+	Set Aanvraag.DocumentId=591298
 	Set Aanvraag.DocumentType="Factuur"
-	Set Aanvraag.DocumentId=315652
-	Set Aanvraag.DocumentType="Levering"
+	Set Aanvraag.ResultaatType="PDF"
+	;Set Aanvraag.DocumentId=315652
+	;Set Aanvraag.DocumentType="Levering"
 	
 	;Set Aanvraag.DocumentId=166946
 	;Set Aanvraag.DocumentType="Order"
-	Set Aanvraag.DocumentId="573781"
-	Set Aanvraag.DocumentType="Offerte"
+	;Set Aanvraag.DocumentId="573781"
+	;Set Aanvraag.DocumentType="Offerte"
 
-	Set Antwoord=..GeefDocument(Aanvraag)
+	Set bl=..%New(Aanvraag)
 	
-	D Antwoord.XMLExportToString(.string)
-	w !,string,!
+	D bl.GeefResponse().XMLExport(,"literal,indent")
+	D bl.DocURL.XMLExport(,"literal,indent")
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDocument">
+<Method name="%OnNew">
 <Description>
 DocType : Factuur, Levering, Order, Offerte, PrijsLijst, Rappel
 GenerateType : PDF, XML</Description>
-<FormalSpec>Aanvraag:WS.Vhisie4.KlantDocument.GeefDocumentRequest</FormalSpec>
-<ReturnType>WS.Vhisie4.KlantDocument.GeefDocumentResponse</ReturnType>
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefDocumentRequest</FormalSpec>
+<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Antwoord=##class(WS.Vhisie4.KlantDocument.GeefDocumentResponse).%New()
-	If Aanvraag.DocumentType="Factuur"
-	{
-		Do ..GeefFactuur(Aanvraag,Antwoord)
-	}
-	ElseIf Aanvraag.DocumentType="Levering"
-	{
-		Do ..GeefLevering(Aanvraag,Antwoord)
-	}
-	ElseIf Aanvraag.DocumentType="Order"
-	{
-		Do ..GeefOrder(Aanvraag,Antwoord)
-	}
-	ElseIf Aanvraag.DocumentType="Offerte"
-	{
-		Do ..GeefOfferte(Aanvraag,Antwoord)
-	}
-	Else ; Onbekend type
-	{
-		Set Antwoord.Status="Onbekend documenttype "_Aanvraag.DocumentType
-	}
-	Quit Antwoord
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
+
+	Set ..Request=Request
+	
+	Do ..GenereerDocument()	
+
+	Set ..Response.Tijd=Timer.Stop()\1
+	
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefFactuur">
-<FormalSpec>Aanvraag:WS.Vhisie4.KlantDocument.GeefDocumentRequest,Antwoord:WS.Vhisie4.KlantDocument.GeefDocumentResponse</FormalSpec>
-<Private>1</Private>
+<Method name="GenereerDocument">
 <Implementation><![CDATA[
-	Set Antwoord.Status=##class(BL.Flow.Factuur.Doc).ValidateFactNr("F",Aanvraag.DocumentId,Aanvraag.Header.KlantId)
-	If $$$ISOK(Antwoord.Status)
-	{
-		Set FileName="FAC"_Aanvraag.DocumentId
-		Set Extensie="pdf"
-		Set UniekeFileName=FileName_" "_$zdt($H,-2)
-		Set FilePad=$$FULLPAD^vhDEV(..#ExternalDocumentPad,UniekeFileName_"."_Extensie)
-		Set Antwoord.Status=##class(BL.Flow.Factuur.Doc).RenderAndFileDoc(Aanvraag.DocumentId,"F",,.FilePad)
-		If $$$ISOK(Antwoord.Status)
-		{
-			Do Antwoord.Document.LinkToFile(FilePad)
-			Set Antwoord.Bestandsnaam=FileName_"."_Extensie
-		}
-	}
+	Set %Taal=..Request.Header.Taal
+	Set %ECSession=##class(Derde.EC.Session).%New()
+	Set %ECSession.Taal=%Taal
+	Set ..DocURL=##class(BL.EC.Data).%New().GetDocumentURL(..Request.Header.SessieId,..GeefDocumentType(),..GeefResultaatType(),..Request.DocumentId,..Request.Header.KlantId)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLevering">
-<FormalSpec>Aanvraag:WS.Vhisie4.KlantDocument.GeefDocumentRequest,Antwoord:WS.Vhisie4.KlantDocument.GeefDocumentResponse</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-
-	Set Antwoord.Status=##class(BL.Flow.Levering.Doc).ValidateBONNr(Aanvraag.DocumentId,Aanvraag.Header.KlantId)
-	If $$$ISOK(Antwoord.Status)
-	{
-		Set FileName="LEV"_Aanvraag.DocumentId
-		Set Extensie="pdf"
-		Set UniekeFileName=FileName_" "_$zdt($H,-2)
-		Set FilePad=$$FULLPAD^vhDEV(..#ExternalDocumentPad,UniekeFileName_"."_Extensie)
-		Set Antwoord.Status=##class(BL.Flow.Levering.Doc).RenderAndFileDoc(Aanvraag.DocumentId,.FilePad)
-		If $$$ISOK(Antwoord.Status)
-		{
-			Do Antwoord.Document.LinkToFile(FilePad)
-			Set Antwoord.Bestandsnaam=FileName_"."_Extensie
-		}
-	}
+<Method name="GeefResultaatType">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Request.ResultaatType
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOrder">
-<FormalSpec>Aanvraag:WS.Vhisie4.KlantDocument.GeefDocumentRequest,Antwoord:WS.Vhisie4.KlantDocument.GeefDocumentResponse</FormalSpec>
-<Private>1</Private>
+<Method name="GeefDocumentType">
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-
-	Set Antwoord.Status=##class(BL.Flow.Order.Doc).ValidateORDNr(Aanvraag.DocumentId,Aanvraag.Header.KlantId)
-	If $$$ISOK(Antwoord.Status)
-	{
-		Set FileName="ORD"_Aanvraag.DocumentId
-		Set Extensie="pdf"
-		Set UniekeFileName=FileName_" "_$zdt($H,-2)
-		Set FilePad=$$FULLPAD^vhDEV(..#ExternalDocumentPad,UniekeFileName_"."_Extensie)
-		Set Antwoord.Status=##class(BL.Flow.Order.Doc).RenderAndFileDoc(Aanvraag.DocumentId,.FilePad)
-		If $$$ISOK(Antwoord.Status)
-		{
-			Do Antwoord.Document.LinkToFile(FilePad)
-			Set Antwoord.Bestandsnaam=FileName_"."_Extensie
-		}
-	}
+	Set Type=..Request.DocumentType
+	Quit:Type="Factuur" $$$tgFactuur
+	Quit:Type="Order" $$$tgOrder
+	Quit:Type="Levering" $$$tgUitlevering
+	Quit:Type="Offerte" $$$tgOfferte
+	Quit:Type="Prijslijst" $$$tgPrijsLijst
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOfferte">
-<FormalSpec>Aanvraag:WS.Vhisie4.KlantDocument.GeefDocumentRequest,Antwoord:WS.Vhisie4.KlantDocument.GeefDocumentResponse</FormalSpec>
-<Private>1</Private>
+<Method name="GeefResponse">
 <Implementation><![CDATA[
-
-	Set Antwoord.Status=##class(BL.Flow.Offerte.Doc).ValidateOFFNr(Aanvraag.DocumentId,Aanvraag.Header.KlantId)
-	If $$$ISOK(Antwoord.Status)
-	{
-		Set FileName="OFF"_Aanvraag.DocumentId
-		Set Extensie="pdf"
-		Set UniekeFileName=FileName_" "_$zdt($H,-2)
-		Set FilePad=$$FULLPAD^vhDEV(..#ExternalDocumentPad,UniekeFileName_"."_Extensie)
-		Set Antwoord.Status=##class(BL.Flow.Offerte.Doc).RenderAndFileDoc("O-"_Aanvraag.DocumentId,.FilePad)
-		If $$$ISOK(Antwoord.Status)
-		{
-			Do Antwoord.Document.LinkToFile(FilePad)
-			Set Antwoord.Bestandsnaam=FileName_"."_Extensie
-		}
-	}
+	Set ..Response.SessieId=..Request.Header.SessieId
+	Set ..Response.KlantId=..Request.Header.KlantId
+	Set ..Response.RequestId=..Request.Header.RequestId
+	Set ..Response.URL=..DocURL.DocURL
+	Quit ..Response
 ]]></Implementation>
 </Method>