diff --git a/ca/ca3800a.rep b/ca/ca3800a.rep
index aee0e55bf..6cc52e725 100755
--- a/ca/ca3800a.rep
+++ b/ca/ca3800a.rep
@@ -109,7 +109,9 @@
STAMPAFASI != ""
CODCMS
- 0 #CONTATORE !
+ 0 #CONTATORE !
+
+ MESSAGE RESET,F4.169
STAMPAFASI
@@ -122,14 +124,14 @@
- 1
-#H4.3 \ incrementa il contatore per il numero di righe di fase
+ 1 #H4.3 \ incrementa il contatore per il numero di righe di fase
+!
-
+
CODCMS
-
- DESCRIZ
+
+
+ IF(#H4.3=0;DESCRIZ;"")
FASE
@@ -230,11 +232,30 @@ THEN
+
H4.2
+
+
+ #RICAVI @
+EMPTY= IF
+0
+ELSE
+1
+#COSTI @
+#RICAVI @
+F;
+-
+100
+*
+0
+ROUND
+THEN
+#THIS !
+
USE SALDANA
\ No newline at end of file