cAT15 ;BEHEER TEKSTEN HERINNERINGEN ;%AT15 ; [ 01/17/01  2:19 PM ]
 G 1
 ;
T0 ;Betalingsherinneringen : teksten ;
T1 ;Gelieve de parameters boekhouding te verifiëren  [] = ok ;
T2 ;Keuze;
T3 ;1[] = naam document   2[] = tekst bovenaan   3[] = tekst onderaan;
T4 ;-[] = einde programma;
T5 ;Naam document;Tekst bovenaan;Tekst onderaan;
T6 ;Taalkeuze;
T7 ;N[] = Nederlands   F[] = Frans   E[] = Engels   D[] = Duits   S[] = Spaans;
T8 ;Nederlands;Frans;Engels;Duits;Spaans;
T9 ;Nr rappel;
T10 ;x[] = cijfer van 1 tot ;   .[] = rappels met volgnummer groter dan ;
T11 ;groter dan ;
T12 ;Benaming ;rappel ;
T13 ;[] = ;
T14 ;' Herinnering;' Rappel;' Reminder;' Erinnerung;
T15 ;Lijn ;
T16 ;Lijnnummer;
 ;
T0F ;Textes sur rappels ;
T1F ;Veuillez vérifier les paramètres comptables   [] = ok;
T2F ;Choix;
T3F ;1[] = nom   2[] = texte au-dessus   3[] = texte au-dessous;
T4F ;-[] = fin du programme;
T5F ;Nom;Texte au-dessus;Texte au-dessous;
T6F ;Langue;
T7F ;N[] = Néerlandais   F[] = Français   E[] = English   D[] = Deutsch   S[] = Espagnol;
T8F ;Néerlandais;Français;English;Deutsch;Espagnol;
T9F ;Rappel;
T10F ;x[] = chiffre entre 1 et ;   .[] = rappels avec numéro supérieur à ;
T11F ;superieur à ;
T12F ;Nom ;rappel ;
T13F ;[] = ;
T14F ;' Herinnering;' Rappel;' Reminder;' Erinnerung;
T15F ;Ligne ;
T16F ;N° de ligne;
 ;
T0E ;Reminders : texts ;
T1E ;Please verify the settings accounting  [] = ok ;
T2E ;Choice;
T3E ;1[] = document name   2[] = header text   3[] = footer text;
T4E ;-[] = end program;
T5E ;Document name;Header text;Footer text;
T6E ;Language;
T7E ;N[] = Dutch   F[] = French   E[] = English   D[] = German   S[] = Spanish;
T8E ;Dutch;French;English;German;Spanish;
T9E ;Reminder;
T10E ;x[] = cipher from 1 until ;   .[] = reminders with number greater than ;
T11E ;greater than ;
T12E ;Name ;reminder ;
T13E ;[] = ;
T14E ;' Herinnering;' Rappel;' Reminder;' Erinnerung;
T15E ;Line ;
T16E ;Line number;
 ;
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 (P33,P74)="" S:$D(@("^"_Q_"BA(33)")) P33=^(33) S:$D(^(74)) P74=^(74)
13 S:'$P(P74,D,1) $P(P74,D,1)=9 S:'$P(P74,D,4) $P(P74,D,4)=9 G 17:$P(P33,D,12)
15 S FP=2403 W @F,@F1,@F4,$P($T(@("T1"_QT)),U,2),@F5,@F0 R K G YZ
17 W !!?2,$P($T(@("T6"_QT)),U,2)," :",!?2,$P($T(@("T9"_QT)),U,2)," :"
 ;
