Index: cTN8060.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN8060.mac.rou (.../cTN8060.mac.rou) (revision 29059) +++ cTN8060.mac.rou (.../cTN8060.mac.rou) (revision 43422) @@ -69,7 +69,7 @@ ; EXP(UI1BL,FILE) ; Exporteren BTW-listing ; Input: UI1BL: UI1 van de BTW-listing - ; FILE : pad + file naar waar file moet geexporteerd worden + ; FILE : pad + file naar waar file moet geexporteerd worden N INHBL,UREFDET,KJ,B,MIN,LLVEN S $ZT="TRAP^cAN000" ; Ophalen gegevens IC-kwartaalopgave @@ -92,9 +92,12 @@ S $P(B(1),D,3)=$P(INHBL,D,7) ; Postcode S $P(B(1),D,5)=$P(INHBL,D,8)_" "_$P(INHBL,D,9) + ; Telefoon + S $P(B(1),D,13)=$P(INHBL,D,12) + ; E-mail + S $P(B(1),D,14)=$P(INHBL,D,13) ; Opstarten export S OK=$$VB^cTN80601(UI1BL,UREFDET,KJ,FILE,.B,MIN,LLVEN) EXPZ Q OK ; -ZZ ; 16.10.08 - 14 u 11 * V9.04 - +ZZ ; 11.12.09 - 14 u 25 * V9.06