"S0" "'" "ABI" @ + "'" + "%BAN" TABLE_READ "S0" "'" "ABI" @ + "CAB" @ + "'" + "%BAN" TABLE_READ "DENCOM!#103=PROVCOM" "COM=" "S5" @ + 13 ISAM_READ ANAGR.COFI #THIS "TIPO" @ "C" = NEGATE IF SHOW #THIS @ STRLEN 11 = IF #THIS @ " " + #THIS ! THEN ELSE HIDE THEN #THIS "TIPO" @ "C" = NEGATE IF SHOW "ANAGR.RAGSOC" @ 0 30 STRMID #THIS ! ELSE HIDE THEN #THIS "TIPO" @ "C" = NEGATE IF SHOW "ANAGR.RAGSOC" @ 30 20 STRMID #THIS ! ELSE HIDE THEN "ANAGR.COFI" @ DUP "" = IF DROP "CLIFO.COFI" @ THEN DUP STRLEN 16 = IF 9 2 STRMID DUP 40 E; IF 40 - "F" #104 ! ELSE "M" #104 ! THEN #THIS ! THEN "ANAGR.COFI" @ DUP "" = IF DROP "CLIFO.COFI" @ THEN DUP STRLEN 16 = IF 8 1 STRMID #THIS ! THEN

"ANAGR.COFI" @ DUP "" = IF DROP "CLIFO.COFI" @ THEN DUP STRLEN 16 = IF 6 2 STRMID #THIS ! #THIS @ 1900 + DUP 50 C; IF 100 + THEN #THIS ! THEN ANAGR.INDRES+", "+ANAGR.CIVRES #THIS "TIPO" @ "C" = NEGATE IF SHOW ELSE HIDE THEN

MESSAGE SHOW,2@ MESSAGE HIDE,1@

MESSAGE SHOW,1@ MESSAGE HIDE,2@

#THIS "TIPO" @ "C" = NEGATE IF SHOW "DENCOM!#103=PROVCOM" "COM=" "ANAGR.COMRES" @ + 13 ISAM_READ ELSE HIDE THEN "DENCOM!#106=PROVCOM" "COM=" "ANAGR.COFI" @ DUP "" = IF DROP "CLIFO.COFI" @ THEN DUP STRLEN 16 = IF 11 4 STRMID THEN + 13 ISAM_READ

VARIABLE HB0 VARIABLE HB1 VARIABLE HB2 VARIABLE HB3 VARIABLE HB4 VARIABLE HB5 VARIABLE LS VARIABLE HS 0 "HB0" ! 7 "HB1" ! 5 "HB2" ! 5 "HB3" ! 5 "HB4" ! 4 "HB5" ! "" LS ! 0 TOT_SEC_HEIGHT HS !

SEZIONE "F2" "HB" "SEZIONE" @ SEC_2_INDEX + @ SET_SEC_HEIGHT "H2" HS @ "SEZIONE" @ SEC_2_INDEX TOT_SEC_HEIGHT - "SEZIONE" @ SEC_2_INDEX LS @ SEC_2_INDEX - 2 * + SET_SEC_HEIGHT "SEZIONE" @ LS !

"f24.png"

SEZIONE='E' "F2" DECR_SEC_HEIGHT TRIBUTO RATEAZIONE ANNO IMPORTODEB #THIS @ "F2.101" +! IMPORTOCRE #THIS @ "F2.102" +!

SEZIONE='I' "F2" DECR_SEC_HEIGHT RIGHEF24.SEDE TRIBUTO RIGHEF24.MATRICOLA RIGHEF24.PERIODODA RIGHEF24.PERIODOA IMPORTODEB #THIS @ "F2.101" +! IMPORTOCRE #THIS @ "F2.102" +!

SEZIONE=='R' "F2" DECR_SEC_HEIGHT RIGHEF24.CODREG TRIBUTO RATEAZIONE ANNO IMPORTODEB #THIS @ "F2.101" +! IMPORTOCRE #THIS @ "F2.102" +!

SEZIONE=='L' "F2" DECR_SEC_HEIGHT RIGHEF24.ENTECOM #THIS @ DUP 4 SWAP STRLEN DO " " + LOOP #THIS ! RIGHEF24.RAVVED RIGHEF24.IMMVAR RIGHEF24.ACCONTO RIGHEF24.SALDO RIGHEF24.NUMIMM TRIBUTO RATEAZIONE ANNO IMPORTODEB #THIS @ "F2.101" +! IMPORTOCRE #THIS @ "F2.102" +!

SEZIONE=='N' "F2" DECR_SEC_HEIGHT RIGHEF24.SEDE RIGHEF24.POSASS RIGHEF24.CIN RIGHEF24.NUMRIF RIGHEF24.CAUSINAIL IMPORTODEB #THIS @ "F2.101" +! IMPORTOCRE #THIS @ "F2.102" +!

0 #THIS !

\ Ripristina l'altezza del footer "F2" "HB2" @ SET_SEC_HEIGHT LS @ SEC_2_INDEX 1 + TOT_SEC_HEIGHT HS ! #101-#102 "F2" REP_MESSAGE_ALIGN_BOTTOM MESSAGE ADD,F1.103 "F2" REP_MESSAGE_ALIGN_BOTTOM 0 #THIS ! "F2" REP_MESSAGE_ALIGN_BOTTOM 0 #THIS !

USE RIGHEF24 KEY 5 JOIN ANAGR INTO TIPOA==TIPO CODANAGR==CODICE JOIN CLIFO INTO TIPOCF==TIPO CODCF==CODICE FROM F24=#DISTINTA TO F24=#DISTINTA : SET_SEC_HEIGHT ( s h -- ) 0 SWAP ROT SET_SIZE ; : DECR_SEC_HEIGHT ( s -- ) DUP GET_SIZE SWAP DROP 1 - SET_SEC_HEIGHT ; : SEC_2_INDEX ( s -- n ) DUP "E" = IF 1 ELSE DUP "I" = IF 2 ELSE DUP "R" = IF 3 ELSE DUP "L" = IF 4 ELSE DUP "N" = IF 5 ELSE 0 THEN THEN THEN THEN THEN SWAP DROP ; : TOT_SEC_HEIGHT ( n -- n ) VARIABLE TOT 0 TOT ! 6 SWAP DO "HB" I + @ TOT +! LOOP TOT @ ;