Certificazioni dettagliate
#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
DATAPAG
RPAG.PERC
SCHPER.CODCAUS
MESSAGE TABLEREAD,%CA7,#98,I0
COMPENSO
MESSAGE ADD,F2.101
IMPONIBILE
MESSAGE ADD,F2.102
SPESA+#101-#102
MESSAGE ADD,F2.103
RITENUTA
MESSAGE ADD,F2.104
CTSSNPERC
MESSAGE ADD,F2.107
#101-#104-#107
MESSAGE ADD,F2.108
MESSAGE TABLEREAD,%CA7,#98,S0
MESSAGE TABLEREAD,%TRB,#99,S0
#111 @
DUP
""
=
IF
DROP
#112 @
THEN
#THIS !
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
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