diff --git a/src/fp/fp0700.cpp b/src/fp/fp0700.cpp
index 7f7662fc7..6a1bec393 100644
--- a/src/fp/fp0700.cpp
+++ b/src/fp/fp0700.cpp
@@ -490,8 +490,8 @@ void TPAR_mask::print_reg()
TProgram_report mov_rep("fp0700a");
TISAM_recordset * recset = (TISAM_recordset *)mov_rep.recordset();
- recset->set_var("#NUM", nreg);
- recset->set_var("#TIPODOCSDI", tipo_doc_sdi);
+ recset->set_var("#NUM", nreg, true);
+ recset->set_var("#TIPODOCSDI", tipo_doc_sdi, true);
book.add(mov_rep);
}
}
diff --git a/src/fp/fp0700a.rep b/src/fp/fp0700a.rep
index 649cda469..99ae5f7de 100644
--- a/src/fp/fp0700a.rep
+++ b/src/fp/fp0700a.rep
@@ -16,6 +16,7 @@
"Tipo Documento " + #TIPODOCSDI
+ #TIPODOCSDI
20.RAGSOC
@@ -30,23 +31,23 @@
20.CAPCF
- 13.DENCOM + " " + 20.PROVCF
+ 13.DENCOM + " " + 13.PROVCOM
-
- TOTDOC
+
+ 23.TOTDOC
"Partita IVA " + 20.STATOPAIV + 20.PAIV
- "Protocollo Debito " + PROTIVA
+ "Protocollo Debito " + 23.PROTIVA
- "del " + DATAREG
+ "del " + 23.DATAREG
- REG
+ 23.REG
"Protocollo Credito " + 100@.PROTIVA
@@ -63,104 +64,82 @@
"del " + 100@.DATADOC
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
- 25-E;CODIVA
+
+ CODIVA
-
+
201@-E;S12
-
+
19-E;DESCR
-
- 25-E;IMPONIBILE
+
+ IMPONIBILE
#THIS @
#F1.100 +!
-
- 25-E;IMPOSTA
+
+ IMPOSTA
#THIS @
#F1.101 +!
-
+
#100+#101
-
- 25-E;GRUPPO
+
+ GRUPPO
-
- 25-E;CONTO
+
+ CONTO
-
- 25-E;SOTTOCONTO
+
+ SOTTOCONTO
-
- #THIS @
-0
-C;
-IF
-#THIS @
--1
-*
-#THIS !
-THEN
-
-
- #THIS @
-0
-C;
-IF
-"A" #100 !
-#THIS @
--1
-*
-#THIS !
-ELSE
-"D" #100 !
-THEN
-
-
+
+
#100+#101
- #THIS @
-0
-C;
-IF
-#THIS @
--1
-*
-#THIS !
-THEN
-
- USE MOV
-JOIN RMOVIVA INTO NUMREG==NUMREG
-JOIN MOV ALIAS 100 INTO NUMREG==MOVCOLL
+ USE RMOVIVA
+JOIN MOV INTO NUMREG==NUMREG
+JOIN MOV TO MOV ALIAS 100 INTO NUMREG==MOVCOLL
JOIN CLIFO TO 100@ INTO TIPOCF==TIPO CODCF==CODCF
JOIN COMUNI TO CLIFO INTO STATO==STATOCF COM==COMCF
-JOIN PCON TO RMOVIVA INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
-JOIN %IVA TO RMOVIVA ALIAS 201 INTO CODTAB==CODIVA
+JOIN PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
+JOIN %IVA ALIAS 201 INTO CODTAB==CODIVA
FROM NUMREG=#NUM
TO NUMREG=#NUM
\ No newline at end of file