Index: vhTest/Mock/TECH/Ftp/FtpAPI.cls.xml
===================================================================
diff -u
--- vhTest/Mock/TECH/Ftp/FtpAPI.cls.xml	(revision 0)
+++ vhTest/Mock/TECH/Ftp/FtpAPI.cls.xml	(revision 32380)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.TECH.Ftp.FtpAPI">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Ftp.FtpAPI,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="MockInstance">
+<ClassMethod>1</ClassMethod>
+<ReturnType>vhTest.Mock.TECH.Ftp.FtpAPI</ReturnType>
+<Implementation><![CDATA[
+	do ##class(TECH.Context).Instance().PushFtpAPIClassName(##class(vhTest.Mock.TECH.Ftp.FtpAPI).%ClassName(1))
+	quit ##class(TECH.Context).Instance().GeefFtpAPI()
+]]></Implementation>
+</Method>
+
+<Method name="Connecteer">
+<FormalSpec>Configuratie:TECH.Ftp.FtpConfiguratie</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Connecteer",Configuratie)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandLijst">
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBestandLijst")
+]]></Implementation>
+</Method>
+
+<Method name="VerbreekVerbinding">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerbreekVerbinding")
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderBestand">
+<FormalSpec>ServerBestandsNaam:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderBestand",ServerBestandsNaam)
+]]></Implementation>
+</Method>
+
+<Method name="VerzendBestand">
+<FormalSpec>VolledigeBestandsNaam:%String,ServerBestandsNaam:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerzendBestand",VolledigeBestandsNaam,ServerBestandsNaam)
+]]></Implementation>
+</Method>
+
+<Method name="VerzendStream">
+<FormalSpec>Stream:%Stream,ServerBestandsNaam:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerzendStream",Stream,ServerBestandsNaam)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml
===================================================================
diff -u
--- APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml	(revision 0)
+++ APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml	(revision 32380)
@@ -0,0 +1,189 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.FactuurVerzender.impl.Kvik.Converteerder">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Document">
+<Type>APPS.EDIExport.FactuurVerzender.Kvik.XML.KvikCustomInvoice</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KvikFactuur">
+<Type>DOM.VKP.Factuur</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Bon">
+<Type>DOM.VKP.Bon</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ConverteerDocument">
+<FormalSpec>KvikFactuur:DOM.VKP.Factuur</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KvikFactuur = KvikFactuur
+	Set ..Document = ##class(APPS.EDIExport.FactuurVerzender.Kvik.XML.KvikCustomInvoice).%New()
+	Set ..Bon = ..GeefBon()
+	
+	Do ..ZetInvoice()	
+	Do ..ZetLeverancierAdres()
+	Do ..ZetLeverAdres()
+	Do ..ZetKlant()
+	Do ..ZetBetaling()
+	Do ..ZetTotalen()
+
+	Set ..Document.Header.References.SupplierOrderNumber = ..GeefOrderVerwijzing().GeefOrderNr()
+	
+	Do ..ZetDetailLijnen()
+
+	quit ..Document
+]]></Implementation>
+</Method>
+
+<Method name="ZetDetailLijnen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LijnenIterator As TECH.Iterator = ..GeefBonLijnIterator()
+	
+	While LijnenIterator.HasNext() {
+		#dim Lijn As DOM.VKP.PrijsOrderlijn = LijnenIterator.Next()
+		continue:$$$Not(##class(TECH.StringUtils).Equals(Lijn.GeefType(),##class(DOM.VKP.enu.BonLijnType).Manueel(),##class(DOM.VKP.enu.BonLijnType).Product()))
+		
+		#dim DocumentLijn As APPS.EDIExport.FactuurVerzender.Kvik.XML.Line = ##class(APPS.EDIExport.FactuurVerzender.Kvik.XML.Line).%New()
+
+		if Lijn.GeefType() = ##class(DOM.VKP.enu.BonLijnType).Product() {
+			#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(Lijn.GeefProductID())
+			set DocumentLijn.Item.ItemDescription = Product.GeefOmschrijving()
+			Set DocumentLijn.UniqueIds.SupplierItemId = Product.GeefKorttekst() 
+			Set DocumentLijn.UniqueIds.EanCode = Product.GeefEANCode()
+			
+		} elseif Lijn.GeefType() = ##class(DOM.VKP.enu.BonLijnType).Manueel() {
+			#dim ManueleLijn As DOM.VKP.ManueleOrderlijn = Lijn
+			set DocumentLijn.Item.ItemDescription = ""
+			Set DocumentLijn.UniqueIds.SupplierItemId = ManueleLijn.GeefOmschrijving()
+			Set DocumentLijn.UniqueIds.EanCode = ""
+
+		}
+		
+		Set DocumentLijn.Quantity = Lijn.GeefAantal()
+		Set DocumentLijn.Amounts.LineAmount = $fnumber(Lijn.GeefTotaalExclBTW(),"",2)
+		Set DocumentLijn.Amounts.NetUnitPrice = $fnumber(Lijn.GeefEenheidPrijsExclBTW(),"",2)
+		Set DocumentLijn.DeliveryDate = ..Bon.GeefLeveringsDatum() 
+	
+		Do ..Document.Lines.Insert(DocumentLijn)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetInvoice">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..Document.Header.InvoiceDate = ..KvikFactuur.GeefFactuurDatum() 
+	Set ..Document.Header.InvoiceNumber = ..KvikFactuur.GeefID()
+	Set ..Document.Header.InvoiceType = ..ConverteerFACTTYPE()
+]]></Implementation>
+</Method>
+
+<Method name="ZetTotalen">
+<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.TotalLineAmount = $fnumber(..KvikFactuur.GeefTotaalGoederen(),"",2)
+]]></Implementation>
+</Method>
+
+<Method name="ZetBetaling">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..Document.Header.Payment.DueDate = ..KvikFactuur.GeefVervalDatum()
+	Set ..Document.Header.Payment.IBAN.AccountId = "BE19393006093612"
+	Set ..Document.Header.Payment.IBAN.BIC = "BBRUBEBB"
+	Set ..Document.Header.CurrencyCode = ..KvikFactuur.GeefMuntCode()
+]]></Implementation>
+</Method>
+
+<Method name="ZetLeverAdres">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..Document.Header.Parties.Delivery.Name = ..Bon.GeefLeveringsAdres().GeefNaam()
+	Set ..Document.Header.Parties.Delivery.Address.Street = ..Bon.GeefLeveringsAdres().GeefStraat()
+	Set ..Document.Header.Parties.Delivery.Address.ZipCode = ..Bon.GeefLeveringsAdres().GeefPostcode() 
+	Set ..Document.Header.Parties.Delivery.Address.City = ..Bon.GeefLeveringsAdres().GeefGemeente()
+	Set ..Document.Header.Parties.Delivery.Address.Country.ISOCode = ..Bon.GeefLeveringsAdres().GeefLand().GeefCode()
+	Set ..Document.Header.Parties.Buyer.Identification.AccountNumber = ..Bon.GeefLeveringsAdres().GeefKlantAdresNr()
+]]></Implementation>
+</Method>
+
+<Method name="ZetKlant">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..KvikFactuur.GeefKlant()
+	Set ..Document.Header.Parties.Invoicee.Name = Klant.GeefNaam()
+	Set ..Document.Header.Parties.Invoicee.Address.Street = Klant.GeefAdres().GeefStraat()
+	Set ..Document.Header.Parties.Invoicee.Address.ZipCode = Klant.GeefAdres().GeefPostcode()
+	Set ..Document.Header.Parties.Invoicee.Address.City = Klant.GeefAdres().GeefGemeente()
+	Set ..Document.Header.Parties.Invoicee.Address.Country.ISOCode = Klant.GeefAdres().GeefLand().GeefCode()
+]]></Implementation>
+</Method>
+
+<Method name="ZetLeverancierAdres">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..Document.Header.Parties.Supplier.Name = "Van Hoecke"
+	Set ..Document.Header.Parties.Supplier.Address.Street = "Europark Noord 9"
+	Set ..Document.Header.Parties.Supplier.Address.ZipCode  = "9100"
+	Set ..Document.Header.Parties.Supplier.Address.City = "Sint-Niklaas"
+	Set ..Document.Header.Parties.Supplier.Address.Country.ISOCode = "BE"
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerFACTTYPE">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	quit:(..KvikFactuur.GeefFactuurCode() = "F") "Invoice"
+	quit:(..KvikFactuur.GeefFactuurCode() = "C") "CreditMemo"
+
+	do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kan het kvik Factuurtype niet converteren : "_KvikFactuur.GeefID())
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderVerwijzing">
+<Private>1</Private>
+<ReturnType>DOM.VKP.OrderVerwijzingOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderVerwijzingLijnIterator As TECH.Iterator = ..KvikFactuur.GeefTypeBonLijnIterator(##class(DOM.VKP.enu.BonLijnType).OrderVerwijzing())
+	if $$$Not(OrderVerwijzingLijnIterator.HasNext()) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kvik Factuur heeft geen OrderVerwijzing : "_..KvikFactuur.GeefID())
+	}
+	Quit OrderVerwijzingLijnIterator.Next()
+]]></Implementation>
+</Method>
+
+<Method name="GeefBon">
+<Private>1</Private>
+<ReturnType>DOM.VKP.Bon</ReturnType>
+<Implementation><![CDATA[
+	if ($$$Not(..KvikFactuur.GeefBonIterator().HasNext())) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kvik factuur heeft geen bon informatie : "_..KvikFactuur.GeefID())
+	}
+	quit ..KvikFactuur.GeefBonIterator().Next()
+]]></Implementation>
+</Method>
+
+<Method name="GeefBonLijnIterator">
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	if $$$Not(..KvikFactuur.GeefBonLijnIterator().HasNext()) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kvik Factuur heeft geen detaillijnen : "_..KvikFactuur.GeefID())
+	}
+	quit ..KvikFactuur.GeefBonLijnIterator()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml
===================================================================
diff -u -r32261 -r32380
--- APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 32261)
+++ APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 32380)
@@ -3,6 +3,39 @@
 <Class name="APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender">
 <Super>TECH.Events.EventHandler</Super>
 
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FtpAPI">
+<Type>TECH.Ftp.FtpAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BestandLocatie">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BestandsNaam">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KvikFactuur">
+<Type>DOM.VKP.Factuur</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ServerBestandsNaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="FtpConfiguratie">
+<Type>TECH.Ftp.FtpConfiguratie</Type>
+</Property>
+
 <Method name="StartVerwerking">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Event:DOM.VKP.event.VerkoopfactuurGemaaktEvent</FormalSpec>
