cT361	;Controle inhoud 'CODA' ;%T36 ; [ 06/06/2000  11:24 AM ]
	G 1
	;
T0	;Controle inhoud 'CODA' ;
T1	;  Controle gegevens; + printen controlelijst;
T2	;Inschrijvingsnummer diskette\"zie bijgaand formulier";
T3	;Het inschrijvingsnummer is verkeerd ;
T4	;Het gironummer klopt niet ;
T5	;Plaats smal papier op de printer en schakel hem aan\"[] = ok   ,[] = hernemen";
T6	;Diskette : ;Rekening : ;
T7	; Record\ T\ A\ Bew.\ Det.\ Commentaar;;1\;
T8	;Er werden fouten gevonden ;
	;
T0F	;Contrôle contenu 'CODA' ;
T1F	;  Contrôle données; + impression liste de contrôle;
T2F	;N° d'immatriculation disquette\"voir formulaire ci-joint";
T3F	;Le n° d'immatriculation est fautif ;
T4F	;Le n° de compte bancair n'est pas correct ;
T5F	;Mettez du papier A4 dans l'imprimante et mettez-la en marche\"[] = ok   ,[] = hernemen";
T6F	;Disquette : ;Compte : ;
T7F	; Enreg.\ T\ A\ Mouv.\ Dét.\ Commentaire;;1\;
T8F	;Il y a des erreurs ;
	;
T0E	;Controle inhoud 'CODA' ;
T1E	;  Controle gegevens; + printen controlelijst;
T2E	;Inschrijvingsnummer diskette\"zie bijgaand formulier";
T3E	;Het inschrijvingsnummer is verkeerd ;
T4E	;Het gironummer klopt niet ;
T5E	;Plaats smal papier op de printer en schakel hem aan\"[] = ok   ,[] = hernemen";
T6E	;Diskette : ;Rekening : ;
T7E	; Record\ T\ A\ Bew.\ Det.\ Commentaar;;1\;
T8E	;Er werden fouten gevonden ;
	;
1	S FP=1601 W @F,@F1,!,$P($T(@("T1"_QT)),U,2),$P($T(@("T1"_QT)),U,4-KEU)
11	S ER=1 G YZ:'$D(^HULP("RC",Q,TNR,0)),39:'$E($P(^(0),D,7))
13	S K=$S($D(@("^"_Q_"BA(39)")):^(39),1:""),BEF=$P(K,D),TLF=$P(K,D,2),KLD=$P(K,D,3) S:BEF="" BEF="BEF" S:TLF="" TLF="N"
15	S:KLD="" KLD="BE" I KLD'="BE" G YZ
	;
2	;S R="INS\22\3\"_$P($T(@("T2"_QT)),U,2)_"\10\\$L(K)" D R0 G YZ:K="-" S TVG=0
	G YZ:K="-" S TVG=0
21	S TVG=$O(^HULP("RC",Q,TNR,TVG)) G YZ:TVG="",21:$E(^(TVG))'=0
23	;I $E(^(TVG),25,34)'=INS S K=$P($T(@("T3"_QT)),U,2) D F1 G 2
	S INS=$E(^(TVG),25,34)
25	S R="I1\2000\1\3\1\1\1\1\"_BEF D ^cT278 G 2:K="-" S FIN=$P(^(I1,0),D,9),TVG=0
27	S TVG=$O(^HULP("RC",Q,TNR,TVG)) G YZ:TVG="",27:$E(^(TVG))'=1
29	I $E(^(TVG),6,17)'=FIN S K=$P($T(@("T4"_QT)),U,2) D F1 G 25
	;
	; I KEU S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-,""[K" D R0 G 25:K="-",2:K=","
3	I KEU D ^cAN3223("","1","111") G 25:K="-",2:K=","
31	S HD(1)=D_$P($T(@("T0"_QT)),U,2)_";33;;2",HD(2)=D_$P($T(@("T6"_QT)),U,2)_INS_";33;;2",HD(3)=D_$P($T(@("T6"_QT)),U,3)_I1_";33;;2"
33	S TIT(1)=$P($T(@("T7"_QT)),U,2,999),TAB="9\13\17\24\31\51\79",(A,B,CRE,DEB,TVG)=0
35	S TVG=$O(^HULP("RC",Q,TNR,TVG)) I TVG'="" S A=A+1,L=^(TVG),TYPE=$E(L) D ^cT362:TYPE<3,^cT363:TYPE>2 G 35
37	S END=1 D ^cA334:KEU
38	I ER=1 S ER=0,$P(^HULP("RC",Q,TNR,0),D,7)=1_"#"_I1 G YZ
39	S K=$P($T(@("T8"_QT)),U,2) D F1
	;
YZ	K A,B,BEF,CRE,DEB,KLD,I1,INS,L,HD,TAB,TIT,TLF Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 29.10.02 - 11 u 38 * V7.93