Certificazioni
CODANAGR
MESSAGE RESET,F2
ANAGR.RAGSOC
IF(#101='',ANAGR.CIVRES,ANAGR.CIVRF)
IF(#101='',ANAGR.CAPRES,ANAGR.CAPRF)
COMUNI.DENCOM
COMUNI.PROVCOM
MESSAGE ISAMREAD,ANAFIS,CODANAGR=CODANAGR,DATANASC
MESSAGE ISAMREAD,COMUNI,COM=#102,DENCOM
ANAGR.COFI
ANAGR.PAIV
#ANNO
#ATTESTA
#LUOGO
#DATA
#ANNO
ANAGR.COMRF
ANAGR.COMRES
IF(#101='',ANAGR.INDRES,ANAGR.INDRF)
CODDITTA
MESSAGE COPY,F2.200
MESSAGE ISAMREAD,ANAFIS,CODANAGR=ANAGR.CODANAGR,COMNASC
MESSAGE ISAMREAD,COMUNI,COM=#201,DENCOM
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
#THIS @
#F3.100 !
MESSAGE TABLEREAD,%TRB,#99,S0
#F3.100 @
""
=
IF
#THIS @
#F3.100 !
THEN
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
CTSSNPERC
MESSAGE ADD,F3.107
#101-#104-#107
MESSAGE ADD,F3.108
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.107
MESSAGE ADD,F2.108
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