cT634 ;Printen cheques ;%T63 ;do uit %T630 ; [ 04/07/00  11:30 AM ]
 G 1
 ;
T0 ;Printen cheques ;
 ;
T0F ;Impression chèques ;
 ;
T0E ;Printen cheques ;
 ;
S1 S ^HULP(boot,$J+.01,R,1)=$E(STR,1,$P(PAR,D,26))
S1A S ^(2)=$E(STR,1,$P(PAR,D,28))
S1B S ^(3)=$E(STR,1,$P(PAR,D,30))
S1Z Q
 ;
1 K ^HULP(boot,$J+.03),^($J+.01)
 ;
 ; vaste lijnen scherm 1
2 S ^HULP(boot,$J+.03,1)=$E(STR,1,$P(PAR,D,6))
21 S ^(2)=$E(STR,1,3)
22 S ^(3)=$E(STR,1,$P(PAR,D,12))
23 S ^(4)=$E(STR,1,$P(PAR,D,9))
24 S ^(5)=$E(STR,1,$P(PAR,D,15))
 ;
 ; vaste lijnen scherm 2
3 G 33:'$L($P(PAR,D,21)) S ^(6)=$E(STR,1,28)
31 S ^(7)=$E(STR,1,28)
32 S ^(8)=$E(STR,1,28)
33 S ^(9)=$E(STR,1,8)
34 S ^(10)=$E(STR,1,38)
35 S ^(11)=$E(STR,1,38)
36 S ^(12)=$E(STR,1,38)
37 S ^(13)=$E(STR,1,38)
38 S ^(14)=$E(STR,1,$P(PAR,D,30))
 ;
 ; variabele detaillijnen
4 F R=1:1:$P(PAR,D,31) D S1
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84