Index: cT641.mac.rou
===================================================================
diff -u -r29059 -r35815
--- cT641.mac.rou	(.../cT641.mac.rou)	(revision 29059)
+++ cT641.mac.rou	(.../cT641.mac.rou)	(revision 35815)
@@ -49,7 +49,6 @@
 11	S (A,B)="",R=$P("TTB\NETG\NETD\NETI\NETA",D,J)_"\22\3\"_$P($T(@("T1"_QT)),U,J+1)_"\\10\INCTR1" D S0 I K="",J=1 G 11
 13	I K="-" S J=J-1 G 11:J,7^cT640
 15	I K="," S J=J-1 G 1:J,51^cT640
-	I J=1 Do CheckTotaalTebetalen G 1:K="-"
 17	S FP=J+7*100+16 D S4 S:J>1&K K="",R=1 S J=J+1 I J<6 G 11:'$G(R) S @$P("\\NETD\NETI\NETA",D,J)="" G 17
 	;
 2	S A=$J(NETG+NETD+NETI,0,QA),B=$J(KPC*A/100,0,QA),A="" I 'B S B=""
@@ -92,13 +91,3 @@
 	;
 ZZ	; 19.03.07 - 15 u 31 * V8.08
 
-CheckTotaalTebetalen
-	new AankoopFactuur,Doorgaan 
-	set AankoopFactuur = ##class(DOM.BKH.dto.AankoopFactuur).%New()
-	set AankoopFactuur.LeverancierID = KC
-	set AankoopFactuur.TotaalInclusiefBTW = TTB
-	set AankoopFactuur.Datum = $$INTDATE^vhLib.DataTypes(DVO,"DPK")
-	set Doorgaan = ##class(CHUI.APPS.BKH.AankoopFactuurInboeking.Controleur).ControleerTotaalBedrag(AankoopFactuur)
- 	set K = $select(Doorgaan:TTB,1:"-")
-	quit
-