Patch level : 10.0

Files correlati     : ce2.exe
Ricompilazione Demo : [ ]
Commento            :
Modernizzata maschera ed aggiustati messaggi d'errore


git-svn-id: svn://10.65.10.50/branches/R_10_00@21756 c028cbd2-c16b-5b4b-a496-9718f37d4682

ce/ce2.cpp

@@ -14,6 +14,5 @@ int main(int argc,char** argv)
   case  4: ce2500(argc, argv); break; // Ripristino stampa bollato
   default: ce2100(argc, argv); break; // Calcolo ammortamenti
   }
-  exit(0);
   return 0;
 }

ce/ce2500.cpp

@@ -31,10 +31,10 @@ bool TRestore_boll_mask::on_field_event(TOperable_field& o, TField_event e, long
       const int esercizio = get_int(F_ESERCIZIO);
       const int gruppo = get_int(F_GRUPPO);
       const TString16 specie = get(F_SPECIE);
-      TString80 key; key.format("%4d%02d%s",esercizio, gruppo, (const char*) specie);
+      TString80 key; key.format("%4d%02d%s",esercizio, gruppo, (const char*)specie);
       const TRectype& ccb = cache().get("CCB", key);
       if (ccb.get_bool("B2"))
-        return error_box(TR("L'attivita' selezionata e' gia' stata chiusa. \nNon e' possibile ripristinare il bollato"));
+        return error_box(TR("L'attivita' selezionata e' gia' stata chiusa.\nNon e' possibile ripristinare il bollato"));
     }
     break;
   default:
@@ -76,8 +76,8 @@ void TRestore_boll::pulisci_movce()
   cespifilter.put(CESPI_CODCGRA,gru);
   cespifilter.put(CESPI_CODSPA,specie);
   
-  TString filtro1 = "ANSI(DTCOMP)<=";
+  TString80 filtro1;
-  filtro1 << fines.string(ANSI);
+  filtro1 << "ANSI(DTCOMP)<=" << fines.string(ANSI);
 
   TCursor curcespi(&relcespi, filtro1, 2, &cespifilter, &cespifilter);
   TRecnotype items = curcespi.items();
@@ -125,7 +125,8 @@ void TRestore_boll::pulisci_ccb()
     TTable ccb ("CCB");
     ccb.curr() = curr;
     ccb.put("B1", "");
-    ccb.rewrite();
+    if (ccb.rewrite() == NOERR)
+      (TRectype&)curr = ccb.curr();
   }
 }
 
@@ -159,11 +160,19 @@ void TRestore_boll::main_loop()
       const TString& spe = _mask->get(F_SPECIE);
       dc.set_attivita(ese, gru, spe);   
       
-      bool ok = TRUE;
+      bool ok = true;
+
+      TString msg; msg << TR(" il bollato dell'attività ") << gru << ' ' << spe << TR(" dell'anno ") << ese << '.';
       if (dc.bollato_stampato())
-        ok = yesno_box(TR("Si desidera veramente ripristinare il bollato dell'attivita'"));
+      {
+        msg.insert(TR("Si desidera veramente ripristinare"));
+        ok = yesno_box(msg);
+      }
       else
-        ok = warning_box(TR("Il bollato dell'attivita' non risulta stampato"));
+      {
+        msg.insert(TR("Non risulta ancora stampato"));
+        ok = warning_box(msg);
+      }
   
       if (ok)
       {

ce/ce2500a.uml

@@ -1,17 +1,7 @@
 #include "ce2500a.h"
 
 TOOLBAR "topbar" 0 0 0 2
-
+#include <stdbar.h>
-BUTTON DLG_OK 10 2
-BEGIN
-  PROMPT -12 -11 ""
-END
-
-BUTTON DLG_QUIT 10 2
-BEGIN
-  PROMPT -22 -11 ""
-END
-
 ENDPAGE
 
 PAGE "Ripristino stampa bollato" 0 2 0 0
@@ -23,7 +13,7 @@ END
 
 NUMBER F_DITTA 5
 BEGIN
-  PROMPT 1 2 "Ditta     "
+  PROMPT 1 2 "Ditta        "
   FLAGS "DF"
 END
 
@@ -39,7 +29,7 @@ END
 
 NUMBER F_ESERCIZIO 4
 BEGIN
-  PROMPT 1 4 "Esercizio "
+  PROMPT 1 4 "Esercizio    "
   FLAGS "AZ"
   USE CCE
   JOIN ESC ALIAS 104 INTO CODTAB==CODTAB
@@ -61,19 +51,19 @@ END
 
 DATE F_FINE_ES
 BEGIN
-  PROMPT 50 4 "Fine "
+  PROMPT 48 4 "Fine "
   FLAGS "D"
 END
 
 NUMBER F_GRUPPO 2
 BEGIN
-  PROMPT 1 5 "Gruppo    "
+  PROMPT 1 5 "Attività "
   FLAGS "Z"
 END
 
 STRING F_SPECIE 4
 BEGIN
-  PROMPT 16 5 "Specie "
+  PROMPT 14 5 ""
   FLAGS "_"
   USE CCB 
   JOIN %CAT ALIAS 400 INTO CODTAB=CODTAB[5,10]
@@ -83,15 +73,17 @@ BEGIN
   DISPLAY "Gruppo" CODTAB[5,6]
   DISPLAY "Specie" CODTAB[7,10]
   DISPLAY "Descrizione@50" 400@->S0
+  DISPLAY "Bollato@C" B1
+  DISPLAY "Chiusa@C" B2
   OUTPUT F_GRUPPO CODTAB[5,6]
   OUTPUT F_SPECIE CODTAB[7,10]
   OUTPUT F_DESC_GRSP 400@->S0
   CHECKTYPE FORCED
 END
 
-STRING F_DESC_GRSP 60 45
+STRING F_DESC_GRSP 60 50
 BEGIN
-  PROMPT 31 5 ""
+  PROMPT 26 5 ""
   FLAGS "D"
 END