Patch level : 12.0 1252

Files correlati     : 776mod.exe 777.exe 776200a.msk

Commento:
Non venivano azzerati i flag di invio delle certificazioni uniche

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:
@@ -1308,7 +1307,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);
-  return TRUE;
+	TConfig ditta(CONFIG_DITTA, "CU");
+
+	ditta.remove_all();
+  return true;
 }
 
 // Ritorna numero quadri L aggiuntivi