BTWNR5 ;KONVERSIE ^_XQ_ ;BTWNR4 ; [ 06/25/2002  11:14 AM ]
 G Q
 ;
T1 ;~B.T.W.-REKENING;~;$P(B(1),D,13)!$P(B(1),D,17)!$L($P(B(1),D,9));~;;$P("neen\ja\btw bank\mst bank",D,K+1);1;[] = neen   1[] = ja   2[] = BTW op bankkosten   3[] = maatstaf bankkosten;"123"[K;1;7;;$P(B(1),D,13)!$L($P(B(1),D,9));118;;;;;;1;;~;
T2 ;BEHEER UITSPLITSING AANKOOPF./C.N.\10\3\^cT58\D\^cT58\\\\;
T3 ;MANUEEL AFSLUITEN BOEKINGSMAAND\5\45\^cT92\D\^cT92\\\;
T4 ;~VR. MUNT;~;;~;$P(@("^"_Q_"BA(39)"),D);;3;;;1;;$$LAND^vhRtn1($P(B(1),D,8))=$P(@("^"_Q_"BA(39)"),D,3)&(K'="-");1;111;;;S R="K\2000" D ^cA329;1;;1;;~;
 ;
1 S GL="AR"
10 W !,$P($T(+1),U,2),*8,GL S I2=100
11 S I2=$O(@("^"_XQ_GL_"(0,I2)")) G Y:I2="" S U2=^(I2),BI=+$P(U2,U,16)
12 I I2<100 G 11
13 I GL'="AR",BI=116 S $P(^(I2),U,4)="" W " ... OK" G Y:GL="KL"
14 I GL="LE",BI=111 S U2=$P($T(T4),"~",2)_$P(^(I2),U,2,3)_$P($T(T4),"~",3)_$P(^(I2),U,5,6)_$P($T(T4),"~",4),^(I2)=U2 W " ... OK" G Y
15 I GL="AR",BI=118 S U2=$P($T(T1),"~",2)_$P(^(I2),U,2,3)_$P($T(T1),"~",3)_$P(^(I2),U,5,6)_$P($T(T1),"~",4),^(I2)=U2 W " ... OK" G Y
17 G 11
 ;
Y I GL="AR" W ! S U2="5Z" F BI=1:1 S U2=$O(@("^"_XQ_"AR(U2)")) Q:U2=""  I $E(U2)=6!($E(U2)=7) S $P(^(U2,0),D,20)=1 W BI,$C(13)
YA I GL="AR" S GL="KL" G 10
YB I GL="KL" S GL="LE" G 10
YC S @("^"_XQ_"BA(""MENU"",14,6)")=$P($T(T2),U,2)
YD S @("^"_XQ_"BA(""MENU"",12,22)")=$P($T(T3),U,2)
YZ K U2,BI,GL,I2 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
 ;