Index: vhTest/Spy/TECH/Ftp/FtpAPI/SchrijfNaarStream.cls.xml
===================================================================
diff -u
--- vhTest/Spy/TECH/Ftp/FtpAPI/SchrijfNaarStream.cls.xml	(revision 0)
+++ vhTest/Spy/TECH/Ftp/FtpAPI/SchrijfNaarStream.cls.xml	(revision 33550)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Spy.TECH.Ftp.FtpAPI.SchrijfNaarStream">
+<Super>TECH.Ftp.FtpAPI,%RegisteredObject</Super>
+
+<Property name="Configuratie">
+<Type>TECH.Ftp.FtpConfiguratie</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Stream">
+<Type>%GlobalCharacterStream</Type>
+</Property>
+
+<Method name="Connecteer">
+<FormalSpec>Configuratie:TECH.Ftp.FtpConfiguratie</FormalSpec>
+<Implementation><![CDATA[	Set ..Configuratie = Configuratie
+]]></Implementation>
+</Method>
+
+<Method name="VerbreekVerbinding">
+</Method>
+
+<Method name="VerzendStream">
+<FormalSpec>Stream:%Stream,ServerBestandsNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Stream = ##class(%GlobalCharacterStream).%New()
+	Do ..Stream.CopyFrom(Stream)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender/Verzend/Test.cls.xml
===================================================================
diff -u -r33545 -r33550
--- vhUnitTest/APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 33545)
+++ vhUnitTest/APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 33550)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender.Verzend.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Kvik factuur converteerder">
+<Method name="Test: Converteerder van de Kvik factuur voor Nederlands afleveradres zonder BTW">
 <Implementation><![CDATA[
 	#dim FileAPI As TECH.File.FileAPI = ##class(TECH.Context).Instance().GeefFileAPI()
 	#dim FtpAPI As vhTest.Fake.TECH.Ftp.FtpAPI.SchrijfNaarBestand = ##class(vhTest.Fake.TECH.Ftp.FtpAPI.SchrijfNaarBestand).%New() 
@@ -19,19 +19,30 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Kvik factuur converteerder met BTW">
+<Method name="Test: converteerder van de Kvik factuur voor Belgisch afleveradres met BTW">
 <Implementation><![CDATA[
 	#dim FileAPI As TECH.File.FileAPI = ##class(TECH.Context).Instance().GeefFileAPI()
-	#dim FtpAPI As vhTest.Fake.TECH.Ftp.FtpAPI.SchrijfNaarBestand = ##class(vhTest.Fake.TECH.Ftp.FtpAPI.SchrijfNaarBestand).%New() 
+	#dim FtpAPISpy As vhTest.Spy.TECH.Ftp.FtpAPI.SchrijfNaarStream = ##class(vhTest.Spy.TECH.Ftp.FtpAPI.SchrijfNaarStream).%New() 
 
 	set Factuur = ##class(DOM.VKP.impl.DataM.DataMFactuur).%New(586763)	
-	set Verzender = ##class(APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender).%New(FileAPI,FtpAPI)
-	Set Verzender.ServerBestandsNaam = "KvikFactuurMetBTWTestOuput.xml" 
+	set Verzender = ##class(APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender).%New(FileAPI,FtpAPISpy)
+	Set Verzender.ServerBestandsNaam = "Dummy.xml" 
 	Set Verzender.FtpConfiguratie = ..GeefTestNaarBestandConfiguratie()
-	
+
 	do Verzender.Verzend(Factuur)
-	
-	do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(FtpAPISpy.Stream,"<InvoiceNumber>586763</InvoiceNumber>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(FtpAPISpy.Stream,"<Percent>21.00</Percent>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(FtpAPISpy.Stream,"<TaxableAmount>239.17</TaxableAmount>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(FtpAPISpy.Stream,"<TaxAmount>50.23</TaxAmount>"),"")
+
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(FtpAPISpy.Stream,"<TotalAmount>289.40</TotalAmount>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(FtpAPISpy.Stream,"<TotalTaxAmount>50.23</TotalTaxAmount>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(FtpAPISpy.Stream,"<TotalTaxableAmount>239.17</TotalTaxableAmount>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(FtpAPISpy.Stream,"<TotalLineAmount>239.17</TotalLineAmount>"),"")
+
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(FtpAPISpy.Stream,"<LineAmount>239.17</LineAmount>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(FtpAPISpy.Stream,"<NetUnitPrice>239.17</NetUnitPrice>"),"")
 ]]></Implementation>
 </Method>
 
FishEye: Tag 33550 refers to a dead (removed) revision in file `vhTestFiles/UnitTests/APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender.Verzend/Test/TestKvikfactuurconverteerder/KvikFactuurTestOuput.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 33550 refers to a dead (removed) revision in file `vhTestFiles/UnitTests/APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender.Verzend/Test/TestKvikfactuurconverteerdermetBTW/KvikFactuurMetBTWTestOuput.xml'.
FishEye: No comparison available.  Pass `N' to diff?