Index: AX/Uitgaand/EC/Data/impl/DocumentOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Data/impl/DocumentOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Data/impl/DocumentOphalen.cls.xml	(revision 38083)
@@ -0,0 +1,174 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<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>
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="ExternalDocumentPad">
+<Default>\\cache01\AX.EC\TempDoc</Default>
+</Parameter>
+
+<Method name="test">
+<Description>
+d ##class(AX.Uitgaand.EC.Data.impl.DocumentOphalen).%New().test()</Description>
+<Implementation><![CDATA[
+	Set Aanvraag=##class(WS.Vhisie4.KlantDocument.GeefPDFRequest).%New()
+	Set Aanvraag.Header=##class(WS.Vhisie4.RequestHeader).%New()
+	Set Aanvraag.Header.KlantId=1736
+
+	Set Aanvraag.DocumentId=409656
+	Set Aanvraag.DocumentType="Factuur"
+	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 Antwoord=..GeefDocument(Aanvraag)
+	
+	D Antwoord.XMLExportToString(.string)
+	w !,string,!
+]]></Implementation>
+</Method>
+
+<Method name="GeefDocument">
+<Description>
+DocType : Factuur, Levering, Order, Offerte, PrijsLijst, Rappel
+GenerateType : PDF, XML</Description>
+<FormalSpec>Aanvraag:WS.Vhisie4.KlantDocument.GeefPDFRequest</FormalSpec>
+<ReturnType>WS.Vhisie4.KlantDocument.GeefPDFResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Antwoord=##class(WS.Vhisie4.KlantDocument.GeefPDFResponse).%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
+]]></Implementation>
+</Method>
+
+<Method name="GeefFactuur">
+<FormalSpec>Aanvraag:WS.Vhisie4.KlantDocument.GeefPDFRequest,Antwoord:WS.Vhisie4.KlantDocument.GeefPDFResponse</FormalSpec>
+<Private>1</Private>
+<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
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefLevering">
+<FormalSpec>Aanvraag:WS.Vhisie4.KlantDocument.GeefPDFRequest,Antwoord:WS.Vhisie4.KlantDocument.GeefPDFResponse</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
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrder">
+<FormalSpec>Aanvraag:WS.Vhisie4.KlantDocument.GeefPDFRequest,Antwoord:WS.Vhisie4.KlantDocument.GeefPDFResponse</FormalSpec>
+<Private>1</Private>
+<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
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefOfferte">
+<FormalSpec>Aanvraag:WS.Vhisie4.KlantDocument.GeefPDFRequest,Antwoord:WS.Vhisie4.KlantDocument.GeefPDFResponse</FormalSpec>
+<Private>1</Private>
+<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
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AX.UitgaanAF18.DocumentOph9A77D</DataLocation>
+<DefaultData>DocumentOphalenDefaultData</DefaultData>
+<IdLocation>^AX.UitgaanAF18.DocumentOph9A77D</IdLocation>
+<IndexLocation>^AX.UitgaanAF18.DocumentOph9A77I</IndexLocation>
+<StreamLocation>^AX.UitgaanAF18.DocumentOph9A77S</StreamLocation>
+<Data name="DocumentOphalenDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WS/Vhisie4/KlantDocument/GeefPDFRequest.cls.xml
===================================================================
diff -u -r37919 -r38083
--- WS/Vhisie4/KlantDocument/GeefPDFRequest.cls.xml	(.../GeefPDFRequest.cls.xml)	(revision 37919)
+++ WS/Vhisie4/KlantDocument/GeefPDFRequest.cls.xml	(.../GeefPDFRequest.cls.xml)	(revision 38083)
@@ -24,6 +24,11 @@
 <Parameter name="VALUELIST" value=",Order,Offerte,Factuur,Levering"/>
 </Property>
 
+<Property name="ResultaatType">
+<Type>TECH.String</Type>
+<Parameter name="VALUELIST" value=",PDF,XML4XLS"/>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>GeefPDFRequestState</State>
@@ -40,6 +45,9 @@
 <Value name="3">
 <Value>DocumentType</Value>
 </Value>
+<Value name="4">
+<Value>ResultaatType</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/GeefPDFResponse.cls.xml
===================================================================
diff -u -r37928 -r38083
--- WS/Vhisie4/KlantDocument/GeefPDFResponse.cls.xml	(.../GeefPDFResponse.cls.xml)	(revision 37928)
+++ WS/Vhisie4/KlantDocument/GeefPDFResponse.cls.xml	(.../GeefPDFResponse.cls.xml)	(revision 38083)
@@ -7,6 +7,14 @@
 <Type>%FileBinaryStream</Type>
 </Property>
 
+<Property name="Bestandsnaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Status">
+<Type>%String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>GeefPDFResponseState</State>
@@ -15,6 +23,12 @@
 <Value name="1">
 <Value>Document</Value>
 </Value>
+<Value name="2">
+<Value>Bestandsnaam</Value>
+</Value>
+<Value name="3">
+<Value>Status</Value>
+</Value>
 </Data>
 </Storage>
 </Class>