From 07fef4ee9c146cb9dc467be4f171651121dc7004 Mon Sep 17 00:00:00 2001
From: Alessandro Bonazzi <alexbonazzi5652@gmail.com>
Date: Sun, 14 Mar 2021 23:52:04 +0100
Subject: [PATCH] Patch level         : 12.0 1040 Files correlati     :
 babnoc.msk batbiva.msk Commento            :

Aggiunto il tipo Intra alle tabelle IVA e Nomenclatura combinata
---
 src/ba/batbiva.h   |  9 +++++----
 src/ba/batbiva.uml | 19 +++++++++++++++----
 src/ba/batbnoc.h   |  2 ++
 src/ba/batbnoc.uml | 10 +++++++++-
 4 files changed, 31 insertions(+), 9 deletions(-)

diff --git a/src/ba/batbiva.h b/src/ba/batbiva.h
index fb9c29a5a..e5d0603f8 100755
--- a/src/ba/batbiva.h
+++ b/src/ba/batbiva.h
@@ -24,7 +24,8 @@
 #define FLD_DESCR_I1   125
 #define FLD_INDET_S4   126
 #define FLD_NATURA     127
-#define CHK_TABIVA_B5  128
-#define FLD_NUM_B6     129
-#define FLD_DEN_B7     130
-#define FLD_DEN_B8		 131
+#define FLD_TIPOINTRA  128
+#define CHK_TABIVA_B5  129
+#define FLD_NUM_B6     130
+#define FLD_DEN_B7     131
+#define FLD_DEN_B8		 132
diff --git a/src/ba/batbiva.uml b/src/ba/batbiva.uml
index 355de10cc..a4d42feda 100755
--- a/src/ba/batbiva.uml
+++ b/src/ba/batbiva.uml
@@ -343,9 +343,20 @@ BEGIN
   ITEM "N7|N7 IVA assolta in altro stato U3"
 END
 
+LIST FLD_TIPOINTRA 1 9
+BEGIN
+  PROMPT 3 20 "Tipo Intra: "
+  FIELD S13
+  HELP "Indicare la natura del codice IVA per le fatture PA/TF"
+  ITEM "|"
+  ITEM "B|Beni"
+  ITEM "S|Servizi"
+  ITEM "7|art.7 ter"
+END
+
 BOOLEAN FLD_NUM_B6
 BEGIN
-  PROMPT 3 21 "Fa parte del numeratore pro-rata"
+  PROMPT 3 22 "Fa parte del numeratore pro-rata"
   MESSAGE TRUE DISABLE,FLD_DEN_B7|"X",FLD_DEN_B7
   MESSAGE FALSE ENABLE,FLD_DEN_B7
   FIELD B6
@@ -353,19 +364,19 @@ END
 
 BOOLEAN FLD_DEN_B7
 BEGIN
-  PROMPT 40 21 "Fa parte del denominatore pro-rata"
+  PROMPT 40 22 "Fa parte del denominatore pro-rata"
   FIELD B7
 END
 
 BOOLEAN FLD_DEN_B8
 BEGIN
-  PROMPT 3 22 "Reverse charge attivo"
+  PROMPT 3 23 "Reverse charge attivo"
   FIELD B8
 END
 
 BOOLEAN FLD_SOSPESO_B2
 BEGIN
-  PROMPT 3 23 "Codice IVA sospeso"
+  PROMPT 3 24 "Codice IVA sospeso"
   FIELD B2
 END
 
diff --git a/src/ba/batbnoc.h b/src/ba/batbnoc.h
index 22a05ed9f..dc7e89f29 100755
--- a/src/ba/batbnoc.h
+++ b/src/ba/batbnoc.h
@@ -7,3 +7,5 @@
 #define NOC_UMS_CODICE 202
 #define NOC_UMS_DESCR  203
 
+#define NOC_TIPO_INTRA 204
+
diff --git a/src/ba/batbnoc.uml b/src/ba/batbnoc.uml
index e2fe6e850..d51057e99 100755
--- a/src/ba/batbnoc.uml
+++ b/src/ba/batbnoc.uml
@@ -68,7 +68,7 @@ BEGIN
   KEY 2
 END
 
-GROUPBOX DLG_NULL 78 7
+GROUPBOX DLG_NULL 78 6
 BEGIN
   PROMPT 1 8 "@bUnità di misura supplementare"
   FLAGS "R"        
@@ -118,6 +118,14 @@ BEGIN
   GROUP 1
 END
 
+LIST NOC_TIPO_INTRA 1 7
+BEGIN
+  PROMPT 2 15 "Tipo Intra        "
+  ITEM "B|Beni"
+  ITEM "S|Servizi"
+  FIELD S6
+END
+
 ENDPAGE
 
 ENDMASK