From f9c7dea6d879de2346a305becbf31e21847620ec Mon Sep 17 00:00:00 2001
From: Alessandro Bonazzi <alexbonazzi5652@gmail.com>
Date: Tue, 18 Feb 2025 18:27:37 +0100
Subject: [PATCH] Patch level         : 12.00 1382 Files correlati     :
 777.exe 777200a.msk

Bug                 :

Commento:
Certificazione Unica 2025 - Invio forfettari e minimi
---
 src/m770/777200.cpp  | 13 ++++++++++---
 src/m770/777200a.h   |  1 +
 src/m770/777200a.uml | 23 ++++++++++++++---------
 src/m770/777lib.h    |  4 ----
 4 files changed, 25 insertions(+), 16 deletions(-)

diff --git a/src/m770/777200.cpp b/src/m770/777200.cpp
index 3d24d5c0c..5e91cd9ac 100755
--- a/src/m770/777200.cpp
+++ b/src/m770/777200.cpp
@@ -1294,6 +1294,8 @@ void TCU_app::main_loop()
 
         TISAM_recordset perc(query);
         const TRecnotype nperc = perc.items();
+				const bool invforfmin = m.get_bool(F_FORFMIN);
+
         if (nperc > 0)
         {
           TProgress_monitor pp(nperc, TR("Generazione record percipienti"));
@@ -1302,9 +1304,14 @@ void TCU_app::main_loop()
 
           for (bool ok = perc.move_first(); ok; ok = perc.move_next())
           {
-            t.append_record_d(rec, log);
-						if (t.get_operazione() != 'A')
-							t.append_record_h(rec, modulo, log);
+						const real percrit = perc.get_real(QUD_PERC);
+
+						if (percrit != ZERO || invforfmin)
+						{
+							t.append_record_d(rec, log);
+							if (t.get_operazione() != 'A')
+								t.append_record_h(rec, modulo, log);
+						}
             pp.add_status();
           }
         }
diff --git a/src/m770/777200a.h b/src/m770/777200a.h
index 3f8c1c38a..1ccaa5583 100644
--- a/src/m770/777200a.h
+++ b/src/m770/777200a.h
@@ -7,6 +7,7 @@
 #define F_QUALITY  110
 #define F_SIMPLE   111
 #define F_PRINT    112
+#define F_FORFMIN	 113
 
 #define F_INVIO          115
 #define F_IDENTIFICATIVO 116
diff --git a/src/m770/777200a.uml b/src/m770/777200a.uml
index ac6fa18e6..23b65b2c4 100644
--- a/src/m770/777200a.uml
+++ b/src/m770/777200a.uml
@@ -79,7 +79,7 @@ BEGIN
   FLAGS "DG"
 END
 
-GROUPBOX DLG_NULL 78 5
+GROUPBOX DLG_NULL 78 6
 BEGIN
   PROMPT 1 6 "@bParametri di generazione"
 END 
@@ -130,40 +130,45 @@ BEGIN
   FLAGS "D"
 END
 
+BOOLEAN F_FORFMIN
+BEGIN
+  PROMPT 2 10 "Invia minimi e forfettari"
+END
+
 GROUPBOX DLG_NULL 78 4
 BEGIN
-  PROMPT 1 11 "@bParametri di stampa"
+  PROMPT 1 12 "@bParametri di stampa"
 END 
 
 BOOLEAN F_QUALITY
 BEGIN
-  PROMPT 2 12 "Stampa sfondi colorati del modulo"
+  PROMPT 2 13 "Stampa sfondi colorati del modulo"
 END
 
 BOOLEAN F_SIMPLE
 BEGIN
-  PROMPT 42 12 "Modello sintetico"
+  PROMPT 42 13 "Modello sintetico"
 END
 
 BOOLEAN F_INVIATE
 BEGIN
-  PROMPT 2 13 "Visualizza le certificazioni inviate"
+  PROMPT 2 14 "Visualizza le certificazioni inviate"
 END
 
 
 BOOLEAN F_RESET
 BEGIN
-  PROMPT 42 13 "Azzera Invio"
+  PROMPT 42 14 "Azzera Invio"
 END
 
 GROUPBOX DLG_NULL 78 4
 BEGIN
-  PROMPT 1 15 "@bParametri di invio"
+  PROMPT 1 16 "@bParametri di invio"
 END 
 
 LIST F_INVIO 1 12
 BEGIN
-  PROMPT 2 16 "Tipo operazione "
+  PROMPT 2 17 "Tipo operazione "
   ITEM " |Normale"       MESSAGE DISABLE,F_IDENTIFICATIVO
   ITEM "A|Annullamento"  MESSAGE ENABLE,F_IDENTIFICATIVO
   ITEM "S|Sostituzione"  MESSAGE ENABLE,F_IDENTIFICATIVO
@@ -171,7 +176,7 @@ END
 
 STRING F_IDENTIFICATIVO 17
 BEGIN
-  PROMPT 2 17 "Identificativo invio "
+  PROMPT 2 18 "Identificativo invio "
   FLAGS "RZ"
   CHECKTYPE REQUIRED
 END
diff --git a/src/m770/777lib.h b/src/m770/777lib.h
index 29f71683c..d5fc394b6 100644
--- a/src/m770/777lib.h
+++ b/src/m770/777lib.h
@@ -5,10 +5,6 @@
 #include <isam.h>
 #endif
 
-// Codice fiscale di Sirio Informatica e Sistemi S.p.A.
-#define CF_PRODUTTORE get_iva_sirio();
-
-// Nota che sono anche definiti in 777200.h
 #define THIS_YEAR "2025"
 #define THIS_YEARN atoi(THIS_YEAR)
 #define LAST_YEAR "2024"