diff --git a/ca/ca1800a.rep b/ca/ca1800a.rep
index 8b1a763de..67551be24 100755
--- a/ca/ca1800a.rep
+++ b/ca/ca1800a.rep
@@ -227,6 +227,7 @@ THEN
#THIS @ \ se importo negativo cambia segno e inverte sezione
+DUP
0 C; IF
-1 *
#THIS !
@@ -238,7 +239,8 @@ THEN
"D"
THEN
#105 !
-
+ELSE
+ DROP
THEN
@@ -253,6 +255,7 @@ THEN
#THIS @ \ se importo negativo cambia segno e inverte sezione
+DUP
0 C; IF
-1 *
#THIS !
@@ -264,7 +267,8 @@ THEN
"D"
THEN
#107 !
-
+ELSE
+ DROP
THEN
@@ -290,6 +294,7 @@ THEN
#THIS @ \ se importo negativo cambia segno e inverte sezione
+DUP
0 C; IF
-1 *
#THIS !
@@ -301,7 +306,8 @@ THEN
"D"
THEN
#105 !
-
+ELSE
+ DROP
THEN
@@ -316,6 +322,7 @@ THEN
#THIS @ \ se importo negativo cambia segno e inverte sezione
+DUP
0 C; IF
-1 *
#THIS !
@@ -327,7 +334,8 @@ THEN
"D"
THEN
#107 !
-
+ELSE
+ DROP
THEN
@@ -349,6 +357,7 @@ THEN
#THIS @ \ se importo negativo cambia segno e inverte sezione
+DUP
0 C; IF
-1 *
#THIS !
@@ -360,7 +369,8 @@ THEN
"D"
THEN
#105 !
-
+ELSE
+ DROP
THEN
@@ -373,6 +383,7 @@ THEN
#THIS @ \ se importo negativo cambia segno e inverte sezione
+DUP
0 C; IF
-1 *
#THIS !
@@ -384,7 +395,8 @@ THEN
"D"
THEN
#107 !
-
+ELSE
+ DROP
THEN