BTWNR1 ;NIEUWE BTW-NUMMERS VANAF 01.01.93 ;BTWNR ; [ 11/06/2001  8:25 AM ]
 G Q
 ;
T1 ;KENLETTERS BTW-NUMMER;
T2 ;MUNTKODE;
T3 ;TAALKODE;
T4 ;LANDKODE;
T5 ;AANTAL DECIMALEN;
 ;
1 
 ;
2 W !,$P($T(T2),U,2),!
21 S I2=$P(@("^"_XQ_"BA(39)"),D) W I2
23 I '$D(^(11,I2)) S ^(I2)=I2_D_I2_D
25 S ^(I2)=$P(^(I2),D,1,2)_"\1\1\1\1\"_QD_D,K=$P(^(I2),D)
27 I '$D(^cBA(11,K)) S K=$$MUNTKODE^vhRtn1(K)
29 S $P(@("^"_XQ_"BA(11,I2)"),D)=K W " ",K
 ;
3 W !,$P($T(T3),U,2),!
31 S K=$P(@("^"_XQ_"BA(39)"),D,2) S:K="" K="N" S $P(^(39),D,2)=K W K
 ;
4 W !,$P($T(T4),U,2),!
41 S K=$P(^(39),D,3) W K
 ;
5 W !,$P($T(T1),U,2),!
51 S K=$P(^(39),D,3),K=$$LAND^vhRtn1(K),$P(^KBA(39),D,4)=K W K
 ;
6 W !,$P($T(T5),U,2),!
61 S K=$P(^(39),D),I2="" I $D(^(11,K))
63 S I2=$O(^(I2)) G YZ:I2="" S I3=^(I2) I $P(I3,D,7)="" S $P(I3,D,7)=$S(I2=K:QD,$P(I3,D,3)=100:0,1:2),^(I2)=I3
65 W I2,?5,$P(I3,D,7),! G 63
 ;
YZ K I2,I3 Q
 ;
Q R !,"Q-WAARDE : ",Q G YZ:"-^"[Q,Q:Q'?1.3U
QA I '$D(@("^"_Q_"BA(99,1)")) W "   ???",*7 G Q
QB W !,^(1) D ^cA604 S XQ=Q G 1
QZ Q
 ;