Certificazioni
#ATTESTA @
DUP
0 = IF
DROP
1
THEN
"H2.210" !
CODANAGR
MESSAGE RESET,F2
ANAGR.TIPOA
ANAGR.RAGSOC
IF(#101='',ANAGR.CIVRES,ANAGR.CIVRF)
IF(#101='',ANAGR.CAPRES,ANAGR.CAPRF)
COMUNI.DENCOM
COMUNI.PROVCOM
1
1
1
1
MESSAGE ISAMREAD,ANAFIS,CODANAGR=CODANAGR,DATANASC
MESSAGE ISAMREAD,COMUNI,COM=#102,DENCOM
ANAGR.COFI
ANAGR.PAIV
#ANNO
#THIS @ 1 + #THIS !
#LUOGO
#DATA
#ANNO
ANAGR.TIPOA
MESSAGE ENABLE,1@
MESSAGE DISABLE,1@
ANAGR.COMRF
ANAGR.COMRES
IF(#101='',ANAGR.INDRES,ANAGR.INDRF)
CODDITTA
MESSAGE COPY,F2.200
1
MESSAGE ISAMREAD,ANAFIS,CODANAGR=ANAGR.CODANAGR,COMNASC
1
MESSAGE ISAMREAD,COMUNI,COM=#201,DENCOM
1
MESSAGE ISAMREAD,COMUNI,COM=#201,PROVCOM
SCHPER.CODCAUS
MESSAGE RESET,F3
SCHPER.CODCAUS
MESSAGE COPY,F3.98
MESSAGE TABLEREAD,%CA7,#98,I0
MESSAGE COPY,F3.99
MESSAGE TABLEREAD,%CA7,#98,S0
MESSAGE COPY,F3.100
RPAG.PERC
MESSAGE COPY,F3.106
COMPENSO
MESSAGE ADD,F3.101
IMPONIBILE
MESSAGE ADD,F3.102
SPESA+#101-#102
MESSAGE ADD,F3.103
RITENUTA
MESSAGE ADD,F3.104
#101-#104
MESSAGE ADD,F3.105
MESSAGE ISAMREAD,NDITTE,CODDITTA=#200,RAGSOC
MESSAGE ISAMREAD,NDITTE,CODDITTA=#200,CODANAGR
MESSAGE ISAMREAD,NDITTE,CODDITTA=#200,TIPOA
MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,INDRES
MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,CIVRES
MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,CAPRES
MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,COMRES
MESSAGE ISAMREAD,COMUNI,COM=#206,DENCOM
MESSAGE ISAMREAD,COMUNI,COM=#206,PROVCOM
MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,COFI
MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,PAIV
MESSAGE ADD,F2.101
MESSAGE ADD,F2.102
MESSAGE ADD,F2.103
MESSAGE ADD,F2.104
MESSAGE ADD,F2.105
USE RPAG
SELECT DATAPAG[1,4]=#ANNO
BY CODDITTA TIPOA CODANAGR SCHPER.CODCAUS
JOIN SCHPER INTO CODDITTA==CODDITTA TIPOA==TIPOA CODANAGR==CODANAGR NPROG==NPROG
JOIN ANAGR INTO TIPOA==TIPOA CODANAGR==CODANAGR
JOIN COMUNI TO ANAGR INTO COM==COMRF(COMRES)
FROM CODDITTA=#CODDITTA TIPOA=#TIPODA CODANAGR=#CODANAGRDA
TO CODDITTA=#CODDITTA TIPOA=#TIPOA CODANAGR=#CODANAGRA