cA3050 ;BEHEER BTW-CODES ;%A3050 ; [ 12/29/00  5:14 PM ]
 ;
T0 ;Beheer BTW-codes ;
T1 ;Code;Tarief;Status;
T2 ;"-[] = einde programma";
T3 ;"0[] = actief   1[] = buiten gebruik";
T4 ;actief        ;buiten gebruik;
 ;
T0F ;Gestion des codes TVA ;
T1F ;Code;Tarif;Statut;
T2F ;"-[] = fin du programme";
T3F ;"0[] = actif   1[] = hors usage";
T4F ;actif         ;hors usage;
 ;
T0E ;VAT codes ;
T1E ;Code;Tariff;Level;
T2E ;"-[] = end program";
T3E ;"0[] = active   1[] = out of use";
T4E ;active        ;out of use;
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S R="403\1837",RH="603#637",RV="410#1810\420#1820" D ^cA319,S1^cA305
13 S II=1 F I=5,12,22 S FP=500+I,II=II+1 W @F,$P($T(@("T1"_QT)),U,II)
15 S II="",LN=6
17 F I=1:1 S II=$O(PBTW(II)) Q:'$L(II)  S LN=LN+1,FP=LN*100+5 W @F,$J(II,4) S FP=FP+7 W @F,PBTW(II) S FP=FP+10,STATUS=+$P(@("^"_Q_"BA(18,II)"),D,3) W @F,$P($T(@("T4"_QT)),U,2+STATUS)
 
2 S R="KODE\22\3\"_$P($T(@("T1"_QT)),U,2)_D_$P($T(@("T2"_QT)),U,2)_"\1\\K?1N!(K=""-"")" D R0 G YZ:K="-"
21 I '$D(PBTW(K)) G 2
23 S FP=2003 W @F,@F2,$P($T(@("T1"_QT)),U,2)," : ",K," = ",PBTW(K)
25 S R="STATUS\22\3\"_$P($T(@("T1"_QT)),U,4)_D_$P($T(@("T3"_QT)),U,2)_"\1\\K=""-""!(K=0)!(K=1)" D R0 I K="-" S FP=2003 W @F,@F2 G 2
 ;
3 I KODE?1N,$D(PBTW(KODE)) S $P(@("^"_Q_"BA(18,KODE)"),D,3)=STATUS 
31 S FP=2003 W @F,@F2 G 15
 ;
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84