Patch level : 12.00 1382

Files correlati     : 777.exe 777200a.msk

Bug                 :

Commento:
Certificazione Unica 2025 - Invio forfettari e minimi

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();
           }
         }

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

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

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"