Merge branch 'R12.00.1244' of http://10.65.20.33/sirio/CAMPO/campo into R12.00.1244

cd/test/771252.txt

@@ -0,0 +1,5 @@
+776100a.msk
+776mod.exe
+777.exe
+
+Non venivano azzerati i flag di invio delle certificazioni uniche

cd/test/771252a.ini

@@ -0,0 +1,37 @@
+[Main]
+Demo=0
+
+[771]
+File(66) = 776200a.msk|X
+Patch = 1252
+Versione = 21511200
+
+[776]
+File(133) = 776mod.exe|X
+Patch = 1252
+Versione = 21511200
+
+[777]
+File(134) = 777.exe|X
+Patch = 1252
+Versione = 21511200
+
+[7799]
+Kill(0) = batbcaf.msk|x
+Kill(1) = batbca7.msk|x
+Kill(2) = batbent.msk|x
+
+[77]
+Data = 07-02-2023
+Descrizione = Percipienti (Mod.770)
+Dischi = 1
+Edit_4 = 770 -3
+Moduli = ba
+OEM = 
+Patch = 1252
+PostProcess = 
+PreProcess = 
+Prezzo(1) = 
+Prezzo(2) = 
+Versione = 21511200
+

cd/test/fp1252.txt

@@ -0,0 +1,4 @@
+sql\fp0\fp0124.sql
+fp0.exe
+
+Corretto il nome del campo sull FPPRO PZ_CODSDI e i relativi riferimenti a codice. precedentemente lo chiamavamo PZ_IDSDI

cd/test/fp1252a.ini

@@ -0,0 +1,23 @@
+[Main]
+Demo=0
+
+[fp0]
+File(0) = fp0.exe|X
+File(20) = sql\fp0\fp0124.sql|X
+Patch = 1252
+Versione = 21511200
+
+[fp99]
+Kill(0) = fppro.msk|x
+
+[fp]
+Data = 17-03-2023
+Descrizione = Fattura Elettronica
+Dischi = 1
+Moduli = cg,ve
+OEM = 
+Patch = 1252
+PostProcess = 
+PreProcess = 
+Versione = 21511200
+

src/m770/776200.cpp

@@ -51,7 +51,7 @@ bool TImmissioneDichiarazione::do_it()
   while ((tasto = _msk->run()) != K_QUIT)
   { 
     long codditta = _msk->get_long(F_CODDITTA);
-    if (exist_dichiar_770(codditta)) {
+    if (!_msk->get_bool(F_FORCE) && exist_dichiar_770(codditta)) {
       warning_box("La dichiarazione della ditta %ld esiste gia'", codditta);
       continue;
     }

src/m770/776200a.h

@@ -4,5 +4,5 @@
 #define F_CODDITTA      101
 #define F_RAGDITTA      102  
 #define F_ANNODIC       103
-
+#define F_FORCE         104
 #endif

src/m770/776200a.uml

@@ -44,6 +44,11 @@ BEGIN
   FLAGS "D"
 END
 
+BOOLEAN F_FORCE
+BEGIN
+  PROMPT 1 6 "Forza riapertura"
+END
+
 ENDPAGE
 
 ENDMASK

src/m770/777200.cpp

@@ -1087,7 +1087,6 @@ void TCU_mask::fill_row(TMask & m, const char * tipoa, long percip)
 
 bool TCU_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
 {
-	int i;
   switch (o.dlg())
   {
   case F_ANNO:
@@ -1309,7 +1308,7 @@ void TCU_app::main_loop()
     {
       tmp.add(CU_DEFAULT_NAME);
       if (yesno_box(FR("E' stato generato il file %s\nSi desidera visualizzarlo in anteprima?"), (const char*) tmp))
-        m.send_key(K_SPACE, DLG_PREVIEW);
+        m.send_key(K_SPACE, F_PRINT);
     }
     else
     {

src/m770/77lib01.cpp

@@ -513,8 +513,10 @@ bool enter_dichiar_770(long codditta, int anno_dic, bool sogg_dich)
     warning_box("rewrite su basebis fallita codice %d", rc2rw);
 #endif
 
-//  return (rc1 == NOERR && rc2 == NOERR);
+	TConfig ditta(CONFIG_DITTA, "CU");
-  return TRUE;
+
+	ditta.remove_all();
+  return true;
 }
 
 // Ritorna numero quadri L aggiuntivi