cT362	;Controlelijst 'CODA' ;%T36 ; [ 04/04/00  1:39 PM ]
	G 0
	;
T0	;Controlelijst 'CODA' ;
T1	;Ins. diskette;Naam bestemmeling;Id. bestemmeling;Id. rekeninghouder;BIC bank;
T2	;Familie;Verrichting;Detailcode;
T3	;Gironummer;Omschrijving Rek.;Uittreksel/Saldo;Rekeninghouder;
T4	;Bedrag;Beweging;Mededeling;Binding Bestand;
T5	;Giro tegenpartij;Tegenpartij;Adres;Woonplaats;
	;
T0F	;Liste de contrôle 'CODA' ;
T1F	;Imm. disquette;Nom destinataire;Id. destinataire;Id. titulaire;BIC banque;
T2F	;Famille;Opération;Code détail;
T3F	;N° compte;Description compte;Extrait/Solde;Titulaire;
T4F	;Montant;Mouvement;Communication;Reliage fichier;
T5F	;N° compte parti adverse;Parti adverse;Adresse;Domicile;
	;
T0E	;Controlelijst 'CODA' ;
T1E	;Ins. diskette;Naam bestemmeling;Id. bestemmeling;Id. rekeninghouder;BIC bank;
T2E	;Familie;Verrichting;Detailcode;
T3E	;Gironummer;Omschrijving Rek.;Uittreksel/Saldo;Rekeninghouder;
T4E	;Bedrag;Beweging;Mededeling;Binding Bestand;
T5E	;Giro tegenpartij;Tegenpartij;Adres;Woonplaats;
	;
0	S TXT(1)=A_"\1\\1",TXT(2)=TYPE_"\\1" G 1:TYPE=0,2:TYPE=1,3:TYPE=2,YZ
	;
	;Familie
SF	S TXT(7)=TXT(7)_"\\1\\\\K_"" = ""_$S('$D(^cBA(4,K)):""?"",1:$S($P(^(K),D,9):"""",1:""* "")_$P(^(K),D,$F(""NFED"",TLF)-1))"
SFZ	S TXT(6)=$P($T(@("T2"_QT)),U,2)_"\\1",XX=$P(TXT(7),D) D ^cA334:KEU Q
	;
	;Verrichting
SV	S TXT(7)=TXT(7)_"\\1\\\\K_"" = ""_$S('$D(^cBA(4,XX,K)):""?"",1:$S($P(^(K),D,9):"""",1:""* "")_$P(^(K),D,$F(""NFED"",TLF)-1))"
SVZ	S TXT(6)=$P($T(@("T2"_QT)),U,3)_"\\1" D ^cA334:KEU Q
	;
	;Detail
