cT630 ;Printen cheques ;%T63 ;do naar %T63* ; [ 04/07/00  11:29 AM ]
 G 1
 ;
T0 ;Printen cheques ;
T1 ;Keuze\"[] = positioneertest   D[] = definitief printen   P[] = beheer parameters";
T2 ;Cheques;
T3 ;Goed geprint\".[] = ok   ,[] = opnieuw printen";
 ;
T0F ;Impression chèques ;
T1F ;Choix\"[] = teste position   D[] = imprimer définitivement   P[] = gestion paramètres";
T2F ;Chèques;
T3F ;Bien inprimé\".[] = ok   ,[] = reprendre";
 ;
T0E ;Printen cheques ;
T1E ;Keuze\"[] = positioneertest   D[] = definitief printen   P[] = beheer parameters";
T2E ;Cheques;
T3E ;Goed geprint\".[] = ok   ,[] = opnieuw printen";
 ;
XN ;NUL;EEN;TWEE;DRIE;VIER;VIJF;ZES;ZEVEN;ACHT;NEGEN;PUNT;
XF ;ZERO;UN;DEUX;TROIS;QUATRE;CINQ;SIX;SEPT;HUIT;NEUF;POINT;
XD ;NUL;EIN;ZWEI;DREI;VIER;VIJF;ZES;ZEVEN;ACHT;NEGEN;PUNT;
XE ;ZERO;ONE;TWO;THREE;FOUR;FIVE;SIX;SEVEN;EIGHT;NINE;POINT;
 ;
S1 S R0=R,R=""
S1A F R1=1:1:$L(R0) S R2=$E(R0,R1),R=R_$P($T(@("X"_KT)),U,$S(R2=".":12,1:R2+2))_" "
S1Z K R0,R1,R2 Q
 ;
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
10 I '$D(@("^"_Q_"BA(""AR"",BR)")) S ^(BR)="\3\1\0\10\32\2\10\32\43\47\11\2\43\16\\\\\\\6\10\20\3\27\34\10\45\13\20\43\4\43\48\20"
12 S R="SEL\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-DP""[K\\\1" D R0 G YZ:K="-" I K="P" D B^cA612,^cT631,C^cA612 G 1
14 S PAR=@("^"_Q_"BA(""AR"",BR)"),STR="",$P(STR,"*",99)="*" I '$D(BA39) S BA39=@("^"_Q_"BA(39)")
16 D ^cAN3223($P($T(@("T2"_QT)),U,2),"1") G 1:K="-"
 ;
2 X F70 W @F80 S FP=$P(PAR,D) S:FP="" FP=66 S:FP="." FP=72 W @F32
22 I SEL="" D ^cT634,^cT632,^cT633 X F71 G 1
 ;
3 S DAT=DT D ^cT66E2 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),DEC=HQD,I2=0
31 S I2=$O(@("^"_Q_"LE(I2)")) G 6:I2="" S LEV=^(I2,0),LNR=+$P(I2," ",2) I '$D(@("^"_Q_"L3(PRO,DATUM,LNR)")) G 31
32 K ^HULP(boot,$J+.03),^($J+.01) S (TOT,TEL,I1)=0,KT=$S($L($P(LEV,D,9)):$P(LEV,D,9),1:$P(BA39,D,2))
33 S I1=$O(@("^"_Q_"L3(PRO,DATUM,LNR,I1)")) G 4:I1="" I TEL,TEL'<$P(PAR,D,31) G 4
34 S K=@("^"_Q_"L3(PRO,DATUM,LNR,I1)"),R=$P(K,D,16) S:R="" R=$P(BA39,D)
35 S DEC=$$DEC^cAFA1(R),MUNT=$P($G(@("^"_Q_"BA(11,R)"),R),D)
36 S BE=$P(K,D,9)="C"*-2+1*$P(K,D,11),TOT=TOT+BE,TEL=TEL+1 I TEL=1,$L($P(K,D,7)) S KT=$P(K,D,7)
37 S ^HULP(boot,$J+.01,TEL,1)=$P(K,D,13),^(2)=$P(K,D,14),^(3)=$$IP^cAFA1(BE,DEC,$P(PAR,D,30)) G 33
 ;
4 S R=$J(TOT,0,DEC) D S1 S R=R_MUNT I $L(R)<$P(PAR,D,6) S R=R_$E(STR,1,$P(PAR,D,6)-$L(R))
41 S ^HULP(boot,$J+.03,1)=R,^(2)=MUNT,R=$J(TOT,0,DEC)_"*" S:$L(R)<$P(PAR,D,12) R=$E(STR,1,$P(PAR,D,12)-$L(R))_R S ^(3)=R
43 S ^(4)=$P(K,D,2),^(5)=$P(PAR,D,16) I $L($P(PAR,D,21)) S ^(6)=NM1,^(7)=NM2,^(8)=NM3
45 S ^(9)=DT,^(10)=$P(K,D,2),^(11)=$P(K,D,3),^(12)=$P(K,D,4)_" "_$P(K,D,5)
47 S R=$P(K,D,6),^HULP(boot,$J+.03,13)=$$LAND^cAFO1(R)
49 S ^HULP(boot,$J+.03,14)=$$IP^cAFA1(TOT,DEC,$P(PAR,D,30))
 ;
5 D ^cT632,^cT633 G 31:I1="" K ^HULP(boot,$J+.03),^($J+.01) S (TOT,TEL)=0 G 34
 ;
6 X F71
62 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 I K'="." G 1
 ;
7 S @%Q1=0,LNR=""
72 S LNR=$O(@("^"_Q_"L3(PRO,DATUM,LNR)")) G 79:LNR="" S I1=0
74 S I1=$O(@("^"_Q_"L3(PRO,DATUM,LNR,I1)")) G 72:I1="" S K=^(I1),R=$P(K,D,14)
76 I $D(@("^"_Q_"LE(^"_Q_"L1(LNR),R)")) S A=^(R),$P(A,D,11)=1,$P(A,D,12)=$P(A,D,12)+$P(K,D,11),$P(A,D,13)=$P(A,D,13)+$P(K,D,17),^(R)=A
78 G 74
79 K @("^"_Q_"L3(PRO,DATUM)") S @%Q1=1
 ;
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
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84