diff --git a/ba/batbind.h b/ba/batbind.h
index 4794c0ca8..37e23688f 100755
--- a/ba/batbind.h
+++ b/ba/batbind.h
@@ -20,7 +20,7 @@
 #define F_CAU_FATT    118
 #define F_CAU_NC      119
 #define F_CAU_INC     120
-#define F_CAU_ABB     121
-#define F_CAU_INS     122
-#define F_CAU_PAGINS  123
+#define F_CAU_INS     121
+#define F_CAU_PAGINS  122
+#define F_CPAG_NC     123
 
diff --git a/ba/batbind.uml b/ba/batbind.uml
index 828104d45..4e6c0977c 100755
--- a/ba/batbind.uml
+++ b/ba/batbind.uml
@@ -93,6 +93,7 @@ BEGIN
   DISPLAY "Descrizione@50" DESCR
   OUTPUT F_CAU_FATT CODCAUS 
   CHECKTYPE NORMAL
+  ADD RUN cg0 -4
   GROUP 1
 END
 
@@ -107,6 +108,7 @@ BEGIN
   DISPLAY "Descrizione@50" DESCR
   OUTPUT F_CAU_NC CODCAUS 
   CHECKTYPE NORMAL
+  ADD RUN cg0 -4
   GROUP 1
 END
 
@@ -121,51 +123,54 @@ BEGIN
   DISPLAY "Descrizione@50" DESCR
   OUTPUT F_CAU_INC CODCAUS 
   CHECKTYPE NORMAL
-  GROUP 1
-END
-
-STRING F_CAU_ABB 3
-BEGIN
-  FLAGS "UZ"
-  PROMPT 40 12 "Abbuono             "
-  FIELD S5[10,12]
-  USE LF_CAUSALI SELECT TIPOMOV==4
-  INPUT CODCAUS F_CAU_ABB
-  DISPLAY "Codice causale" CODCAUS
-  DISPLAY "Descrizione@50" DESCR
-  OUTPUT F_CAU_ABB CODCAUS 
-  CHECKTYPE NORMAL
+  ADD RUN cg0 -4
   GROUP 1
 END
 
 STRING F_CAU_INS 3
 BEGIN
   FLAGS "UZ"
-  PROMPT 40 13 "Insoluto            "
-  FIELD S5[13,15]
+  PROMPT 40 12 "Insoluto            "
+  FIELD S5[10,12]
   USE LF_CAUSALI SELECT TIPOMOV==5
   INPUT CODCAUS F_CAU_INS
   DISPLAY "Codice causale" CODCAUS
   DISPLAY "Descrizione@50" DESCR
   OUTPUT F_CAU_INS CODCAUS 
   CHECKTYPE NORMAL
+  ADD RUN cg0 -4
   GROUP 1
 END
 
 STRING F_CAU_PAGINS 3
 BEGIN
   FLAGS "UZ"
-  PROMPT 40 14 "Pagamento insoluto  "
-  FIELD S5[16,18]
+  PROMPT 40 13 "Pagamento insoluto  "
+  FIELD S5[13,15]
   USE LF_CAUSALI SELECT TIPOMOV==6
   INPUT CODCAUS F_CAU_PAGINS
   DISPLAY "Codice causale" CODCAUS
   DISPLAY "Descrizione@50" DESCR
   OUTPUT F_CAU_PAGINS CODCAUS 
   CHECKTYPE NORMAL
+  ADD RUN cg0 -4
   GROUP 1
 END
 
+STRING F_CPAG_NC 2
+BEGIN
+  FLAGS "UZ"
+  PROMPT 38 16 "Cod. pag. per note di credito     "
+  FIELD S7
+  USE %CPG SELECT (CODTAB?="??") && (S4=="1")
+  INPUT CODTAB F_CPAG_NC
+  DISPLAY "Cod. pagamento" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CPAG_NC CODTAB
+  CHECKTYPE NORMAL
+  ADD RUN ba3 -6
+END
+
 BOOLEAN F_BOLLATO
 BEGIN
   PROMPT 1 16 "Imposta il flag di bollato"
@@ -181,7 +186,7 @@ END
 
 DATE F_DATAULIN 
 BEGIN
-  PROMPT 46 17 "Data ultimo invio   "
+  PROMPT 38 17 "Data ultimo invio          "
   FIELD %IND->D0
   FLAGS "G"
 END