Index: cTN8040.mac.rou
===================================================================
diff -u -r29059 -r43422
--- cTN8040.mac.rou	(.../cTN8040.mac.rou)	(revision 29059)
+++ cTN8040.mac.rou	(.../cTN8040.mac.rou)	(revision 43422)
@@ -48,6 +48,10 @@
 	S $P(B(1),D,3)=$P(INHKW,D,7)
 	; Postcode
 	S $P(B(1),D,5)=$P(INHKW,D,8)_" "_$P(INHKW,D,9)
+	; Telefoon
+	S $P(B(1),D,13)=$P(INHKW,D,12)
+	; E-mail
+	S $P(B(1),D,14)=$P(INHKW,D,13)
 	; Opstarten export
 	S OK=$$VB^cTN80401(UI1KW,UREFDET,BP1,KW,FILE,.B,MND)
 EXPZ	Q OK
@@ -101,7 +105,7 @@
  	; berekenen
  	I '$G(CNTR) D  I 'OK G ICKWC
  	. I '$L(BTWKL) S OK=0 Q                            ; geen BTW-nr ingevuld
-	. S K=BTWKL I '$$IC^cTI0(BTWKL,DATIC) S OK=0 Q     ; Land van BTW-nr is geen EU-land
+ 	. S K=BTWKL I '$$EG^cTNI00(Q,DATIC,BTWKL) S OK=0 Q     ; Land van BTW-nr is geen EU-land
  	. I '$$BTW^cAFI1(BTWKL) S OK=0 Q                   ; geen geldig BTW-nr
  	. I $E(BTWKL,3,999)?1."0" S OK=0 Q                 ; bevat enkel maar 0
 	. I $E(BTWKL,1,$L(LLVEN))=LLVEN S OK=0 Q           ; Land BTW-nr = Kenletters BTW-nr vennootschap
@@ -110,13 +114,13 @@
 	. ; KU/AM : 26.11.09 : indien geregistreerd werd op 0%(44) (dienst) dient dit op de controle te komen
 	. I BP1<2010 S BTWC="" F  S BTWC=$O(BTWC(BTWC)) Q:'$L(BTWC)  I +BTWC(BTWC),$$SIG^cAFA1("DB.BTW",UI1DB_" "_BTWC,103) S OK=2 Q
 	. I OK=2 Q
-	. S K=BTWKL I $$IC^cTI0(BTWKL,DATIC) D  Q
+	. S K=BTWKL I $$EG^cTNI00(Q,DATIC,BTWKL) D  Q
 	.. I $E(BTWKL,3,999)'?1."0",$$BTW^cAFI1(BTWKL) S OK=0 Q
 	. ; KU/AM : 26.11.09 : indien geregistreerd werd op 0%(44) (dienst) dient dit op de controle te komen
 	. I BP1>2010 S BTWC="" F  S BTWC=$O(BTWC(BTWC)) Q:'$L(BTWC)  I +BTWC(BTWC),$$SIG^cAFA1("DB.BTW",UI1DB_" "_BTWC,103) S OK=2 Q
 	. I OK=2 Q
 	. I $$SIG^cAFA1("ISO.LAND",LANDKL,101)=LLVEN S OK=0 Q                       ; Land klant = Kenletters BTW-nr vennootschap
-	. I '$$IC^cTI0("",DATIC,"",$$SIG^cAFA1("ISO.LAND",LANDKL,101)) S OK=0 Q     ; land klant geen EU-land
+	. I '$$EG^cTNI00(Q,DATIC,"",$$SIG^cAFA1("ISO.LAND",LANDKL,101),"\1\1") S OK=0 Q     ; land klant geen EU-land
 	; Maatstaven per BTW-code aflopen
 	; Maatstaf van BTW-codes ophalen
 ICKWF	S BTWC=""
@@ -140,5 +144,4 @@
 	G ICKWF1
 ICKWZ	Q OK
 	;
-ZZ	; 16.10.08 - 14 u 11 * V9.04
-
+ZZ	; 02.02.10 - 14 u 30 * V9.06