Index: vhUnitTest/APPS/EDIExport/FactuurVerzender/Impl/Kvik/StartVerwerking/VerzenderSpy.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/FactuurVerzender/Impl/Kvik/StartVerwerking/VerzenderSpy.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/FactuurVerzender/Impl/Kvik/StartVerwerking/VerzenderSpy.cls.xml	(revision 32242)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.FactuurVerzender.impl.Kvik.StartVerwerking.VerzenderSpy">
+<Super>APPS.EDIExport.FactuurVerzender.Impl.Kvik.Verzender</Super>
+
+<Method name="StartVerwerking">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Event:DOM.VKP.event.VerkoopfactuurGemaaktEvent</FormalSpec>
+<Implementation><![CDATA[
+	kill ^||KvikFactuurVerzender
+	do ##super(Event)
+]]></Implementation>
+</Method>
+
+<Method name="Verzend">
+<FormalSpec>KvikFactuur:DOM.VKP.Factuur</FormalSpec>
+<Implementation><![CDATA[	set ^||KvikFactuurVerzender(KvikFactuur.GeefID())=""
+]]></Implementation>
+</Method>
+
+<Method name="IsVerwerkingGestart">
+<FormalSpec>FactuurID</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit $data(^||KvikFactuurVerzender(FactuurID))=1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/FactuurVerzender/Impl/Kvik/StartVerwerking/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/FactuurVerzender/Impl/Kvik/StartVerwerking/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/FactuurVerzender/Impl/Kvik/StartVerwerking/Test.cls.xml	(revision 32242)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.FactuurVerzender.impl.Kvik.StartVerwerking.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Test een onbestaande factuur wordt niet verwerkt">
+<Implementation><![CDATA[
+	#dim FactuurID As %Integer = 0000000
+	set EventData = ##class(DOM.VKP.event.VerkoopfactuurEventData).%New(FactuurID)
+	set Event = ##class(DOM.VKP.event.VerkoopfactuurGemaaktEvent).%New(EventData)
+
+	set VerzenderSpy = ##class(vhUnitTest.APPS.EDIExport.FactuurVerzender.impl.Kvik.StartVerwerking.VerzenderSpy).%New() 
+	do $$$AssertTrue(##class(TECH.ClassUtils).ClassDerivesFrom($classname(VerzenderSpy),"APPS.EDIExport.FactuurVerzender.Impl.Kvik.Verzender"))
+	do VerzenderSpy.StartVerwerking(Event)
+	
+	do $$$AssertFalse(VerzenderSpy.IsVerwerkingGestart(FactuurID))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Test een niet kvik factuur wordt niet verwerkt">
+<Implementation><![CDATA[
+	#dim FactuurID As %Integer = 564429
+	set EventData = ##class(DOM.VKP.event.VerkoopfactuurEventData).%New(FactuurID)
+	set Event = ##class(DOM.VKP.event.VerkoopfactuurGemaaktEvent).%New(EventData)
+
+	set VerzenderSpy = ##class(vhUnitTest.APPS.EDIExport.FactuurVerzender.impl.Kvik.StartVerwerking.VerzenderSpy).%New() 
+	do $$$AssertTrue(##class(TECH.ClassUtils).ClassDerivesFrom($classname(VerzenderSpy),"APPS.EDIExport.FactuurVerzender.Impl.Kvik.Verzender"))
+	do VerzenderSpy.StartVerwerking(Event)
+	
+	do $$$AssertFalse(VerzenderSpy.IsVerwerkingGestart(FactuurID))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Test een kvik factuur wordt verwerkt">
+<Implementation><![CDATA[
+	#dim FactuurID As %Integer = 565833
+	set EventData = ##class(DOM.VKP.event.VerkoopfactuurEventData).%New(FactuurID)
+	set Event = ##class(DOM.VKP.event.VerkoopfactuurGemaaktEvent).%New(EventData)
+
+	set VerzenderSpy = ##class(vhUnitTest.APPS.EDIExport.FactuurVerzender.impl.Kvik.StartVerwerking.VerzenderSpy).%New() 
+	do $$$AssertTrue(##class(TECH.ClassUtils).ClassDerivesFrom($classname(VerzenderSpy),"APPS.EDIExport.FactuurVerzender.Impl.Kvik.Verzender"))
+	do VerzenderSpy.StartVerwerking(Event)
+	
+	do $$$AssertTrue(VerzenderSpy.IsVerwerkingGestart(FactuurID))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/FactuurVerzender/Impl/Kvik/Verzender.cls.xml
===================================================================
diff -u
--- APPS/EDIExport/FactuurVerzender/Impl/Kvik/Verzender.cls.xml	(revision 0)
+++ APPS/EDIExport/FactuurVerzender/Impl/Kvik/Verzender.cls.xml	(revision 32242)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.FactuurVerzender.Impl.Kvik.Verzender">
+<Super>TECH.Events.EventHandler</Super>
+
+<Method name="StartVerwerking">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Event:DOM.VKP.event.VerkoopfactuurGemaaktEvent</FormalSpec>
+<Implementation><![CDATA[
+	#dim FactuurID As %Integer = Event.Data.GeefFactuurID()
+	#dim FactuurAPI As DOM.VKP.FactuurAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopFactuurAPI() 
+	if FactuurAPI.BestaatFactuur(FactuurID) && (FactuurAPI.IsFactuurVanKlant(FactuurID,##class(DOM.VKP.enu.Klant).Kvik())) {
+		do ..%New().Verzend(FactuurAPI.GeefFactuur(FactuurID))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Verzend">
+<FormalSpec>KvikFactuur:DOM.VKP.Factuur</FormalSpec>
+</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 32242)
@@ -0,0 +1,103 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.FactuurVerzender.Impl.Kvik.Converteerder">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="ConverteerDocument">
+<FormalSpec>KvikFactuur:DOM.VKP.Factuur</FormalSpec>
+<Implementation><![CDATA[
+	#dim Document as APPS.VKP.Factuur.EDI.Kvik.XML.KvikCustomInvoice = ##class(APPS.VKP.Factuur.EDI.Kvik.XML.KvikCustomInvoice).%New()
+	
+	Set Document.Header.InvoiceDate = ..ConverteerFACTDATUM(KvikFactuur)
+	Set Document.Header.InvoiceNumber = KvikFactuur.geef
+	Set Document.Header.InvoiceType = ..ConverteerFACTTYPE(KvikFactuur)
+	
+	do KvikFactuur.GeefBonIterator().HasNext()
+	
+	Set Document.Header.Parties.Delivery.Name = KvikFactuur.GeefKlant().GeefNaam()
+	Set Document.Header.Parties.Delivery.Address.Street = KvikFactuur.GeefKlant().GeefStandaardLeverAdres().GeefStraat()
+	Set Document.Header.Parties.Delivery.Address.ZipCode = KvikFactuur.GeefKlant().GeefStandaardLeverAdres().GeefPostcode()
+	Set Document.Header.Parties.Delivery.Address.City = KvikFactuur.GeefKlant().GeefStandaardLeverAdres().GeefGemeente()
+	Set Document.Header.Parties.Delivery.Address.Country = KvikFactuur.GeefKlant().GeefStandaardLeverAdres().GeefLand().GeefCode()
+		
+	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"
+
+	Set Document.Header.References.SupplierOrderNumber = KvikFactuur.GeefDocumentReferenties().OrderReferentie()
+
+	Set Document.Header.Payment.DueDate = KvikFactuur.GeefVervalDatum()
+	
+	Set Document.Header.CurrencyCode = KvikFactuur.GeefMuntCode()
+
+	Set Document.Header.Amounts.Totals.TotalAmount = KvikFactuur.GeefTotaalTeBetalen()
+	Set Document.Header.Amounts.Totals.TotalTaxableAmount = KvikFactuur.GeefTotaalBelastbaar()
+	Set Document.Header.Amounts.Totals.TotalTaxAmount = KvikFactuur.GeefTotaalBTW()
+	;Set Document.Header.Amounts.Totals.TotalLineAmount = ??
+	
+	#dim LijnenIterator As TECH.Iterator = KvikFactuur.GeefBonLijnIterator()
+	
+	if $$$Not(LijnenIterator.HasNext()) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kvik Factuur heeft geen detaillijnen : "_KvikFactuur.GeefID())
+	}
+	
+	While LijnenIterator.HasNext() {
+		#dim Lijn As DOM.VKP.PrijsOrderlijn = LijnenIterator.Next()
+		continue:$$$Not(##class(TECH.StringUtils).Equals(Lijn.GeefType(),##class(DOM.VKP.enu.OrderLijnType).Manueel(),##class(DOM.VKP.enu.OrderLijnType).Product()))
+
+		#dim DocumentLine As APPS.VKP.Factuur.EDI.Kvik.XML.Line = ##class(APPS.VKP.Factuur.EDI.Kvik.XML.Line).%New()
+		Set DocumentLine.Quantity = Lijn.GeefAantal()
+		;Set DocumentLine.Amounts.LineAmount = Lijn GeefAantal()
+		Set DocumentLine.Amounts.NetUnitPrice = Lijn.GeefEenheidPrijsExclBTW()
+		;Set DocumentLine.DeliveryDate =  Lijn.GeefToelevering().
+		;Set DocumentLine.Item.ItemDescription = Lijn.GeefToelevering().
+		;Set DocumentLine.UniqueIds.SupplierItemId = Lijn.GeefToelevering().GeefLeverancierID()
+		;Set DocumentLine.UniqueIds.EanCode = 
+	
+		Do Document.Lines.Insert(DocumentLine)
+	}
+	
+	; Bon heeft leveradres !
+	;Set Document.Header.Parties.Invoicee.Name = KvikFactuur.GeefKlant().GeefNaam()
+	;Set Document.Header.Parties.Invoicee.Address.Street = KvikFactuur.GeefKlant().Geef 
+	;Set Document.Header.Parties.Invoicee.Address.ZipCode = KvikFactuur.GeefKlant().GeefStandaardLeverAdres().GeefPostcode()
+	;Set Document.Header.Parties.Invoicee.Address.City = KvikFactuur.GeefKlant().GeefStandaardLeverAdres().GeefGemeente()
+	;Set Document.Header.Parties.Invoicee.Address.Country = KvikFactuur.GeefKlant().GeefStandaardLeverAdres().GeefLand().GeefCode()
+	
+	quit Document
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerFACTTYPE">
+<FormalSpec>KvikFactuur:DOM.VKP.Factuur</FormalSpec>
+<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="ConverteerFACTDATUM">
+<FormalSpec>KvikFactuur:DOM.VKP.Factuur</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set SplitsDatum = $Piece(KvikFactuur.GeefFactuurDatum(),".")
+	if $L(SplitsDatum) = 3 {
+		Set NieuwDatumFormaat = SplitsDatum(3) _"-" _SplitsDatum(2) _"-" _SplitsDatum(1)
+	}
+	else {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kan de kvik Factuurdatum niet converteren : "_KvikFactuur.GeefID())
+	}
+	Quit NieuwDatumFormaat
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>