@@ -15,9 +48,120 @@
 ]]></Implementation>
 </Method>
 
+<Method name="%OnNew">
+<FormalSpec>FileAPI:TECH.File.FileAPI="",FtpAPI:TECH.Ftp.FtpAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..FileAPI = $$$Implementation(FileAPI,##class(TECH.Context).Instance().GeefFileAPI())
+	set ..FtpAPI = $$$Implementation(FtpAPI,##class(TECH.Context).Instance().GeefFtpAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Verzend">
 <FormalSpec>KvikFactuur:DOM.VKP.Factuur</FormalSpec>
+<Implementation><![CDATA[
+	try{
+		
+		Set ..KvikFactuur = KvikFactuur
+		
+		Do ..ZetConfiguratie()
+
+		Do ..SchrijfNaarXmlBestand(..GeefBestandVolledigeNaam())
+		Do ..FtpAPI.Connecteer(..FtpConfiguratie)
+		Do ..FtpAPI.VerzendBestand(..GeefBestandVolledigeNaam(),..ServerBestandsNaam)
+		Do ..FtpAPI.VerbreekVerbinding()
+		Do ..KopieerNaar("Archief")
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		do ..KopieerNaar("Errors")
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw(Exception.ToString())
+	}
+]]></Implementation>
 </Method>
+
+<Method name="ZetConfiguratie">
+<Implementation><![CDATA[
+		Set ..BestandLocatie = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"),"Kvik\EdiFactuur") 
+		Set ..BestandsNaam = ..GeefBestandNaam()
+
+		if (..ServerBestandsNaam = "") { 
+			Set ..ServerBestandsNaam = ..BestandsNaam
+			}
+		If $$$Not($Isobject(..FtpConfiguratie)) { 	
+			Set ..FtpConfiguratie = ..GeefKvikFtpConfiguratie() 
+		}
+]]></Implementation>
+</Method>
+
+<Method name="GeefKvikFtpConfiguratie">
+<Private>1</Private>
+<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
+<Implementation><![CDATA[
+	#dim FtpConfiguratie As TECH.Ftp.FtpConfiguratie = ##class(TECH.Ftp.FtpConfiguratie).%New()
+
+	Set FtpConfiguratie.Gebruiker = "vanhoecke"
+	Set FtpConfiguratie.Paswoord = "&C=3VUN+EjDC"
+	Set FtpConfiguratie.Adres = "ftp.kvik.com"
+	Set FtpConfiguratie.ServerBestandsLocatie = ""
+	Set FtpConfiguratie.Poort = 21
+	Set FtpConfiguratie.Timeout = 10
+
+	quit FtpConfiguratie
+]]></Implementation>
+</Method>
+
+<Method name="KopieerNaar">
+<FormalSpec>SubLocatie:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	try {
+		#dim NieuwBestandLocatie As %String = ##class(TECH.Files).AppendSubPath(..BestandLocatie,SubLocatie) 
+		#dim NieuwBestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(NieuwBestandLocatie,..BestandsNaam)
+		Do $ZUTIL(140,11,..GeefBestandVolledigeNaam(),NieuwBestandVolledigeNaam)
+		Do ##class(TECH.File).Delete(..GeefBestandVolledigeNaam())
+	} catch {}
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfNaarXmlBestand">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<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)
+	
+	#dim FileWriter As TECH.File.FileWriter = ..FileAPI.GeefFileWriter()
+	do FileWriter.Open(BestandVolledigeNaam)
+	do FileWriter.WriteXML(Document)
+	do FileWriter.Close()
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandVolledigeNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.Files).AppendFile(..BestandLocatie,..BestandsNaam)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Context As TECH.Context = ##class(TECH.Context).Instance()
+	#dim HuidigeDatumTijd As TECH.Horolog = Context.GeefDateTimeAPI().CurrentHorolog()
+	#dim NieuwFormaatDatumTijd As %String = Context.GeefFormatAPI().FormatHorolog(HuidigeDatumTijd, "yyyy-mm-dd-hhnnss")
+	quit NieuwFormaatDatumTijd _"-vanhoecke-" _..KvikFactuur.GeefID() _".xml"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender/Verzend/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender/Verzend/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender/Verzend/Test.cls.xml	(revision 32380)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender.Verzend.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Kvik factuur converteerder">
+<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() 
+
+	set Factuur = ##class(DOM.VKP.impl.DataM.DataMFactuur).%New(565833)	
+	set Verzender = ##class(APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender).%New(FileAPI,FtpAPI)
+	Set Verzender.ServerBestandsNaam = "KvikFactuurTestOuput.xml" 
+	Set Verzender.FtpConfiguratie = ..GeefTestNaarBestandConfiguratie()
+	
+	do Verzender.Verzend(Factuur)
+	
+	do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzenden van een Kvik factuur naar Test FTP VH ">
+<Implementation><![CDATA[
+	try {
+		#dim FileAPI As TECH.File.FileAPI = ##class(TECH.Context).Instance().GeefFileAPI()
+		#dim FtpAPI As TECH.Ftp.FtpAPI = ##class(TECH.Context).Instance().GeefFtpAPI()
+		#dim BestandNaam As %String = ..GeefBestandNaam()
+		
+		set Factuur = ##class(DOM.VKP.impl.DataM.DataMFactuur).%New(565833)	
+		set Verzender = ##class(APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender).%New(FileAPI,FtpAPI)
+		Set Verzender.ServerBestandsNaam = BestandNaam 
+		Set Verzender.FtpConfiguratie = ..GeefTestFtpConfiguratie()
+		Do Verzender.Verzend(Factuur)
+		
+		Do FtpAPI.Connecteer(..GeefTestFtpConfiguratie())
+		Do FtpAPI.VerwijderBestand(BestandNaam)
+		Do FtpAPI.VerbreekVerbinding()
+		
+		Do $$$AssertTrue($$$True,"Verzenden gelukt.")
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Fail(Exception.ToString())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Context As TECH.Context = ##class(TECH.Context).Instance()
+	#dim HuidigeDatumTijd As TECH.Horolog = Context.GeefDateTimeAPI().CurrentHorolog()
+	#dim NieuwFormaatDatumTijd As %String = Context.GeefFormatAPI().FormatHorolog(HuidigeDatumTijd, "yyyy-mm-dd-hhnnss")
+	quit NieuwFormaatDatumTijd _$$$Server _"FtpTestBestand.txt"
+]]></Implementation>
+</Method>
+
+<Method name="GeefTestFtpConfiguratie">
+<Private>1</Private>
+<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
+<Implementation><![CDATA[
+	#dim FtpConfiguratie As TECH.Ftp.FtpConfiguratie = ##class(TECH.Ftp.FtpConfiguratie).%New()
+	
+	Set FtpConfiguratie.Gebruiker = "FTPKvik"
+	Set FtpConfiguratie.Paswoord = "Kv1k@VH"
+	Set FtpConfiguratie.Adres = "res.vanhoecke.be"
+	Set FtpConfiguratie.ServerBestandsLocatie = "Kvik"
+	Set FtpConfiguratie.Poort = 21
+	Set FtpConfiguratie.Timeout = 10
+
+	quit FtpConfiguratie
+]]></Implementation>
+</Method>
+
+<Method name="GeefTestNaarBestandConfiguratie">
+<Private>1</Private>
+<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
+<Implementation><![CDATA[
+	#dim FtpConfiguratie As TECH.Ftp.FtpConfiguratie = ##class(TECH.Ftp.FtpConfiguratie).%New()
+	Set FtpConfiguratie.ServerBestandsLocatie = ..GeefBestandLocatie()
+	quit FtpConfiguratie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/TECH/Ftp/FtpAPI/SchrijfNaarBestand.cls.xml
===================================================================
diff -u
--- vhTest/Fake/TECH/Ftp/FtpAPI/SchrijfNaarBestand.cls.xml	(revision 0)
+++ vhTest/Fake/TECH/Ftp/FtpAPI/SchrijfNaarBestand.cls.xml	(revision 32380)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.TECH.Ftp.FtpAPI.SchrijfNaarBestand">
+<Super>TECH.Ftp.FtpAPI,%RegisteredObject</Super>
+
+<Property name="Configuratie">
+<Type>TECH.Ftp.FtpConfiguratie</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Connecteer">
+<FormalSpec>Configuratie:TECH.Ftp.FtpConfiguratie</FormalSpec>
+<Implementation><![CDATA[	Set ..Configuratie = Configuratie
+]]></Implementation>
+</Method>
+
+<Method name="VerbreekVerbinding">
+</Method>
+
+<Method name="VerzendBestand">
+<FormalSpec>VolledigeBestandsNaam:%String,ServerBestandsNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim NieuweVolledigeBestandsNaam As %String = ##class(TECH.Files).AppendFile(..Configuratie.ServerBestandsLocatie,ServerBestandsNaam)
+	Do $ZUTIL(140,11,VolledigeBestandsNaam, NieuweVolledigeBestandsNaam)
+]]></Implementation>
+</Method>
+
+<Method name="VerzendStream">
+<FormalSpec>Stream:%Stream,ServerBestandsNaam:%String</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>