Patch level : 10.0 1154

Files correlati     : fe0.exe fe0300a.msk
Ricompilazione Demo : [ ]
Commento            :
Prima versione del programma per sommare più file spesometro


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

fe/fe0300.cpp

@@ -1,6 +1,8 @@
 #include <applicat.h>
 #include <automask.h>
+#include <utility.h>
 
+#include "felib.h"
 #include "fe0100a.h"
 
 ///////////////////////////////////////////////////////////
@@ -11,21 +13,180 @@ class TSomma_spesometro_msk : public TAutomask
 {
 protected:
   virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
+  void elabora(const TString_array& a, const TFilename& n) const;
+  
+  bool str2fname(const TString& name, TFilename& n) const;
+  bool row2fname(const TToken_string& row, TFilename& n) const;
+  void enable_buttons();
 
 public:
   TSomma_spesometro_msk() : TAutomask("fe0300a") { load_profile(); }
   ~TSomma_spesometro_msk() { save_profile(); }
 };
 
+bool TSomma_spesometro_msk::str2fname(const TString& name, TFilename& n) const
+{
+  if (name.blank() || name.len() < 4)
+    return false;
+
+  if (name.full() && name[1] != ':')
+  {
+    n = get(F_OUTFOLDER); 
+    n.add(name);
+  }
+  else
+    n = name;
+  n.replace('/', '\\');
+  return n.exist();
+}
+
+bool TSomma_spesometro_msk::row2fname(const TToken_string& row, TFilename& n) const
+{
+  TString80 name; row.get(0, name);
+  return str2fname(name, n);
+}
+
+void TSomma_spesometro_msk::elabora(const TString_array& infiles, const TFilename& outfile) const
+{
+  int anno = 2010;
+
+  TFilename n;
+  if (row2fname(infiles.row(0), n))
+  {
+    const TDati_rilevanti_set s(n);
+    anno = s.anno();
+  }
+
+  TDati_rilevanti_set outset(anno);
+  outset.add_header(*this);
+  
+  FOR_EACH_ARRAY_ROW(infiles, r, row) if (row2fname(*row, n))
+  {
+    const int len = outset.record_length();
+    ifstream s(n, ios::binary);
+    TString row(len);
+    while (!s.eof())
+    {
+      s.read(row.get_buffer(), len);
+      if (row[0] != '0' && row[0] != '9')
+        outset.new_rec(row);
+    }
+  }
+
+  outset.add_footer();
+  outset.sort();
+  outset.save_as(outfile);
+
+  if (outset.items() > 15000)
+  {
+    outset.split(outfile);
+    const int n = (outset.items()-1) / 15000 + 1;
+    warning_box(FR("E' stato generato il file %s, separato in %d parti da 15000 record."), (const char*)outfile, n);
+  }
+  else
+    message_box(FR("E' stato generato il file %s"), (const char*)outfile);
+
+  TDati_rilevanti_rep rep(outfile);
+  rep.preview();
+}
+
+void TSomma_spesometro_msk::enable_buttons()
+{
+  const TSheet_field& righe = sfield(F_RIGHE);
+  enable(DLG_ELABORA, !righe.empty());
+
+  TFilename n;
+  enable(DLG_PREVIEW, str2fname(get(F_OUTFILE), n));
+}
+
 bool TSomma_spesometro_msk::on_field_event(TOperable_field& o, TField_event e, long jolly)
 {
   switch (o.dlg())
   {
-  case F_OUTFOLDER:
+  case DLG_ELABORA:
-    if (e == fe_init || e == fe_modify)
+    if (e == fe_button && check_fields())
     {
+      TFilename n;
+      str2fname(get(F_OUTFILE), n);
+      TSheet_field& righe = sfield(F_RIGHE);
+      TString_array& a = righe.rows_array();
+      if (!a.empty() && n.full())
+      {
+        elabora(a, n);
+        enable_buttons();
+      }
     }
     break;
+  case DLG_USER:
+    if (e == fe_button)
+    {
+      TFilename fn;
+      if (str2fname(o.mask().get(101), fn))
+      {
+        TDati_rilevanti_rep rep(fn);
+        rep.preview();
+      }
+    }
+    break;
+  case DLG_PREVIEW:
+    if (e == fe_button)
+    {
+      TFilename fn;
+      if (str2fname(get(F_OUTFILE), fn))
+      {
+        TDati_rilevanti_rep rep(fn);
+        rep.preview();
+      }
+    }
+    break;
+    case F_OUTFOLDER:
+    if ((e == fe_init || e == fe_modify) && !o.empty())
+    {
+      TSheet_field& righe = sfield(F_RIGHE);
+      TFilename dir = o.get(); dir.add("Spe*.txt");
+      TString_array& a = righe.rows_array();
+      a.destroy();
+      list_files(dir, a);
+      TFilename fn;
+      FOR_EACH_ARRAY_ROW(a, r, row)
+      {
+        fn = row->get(0);
+        *row = fn.name();
+        row->add(fsize(fn) / 1800);
+        const time_t t = xvt_fsys_file_attr(fn, XVT_FILE_ATTR_MTIME);
+        if (t > 0)
+        {
+          const struct tm& lt = *localtime(&t);
+          const TDate d(lt.tm_mday, lt.tm_mon, 1900+lt.tm_year);
+          row->add(d);
+          TString8 ora; ora.format("%02d:%02d:%02d", lt.tm_hour, lt.tm_min, lt.tm_sec);
+          row->add(ora);
+        }
+      }  
+
+      // Elimina dalla lista il file di output
+      if (str2fname(get(F_OUTFILE), fn))
+      {
+        TFilename fr;
+        FOR_EACH_ARRAY_ROW(a, r, row)
+        {
+          row2fname(*row, fr);
+          if (fr.compare(fn, -1, true) == 0)
+          {
+            a.destroy(r, true);
+            break;
+          }
+        }
+      }
+
+      righe.force_update();
+      enable_buttons();
+    }
+    break;
+  case F_RIGHE:
+    if (e == se_query_add || e == se_query_del)
+      return false;
+    break;
   default: 
     break;
   }

fe/fe0300a.uml

@@ -2,55 +2,32 @@
 
 TOOLBAR "topbar" 0 0 0 2
 
-BUTTON DLG_OK 2 2
+BUTTON DLG_ELABORA 2 2
 BEGIN
   PROMPT 1 1 "Elabora"
   PICTURE TOOL_ELABORA
 END
 
+BUTTON DLG_PREVIEW 10 2
+BEGIN
+  PROMPT 1 2 "Anteprima"
+  PICTURE TOOL_PREVIEW
+END
+
 #include <helpbar.h>
 
 ENDPAGE
 
 PAGE "Somma file spesometro" 0 2 0 0
 
-GROUPBOX DLG_NULL 78 4
-BEGIN
-  PROMPT 1 1 "@bParametri di elaborazione "
-END
-
-STRING F_OUTFOLDER 255 50
-BEGIN
-  PROMPT 2 2 "Cartella  "
-  DSELECT
-  CHECKTYPE REQUIRED
-  WARNING "Specificare una cartella di destinazione valida"
-END
-
-STRING F_OUTFILE 255 50
-BEGIN
-  PROMPT 2 3 "File      "
-  FSELECT "*.txt"
-  CHECKTYPE REQUIRED
-  WARNING "Specificare un file di destinazione valido"
-END
-
-TREELIST F_RIGHE 78 10
-BEGIN
-  PROMPT 1 5 ""
-  DISPLAY "Nome@50" NAME
-  DISPLAY "Dimensioni" SIZE
-  DISPLAY "Data@10" DATE
-END
-
 GROUPBOX DLG_NULL 78 6
 BEGIN
-  PROMPT 1 16 "@bDati del soggetto che assume l'impegno alla presentazione telematica"
+  PROMPT 1 0 "@bDati del soggetto che assume l'impegno alla presentazione telematica"
 END
 
 LIST F_INTER_COM 1 20
 BEGIN
-  PROMPT 2 17 "Comunicazione predisposta da         "
+  PROMPT 2 1 "Comunicazione predisposta da        "
   ITEM "|"
   ITEM "1|contribuente"
   ITEM "2|chi effettua l'invio"
@@ -58,19 +35,88 @@ END
 
 STRING F_INTER_COFI 16
 BEGIN
-  PROMPT 2 18 "Codice fiscale dell'intermediario    "
+  PROMPT 2 2 "Codice fiscale dell'intermediario   "
   FLAGS "U"
   VALIDATE CF_FUNC 1 F_INTER_COFI
 END
 
 NUMBER F_INTER_CAF 5
 BEGIN
-  PROMPT 2 19 "Numero iscrizione all'albo C.A.F.    "
+  PROMPT 2 3 "Numero iscrizione all'albo C.A.F.   "
 END
 
 DATE F_INTER_DATE 
 BEGIN
-  PROMPT 2 20 "Data dell'impegno alla trasmissione "
+  PROMPT 2 4 "Data dell'impegno alla trasmissione "
+END
+
+GROUPBOX DLG_NULL 78 4
+BEGIN
+  PROMPT 1 6 "@bParametri di elaborazione "
+END
+
+STRING F_OUTFOLDER 255 62
+BEGIN
+  PROMPT 2 7 "Cartella  "
+  DSELECT
+  CHECKTYPE REQUIRED
+  WARNING "Specificare una cartella di destinazione valida"
+END
+
+STRING F_OUTFILE 255 62
+BEGIN
+  PROMPT 2 8 "File      "
+  FSELECT "*.txt"
+  CHECKTYPE REQUIRED
+  WARNING "Specificare un file di destinazione valido"
+END
+
+SPREADSHEET F_RIGHE 78 0
+BEGIN
+  PROMPT 1 10 ""
+  ITEM "Nome@40"
+  ITEM "N. Record"
+  ITEM "Data@10"
+  ITEM "Ora@8"
+  FLAGS "D"
+  DEFAULT "*"
+END
+
+ENDPAGE
+
+ENDMASK
+
+PAGE "Riga" -1 -1 60 7
+
+STRING 101 260 50
+BEGIN
+  PROMPT 1 1 "Nome "
+END
+
+NUMBER 102 5
+BEGIN
+  PROMPT 1 2 "Numero di record "
+END
+
+DATE 103
+BEGIN
+  PROMPT 30 2 "Data "
+END
+
+STRING 104 8
+BEGIN
+  PROMPT 52 2 ""
+END
+
+BUTTON DLG_USER 10 2
+BEGIN
+  PROMPT -12 -1 "Anteprima"
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT -22 -1 ""
+  PICTURE BMP_OK
 END
 
 ENDPAGE

fe/felib.cpp

@@ -178,6 +178,12 @@ bool TAnagrafica::init(const TRectype& rec)
   return _tipo == 'F' || _tipo == 'G';
 }
 
+bool TAnagrafica::init(int num, const TString& codice) 
+{ return init(cache().get(num, codice)); }
+
+bool TAnagrafica::init(int num, long codice) 
+{ return init(cache().get(num, codice)); }
+
 bool TAnagrafica::init(int num, char tipo, long codice)
 {
   TString16 key; key << tipo << '|' << codice;

fe/felib.h

@@ -1,6 +1,10 @@
 #ifndef __FELIB_H__
 #define __FELIB_H__
 
+#ifndef __ISAM_H__
+#include <isam.h>
+#endif
+
 #ifndef __TEXTSET_H__
 #include <textset.h>
 #endif
@@ -48,8 +52,8 @@ public:
   const TString& indirizzo_residenza() const { return _ind_res; }
 
   bool init(const TRectype& rec);
-  bool init(int num, const TString& codice) { return init(cache().get(num, codice)); }
+  bool init(int num, const TString& codice);
-  bool init(int num, long codice) { return init(cache().get(num, codice)); }
+  bool init(int num, long codice);
   bool init(int num, char tipo, long codice);
   bool init(char tipocf, long codice, const TString& ocfpi);