cT631 ;BEHEER PARAMETERS CHEQUES ;%T63 ;do uit %T630 ;do naar %AT141 ; [ 01/24/96  4:51 PM ]
 G 1
 ;
T0 ;Beheer parameters cheques ;
T1 ;Er bestaan ;schermen.;
T2 ;Welk scherm : ;-[] = einde programma;
T3 ;Scherm ;
 ;
T0F ;Gestion paramètres des chèques ;
T1F ;Il y a ;écrans.;
T2F ;Quel écran : ;-[] = fin du programme;
T3F ;Ecran ;
 ;
T0E ;Beheer parameters cheques ;
T1E ;Er bestaan ;schermen.;
T2E ;Welk scherm : ;-[] = einde programma;
T3E ;Scherm ;
 ;
S2 S U2=A(U1),(K,U3)="" I $L($P(U2,U,4)),@$P(U2,U,4) G S204
S200 I $L($P(U2,U,7)),@$P(U2,U,14) X "S (K,U3)="_$P(U2,U,7) G S204
S202 I $L($P(U2,U,16)),$P(U2,U,16)'?1N.N,$D(@$P(U2,U,16)) X "S (K,U3)="_$P(U2,U,16)
S204 I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
S2A S FP=$P(U2,U,5)*100+$P(U2,U,6) G S2Z:'SW5 I '$P(U2,U,23) S FP=FP-3 W @F,@F9,":"
S2B S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U1#100,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U,1),@F9
S2C S FP=$P(U2,U,5)*100+$P(U2,U,6)
S2Z W:'SW5 @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) W @F,U3 Q
 ;
1 S (SW2,SW4,SW5)=1,PNT="........................................",@%Q1=0
11 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
12 S K=$O(@("^"_Q_"BA(""AR"",0)"))
13 S X=SW4+($N(^(SW4+1*100))?1N.N) G 15:X=SW4 S SW4=X G 13
15 I SW4=1 D S1 G 25
17 S FP=269 W @F,@F5 S FP=254,K=$T(@("T1"_QT)) W @F,@F5,$P(K,U,2),@F4,SW4," ",@F5,$P(K,U,3) G 35
 ;
19 D TXT^cAFA1(14) G 25
 ;
25 S U1=100
28 L @("^"_Q_"BA(""AR"")"):2 E  G 19
29 S U1=$N(A(U1)) I U1>0 D S2 G 29
31 S MEM=SW2,SW2=1 D ^cAT141 S SW2=MEM G YZ:SW4=1
 ;
35 S FP=2203+F60,K=$P($T(@("T2"_QT)),U,2) W @F,@F1,K S FP=FP+100 W @F,$P($T(@("T2"_QT)),U,3) S FP=FP-100+$L(K)
36 W @F,".",@F2,@F,@F0 R U4 G YZ:U4="-",36:U4'?1N,36:'U4!(U4>SW4)
37 S FP=2103+F60 W @F,@F1 S FP=355 W @F,$P($T(@("T3"_QT)),U,2),U4
39 I SW2'=U4!SW5 S SW2=U4,SW5=1,FP=401 W @F,@F1 D S1
41 G 25
 ;
YZ K A,B L  Q
 ;
S1 S Y=$D(@("^"_Q_"BA(""AR"",0)")),Y=SW2+1*100,X=SW2*100,K=100 K A
S1A S X=$N(^(X)) I X>0,X<Y S K=K+1,A(K)=^(X) G S1A
S1Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84