From d3f77e0804cbb3dbf403b4c009252e50ea47998d Mon Sep 17 00:00:00 2001
From: Alessandro Bonazzi <alexbonazzi5652@gmail.com>
Date: Mon, 15 Mar 2021 21:28:47 +0100
Subject: [PATCH] Patch level         : 12.0 1040 Files correlati     :
 babnoc.msk batbiva.msk Commento            :

Aggiunto il tipo Intra alle tabelle IVA
Aggiunta la tabella prestazioni dei servizi
---
 src/ba/bastcpa.rep | 41 +++++++++++++++++++++++++++++++++++++++++
 src/ba/bastcpa.uml | 36 ++++++++++++++++++++++++++++++++++++
 src/ba/batbcpa.h   |  2 ++
 src/ba/batbcpa.uml | 45 +++++++++++++++++++++++++++++++++++++++++++++
 src/ba/batbnoc.h   |  5 +----
 src/ba/batbnoc.uml |  8 --------
 6 files changed, 125 insertions(+), 12 deletions(-)
 create mode 100644 src/ba/bastcpa.rep
 create mode 100644 src/ba/bastcpa.uml
 create mode 100644 src/ba/batbcpa.h
 create mode 100644 src/ba/batbcpa.uml

diff --git a/src/ba/bastcpa.rep b/src/ba/bastcpa.rep
new file mode 100644
index 000000000..7ee381442
--- /dev/null
+++ b/src/ba/bastcpa.rep
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<report libraries="" page_merge="" save_printer="" name="bastcpa" use_printer_font="" orientation="" page_split="" lpi="6" command="" class="">
+ <font face="Courier New" size="10" />
+ <section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="" hidden="" page_break="" can_break="" pattern="1">
+  <field deactivated="" type="Testo" valign="center" hidden="" align="center" link="" dynamic_height="" shade_offset="" width="96" codval="" height="2" id="" pattern="2" hide_zero="" text="Tabella Classificazione prestazione dei servizi">
+   <font face="Courier New" bold="1" size="14" />
+  </field>
+  <field border="2" x="1" y="2.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="93" codval="" height="0" id="" pattern="2" hide_zero="" text="" />
+  <field x="2" y="3" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="6" codval="" id="" pattern="2" hide_zero="" text="Codice">
+   <font face="Courier New" bold="1" size="10" />
+  </field>
+  <field x="15" y="3" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="13" codval="" id="" pattern="2" hide_zero="" text="Denominazione">
+   <font face="Courier New" bold="1" size="10" />
+  </field>
+  <field border="2" x="1" y="4.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="93" codval="" height="0" id="" pattern="2" hide_zero="" text="" />
+ </section>
+ <section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="1" hidden="" page_break="" can_break="" pattern="1" />
+ <section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Body" level="" hidden="" page_break="" can_break="" pattern="1" />
+ <section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Body" level="1" hidden="" page_break="" can_break="" pattern="1">
+  <field x="2" deactivated="" type="Stringa" hidden="" link="%NOC.CODTAB[1,4]" dynamic_height="" shade_offset="" width="5" codval="" id="" pattern="2" hide_zero="" text="">
+   <source>CODTAB</source>
+  </field>
+  <field x="15" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="70" codval="" id="" pattern="2" hide_zero="" text="">
+   <source>S0</source>
+  </field>
+ </section>
+ <section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="" hidden="" height="3" page_break="" can_break="" pattern="1">
+  <field border="2" x="1" y="0.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="93" codval="" height="0" id="" pattern="2" hide_zero="" text="" />
+  <field x="2" y="1" deactivated="" type="Data" hidden="" link="" dynamic_height="" shade_offset="" width="10" codval="" id="" pattern="2" hide_zero="" text="">
+   <source>#SYSTEM.DATE</source>
+  </field>
+  <field x="90" y="1" deactivated="" type="Numero" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="3" codval="" id="" pattern="2" hide_zero="" text="">
+   <source>#PAGE</source>
+  </field>
+  <field border="2" x="1" y="2.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="93" codval="" height="0" id="" pattern="2" hide_zero="" text="" />
+ </section>
+ <section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="1" hidden="" page_break="" can_break="" pattern="1" />
+ <sql>USE %CPA
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
+</report>
\ No newline at end of file
diff --git a/src/ba/bastcpa.uml b/src/ba/bastcpa.uml
new file mode 100644
index 000000000..02a245e76
--- /dev/null
+++ b/src/ba/bastcpa.uml
@@ -0,0 +1,36 @@
+#include "ba3200.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <printbar.h>
+ENDPAGE
+
+PAGE "Stampa classificazione prestazioni dei servizi" 0 2 0 0
+
+STRING F_INIZIO1 5
+BEGIN
+  PROMPT 2 1 "Da codice "
+  FLAGS "U"
+  USE %CPA
+  INPUT CODTAB F_INIZIO1
+  DISPLAY "Classificazione" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_INIZIO1 CODTAB
+  FIELD FROM
+  GROUP 1
+END
+
+STRING F_FINE1 5
+BEGIN
+  PROMPT 2 2 "A codice  "
+  FLAGS "UZ"
+  COPY USE F_INIZIO1
+  INPUT CODTAB F_FINE1
+  DISPLAY "Classificazione" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_FINE1 CODTAB
+  FIELD TO
+  GROUP 2
+END
+
+ENDPAGE
+ENDMASK
diff --git a/src/ba/batbcpa.h b/src/ba/batbcpa.h
new file mode 100644
index 000000000..fac20f7f3
--- /dev/null
+++ b/src/ba/batbcpa.h
@@ -0,0 +1,2 @@
+#define CPA_CODICE     101
+#define CPA_DESCR      102
diff --git a/src/ba/batbcpa.uml b/src/ba/batbcpa.uml
new file mode 100644
index 000000000..04943f13b
--- /dev/null
+++ b/src/ba/batbcpa.uml
@@ -0,0 +1,45 @@
+#include "batbcpa.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Classificazione prestazioni dei servizi" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 7
+BEGIN
+  PROMPT 1 1 "@bClassificazione"
+END
+
+NUMBER CPA_CODICE 5
+BEGIN
+  PROMPT 2 3 "Codice      "
+  FLAGS "Z"
+  USE %CPA
+  INPUT CODTAB CPA_CODICE
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT CPA_CODICE CODTAB
+  OUTPUT CPA_DESCR S0
+  CHECKTYPE REQUIRED
+  FIELD CODTAB
+  KEY 1
+  VALIDATE FIXLEN_FUNC 5
+END
+
+STRING CPA_DESCR 50
+BEGIN
+  PROMPT 2 5 "Descrizione "
+  USE %CPA KEY 2
+  INPUT S0 CPA_DESCR
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT CPA_CODICE
+  CHECKTYPE REQUIRED
+  FIELD S0
+  KEY 2
+END
+
+ENDPAGE
+
+ENDMASK
diff --git a/src/ba/batbnoc.h b/src/ba/batbnoc.h
index dc7e89f29..2733d904a 100755
--- a/src/ba/batbnoc.h
+++ b/src/ba/batbnoc.h
@@ -5,7 +5,4 @@
 
 #define NOC_UMS_OBB    201 
 #define NOC_UMS_CODICE 202
-#define NOC_UMS_DESCR  203
-
-#define NOC_TIPO_INTRA 204
-
+#define NOC_UMS_DESCR  203
\ No newline at end of file
diff --git a/src/ba/batbnoc.uml b/src/ba/batbnoc.uml
index d51057e99..4af259232 100755
--- a/src/ba/batbnoc.uml
+++ b/src/ba/batbnoc.uml
@@ -118,14 +118,6 @@ 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