From f5c520de781363df05e24209ada27be713d4e0c3 Mon Sep 17 00:00:00 2001
From: Alessandro Bonazzi <alexbonazzi5652@gmail.com>
Date: Tue, 24 Mar 2026 17:14:39 +0100
Subject: [PATCH] Patch level         : 12.00 140 Files correlati     :
 ve010.exe fp010.exe Commento                : Invio ritente e casse
 previdenziali

---
 src/ve/vetbspp.uml | 62 ++++++++++++++++++++++++----------------------
 1 file changed, 33 insertions(+), 29 deletions(-)

diff --git a/src/ve/vetbspp.uml b/src/ve/vetbspp.uml
index 5424471d7..7b54b68a1 100755
--- a/src/ve/vetbspp.uml
+++ b/src/ve/vetbspp.uml
@@ -332,16 +332,20 @@ END
 
 LIST SPP_TIPORIT 4 37
 BEGIN
-  PROMPT 2 19 "Tipo Ritenuta "
+  PROMPT 2 20 "Tipo Ritenuta "
   FIELD S13[1,4]
   ITEM "|"
-  ITEM "RT01|RT01 - Ritenuta persone fisiche"
-  ITEM "RT02|RT02 - Ritenuta persone giuridiche"
+  ITEM "RT01|Ritenuta persone fisiche"
+  ITEM "RT02|Ritenuta persone giuridiche"
+  ITEM "RT03|contributo INPS"
+  ITEM "RT04|contributo ENASARCO"
+  ITEM "RT05|contributo ENPAM"
+  ITEM "RT06|altro contributo previdenziale"
 END
 
 LISTBOX SPP_TIPOCAS 64
 BEGIN             
-  PROMPT 2 19 "Tipo Cassa    "
+  PROMPT 2 20 "Tipo Cassa    "
   ITEM " | "
   ITEM "TC01|Cassa avvocati e procuratori legali"
   ITEM "TC02|Cassa dottori commercialisti"
@@ -369,9 +373,9 @@ BEGIN
   FLAGS "D"
 END
 
-LIST SPP_TIPOSP 1 20
+LIST SPP_TIPOSP 1 10
 BEGIN
-  PROMPT 2 20 "Tipologia di spesa/prestazione "
+  PROMPT 2 21 "Tipo di spesa/prestazione "
   FIELD S11[1,1]
   ITEM " |Altro"
   ITEM "I|Incasso"
@@ -379,9 +383,25 @@ BEGIN
   ITEM "T|Trasporto" 
 END
 
+BOOLEAN SPP_SOGGRIT
+BEGIN
+	PROMPT 42 21 "Soggetto a ritenuta"
+	FLAGS "D"
+	FIELD B0
+	GROUP 4
+END
+
+BOOLEAN SPP_CALCRIT
+BEGIN
+	PROMPT 64 21 "Soggetto al calcolo rit."
+	FLAGS "D"
+	FIELD B1
+	GROUP 4
+END
+
 STRING SPP_CODTRB 4
 BEGIN
-  PROMPT 2 21  "Cod. tributo   "
+  PROMPT 2 22 "Cod. tributo   "
   FIELD S10
   FLAG "U"
   USE %TRB
@@ -395,9 +415,9 @@ END
 
 STRING SPP_CODTRB1 50 22
 BEGIN
-  PROMPT 25 21 ""
+  PROMPT 25 22 ""
   USE %TRB KEY 2
-  INPUT S0  SPP_CODTRB1
+  INPUT S0 SPP_CODTRB1
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice " CODTAB
   OUTPUT SPP_CODTRB CODTAB
@@ -407,7 +427,7 @@ END
 
 NUMBER SPP_CODCAUS770 2
 BEGIN
-  PROMPT 2 22 "Caus. 770 "
+  PROMPT 2 23 "Caus. 770 "
   USE %CA7 SELECT I0==#SPP_CODTRB
   INPUT CODTAB SPP_CODCAUS770
   DISPLAY "Cod.caus." CODTAB
@@ -424,7 +444,7 @@ END
 
 LISTBOX SPP_CODQUA 2 10
 BEGIN
-  PROMPT 20 22 "Quadro    "
+  PROMPT 20 23 "Quadro    "
   HELP "Inserire il codice quadro"
   ITEM "|" MESSAGE CLEAR,SPP_CAUSD
   ITEM "LA|Quadro LA" MESSAGE ENABLE,SPP_CAUSD
@@ -436,7 +456,7 @@ END
 
 STRING SPP_CAUSD 2
 BEGIN             
-  PROMPT 50 22 "Causale LA "
+  PROMPT 50 23 "Causale LA "
   FLAGS "U"
   SHEET "Codice|Descrizione@320"
   INPUT SPP_CAUSD
@@ -480,28 +500,12 @@ END
 
 LISTBOX SPP_SEZIONE 6
 BEGIN
-  PROMPT 70 22 "Sezione per cooperative "
+  PROMPT 70 23 "Sezione per cooperative "
   FIELD S11[5,5]
   ITEM "D|Dare"
   ITEM "A|Avere" 
 END
 
-BOOLEAN SPP_SOGGRIT
-BEGIN
-	PROMPT 40 23 "Soggetto a ritenuta"
-	FLAGS "D"
-	FIELD B0
-	GROUP 4
-END
-
-BOOLEAN SPP_CALCRIT
-BEGIN
-	PROMPT 65 23 "Soggetto al calcolo rit."
-	FLAGS "D"
-	FIELD B1
-	GROUP 4
-END
-
 ENDPAGE
 PAGE "Analitica" 11 60 14