Index: DOM/VKP/impl/DataM/DataMFactuur.cls.xml
===================================================================
diff -u -r34780 -r35187
--- DOM/VKP/impl/DataM/DataMFactuur.cls.xml	(.../DataMFactuur.cls.xml)	(revision 34780)
+++ DOM/VKP/impl/DataM/DataMFactuur.cls.xml	(.../DataMFactuur.cls.xml)	(revision 35187)
@@ -280,20 +280,33 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTotaalPort">
+<Method name="GeefTotaalPortExclBTW">
 <ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[	quit $piece($piece(^KFA("F",..FactuurNummer,0,0),"\",16),"#",2)
+<Implementation><![CDATA[	quit +$piece($piece(^KFA("F",..FactuurNummer,0,0),"\",17),"#",2)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPortBTWPercentage">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BtwCode As %String = +$piece($piece(^KFA("F",..FactuurNummer,0,0),"\",17),"#",1)
+	quit $Piece($Piece(^KBA(18,+..GeefBTWCode()),"\",1),"%",1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTotaalPortBTWBedrag">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	quit +##class(TECH.Math).Round((..GeefTotaalPortExclBTW()*(..GeefBTWPercentage())),2)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBoekhoudBoekingen">
 <ReturnType>DOM.VKP.Factuur.dto.BoekhoudBoekingList</ReturnType>
 <Implementation><![CDATA[
 	set BoekingPerRekening = ##class(%ArrayOfDataTypes).%New()
 	
 	#dim Factor As %Integer = $$$If(..GeefFactuurCode()="C",-1,1)
-	
-	
+		
 	#dim Iterator As TECH.Iterator = ..GeefBonLijnIterator()
 	while Iterator.HasNext() {
 		#dim Lijn As DOM.VKP.PrijsOrderlijnMetBoekhoudInfo = Iterator.Next()
@@ -305,7 +318,7 @@
 		do BoekingPerRekening.SetAt(Bedrag+Totaal,Rekening)
 	}
 	
-	#dim Port As %Decimal = +$piece($piece(^KFA("F",..FactuurNummer,0,0),"\",17),"#",2)
+	#dim Port As %Decimal = ..GeefTotaalPortExclBTW()
 	do:Port'=0 BoekingPerRekening.SetAt(Port,746000)
 	
 	set List = ##class(DOM.VKP.Factuur.dto.BoekhoudBoekingList).%New()