Stampa progressivi soci formato B
#SYSTEM.DATE
#REPORT.PAGE
#SYSTEM.RAGSOC
#SYSTEM.DATE
#REPORT.PAGE
" " + #ANNO
#ANNO
CODTAB[1,6]
0 #F2.113 !
CODTAB[1,6]
CLIFO.RAGSOC
CODTAB[11,12]
"R0" @ #F2.101 ! "R0" @ #F2.113 @ + #F2.113 !
"R0" @ #F2.102 ! "R0" @ #F2.113 @ + #F2.113 !
"R0" @ #F2.103 ! "R0" @ #F2.113 @ + #F2.113 !
"R0" @ #F2.104 ! "R0" @ #F2.113 @ + #F2.113 !
"R0" @ #F2.105 ! "R0" @ #F2.113 @ + #F2.113 !
"R0" @ #F2.106 ! "R0" @ #F2.113 @ + #F2.113 !
"R0" @ #F2.107 ! "R0" @ #F2.113 @ + #F2.113 !
"R0" @ #F2.108 ! "R0" @ #F2.113 @ + #F2.113 !
"R0" @ #F2.109 ! "R0" @ #F2.113 @ + #F2.113 !
"R0" @ #F2.110 ! "R0" @ #F2.113 @ + #F2.113 !
"R0" @ #F2.111 ! "R0" @ #F2.113 @ + #F2.113 !
"R0" @ #F2.112 ! "R0" @ #F2.113 @ + #F2.113 !
R0
USE PSC
SELECT (CODTAB[7,10] =#ANNO)(CODTAB[11,12]C;=#MESE)(CODTAB[1,6]E;=#DASOCIO)((CODTAB[1,6]C;=#ASOCIO)||(#ASOCIO=0))
JOIN CLIFO INTO TIPOCF=="F" CODCF=CODTAB[1,6]