SD	S TXT(7)=TXT(7)_"\\1\\\\K_"" = ""_$S('$D(^cBA(5,K)):""?"",1:$S($P(^(K),D,9):"""",1:""* "")_$P(^(K),D,$F(""NFED"",TLF)-1))"
SDZ	S TXT(6)=$P($T(@("T2"_QT)),U,4)_"\\1" D ^cA334:KEU Q
	;
	;Afdrukken
S0	S TXT(6)=TXT(6)_"\\1",TXT(7)=TXT(7)_"\\1" D ^cA334:KEU S (TXT(1),TXT(2))=""
S0Z	Q
	;
S1	S (TXT(3),TXT(4),TXT(5))=""
S1Z	Q
	;
	;Type 0
1	S TXT(6)=$P($T(@("T1"_QT)),U,2),TXT(7)=$E(L,25,34) D S1,S0
11	S TXT(6)=$P($T(@("T1"_QT)),U,3),TXT(7)=$E(L,35,60) D S0
12	S TXT(6)=$P($T(@("T1"_QT)),U,4+(VERSIE=2*2))  ; KU : 11.03.08 : Versie 2 : BIC bank
	S TXT(7)=$E(L,61,71) D S0
13	S TXT(6)=$P($T(@("T1"_QT)),U,5),TXT(7)=$E(L,72,82) D S0
14	S TXT(7)=$E(L,84,85) D SF
15	S TXT(7)=$E(L,86,87) D SV
16	G Y
	;
	;Type 1
2	S TXT(6)=$P($T(@("T3"_QT)),U,2),TXT(7)=$$BANK^cAFO1(GIRO)_"\\1\\\\" D S1,S0  ; KU : 09.05.08
	; S TXT(6)=$P($T(@("T3"_QT)),U,2),TXT(7)=$E(L,6,17)_"\\1\\\\"_$G(^BA(6,KLD,2)) D S1,S0
21	S TXT(6)=$P($T(@("T3"_QT)),U,3),TXT(7)=$E(L,91,125) D S0
22	S TXT(6)=$P($T(@("T3"_QT)),U,4),TXT(7)=$E(L,3,5)_"\\1\\\\K_"" / ""_$TR($FN($E(L,44,58)/1000,"","","_QD_"),"",."",$S(QD:"".,"",1:"".""))"
23	S TXT(7)=TXT(7)_"_"" ""_$E(""CD"",$E(L,43)+1)" D S0
24	S TXT(6)=$P($T(@("T3"_QT)),U,5),TXT(7)=$E(L,65,90) D S0
25	G Y
	;
	;Type 2
3	S ART=$E(L,2),TXT(3)=ART_"\\1",TXT(4)=$E(L,3,6)_"\\1",TXT(5)=$E(L,7,10)_"\\1" G 4:ART=2,5:ART=3
31	S TXT(6)=$P($T(@("T4"_QT)),U,2),TXT(7)=$E(L,33,47)/1000_"\\1\\\\$TR($FN(K,"","","_QD_"),"",."",$S(QD:"".,"",1:"".""))_"" ""_$E(""CD"",$E(L,32)+1)" D S0,S1
32	S TXT(7)=$E(L,54)_"\\1\\\\K_"" = ""_$S('$D(^cBA(6,K)):""?"",1:$S($P(^(K),D,9):"""",1:""* "")_$P(^(K),D,$F(""NFED"",TLF)-1))"
33	S TXT(6)=$P($T(@("T4"_QT)),U,3) D S0
34	S TXT(7)=$E(L,55,56) D SF
35	S TXT(7)=$E(L,57,58) D SV
36	S TXT(7)=$E(L,59,61) D SD
37	S TXT(6)=$P($T(@("T4"_QT)),U,4),TXT(7)=$E(L,63,115) D S0
38	S TXT(6)=$P($T(@("T4"_QT)),U,5),TXT(7)=$E(L,127) I TXT(7) D S0
39	S XX=$S("0356789"[$E(L,54):$E(L,33,47)/1000,1:0) S:$E(L,32) DEB=DEB+XX S:'$E(L,32) CRE=CRE+XX G Y
	;
	;Type 2.2
4	S TXT(6)=$P($T(@("T4"_QT)),U,4),TXT(7)=$E(L,11,63) D S0,S1
41	G Y
	;
	;Type 2.3
5	S GIROK=$E(L,11,22)    ; gironr versie 1
	I VERSIE=2 S GIROK=$$GIRO^cT361($E(L,11,47))  ; gironummer versie 2
	S TXT(6)=$P($T(@("T5"_QT)),U,2),TXT(7)=$$BANK^cAFO1(GIROK)_"\\1\\\\" D S0,S1  ; KU : 09.05.08
	; S TXT(6)=$P($T(@("T5"_QT)),U,2),TXT(7)=$E(L,11,22)_"\\1\\\\"_$G(^BA(6,KLD,2)) D S0,S1
51	S TXT(6)=$P($T(@("T5"_QT)),U,3),TXT(7)=$E(L,48,73+(VERSIE=2*9)) D S0  ; KU : 11.03.08 : Versie 2 : enkel naam
52	S TXT(6)=$P($T(@("T5"_QT)),U,4) 
	I VERSIE=2 S TXT(6)=$P($T(@("T4"_QT)),U,4)  ; KU : 11.03.08 : Versie 2 : mededeling
	S TXT(7)=$E(L,74,99) D S0
53	S TXT(6)=$P($T(@("T5"_QT)),U,5)
	I VERSIE=2 S TXT(6)=$P($T(@("T4"_QT)),U,4)  ; KU : 11.03.08 : Versie 2 : mededeling
	S TXT(7)=$E(L,100,125) D S0
54	G Y
	;
Y	S END=3 D ^cA334:KEU I TYPE,TYPE<9,$S(VERSIE=2:TYPE'=4,1:1) S B=B+1  ; KU : 11.03.08 : Versie 2 : type 4 niet meetellen
YA	I 'KEU S FP=2203 W @F,A
YZ	K TXT,XX Q
	;
ZZ	; 24.09.08 - 13 u 49 * V9.04