diff --git a/m770/772200a.rep b/m770/772200a.rep
index d4b842e63..f2c564909 100755
--- a/m770/772200a.rep
+++ b/m770/772200a.rep
@@ -6,48 +6,66 @@
CODANAGR
- MESSAGE RESET,F2
-
-
-
+ MESSAGE RESET,F2.101
+MESSAGE RESET,F2.102
+MESSAGE RESET,F2.103
+MESSAGE RESET,F2.104
+MESSAGE RESET,F2.105
+
+
+
-
-
+
+ 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
@@ -56,7 +74,7 @@
#ANNO
-
+
#ATTESTA
@@ -78,12 +96,12 @@
-
+
-
-
+
+
@@ -91,37 +109,46 @@
-
-
-
+
+
+
+
+ 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
-
+ MESSAGE RESET,F3.101
+MESSAGE RESET,F3.102
+MESSAGE RESET,F3.103
+MESSAGE RESET,F3.104
+MESSAGE RESET,F3.105
+
SCHPER.CODCAUS
MESSAGE COPY,F3.98
@@ -131,19 +158,7 @@
MESSAGE TABLEREAD,%CA7,#98,S0
- #THIS @
-#F3.100 !
-
-
-
- MESSAGE TABLEREAD,%TRB,#99,S0
- #F3.100 @
-""
-=
-IF
-#THIS @
-#F3.100 !
-THEN
+ MESSAGE COPY,F3.100
@@ -168,21 +183,17 @@ THEN
RITENUTA
MESSAGE ADD,F3.104
-
- CTSSNPERC
- MESSAGE ADD,F3.107
-
-
- #101-#104-#107
- MESSAGE ADD,F3.108
+
+ #101-#104
+ MESSAGE ADD,F3.105
-
+
-
+
@@ -190,7 +201,7 @@ THEN
- MESSAGE ISAMREAD,NDITTE,CODDITTA=#200,RAGSOC
+ MESSAGE ISAMREAD,NDITTE,CODDITTA=CODDITTA,RAGSOC
@@ -210,19 +221,15 @@ THEN
-
-
-
-
+
- MESSAGE ISAMREAD,NDITTE,CODDITTA=#200,CODANAGR
+ MESSAGE ISAMREAD,NDITTE,CODDITTA=CODDITTA,CODANAGR
- MESSAGE ISAMREAD,NDITTE,CODDITTA=#200,TIPOA
+ MESSAGE ISAMREAD,NDITTE,CODDITTA=CODDITTA,TIPOA
-
MESSAGE ISAMREAD,ANAGR,TIPOA=#199!CODANAGR=#198,INDRES
@@ -249,7 +256,7 @@ THEN
-
+
@@ -264,13 +271,10 @@ THEN
MESSAGE ADD,F2.104
+
+ MESSAGE ADD,F2.105
+
-
- MESSAGE ADD,F2.107
-
-
- MESSAGE ADD,F2.108
-
USE RPAG
SELECT DATAPAG[1,4]=#ANNO
diff --git a/m770/772500a.rep b/m770/772500a.rep
index cd8d2b69b..17a067875 100755
--- a/m770/772500a.rep
+++ b/m770/772500a.rep
@@ -13,42 +13,56 @@
-
-
+
+ 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
@@ -96,26 +110,36 @@
-
+
+ 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