diff --git a/ve/vetbspp.h b/ve/vetbspp.h
index bf79e5f7c..cf80baf14 100755
--- a/ve/vetbspp.h
+++ b/ve/vetbspp.h
@@ -25,6 +25,7 @@
 #define SPP_CODTRB        125
 #define SPP_CODTRB1       126
 #define SPP_SEZIONE       127
+#define SPP_CODCAUS770    128
 
 #define SPP_CDC_V1      130
 #define SPP_CDC_V2      131
diff --git a/ve/vetbspp.uml b/ve/vetbspp.uml
index 1241642f5..ea94b996d 100755
--- a/ve/vetbspp.uml
+++ b/ve/vetbspp.uml
@@ -356,12 +356,29 @@ BEGIN
   CHECKTYPE NORMAL
 END
 
+
+NUMBER SPP_CODCAUS770 2
+BEGIN
+  PROMPT 2 21 "Codice causale "
+  USE %CA7 SELECT I0==#SPP_CODTRB
+  INPUT CODTAB SPP_CODCAUS770
+  DISPLAY "Cod.caus." CODTAB
+  DISPLAY "Cod.trib." I0
+  DISPLAY "Art.bil." I3
+  DISPLAY "Quadro "  S1
+  DISPLAY "Descrizione @60" S0
+  OUTPUT SPP_CODCAUS770  CODTAB
+  FLAGS "Z"
+  CHECKTYPE NORMAL
+  KEY 1
+END
+
 LISTBOX SPP_SEZIONE 6
 BEGIN
-  PROMPT 2 21 "Sezione per cooperative "
+  PROMPT 20 21 "Sezione per cooperative "
   FIELD S11
   ITEM "D|Dare"
-  ITEM "A|Avere"
+  ITEM "A|Avere" 
 END
 
 ENDPAGE