cA3350 ;Beheer journalen ;%A335 ;overlay %A335 ; [ 01/03/01  4:01 PM ]
 G 1
 ;
T0 ;Beheer journalen ;
T2 ;Journaalcodes : ;
T3 ;Aankoop;Verkoop;Diversen;Analytische verrichtingen;
T4 ; Nr\ Afk\ Omschrijving\ Opm;
T5 ;ok ; bg;
 ;
T0F ;Gestion des journaux ;
T2F ;Codes des journaux : ;
T3F ;Achat;Vente;Opérations diverses;Opérations analytiques;
T4F ; N°\ Abr\ Description\ Rem;
T5F ;ok ; hu;
 ;
T0E ;Journal codes ;
T2E ;Journal codes : ;
T3E ;Purchase;Sales;Misc.trans.;Analytical trans.;
T4E ; Nr\ Abb\ Description \ Rem;
T5E ;ok ; ou;
 ;
 ; overzicht op printer
1 S R=0_D_1 D ^cA345 G YZ:$L(K) D ^cA338
11 S HD(1)=D,HD(2)=D_$P($T(@("T2"_QT)),U,2)_$P($T(@("T3"_QT)),U,$F("AVDE",J))_";C",HD(3)=D
13 I J="A" D ^cA3350A,^cA339 G YZ
15 I J="V" D ^cA3350V,^cA339 G YZ
17 S TAB="6\12\73\79",TIT(1)=$P($T(@("T4"_QT)),U,2)
 ;
2 S I2=""
21 S I2=$O(@("^"_Q_"BA(I1,I2)")) I I2="" S END=1 D ^cA334,^cA339 G YZ
23 G 21:$E(I2)'=J S K=^(I2),J2=+$E(I2,2,4),J2=$S(J2:J2,1:""),TXT(1)=+J2_"\1\\1",J2=J_"FNR"_J2
25 S TXT(2)=$P(K,D,2)_"\\1",TXT(3)=$P(K,D)_"\\1",TXT(4)=$P($T(@("T5"_QT)),U,$P(K,D,3)+2)_"\\1"
27 D ^cA334 G 21
 ;
YZ G 3^cA335
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84