2 S R="KEU\22\3\"_$P($T(@("T2"_QT)),U,2)_"\C1\1\\""-123""[K&$L(K)" D R0 G YZ:K="-"
21 S SW1=0,FP=415 W @F,@F2 S FP=515 W @F,@F1 S FP=551 W @F,$P($T(@("T5"_QT)),U,K+1)
 ;
3 S R="TAA\22\3\"_$P($T(@("T6"_QT)),U,2)_"\C2\1\\""-,NFEDS""[K&$L(K)\\\1" D R0 I "-,"[K S FP=515 W @F,@F1 G 2
31 S FP=415 W @F,$P($T(@("T8"_QT)),U,$F("NFEDS",K))
33 S R="NRR\22\3\"_$P($T(@("T9"_QT)),U,2)_"\C3\1\\K?.N&K&(K'>$P(P33,D,12))!(""-,.""[K&$L(K))" D R0 I K="," D S1 G 2
34 G 37:K'="-" S FP=415 W @F,$J("",10) S FP=515 W @F,$J("",12) I KEU=1 S FP=715 W @F,$J("",15) G 3
35 F I=1:1:$P(P74,D,KEU*3-5) S FP=6+I*100+12 W @F,@F2
36 G 3
37 S FP=515 W @F,$J("",12),@F,$S(NRR:NRR,1:$P($T(@("T11"_QT)),U,2)_$P(P33,D,12)) I K="." S NRR=10
39 K B S K=$D(@("^"_Q_"KH(NRR,TAA,0)")) G 5:KEU>1
 ;
4 S B="" I $D(^(0)) S B=^(0)
41 S FP=703 W:'SW1 @F,$P($T(@("T12"_QT)),U,2)," :" S SW1=1,FP=715 W @F,@F1,$S($L(B):B,1:$S(NRR=10:B,1:NRR_$P($T(@("T14"_QT)),U,$F("NFEDS",TAA))))
43 S R="K\22\3\"_$P($T(@("T12"_QT)),U,2)_$P($T(@("T12"_QT)),U,3)_$S(NRR<10:NRR,1:$P($T(@("T11"_QT)),U,2)_$P(P33,D,12))_"\C4\15" D R0
45 G 33:K="-" I K="," D S1 G 2
47 S ^(0)=K,FP=715 W @F,$J("",15),@F,$S($L(K):K,1:$S(NRR=10:K,1:NRR_$P($T(@("T14"_QT)),U,$F("NFEDS",TAA)))) G 33
 ;
5 F I=1:1:9 S B(I)="" I $D(^(KEU-2*10+I)) S B(I)=^(KEU-2*10+I)
51 F I=1:1:$P(P74,D,KEU*3-5) S FP=6+I*100+3 W:'SW1 @F,$P($T(@("T15"_QT)),U,2),I," : " S FP=6+I*100+12 W @F,@F2,B(I)
53 S SW1=1
 ;
6 S R="LN\22\3\"_$P($T(@("T16"_QT)),U,2)_"\\1\\K?.N&K&(K'>$P(P74,D,KEU*3-5))!(""-,""[K&$L(K))" D R0 G 7:K="-" I K="," D S1 G 2
61 S KR=B(LN),R="KR\22\3\"_$P($T(@("T15"_QT)),U,2)_LN_"\\68\\\\\\\1" D R0 G 6:K="-" I K="," D S1 G 2
63 S B(LN)=K,FP=6+LN*100+12 W @F,@F2,K G 6
 ;
7 F I=1:1:9 S ^(KEU-2*10+I)=B(I)
71 K B G 33
 ;
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
 ;
S1 K B S FP=415 W @F,@F2 S FP=515 W @F,@F1
S1Z Q
 ;
C1 W !?2,$P($T(@("T3"_QT)),U,2),!?2,$P($T(@("T4"_QT)),U,2) Q
C2 W !?2,$P($T(@("T7"_QT)),U,2) Q
C3 W !?2,$P($T(@("T10"_QT)),U,2),$P(P33,D,12),$P($T(@("T10"_QT)),U,3),$P(P33,D,12) Q
C4 Q:NRR>9  W !?2,$P($T(@("T13"_QT)),U,2),NRR,$P($T(@("T14"_QT)),U,$F("NFEDS",TAA)) Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84