cT363 ;Controlelijst 'CODA' ;%T36 ; [ 04/04/00  1:40 PM ]
 G 0
 ;
T0 ;Controlelijst 'CODA' ;
T1 ;Slaat terug op;Mededeling;
T2 ;Familie;Verrichting;Detailcode;
T3 ;Nieuw saldo;
T4 ;Aantal records;Totaal Debet;Totaal Credit;Einde/Vervolg;Dit is het einde;Er volgt nog een bestand;
T5 ;Controle;
 ;
T0F ;Liste de contrôle 'CODA' ;
T1F ;Réfère à;Communication;
T2F ;Famille;Opération;Code détail;
T3F ;Nouveau solde;
T4F ;Nombre d'enreg.;Total débit;Total crédit;Fin/Suite;Ceci est la fin;Un autre fichier suit;
T5F ;Contrôle;
 ;
T0E ;Controlelijst 'CODA' ;
T1E ;Slaat terug op;Mededeling;
T2E ;Familie;Verrichting;Detailcode;
T3E ;Nieuw saldo;
T4E ;Aantal records;Totaal Debet;Totaal Credit;Einde/Vervolg;Dit is het einde;Er volgt nog een bestand;
T5E ;Controle;
 ;
0 S TXT(1)=A_"\1\\1",TXT(2)=TYPE_"\\1" G 1:TYPE=3,4:TYPE=4,5:TYPE=8,6:TYPE=9,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 3
1 S ART=$E(L,2),TXT(3)=ART_"\\1",TXT(4)=$E(L,3,6)_"\\1",TXT(5)=$E(L,7,10)_"\\1" G 2:ART=2,3:ART=3
11 S TXT(6)=$P($T(@("T1"_QT)),U,2),TXT(7)=$E(L,32) D S0,S1
12 S TXT(7)=$E(L,33,34) D SF
13 S TXT(7)=$E(L,35,36) D SV
14 S TXT(6)=$P($T(@("T1"_QT)),U,3),TXT(7)=$E(L,41,113) D S0
15 G Y
 ;
 ;Type 3.2
2 S TXT(6)=$P($T(@("T1"_QT)),U,3),TXT(7)=$E(L,11,115) D S0,S1
21 G Y
 ;
 ;Type 3.3
3 S TXT(6)=$P($T(@("T1"_QT)),U,3),TXT(7)=$E(L,11,100) D S0,S1
31 G Y
 ;
 ;Type 4
4 S TXT(3)="",TXT(4)=$E(L,3,6)_"\\1",TXT(5)=$E(L,7,10)_"\\1"
41 S TXT(6)=$P($T(@("T1"_QT)),U,3),TXT(7)=$E(L,33,112) D S0,S1
42 G Y
 ;
 ;Type 8
5 S TXT(7)=$E(L,43,57)/1000_"\\1\\\\$TR($FN(K,"","","_QD_"),"",."",$S(QD:"".,"",1:"".""))_"" ""_$E(""CD"",$E(L,42)+1)"
51 S TXT(6)=$P($T(@("T3"_QT)),U,2) D S1,S0
52 G Y
 ;
 ;Type 9
6 S TXT(6)=$P($T(@("T4"_QT)),U,2),TXT(7)=$E(L,17,22)_"\\1\\1\\" D S1,S0
61 S TXT(6)=$P($T(@("T5"_QT)),U,2),TXT(7)=B_"\\1\\1\\" D S0 I B-$E(L,17,22) S ER=2
62 S TXT(6)=$P($T(@("T4"_QT)),U,3),TXT(7)=$E(L,23,37)/1000_"\\1\\1\"_QD_D D S0
63 S TXT(6)=$P($T(@("T5"_QT)),U,2),TXT(7)=DEB_"\\1\\1\"_QD_D D S0 I $E(L,23,37)/1000-DEB S ER=2
64 S TXT(6)=$P($T(@("T4"_QT)),U,4),TXT(7)=$E(L,38,52)/1000_"\\1\\1\"_QD_D D S0
65 S TXT(6)=$P($T(@("T5"_QT)),U,2),TXT(7)=CRE_"\\1\\1\"_QD_D D S0 I $E(L,38,52)/1000-CRE S ER=2
66 S TXT(6)=$P($T(@("T4"_QT)),U,5),TXT(7)=$P($T(@("T4"_QT)),U,$E(L,128)+6) D S0
67 G Y
 ;
Y S END=3 D ^cA334:KEU I TYPE,TYPE<9 S B=B+1
YA I 'KEU S FP=2203 W @F,A
YZ K TXT,XX Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84