Index: APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml
===================================================================
diff -u -r32446 -r32486
--- APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 32446)
+++ APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 32486)
@@ -89,8 +89,8 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..Document.Header.Amounts.Totals.TotalAmount = $fnumber(..KvikFactuur.GeefTotaalTeBetalen(),"",2)
-	Set ..Document.Header.Amounts.Totals.TotalTaxableAmount = "0.00" 	; $fnumber(KvikFactuur.GeefTotaalBelastbaar(),"",2)
-	Set ..Document.Header.Amounts.Totals.TotalTaxAmount = "0.00" 		; $fnumber(KvikFactuur.GeefTotaalBTW(),"",2)
+	Set ..Document.Header.Amounts.Totals.TotalTaxableAmount = "0.00"
+	Set ..Document.Header.Amounts.Totals.TotalTaxAmount = "0.00"
 	Set ..Document.Header.Amounts.Totals.TotalLineAmount = $fnumber(..KvikFactuur.GeefTotaalGoederen(),"",2)
 ]]></Implementation>
 </Method>
Index: APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml
===================================================================
diff -u -r32416 -r32486
--- APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 32416)
+++ APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 32486)
@@ -32,6 +32,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="Document">
+<Type>APPS.EDIExport.FactuurVerzender.Kvik.XML.KvikCustomInvoice</Type>
+</Property>
+
 <Property name="FtpConfiguratie">
 <Type>TECH.Ftp.FtpConfiguratie</Type>
 </Property>
@@ -70,9 +74,12 @@
 		
 		Do ..ZetConfiguratie()
 
+		Do ..ConverteerDocument()
+
 		Do ..SchrijfNaarXmlBestand(..GeefBestandVolledigeNaam())
+
 		Do ..FtpAPI.Connecteer(..FtpConfiguratie)
-		Do ..FtpAPI.VerzendBestand(..GeefBestandVolledigeNaam(),..ServerBestandsNaam)
+		Do ..FtpAPI.VerzendStream(..GeefXMLStream(),..ServerBestandsNaam)
 		Do ..FtpAPI.VerbreekVerbinding()
 		Do ..KopieerNaar("Archief")
 	} Catch {
@@ -83,6 +90,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefXMLStream">
+<Private>1</Private>
+<ReturnType>%Stream</ReturnType>
+<Implementation><![CDATA[
+	Set Stream=##class(%GlobalCharacterStream).%New()
+
+	Set writer=##class(%XML.Writer).%New()
+	Set writer.Charset="UTF-8"
+	Set writer.Indent=1
+	Set sc=writer.OutputToStream(Stream)
+	Set sc=writer.RootObject( ..Document,"KvikCustomInvoice")
+	Set writer=""
+
+	Quit Stream
+]]></Implementation>
+</Method>
+
 <Method name="ZetConfiguratie">
 <Implementation><![CDATA[
 		Set ..BestandLocatie = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"),"Kvik\EdiFactuur") 
@@ -123,20 +147,25 @@
 ]]></Implementation>
 </Method>
 
-<Method name="SchrijfNaarXmlBestand">
-<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<Method name="ConverteerDocument">
 <Private>1</Private>
 <Implementation><![CDATA[
 	if (..KvikFactuur.GeefKlantID() '= ##class(DOM.VKP.enu.Klant).Kvik()) {
 		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Foutieve klant voor kvik factuur export : "_..KvikFactuur.GeefKlantNr())
 	}
 	
 	#dim ConverteerDocument As APPS.EDIExport.FactuurVerzender.impl.Kvik.Converteerder = ##class(APPS.EDIExport.FactuurVerzender.impl.Kvik.Converteerder).%New()
-	#dim Document As APPS.EDIExport.FactuurVerzender.Kvik.XML.KvikCustomInvoice = ConverteerDocument.ConverteerDocument(..KvikFactuur)
-	
+	Set ..Document = ConverteerDocument.ConverteerDocument(..KvikFactuur)
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfNaarXmlBestand">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	#dim FileWriter As TECH.File.FileWriter = ..FileAPI.GeefFileWriter()
 	do FileWriter.Open(BestandVolledigeNaam)
-	do FileWriter.WriteXML(Document)
+	do FileWriter.WriteXML(..Document)
 	do FileWriter.Close()
 ]]></Implementation>
 </Method>