Aggiunti programmi di gestione parametri statistiche e stampa schede

git-svn-id: svn://10.65.10.50/trunk@5063 c028cbd2-c16b-5b4b-a496-9718f37d4682

sv/f86.dir

@@ -0,0 +1,3 @@
+86
+0
+$svriep|0|0|95|0|Riepilogo statistiche di vendita|||

sv/f86.trr

@@ -0,0 +1,16 @@
+86
+12
+ANNO|2|4|0|Anno solare
+PERIODO|2|3|0|Periodo di riferimento
+TIPODOC|1|4|0|Tipo documento
+TIPOART|1|1|0|Tipo articolo
+CODART|1|20|0|Codice articolo
+UMQTA|1|2|0|Unita' di misura
+CODAG|1|5|0|Codice agente
+CODCF|1|6|0|Codice cliente/fornitore
+LIVELLO|1|15|0|Livello di giacenza
+CODMAG|1|5|0|Codice magazzino
+QUANTITA|4|11|3|Quantita
+VALORE|4|18|2|Valore
+1
+ANNO+PERIODO+TIPODOC+TIPOART+CODART+UMQTA+CODAG+CODCF+LIVELLO+CODMAG| 

sv/sv0.url

@@ -2,7 +2,6 @@
 
 MENU TASK_MENUBAR
   SUBMENU MENU_FILE "~File"
-  SUBMENU M_FONT    "~Opzioni" DISABLED
 
 MENU M_FONT
   ITEM M_FONT_SELECT "~Font"  

sv/sv0400.cpp

@@ -1,17 +1,47 @@
 #include <confapp.h>
+#include <execp.h>
 
 #include "sv0400a.h"
 
-class TParametri_st : public TConfig_application
+class TParametri_stat : public TConfig_application
 {
+  bool _ask_update;
+
+protected:
+  virtual bool postprocess_config_changed (const char* par, const char* var, const char* oldv, const char* newv);
+  virtual bool user_destroy();
+
 public:
-  TParametri_st() : TConfig_application(CONFIG_DITTA) { } 
+  TParametri_stat();
-  virtual ~TParametri_st() { }
+  virtual ~TParametri_stat() { }
 };
 
+bool TParametri_stat::postprocess_config_changed (const char*, const char*, const char*, const char*)
+{
+  return _ask_update = TRUE;
+}         
+
+bool TParametri_stat::user_destroy()
+{
+  if (_ask_update)
+  {
+    bool recalc = yesno_box("Si desidera ricalcolare le statistiche ora?");
+    if (recalc)
+    {
+      TExternal_app app("sv2 -0");
+      app.run();
+    }
+  }  
+  return TRUE;
+}
+
+TParametri_stat::TParametri_stat() 
+               : TConfig_application(CONFIG_DITTA), _ask_update(FALSE) 
+{ } 
+
 int st0400(int argc, char* argv[])
 {     
-  TParametri_st app;
+  TParametri_stat app;
   app.run(argc, argv, "Parametri statistiche");
   return 0;
 }

sv/sv0400a.h

@@ -1,6 +1,7 @@
 #ifndef __ST0400A_H
 #define __ST0400A_H
 
+#define F_FREQUENZA        100
 #define F_NO_CODICE        101
 #define F_NO_MAGAZZINO     102
 #define F_NO_RAGGRUPPA     103

sv/sv0400a.uml

@@ -16,49 +16,43 @@ ENDPAGE
 
 PAGE "Parametri Ditta Statistiche" -1 -1 76 17
 
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 76 3
 BEGIN
-  PROMPT 1 1 "@bGestione articoli con codice inesistente"
+  PROMPT 1 1 "@bFrequenza di raggruppamento"
 END
 
-BOOLEAN F_NO_CODICE
+LIST F_FREQUENZA 1 20
 BEGIN
-  PROMPT 2 2 "Includi articoli senza codice"
+  PROMPT 2 2 "Frequenza "
-  FIELD ArtNoCode
+  ITEM "G|Giornaliera"   
-END
+  ITEM "S|Settimanale"   
-
+  ITEM "Q|Quindicinale"
-BOOLEAN F_NO_MAGAZZINO
+  ITEM "M|Mensile"
-BEGIN
+  ITEM "B|Bimestrale"
-  PROMPT 2 3 "Includi articoli non presenti in anagrafica"
+  ITEM "T|Trimestrale"
-  FIELD ArtNoAnag
+  FIELD Frequenza
-END
-
-BOOLEAN F_NO_RAGGRUPPA
-BEGIN
-  PROMPT 2 4 "Raggruppa articoli senza codice e non presenti in anagrafica"
-  FIELD ArtNoAnagGrp
 END
 
 GROUPBOX DLG_NULL 76 5
 BEGIN
-  PROMPT 1 6 "@bGestione tipi riga"
+  PROMPT 1 4 "@bTipi riga da includere"
 END
 
 BOOLEAN F_MERCE
 BEGIN
-  PROMPT 2 7 "Includi righe Merce"
+  PROMPT 2 5 "Includi righe Merce"
   FIELD StatMerce
 END
 
 BOOLEAN F_PRESTAZIONI
 BEGIN
-  PROMPT 2 8 "Includi righe Prestazioni"
+  PROMPT 2 6 "Includi righe Prestazioni"
   FIELD StatPrestazioni
 END
 
 BOOLEAN F_OMAGGI
 BEGIN
-  PROMPT 2 9 "Includi righe Omaggi"
+  PROMPT 2 7 "Includi righe Omaggi"
   FIELD StatOmaggi
   MESSAGE FALSE CLEAR,F_RAGGRUPPA_OMAGGI
   MESSAGE TRUE ENABLE,F_RAGGRUPPA_OMAGGI
@@ -66,65 +60,88 @@ END
 
 BOOLEAN F_RAGGRUPPA_OMAGGI
 BEGIN
-  PROMPT 40 9 "Raggruppa Omaggi con Merce"
+  PROMPT 40 7 "Raggruppa Omaggi con Merce"
   FIELD OmaggioIsMerce
 END
 
+
+GROUPBOX DLG_NULL 76 5
+BEGIN
+  PROMPT 1 9 "@bGestione articoli con codice inesistente"
+END
+
+BOOLEAN F_NO_CODICE
+BEGIN
+  PROMPT 2 10 "Includi articoli senza codice"
+  FIELD ArtNoCode
+END
+
+BOOLEAN F_NO_MAGAZZINO
+BEGIN
+  PROMPT 2 11 "Includi articoli non presenti in anagrafica"
+  FIELD ArtNoAnag
+END
+
+BOOLEAN F_NO_RAGGRUPPA
+BEGIN
+  PROMPT 2 12 "Raggruppa articoli senza codice e non presenti in anagrafica"
+  FIELD ArtNoAnagGrp
+END
+
 GROUPBOX DLG_NULL 76 7
 BEGIN
-  PROMPT 1 11 "@bRaggruppamento statistiche"
+  PROMPT 1 14 "@bRaggruppamento statistiche"
 END
 
 TEXT DLG_NULL
 BEGIN
-  PROMPT 2 12 "Tipo documento"
+  PROMPT 2 15 "Tipo documento"
 END
 
 TEXT DLG_NULL
 BEGIN
-  PROMPT 2 13 "Anno solare"
+  PROMPT 2 16 "Anno solare"
 END
 
 TEXT DLG_NULL
 BEGIN
-  PROMPT 2 14 "Data documento"
+  PROMPT 2 17 "Data documento"
 END
 
 TEXT DLG_NULL
 BEGIN
-  PROMPT 2 15 "Articolo"
+  PROMPT 2 18 "Articolo"
 END
 
 TEXT DLG_NULL
 BEGIN
-  PROMPT 2 16 "Unita' di misura"
+  PROMPT 2 19 "Unita' di misura"
 END
 
 BOOLEAN F_AGENTE
 BEGIN
-  PROMPT 40 12 "Agente"
+  PROMPT 40 15 "Agente"
-  FIELD AgentGrp
+  FIELD AgenteGrp
 END
 
 BOOLEAN F_CLIENTE
 BEGIN
-  PROMPT 40 13 "Cliente"
+  PROMPT 40 16 "Cliente"
-  FIELD ClientGrp
+  FIELD ClienteGrp
 END
 
 BOOLEAN F_GIACENZA
 BEGIN
-  PROMPT 40 14 "Giacenza"
+  PROMPT 40 17 "Giacenza"
-  FIELD GiacGrp
+  FIELD GiacenzaGrp
 END
 
 BOOLEAN F_MAGAZZINO
 BEGIN
-  PROMPT 40 15 "Magazzino"
+  PROMPT 40 18 "Magazzino"
-  FIELD MagazGrp
+  FIELD MagazzinoGrp
 END
 
-
 ENDPAGE
 
 ENDMASK

sv/sv1.cpp

@@ -0,0 +1,20 @@
+#include <xvt.h>
+#include <checks.h>
+
+#include "sv1.h"
+
+int main(int argc, char** argv)
+{
+  int n = argc > 1 ? atoi(argv[1]+1) : 0;
+  switch(n)
+  {      
+  case 0: 
+    sv1100(argc, argv);
+    break;
+  default:
+    error_box("Invalid argument %s", argv[1]);
+    break;
+  }
+  exit(0);
+  return 0;
+}

sv/sv1.h

@@ -0,0 +1,6 @@
+#ifndef __SV1_H
+#define __SV1_H
+
+int sv1100(int argc, char* argv[]);
+
+#endif

sv/sv1.url

@@ -0,0 +1,22 @@
+#include <default.url>
+
+MENU TASK_MENUBAR
+  SUBMENU MENU_FILE "~File"
+
+MENU M_FONT
+  ITEM M_FONT_SELECT "~Font"  
+  ITEM MENU_ITEM(2)  "~Colori"
+  ITEM MENU_ITEM(3)  "~Editor"
+
+MENUBAR MENU_BAR(1)
+MENU MENU_BAR(1)
+  SUBMENU MENU_FILE "~File"
+
+MENUBAR MENU_BAR(2)
+MENU MENU_BAR(2)
+  SUBMENU MENU_FILE "~File"
+
+MENUBAR MENU_BAR(3)
+MENU MENU_BAR(3)
+  SUBMENU MENU_FILE "~File"
+

sv/sv1100.cpp

@@ -0,0 +1,744 @@
+#include <applicat.h>
+#include <config.h>
+#include <form.h>
+#include <msksheet.h>
+#include <printer.h>
+#include <progind.h>
+#include <urldefid.h>
+                                    
+#include "../sc/scselect.h"
+#include "../ve/velib.h"
+
+#include <doc.h>
+
+#include "sv1.h"
+#include "sv1100a.h"
+
+class TSchede_mask : public TSelection_mask
+{       
+  void init_sheet(short id);
+  void ini2sheet(short id);
+  void sheet2ini(short id);
+
+protected:                                        
+  static bool date_handler(TMask_field& f, KEY k);
+  static bool num_handler(TMask_field& f, KEY k);
+  static bool save_handler(TMask_field& f, KEY k);
+  static bool sheet_notify(TSheet_field& s, int row, KEY k);
+  static bool fieldname_handler(TMask_field& f, KEY k);
+
+public:
+  void mask2ini();
+  void ini2mask();
+
+  TSchede_mask();
+  virtual ~TSchede_mask() { }
+};
+
+bool TSchede_mask::date_handler(TMask_field& f, KEY k)
+{         
+  bool ok = TRUE;
+  if (f.to_check(k))
+  {
+    TMask& m = f.mask();
+    const TDate fd(m.get(F_FROMDATE));
+    const TDate td(m.get(F_TODATE));
+    if (td.ok() && td < fd)
+      ok = f.error_box("La data finale deve seguire quella iniziale");
+  }
+  return ok;
+}
+
+bool TSchede_mask::num_handler(TMask_field& f, KEY k)
+{         
+  bool ok = TRUE;
+  if (f.to_check(k))
+  {
+    TMask& m = f.mask();
+    const TString& fn = m.get(F_FROMNUM);
+    const TString& tn = m.get(F_TONUM);
+    if (tn.not_empty() && tn < fn)
+      ok = f.error_box("La numerazione finale deve seguire quella iniziale");
+  }
+  return ok;
+}
+
+bool TSchede_mask::save_handler(TMask_field& f, KEY k)
+{
+  if (k == K_SPACE)
+  {
+    TSchede_mask& m = (TSchede_mask&)f.mask();
+    m.mask2ini();
+  }
+  return TRUE;
+}
+
+bool TSchede_mask::fieldname_handler(TMask_field& f, KEY k)
+{
+  if (f.to_check(k))
+  {
+    TSchede_mask& m = (TSchede_mask&)f.mask();
+    TEdit_field& head = m.efield(S_HEAD);
+    if (head.empty())
+    {
+      TParagraph_string para(m.get(S_DESCR), head.size());
+      head.set(para.get(0));
+    }
+  }
+  return TRUE;
+}
+
+bool TSchede_mask::sheet_notify(TSheet_field& s, int row, KEY k)
+{           
+  bool ok = TRUE;
+  switch(k)
+  {       
+  case K_INS:
+    ok = s.items() < 8;
+    break;
+  default:
+    break;
+  }
+  return ok;
+}
+
+void TSchede_mask::sheet2ini(short id)
+{
+  TSheet_field& sheet = sfield(id);
+  TString_array& arr = sheet.rows_array();
+  for (int r = arr.last(); r >= 0; r--)
+    if (arr.row(r)[0] <= ' ')
+      arr.destroy(r);
+  arr.pack();
+  
+  const char* field = id == F_SINTETICA ? "SynField" : "DetField";
+  const char* head = id == F_SINTETICA ? "SynHead" : "DetHead";
+  
+  TConfig ini(CONFIG_STUDIO, "sv1100");
+  for (r = arr.last(); r >= 0; r--)
+  {                       
+    TToken_string& row = arr.row(r);
+    ini.set(field, row.get(0), NULL, TRUE, r);
+    ini.set(head, row.get(), NULL, TRUE, r);
+  }
+  ini.remove(field, arr.items());
+  ini.remove(head, arr.items());
+}
+
+void TSchede_mask::ini2sheet(short id)
+{
+  TSheet_field& sheet = sfield(id);
+
+  const char* field = id == F_SINTETICA ? "SynField" : "DetField";
+  const char* head = id == F_SINTETICA ? "SynHead" : "DetHead";
+  
+  TConfig ini(CONFIG_STUDIO, "sv1100");
+  for (int r = 0; ; r++)
+  {                       
+    TString16 str = ini.get(field, NULL, r);
+    if (str.not_empty())
+    {
+      TToken_string& row = sheet.row(r);
+      row = str;
+      row.add(ini.get(head, NULL, r));
+      sheet.check_row(r);
+    }
+    else
+      break;
+  }
+}
+
+void TSchede_mask::mask2ini()
+{
+  sheet2ini(F_SINTETICA);
+  sheet2ini(F_DETTAGLIATA);
+}
+
+void TSchede_mask::ini2mask()
+{
+  ini2sheet(F_SINTETICA);
+  ini2sheet(F_DETTAGLIATA);
+}
+
+void TSchede_mask::init_sheet(short id)
+{
+  TSheet_field& sheet = sfield(id);
+  sheet.set_notify(sheet_notify);
+  TMask& sm = sheet.sheet_mask();
+  sm.set_handler(S_FIELD, fieldname_handler);
+}
+
+TSchede_mask::TSchede_mask()
+            : TSelection_mask("sv1100a")
+{ 
+  set_handler(F_TODATE, date_handler);
+  set_handler(F_TONUM, num_handler);
+  set_handler(DLG_SAVEREC, save_handler);
+
+  init_sheet(F_SINTETICA);
+  init_sheet(F_DETTAGLIATA);
+  
+  ini2mask();
+}
+
+///////////////////////////////////////////////////////////
+// TSchede_form
+///////////////////////////////////////////////////////////
+
+class TSchede_form : public TForm
+{       
+public:
+  void init(const TSheet_field& sheet);
+
+  TSchede_form();
+  virtual ~TSchede_form() { }
+};
+
+TSchede_form::TSchede_form()
+            : TForm("sv1100a")
+{
+}
+
+void TSchede_form::init(const TSheet_field& sheet)
+{  
+  TPrint_section& body = section('B', odd_page);
+               
+  TString_array& arr = sheet.rows_array();
+  
+  TString80 str;
+  bool on = TRUE;
+  for (word r = 3; r < body.fields(); r++)
+  {        
+    const int riga = r-3;
+    if (on)
+    {
+      if (riga < arr.items())
+      {
+        str = arr.row(riga).get(0);
+        on = str.not_empty();
+      }
+      else
+        on = FALSE;  
+    }
+    TForm_item& item = body.field(r);
+    if (!item.is_section())
+    {
+      item.show(on);
+      if (on)
+      {           
+        str = arr.row(riga).get(1);
+        item.set_col_head(str);
+      }
+    }  
+  }
+
+  const TPrint_section& head = section('H', odd_page);
+  const TPrint_section& foot = section('F', odd_page);
+  
+  const int hh = head.height();
+  const int fh = foot.height();
+  const int fl = printer().formlen();
+  
+  int rows[4];         // Righe orizzontali
+  rows[0] = hh-2;      // Terzultima riga della testata
+  rows[1] = hh;        // Ultima riga della testata
+  rows[2] = fl-fh+1;   // Prima riga del footer
+  rows[3] = 0;
+
+  genera_fincatura(odd_page, rows[0], rows[2], rows);
+  genera_intestazioni(odd_page, hh-1);
+}
+
+///////////////////////////////////////////////////////////
+// Main app
+///////////////////////////////////////////////////////////
+
+class TStampa_schede : public TApplication
+{
+  TArray _file;
+  char _tipo;               // <D>ettagliata o <S>intetica
+  char _sort;               // <F>attura o <A>rticolo
+  char _prov;               // <P>rovvisori o <D>efinitivi
+  TDate _fromdate, _todate; // Date limite
+  TString _fromnum, _tonum; // Numerazioni limite 
+  
+  TArray _totali;           // Totali complessivi
+  TArray _totriga;          // Totali di riga
+  long _progressivo;        // Numero progressivo di record per file di stampa  
+  TString _lastkey;         // Ultima chiave del file di stampa temporaneo
+  
+  TSchede_mask* _mask;      // Mask di stampa
+  TSchede_form* _form;      // Form di stampa
+  
+protected:
+  virtual bool menu(MENU_TAG mt);
+  virtual bool create(); 
+  virtual bool destroy();
+  
+protected:  
+  void put_real(TRectype& tab, int index, real val, bool importo, const TDocumento& doc);
+  void fill_key(TRectype& tab, const TDocumento& doc);
+  void fill_key(TRectype& tab, const TRiga_documento& rdoc);
+
+public:  
+  void open_files(int logicnum, ...);
+  bool fill_doc(TRectype& tab, const TDocumento& doc);
+  bool fill_rdoc(TRectype& tab, const TRiga_documento& rdoc);
+  void update_totriga(const TRectype& tab);
+  void fill_totriga(TRectype& tab);
+  void fill_tot(TRectype& tab);
+  bool write_tab(TLocalisamfile& tab) const;
+  bool write_totali_per_articolo(TLocalisamfile& tab);
+  
+  bool stampa_sintetica() const { return _tipo == 'S'; }
+  bool stampa_dettagliata() const { return _tipo == 'D'; }
+  bool stampa_per_articolo() const { return _sort == 'A'; }
+  bool stampa_per_documento() const { return _sort == 'D'; }
+
+  bool stampa_clifo(TCursor& cur, const TString& ragsoc);
+};
+
+void TStampa_schede::put_real(TRectype& tab, int index, real val, 
+                              bool importo, const TDocumento& doc)
+{
+  char erre[4]; sprintf(erre, "R%d", index);
+  if (importo && doc.in_valuta())
+  {
+    val *= doc.cambio();
+    val.round(0);
+  }
+  tab.put(erre, val);
+  
+  real* r = (real*)_totali.objptr(index);
+  if (r == NULL)
+    _totali.add(val, index);
+  else  
+    *r += val;
+}
+
+void TStampa_schede::fill_key(TRectype& tab, const TDocumento& doc)
+{
+  tab.zero();
+  tab.put("COD", "PRN");
+  
+  const TCli_for& clifo = doc.clifor();
+  tab.put("S8", clifo.tipo());
+  tab.put("I8", clifo.codice());
+
+  TString16 str;
+  TString80 key;
+  
+  key = doc.data().string(ANSI);
+  
+  str = doc.numerazione(); str.left_just(4);
+  key << str;
+  
+  str.format("%4d", doc.numero());
+  key << str;
+  
+  tab.put("S0", key);       
+  tab.put("CODTAB", ++_progressivo);
+}
+
+void TStampa_schede::fill_key(TRectype& tab, const TRiga_documento& rdoc)
+{ 
+  fill_key(tab, rdoc.doc());
+  
+  _lastkey = tab.get("S0");
+  
+  _lastkey.left_just(20);
+  if (stampa_per_articolo())
+  {
+    TString80 str = rdoc.get(RDOC_CODART);
+    str.left_just(20);
+    _lastkey.insert(str, 0);
+  }  
+  
+  TString16 numero;
+  numero.format("%4d", rdoc.numero());
+  
+  _lastkey << numero;
+  tab.put("S0", _lastkey);
+}
+
+
+bool TStampa_schede::fill_doc(TRectype& tab, const TDocumento& doc)
+{   
+  if (stampa_dettagliata())
+    return FALSE;
+  
+  fill_key(tab, doc);
+  
+  TString descr(80);
+  
+  const TTipo_documento& tipo = doc.tipo();
+  const TCodice_numerazione& num = doc.codice_numerazione();
+  
+  descr << tipo.descrizione() << ' ';
+  descr << num.prefisso();
+  descr << doc.numero();
+  descr << num.postfisso();
+  descr << " del " << doc.data();
+  tab.put("S1", descr);
+  
+  put_real(tab, 0, doc.totale_netto(), TRUE, doc);
+  put_real(tab, 1, doc.totale_doc(), TRUE, doc);
+  
+  TSheet_field& sheet = _mask->sfield(F_SINTETICA);
+  TString_array& arr = sheet.rows_array();
+  
+  TString16 src;
+  for (int r = 0; r < arr.items(); r++)
+  {
+    TToken_string& row = arr.row(r);
+    src = row.get(0);
+    if (src.blank())
+      break;
+    const bool importo = row.get(3)[0] > ' ';
+    real val = doc.get(src);
+    put_real(tab, r+2, val, importo, doc);
+  }
+
+  return TRUE;
+}
+
+bool TStampa_schede::fill_rdoc(TRectype& tab, const TRiga_documento& rdoc)
+{   
+  if (stampa_sintetica())
+    return FALSE;
+    
+  switch(rdoc.tipo().tipo())
+  {
+    case RIGA_MERCE      : break;
+    case RIGA_OMAGGI     : break;
+    case RIGA_PRESTAZIONI: break;
+    default              : return FALSE;
+  }
+  
+  const TDocumento& doc = rdoc.doc();
+  
+  fill_key(tab, rdoc);
+                     
+  TString descr(80);
+  descr << rdoc.get(RDOC_CODART) << ' ';
+  descr << rdoc.get(RDOC_DESCR);
+  tab.put("S1", descr);                       
+  
+  put_real(tab, 0, rdoc.importo(TRUE, FALSE, 0), TRUE, doc);
+  put_real(tab, 1, rdoc.importo(TRUE, TRUE, 0), TRUE, doc);
+
+  TSheet_field& sheet = _mask->sfield(F_DETTAGLIATA);
+  TString_array& arr = sheet.rows_array();
+  
+  TString16 src;
+  for (int r = 0; r < arr.items(); r++)
+  {
+    TToken_string& row = arr.row(r);
+    src = row.get(0);
+    if (src.blank())
+      break;
+    const bool importo = row.get(3)[0] > ' ';
+    real val = rdoc.get(src);
+    put_real(tab, r+2, val, importo, doc);
+  }
+  
+  return TRUE;
+}
+
+void TStampa_schede::update_totriga(const TRectype& tab)
+{           
+  char erre[4];
+  for (int r = _totali.last(); r >= 0; r--)
+  {
+    sprintf(erre, "R%d", r);
+    const real val(tab.get(erre));
+  
+    real* tot = (real*)_totriga.objptr(r);
+    if (tot == NULL)
+      _totriga.add(val, r);
+    else  
+      *tot += val;
+  }
+}
+
+void TStampa_schede::fill_totriga(TRectype& tab)
+{
+  tab.zero();
+  tab.put("COD", "PRN");
+  tab.put("CODTAB", ++_progressivo);
+  
+  _lastkey.overwrite("9999", _lastkey.len()-4);
+  tab.put("S0", _lastkey);       
+  tab.put("S1", stampa_per_articolo() ? "Totale articolo" : "Totale documento");
+  tab.put("B8", TRUE);          // Riga totale
+
+  for (int r = _totriga.last(); r >= 0; r--)
+  { 
+    char erre[4]; sprintf(erre, "R%d", r);
+    tab.put(erre, (real&)_totriga[r]);
+  }
+}
+
+
+void TStampa_schede::fill_tot(TRectype& tab)
+{
+  tab.zero();
+  tab.put("COD", "PRN");
+  tab.put("CODTAB", ++_progressivo);
+  tab.put("S0", "zzzzzzzzzzzzzzzzzzzz");       
+  
+  tab.put("S1", "Totale");                       
+  tab.put("B8", TRUE);          // Riga totale
+
+  for (int r = _totali.last(); r >= 0; r--)
+  { 
+    char erre[4]; sprintf(erre, "R%d", r);
+    tab.put(erre, (real&)_totali[r]);
+  }
+}
+
+bool TStampa_schede::write_tab(TLocalisamfile& tab) const
+{
+  int err = tab.write();
+  if (err != NOERR)
+    error_box("Errore %d durante la scrittura sul file temporaneo", err);
+  return err == NOERR;
+}
+
+bool TStampa_schede::write_totali_per_articolo(TLocalisamfile& tab)
+{           
+  bool ok = TRUE;         
+  TRectype& curtab = tab.curr();
+  const TRecfield key(curtab, "S0");
+  
+  _lastkey.cut(0);
+  _totriga.destroy();
+  for (int err = tab.first(); err == NOERR && ok; err = tab.next())
+  {
+    if (_lastkey.not_empty() && _lastkey.compare((const char*)key, 20) != 0)
+    {                             
+      const TRecnotype pos = tab.recno();
+      fill_totriga(curtab);
+      ok = write_tab(tab);
+      tab.readat(pos);
+      _totriga.destroy();
+    }
+    _lastkey = (const char*)key;
+    update_totriga(curtab);
+  }
+  
+  if (ok && _lastkey.not_empty())
+  {
+    fill_totriga(curtab);
+    ok = write_tab(tab);
+  } 
+  
+  return ok; 
+}
+
+bool TStampa_schede::stampa_clifo(TCursor& cur, const TString& ragsoc)
+{ 
+  const long items = cur.items();
+  
+  TString header(160);
+  header = "Preparazione file temporaneo di stampa ...";
+  if (ragsoc.not_empty())
+    header << '\n' << ragsoc;
+    
+  TProgind pi(items, header, TRUE, TRUE, 60);
+    
+  cur.file().set_curr(new TDocumento);
+  TDocumento& doc = (TDocumento&)cur.file().curr();
+    
+  TIsamtempfile* tab = new TIsamtempfile(LF_TAB, "svschede", TRUE);
+  tab->set_autodel(TRUE);
+  tab->setkey(2);
+  _form->relation()->replace(tab);
+  TRectype& curtab = tab->curr();
+  
+  _totali.destroy();
+  _progressivo = 0;
+    
+  bool can_print = TRUE;
+
+  for (cur = 0; cur.pos() < items && can_print; ++cur)
+  {
+    pi.addstatus(1);
+    if (pi.iscancelled())
+    {
+      can_print = FALSE;
+      break;
+    }  
+    
+    if (stampa_sintetica())
+    {
+      if (fill_doc(curtab, doc))
+        can_print = write_tab(*tab);
+    }
+    else
+    {
+      _totriga.destroy();
+      for (int r = doc.physical_rows(); r > 0 && can_print; r--)
+      { 
+        const TRiga_documento& rdoc = doc[r];
+        if (fill_rdoc(curtab, rdoc))
+        {
+          can_print = write_tab(*tab);
+          if (stampa_per_documento())
+            update_totriga(curtab);
+        }  
+      }
+      
+      if (can_print && _totriga.items() > 0)
+      {
+        fill_totriga(curtab);
+        can_print = write_tab(*tab);   
+      }  
+    }  
+  }
+  
+  if (can_print && stampa_per_articolo())
+    can_print = write_totali_per_articolo(*tab);
+  
+  if (can_print)
+  {
+    fill_tot(curtab);
+    can_print = write_tab(*tab);
+  }
+  
+  pi.close_modal();
+  
+  if (can_print && tab->items() > 0)
+  {  
+    _form->print();
+  }
+
+  _form->relation()->replace(new TLocalisamfile(LF_TAB));
+  
+  return can_print;
+}
+
+bool TStampa_schede::menu(MENU_TAG mt)
+{        
+  TSchede_mask& m = *_mask;
+  while (m.run() != K_QUIT)
+  {                                        
+    _tipo     = m.get(F_TIPO)[0];
+    _sort     = m.get(F_ORDINE)[0];
+    _prov     = m.get(F_PROVVIS)[0];
+    _fromdate = m.get_date(F_FROMDATE);
+    _todate   = m.get_date(F_TODATE);  
+    _fromnum  = m.get(F_FROMNUM);
+    _tonum    = m.get(F_TONUM);
+    
+    _form->init(m.sfield(stampa_dettagliata() ? F_DETTAGLIATA : F_SINTETICA));
+    
+    TString filter(80); 
+    
+    if (_fromdate.ok())
+    {
+      if (filter.not_empty()) filter << "&&";
+      filter << "(ANSI(" << DOC_DATADOC << ")>=\"" << _fromdate.string(ANSI) << "\")";
+    }  
+    if (_todate.ok())
+    {
+      if (filter.not_empty()) filter << "&&";
+      filter << "(ANSI(" << DOC_DATADOC << ")<=\"" << _todate.string(ANSI) << "\")";
+    }  
+    if (_fromnum.not_empty())
+    {
+      if (filter.not_empty()) filter << "&&";
+      filter << '(' << DOC_CODNUM << ">=\"" << _fromnum << "\")";
+    }
+    if (_tonum.not_empty())
+    {
+      if (filter.not_empty()) filter << "&&";
+      filter << '(' << DOC_CODNUM << "<=\"" << _tonum << "\")";
+    }
+    
+    const TCursor_sheet& clifosheet = m.cur_sheet();
+    TCursor& clifocur = *clifosheet.cursor();
+    const long clifos = clifocur.items();
+    const bool all = clifosheet.checked() == 0;
+    
+    TRelation rel(LF_DOC);
+    TRectype rec(LF_DOC);
+
+    TString ragsoc(80);
+    
+    bool cancel = FALSE;
+    if (all)
+    {                        
+      TString msg;
+      msg.format("Attenzione: e' stata selezionata la stampa di tutti i %s!\n"
+                 "Si desidera continuare ugualmente?", 
+                 m.get_who() == 'C' ? "clienti" : "fornitori");
+      cancel = !yesno_box(msg);
+    }
+    
+    for (clifocur = 0; clifocur.pos() < clifos && !cancel; ++clifocur)
+    {  
+      if (all || clifosheet.checked(clifocur.pos()))
+      {
+        const long codcf = clifocur.file().get_long(CLI_CODCF);
+        ragsoc = m.get_who() == 'C' ? "Cliente" : "Fornitore";
+        ragsoc << ' ' << codcf << " - " << clifocur.file().get(CLI_RAGSOC);
+        
+        rec.put(DOC_TIPOCF, m.get_who());
+        rec.put(DOC_CODCF, codcf);
+        rec.put(DOC_PROVV, _prov);
+        // Uso la chiave 2: TIPOCF+CODCF+PROVV+ANNO+DATADOC+CODNUM+NDOC
+        TCursor cur(&rel, filter, 2, &rec, &rec);
+        if (cur.items() > 0)
+        {            
+          cur.freeze();
+          cancel = !stampa_clifo(cur, ragsoc);
+          cur.freeze(FALSE);
+        }  
+      }  
+    }
+  }
+        
+  return FALSE;
+}
+
+void TStampa_schede::open_files(int logicnum, ...)  
+{  
+  va_list marker;
+  va_start(marker, logicnum);
+  while (logicnum > 0)
+  {
+    CHECKD(_file.objptr(logicnum) == NULL, "File gia' aperto: ", logicnum);
+    _file.add(new TLocalisamfile(logicnum), logicnum);
+    logicnum = va_arg(marker, int);
+  }
+}
+
+bool TStampa_schede::create()
+{                
+  open_files(LF_TABCOM, 0);                       // File comuni
+  open_files(LF_TAB, LF_CLIFO, LF_OCCAS, 0);      // File ditta
+  open_files(LF_CFVEN, LF_DOC, LF_RIGHEDOC, 0);   // File vendite
+  
+  _mask = new TSchede_mask;
+  _form = new TSchede_form;
+  
+  dispatch_e_menu(BAR_ITEM(1));
+  return TRUE;
+}
+
+bool TStampa_schede::destroy()
+{                  
+  delete _form;
+  delete _mask;
+  _file.destroy(); 
+  return TRUE;
+}
+
+int sv1100(int argc, char* argv[])
+{
+  TStampa_schede app;
+  app.run(argc, argv, "Stampa schede");
+  return 0;
+}
+ 

sv/sv1100a.frm

@@ -0,0 +1,172 @@
+USE 5                  
+JOIN 20 INTO TIPOCF=S0|CODCF=I0
+JOIN 13 TO 20 INTO STATO==STATOCF|COM==COMCF
+
+END
+
+DESCRIPTION
+BEGIN
+  5->* "Tabella temporanea di stampa"
+ 20->* "Clienti/Fornitori" 
+ 13->* "Comuni"
+END
+
+GENERAL
+BEGIN
+  OFFSET 0 0
+  FONT "Courier New"
+  SIZE 7
+END
+
+
+SECTION HEADER ODD 12
+
+STRINGA 1
+BEGIN
+ KEY "Spettabile/Egregio"
+ PROMPT 2 1 "Spettabile"
+END
+
+NUMERO 218
+BEGIN
+ KEY "Pagina"
+ PROMPT 70 1 "Pagina "
+END
+
+STRINGA 3
+BEGIN
+ KEY "Codice cliente/fornitore"
+ PROMPT 2 2 ""
+ FIELD 20->CODCF
+END
+
+STRINGA 4
+BEGIN
+ KEY "Ragione sociale"
+ PROMPT 8 2 ""
+ FIELD 20->RAGSOC
+END
+
+STRINGA 5
+BEGIN
+ KEY "Indirizzo"
+ PROMPT 2 3 ""
+ FLAGS "H"
+ FIELD 20->INDCF
+ MESSAGE COPY,7
+END
+
+STRINGA 6
+BEGIN
+ KEY "Numero civico"
+ PROMPT 52 3 ""
+ FLAGS "H"
+ FIELD 20->CIVCF
+ MESSAGE APPEND,7
+END
+
+STRINGA 7
+BEGIN
+ KEY "Indirizzo completo"
+ PROMPT 2 3 ""
+END
+
+STRINGA 8
+BEGIN
+ KEY "C.A.P."
+ PROMPT 2 4 "C.A.P. "
+ FIELD 20->CAPCF
+END
+
+STRINGA 9
+BEGIN
+ KEY "Localita'"
+ PROMPT 26 4 ""
+ FIELD 20->LOCALITACF
+END
+
+STRINGA 10
+BEGIN
+ KEY "Comune"
+ PROMPT 2 5 ""
+ FLAGS "H"
+ FIELD 13->DENCOM
+ MESSAGE COPY,12
+END
+
+STRINGA 11
+BEGIN
+ KEY "Provincia"
+ PROMPT 52 5 ""
+ FLAGS "H"
+ FIELD 13->PROVCOM
+ MESSAGE APPEND,12
+END
+
+STRINGA 12
+BEGIN
+ KEY "Comune completo"
+ PROMPT 2 5 ""
+END
+
+STRINGA 13
+BEGIN
+ KEY "Prefisso telefonico"
+ PROMPT 2 6 "Telefono "
+ FLAGS "H"
+ FIELD PTEL
+ MESSAGE COPY,15
+END
+
+STRINGA 14
+BEGIN
+ KEY "Telefono"
+ PROMPT 24 6 "/ "
+ FLAGS "H"
+ FIELD TEL
+ MESSAGE APPEND,15
+END
+
+STRINGA 15
+BEGIN
+ KEY "Telefono completo"
+ PROMPT 2 6 "Telefono "
+END
+
+STRINGA 101
+BEGIN
+ KEY "Luogo d'invio"
+ PROMPT 2 7 ""
+END
+
+DATA 102
+BEGIN
+ KEY "Data d'invio"
+ PROMPT 52 7 ""
+ FORMAT "1444-"
+END
+
+STRINGA 103 40 3
+BEGIN
+ KEY "Testo fisso"
+ FLAG "M"
+ PROMPT 2 8 ""
+END
+
+END
+
+SECTION BODY ODD -1 COLUMNWISE
+
+STRINGA 201 8
+BEGIN
+ SPECIAL STRINGA INTESTAZIONE "Num.doc." "Numero documento"
+ SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
+ SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
+ KEY "Numero documento"
+ PROMPT 1 1 ""
+ FLAGS "H"
+END
+
+END    // Fine body
+
+END    // Fine Form

sv/sv1100a.h

@@ -0,0 +1,20 @@
+#ifndef __SV1100A_H
+#define __SV1100A_H
+
+#define F_FROMDATE    101
+#define F_TODATE      102
+#define F_FROMNUM     103
+#define F_TONUM       104
+#define F_PROVVIS     105
+#define F_TIPO        106
+#define F_ORDINE      107
+
+#define F_SINTETICA   201
+#define F_DETTAGLIATA 202
+                  
+#define S_FIELD       101                  
+#define S_HEAD        102
+#define S_DESCR       103
+#define S_IMPORTO     104
+
+#endif

sv/sv1100a.uml

@@ -0,0 +1,287 @@
+#include "../sc/scselmsk.h"
+#include "sv1100a.h"
+
+TOOLBAR "Toolbar" 0 20 0 3
+
+BUTTON DLG_PRINT 10 2
+BEGIN
+  PROMPT -13 -1 "~Stampa"
+END
+
+BUTTON DLG_SAVEREC 10 2
+BEGIN
+  PROMPT -23 -1 "~Registra"
+  PICTURE BMP_SAVEREC
+  PICTURE BMP_SAVERECDN
+END
+
+BUTTON DLG_QUIT 10 2
+BEGIN
+  PROMPT -33 -1 "Fine"
+END
+
+ENDPAGE
+
+PAGE "Stampa schede" -1 -1 60 20
+
+GROUPBOX DLG_NULL 78 8
+BEGIN
+  PROMPT 1 1 "@bSelezione Clienti/Fornitori"
+END
+
+RADIOBUTTON SC_CLIFO 22
+BEGIN
+  PROMPT 2 2 "Selezione"
+  ITEM "C|Clienti"   MESSAGE ENABLE,1@
+  ITEM "F|Fornitori" MESSAGE CLEAR,1@
+END
+
+RADIOBUTTON SC_SORTCF 25
+BEGIN
+  PROMPT 26 2 "Ordinamento"
+  ITEM "1|Per codice" MESSAGE HIDE,2@|SHOW,3@
+  ITEM "2|Per ragione sociale" MESSAGE HIDE,3@|SHOW,2@
+END
+
+NUMBER SC_NSEL 3
+BEGIN
+  PROMPT 71 2 "N. "
+  FLAGS "D"
+END
+
+BUTTON SC_SELECT 10 2
+BEGIN
+  PROMPT 52 3 "S~elezione"
+END
+
+BUTTON SC_RESET 10 2
+BEGIN
+  PROMPT 66 3 "A~zzera"
+END
+
+NUMBER SC_CFCODFR 6
+BEGIN
+  PROMPT 2 6 "Da codice              "
+  GROUP 3
+  FLAGS "B"
+END
+
+NUMBER SC_CFCODTO 6
+BEGIN
+  PROMPT 2 7 "A codice               "
+  GROUP 3
+  FLAGS "B"
+END
+
+STRING SC_CFDESFR 50
+BEGIN
+  PROMPT 2 6 "Da ragione sociale     "
+  GROUP 2
+  FLAGS "HB"
+END
+
+STRING SC_CFDESTO 50
+BEGIN
+  PROMPT 2 7 "A ragione sociale      "
+  GROUP 2
+  FLAGS "HB"
+END
+
+GROUPBOX DLG_NULL 78 4
+BEGIN
+  PROMPT 1 10 "@bLimiti di stampa"
+END
+
+DATE F_FROMDATE
+BEGIN
+  PROMPT 2 11 "Dalla data   "
+  MESSAGE CHECK,F_TODATE
+END
+
+DATE F_TODATE
+BEGIN
+  PROMPT 2 12 "Alla data    "
+END
+
+STRING F_FROMNUM 4
+BEGIN
+  PROMPT 51 11 "Dalla numerazione   "
+  USE %NUM
+  INPUT CODTAB F_FROMNUM
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_FROMNUM CODTAB
+  CHECKTYPE NORMAL
+  MESSAGE CHECK,F_TONUM
+END
+
+STRING F_TONUM 4
+BEGIN
+  PROMPT 51 12 "Alla numerazione    "
+  COPY USE F_FROMNUM
+  INPUT CODTAB F_TONUM
+  COPY DISPLAY F_FROMNUM
+  OUTPUT F_TONUM CODTAB
+  CHECKTYPE NORMAL
+END
+
+RADIOBUTTON F_PROVVIS 1 24
+BEGIN
+  PROMPT 1 15 "Tipo movimenti"              
+  ITEM "D|Definitivi"
+  ITEM "P|Provvisori"
+END
+
+RADIOBUTTON F_TIPO 1 26
+BEGIN
+  PROMPT 27 15 "Tipo stampa"
+  ITEM "S|Sintetica"
+    MESSAGE CLEAR,F_ORDINE
+  ITEM "D|Dettagliata"
+    MESSAGE ENABLE,F_ORDINE
+END
+
+RADIOBUTTON F_ORDINE 1 24
+BEGIN
+  PROMPT 55 15 "Ordinamento"
+  ITEM "D|Documento"
+  ITEM "A|Articolo"
+END
+
+ENDPAGE
+
+PAGE "Opzioni" -1 -1 60 20
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 1 1 "@bCampi per stampa sintetica"
+END
+
+SPREADSHEET F_SINTETICA 0 8
+BEGIN
+  PROMPT 1 2 ""
+  ITEM "Campo@12"
+  ITEM "Testata@12"
+  ITEM "Descrizione@50"
+  ITEM "Importo"
+END 
+
+TEXT DLG_NULL
+BEGIN
+  PROMPT 1 11 "@bCampi per stampa dettagliata"
+END
+
+SPREADSHEET F_DETTAGLIATA 
+BEGIN
+  PROMPT 1 12 ""
+  ITEM "Campo@12"
+  ITEM "Testata@12"
+  ITEM "Descrizione@50"
+  ITEM "Importo"
+END 
+
+ENDPAGE
+
+ENDMASK
+
+PAGE "Sheet 1" -1 -1 56 6
+
+STRING S_FIELD 15
+BEGIN
+  PROMPT 1 1 "Nome campo   "
+  USE %FRD SELECT B0="X"
+  INPUT CODTAB S_FIELD
+  DISPLAY "Campo@15" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT S_FIELD CODTAB
+  OUTPUT S_DESCR S0
+  OUTPUT S_IMPORTO B1
+  CHECKTYPE NORMAL
+END
+
+STRING S_HEAD 15
+BEGIN
+  PROMPT 1 2 "Intestazione "
+END
+
+STRING S_DESCR 50 40
+BEGIN
+  PROMPT 1 3 "Descrizione  "
+  FLAGS "D"
+END
+
+BOOLEAN S_IMPORTO
+BEGIN
+  PROMPT 1 4 "Importo"
+  FLAGS "D"
+END
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -13 -1 ""
+END
+
+BUTTON DLG_DELREC 10 2
+BEGIN
+  PROMPT -23 -1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT -33 -1 ""
+END
+
+ENDPAGE
+
+ENDMASK
+
+PAGE "Sheet 2" -1 -1 56 6
+
+STRING S_FIELD 15
+BEGIN
+  PROMPT 1 1 "Nome campo   "
+  USE %FRR SELECT B0="X"
+  INPUT CODTAB S_FIELD
+  DISPLAY "Campo@15" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT S_FIELD CODTAB
+  OUTPUT S_DESCR S0
+  OUTPUT S_IMPORTO B1
+  CHECKTYPE NORMAL
+END
+
+STRING S_HEAD 15
+BEGIN
+  PROMPT 1 2 "Intestazione "
+END
+
+STRING S_DESCR 50 40
+BEGIN
+  PROMPT 1 3 "Descrizione  "
+  FLAGS "D"
+END
+
+BOOLEAN S_IMPORTO
+BEGIN
+  PROMPT 1 4 "Importo"
+  FLAGS "D"
+END
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -13 -1 ""
+END
+
+BUTTON DLG_DELREC 10 2
+BEGIN
+  PROMPT -23 -1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT -33 -1 ""
+END
+
+ENDPAGE
+
+ENDMASK

sv/sv2.cpp

@@ -0,0 +1,20 @@
+#include <xvt.h>
+#include <checks.h>
+
+#include "sv2.h"
+
+int main(int argc, char** argv)
+{
+  int n = argc > 1 ? atoi(argv[1]+1) : 0;
+  switch(n)
+  {      
+  case 0: 
+    sv2100(argc, argv);
+    break;
+  default:
+    error_box("Invalid argument %s", argv[1]);
+    break;
+  }
+  exit(0);
+  return 0;
+}

sv/sv2.h

@@ -0,0 +1,6 @@
+#ifndef __SV2_H
+#define __SV2_H
+
+int sv2100(int argc, char* argv[]);
+
+#endif

sv/sv2.url

@@ -0,0 +1,22 @@
+#include <default.url>
+
+MENU TASK_MENUBAR
+  SUBMENU MENU_FILE "~File"
+
+MENU M_FONT
+  ITEM M_FONT_SELECT "~Font"  
+  ITEM MENU_ITEM(2)  "~Colori"
+  ITEM MENU_ITEM(3)  "~Editor"
+
+MENUBAR MENU_BAR(1)
+MENU MENU_BAR(1)
+  SUBMENU MENU_FILE "~File"
+
+MENUBAR MENU_BAR(2)
+MENU MENU_BAR(2)
+  SUBMENU MENU_FILE "~File"
+
+MENUBAR MENU_BAR(3)
+MENU MENU_BAR(3)
+  SUBMENU MENU_FILE "~File"
+

sv/sv2100.cpp

@@ -0,0 +1,156 @@
+#include <applicat.h>
+#include <progind.h>
+#include <relation.h>
+#include <urldefid.h>
+
+#include "sv2.h"
+#include "svlib01.h"
+#include "sv2100a.h"
+
+#include "svriep.h"
+
+class TRicalcolo_stats : public TApplication
+{
+  TArray _file;  // Array dei files aperti
+  TStats_agg _agg;
+
+  void open_files(int logicnum, ...) ;
+
+protected:
+  virtual bool menu(MENU_TAG mt);
+  virtual bool create();
+  virtual bool destroy();
+  virtual void on_config_change();
+  
+public:
+  bool kill_stats(const TDate& dfr, const TDate& dto);
+  void calc_stats(const TDate& dfr, const TDate& dto);
+};
+
+void TRicalcolo_stats::open_files(int logicnum, ...)  
+{  
+  va_list marker;
+  va_start(marker, logicnum);
+  while (logicnum > 0)
+  {
+    CHECKD(_file.objptr(logicnum) == NULL, "File gia' aperto: ", logicnum);
+    _file.add(new TLocalisamfile(logicnum), logicnum);
+    logicnum = va_arg(marker, int);
+  }
+}
+
+bool TRicalcolo_stats::create()
+{ 
+  open_files(LF_TABCOM, 0);                       // File comuni
+  open_files(LF_TAB, LF_CLIFO, LF_OCCAS, 0);      // File ditta
+  open_files(LF_CFVEN, LF_DOC, LF_RIGHEDOC, 0);   // File vendite
+  open_files(LF_SVRIEP, 0);                       // File statistiche
+            
+  dispatch_e_menu(BAR_ITEM(1));
+  return TRUE;
+}
+
+void TRicalcolo_stats::on_config_change()
+{
+  _agg.init();
+}
+
+bool TRicalcolo_stats::destroy()
+{
+  _file.destroy();
+  return TRUE;
+}
+
+bool TRicalcolo_stats::kill_stats(const TDate& dfr, const TDate& dto)
+{ 
+  TRelation rel(LF_SVRIEP);
+                          
+  TRectype recfrom(LF_SVRIEP), recto(LF_SVRIEP);
+  
+  if (dfr.ok())              
+  {
+    recfrom.put(SVR_ANNO, dfr.year());
+    recfrom.put(SVR_PERIODO, _agg.date2period(dfr));
+  }
+  if (dto.ok())              
+  {
+    recto.put(SVR_ANNO, dto.year());
+    recto.put(SVR_PERIODO, _agg.date2period(dto));
+  }
+  
+  TCursor cur(&rel, "", 1, &recfrom, &recto);
+  const long items = cur.items();
+  TProgind pi(items, "Azzeramneto statistiche", FALSE, TRUE, 60);
+  cur.freeze();
+  
+  int err = NOERR;
+  for (cur = 0; cur.pos() < items; ++cur)
+  {             
+    pi.addstatus(1);
+    err = cur.file().remove();
+    if (err != NOERR)
+      break;
+  }  
+  
+  return err == NOERR;  
+}
+
+void TRicalcolo_stats::calc_stats(const TDate& dfr, const TDate& dto)
+{
+  TRectype recfrom(LF_DOC), recto(LF_DOC);
+  recfrom.put(DOC_DATADOC, dfr);
+  if (dto.ok())
+    recto.put(DOC_DATADOC, dto);
+  
+  TRelation rel(LF_DOC);
+  TCursor cur(&rel, "PROVV='D'", 3, &recfrom, &recto);
+  const long items = cur.items();
+  TProgind pi(items, "Ricalcolo statistiche", FALSE, TRUE, 60);
+  
+  TDocumento* curr = new TDocumento;
+  cur.file().set_curr(curr);
+  const TDocumento& doc = *curr;
+  
+  long records = 0;
+  _agg.reset();  
+  
+  for (cur = 0; cur.pos() < items; ++cur)
+  {                         
+    pi.addstatus(1);
+    
+    const TTipo_documento& tipodoc = doc.tipo();
+    if (!tipodoc.statistiche())
+      continue;   
+      
+    for (int r = doc.physical_rows()-1; r > 0; r--)  
+    {
+      const TRiga_documento& rdoc = doc[r];
+      _agg.add(rdoc);
+    }
+    
+    records++;
+    if (records % 1000 == 0)  
+      _agg.update();
+  }
+  _agg.update();
+}
+
+bool TRicalcolo_stats::menu(MENU_TAG)
+{ 
+  TMask m("sv2100a");
+  while (m.run() == K_ENTER)
+  {
+    const TDate dfr(m.get(F_FROMDATE));
+    const TDate dto(m.get(F_TODATE));
+    if (kill_stats(dfr, dto))
+      calc_stats(dfr, dto);
+  }
+  return FALSE;
+}
+
+int sv2100(int argc, char* argv[])
+{
+  TRicalcolo_stats app;
+  app.run(argc, argv, "Ricalcolo statistiche");
+  return 0;
+}

sv/sv2100a.h

@@ -0,0 +1,7 @@
+#ifndef __SV2100A_H
+#define __SV2100A_H
+
+#define F_FROMDATE 101
+#define F_TODATE   102
+
+#endif

sv/sv2100a.uml

@@ -0,0 +1,27 @@
+#include "sv2100a.h"
+
+PAGE "Ricalcolo statistiche" -1 -1 30 6
+
+DATE F_FROMDATE
+BEGIN
+  PROMPT 1 1 "Dalla data "
+END
+
+DATE F_TODATE
+BEGIN
+  PROMPT 1 2 "Alla data  "
+END
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -12 -1 ""
+END
+
+BUTTON DLG_QUIT 10 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+
+ENDMASK

sv/svlib01.cpp

@@ -1,31 +1,77 @@
+#include <prefix.h>
+#include <progind.h>
+
 #include "svlib01.h"
 
-#include "doc.h"
+#include "svriep.h"
-#include "rdoc.h"
-
-///////////////////////////////////////////////////////////
-// TStats_data
-///////////////////////////////////////////////////////////
 
 ///////////////////////////////////////////////////////////
 // TStats_agg
 ///////////////////////////////////////////////////////////
 
-int TStats_agg::date2class(const TDate& datadoc) const
+void TStats_agg::init()
 {
+  TConfig ini(CONFIG_DITTA, "sv");
+
+  switch(ini.get_char("Frequenza"))
+  {
+  case 'B': _frequenza = fs_bimestrale; break;
+  case 'M': _frequenza = fs_mensile; break;
+  case 'Q': _frequenza = fs_quindicinale; break;
+  case 'S': _frequenza = fs_settimanale; break;
+  case 'T': _frequenza = fs_trimestrale; break;
+  default : _frequenza = fs_giornaliera; break;
+  }
+  
+  _merce            = ini.get_bool("StatMerce");
+  _prestazioni      = ini.get_bool("StatPrestazioni");
+  _omaggi           = ini.get_bool("StatOmaggi");
+  _omaggio_is_merce = ini.get_bool("OmaggioIsMerce");
+  
+  _art_nocode     = ini.get_bool("ArtNoCode");
+  _art_noanag     = ini.get_bool("ArtNoAnag");
+  _art_noanag_grp = ini.get_bool("ArtNoAnagGrp");
+
+  _agente    = ini.get_bool("AgenteGrp");
+  _cliente   = ini.get_bool("ClienteGrp");
+  _giacenza  = ini.get_bool("GiacenzaGrp");
+  _magazzino = ini.get_bool("MagazzinoGrp");
+}
+
+void TStats_agg::test_firm() const
+{
+  const long ditta = prefix().get_codditta();  
+  if (ditta != _ditta)
+  { 
+    CHECK(_data.items() == 0, "Non cambiare ditta durante un'operazione di ricalcolo!");
+    ((TStats_agg*)this)->init();
+    ((TStats_agg*)this)->_ditta = ditta;
+  }
+}
+
+int TStats_agg::date2period(const TDate& datadoc) const
+{
+  test_firm();
+
   int classe;
   if (_frequenza > fs_settimanale)
   {
     classe = datadoc.month();
-    if (_frequenza == fs_bimestrale)
+    switch(_frequenza)
-      classe = (classe-1) / 2 + 1;
-    else if (_frequenza == fs_trimestrale)
-      classe = (classe-1) / 3 + 1;
-    else if (_frequenza == fs_quindicinale)
     {
+    case fs_quindicinale:
       classe = (classe-1) * 2 + 1;
       if (datadoc.day() > 15) classe++;
-    }  
+      break;
+    case fs_bimestrale:
+      classe = (classe-1) / 2 + 1;
+      break;
+    case fs_trimestrale:
+      classe = (classe-1) / 3 + 1;
+      break;
+    default:
+      break;
+    }    
   }  
   else
   {
@@ -38,38 +84,71 @@ int TStats_agg::date2class(const TDate& datadoc) const
   return classe;
 }
 
+void TStats_agg::put_key(TRectype& stat, TToken_string& key) const
+{    
+  CHECK(stat.num() == LF_SVRIEP, "Ci vuole un record delle statistiche");
+  stat.zero();
+  stat.put(SVR_ANNO,    key.get(0));
+  stat.put(SVR_PERIODO, key.get());
+  stat.put(SVR_TIPODOC, key.get());
+  stat.put(SVR_TIPOART, key.get());
+  stat.put(SVR_CODART,  key.get());
+  stat.put(SVR_UMQTA,   key.get());
+  stat.put(SVR_CODAG,   key.get());
+  stat.put(SVR_CODCF,   key.get());
+  stat.put(SVR_LIVELLO, key.get());
+  stat.put(SVR_CODMAG,  key.get());
+}
+
 TStats_agg::TStats_data& TStats_agg::find(const TRiga_documento& rdoc)
 {
+  test_firm();
+
   const TDocumento& doc = rdoc.doc();
   const TDate datadoc = doc.get(DOC_DATADOC);
 
-  TToken_string key(24);         
+  TToken_string key(64);         
   
-  key = doc.get(DOC_TIPODOC);
   key.add(datadoc.year()); 
-  key.add(date2class(datadoc));
+  key.add(date2period(datadoc));
-  key.add(rdoc.get(RDOC_UMQTA));
+  key.add(doc.get(DOC_TIPODOC));
   
   char tipo = rdoc.tipo().tipo();
-  if (tipo == 'O' && _omaggio_is_merce)
+  if (tipo == RIGA_OMAGGI && _omaggio_is_merce)
-    tipo = 'M';
+    tipo = RIGA_MERCE;
   key.add(tipo);  
   
-  TString80 codart = rdoc.get(RDOC_CODARTMAG);
+  TString80 codart;
-  if (codart.empty()) codart = rdoc.get(RDOC_CODART);
+  if (tipo != RIGA_PRESTAZIONI)
+  {
+    codart = rdoc.get(RDOC_CODARTMAG);
+    if (codart.empty() && !_art_noanag_grp) 
+      codart = rdoc.get(RDOC_CODART);
+  }
+  else
+    codart = rdoc.get(RDOC_CODART);
   key.add(codart);
+  key.add(rdoc.get(RDOC_UMQTA));
   
   if (_agente)
     key.add(doc.get(DOC_CODAG));
+  else
+    key.add("");
 
   if (_cliente)
     key.add(doc.get(DOC_CODCF));
+  else
+    key.add("");
   
   if (_giacenza)
-    key.add(doc.get(DOC_CODCF));
+    key.add(rdoc.get(RDOC_LIVELLO));
+  else
+    key.add("");
 
   if (_magazzino)
-    key.add(doc.get(RDOC_CODMAG));
+    key.add(rdoc.get(RDOC_CODMAG));
+  else
+    key.add("");
     
   TStats_data* ptr = (TStats_data*)_data.objptr(key);
   if (ptr == NULL)
@@ -82,17 +161,39 @@ TStats_agg::TStats_data& TStats_agg::find(const TRiga_documento& rdoc)
 } 
 
 bool TStats_agg::can_add(const TRiga_documento& rdoc) const
-{
+{          
-  bool ok;
+  test_firm();
-  const char tipo = rdoc.tipo().tipo();
+
-  switch(tipo)
+  const TTipo_documento& tip = rdoc.doc().tipo();
+  bool ok = tip.statistiche();
+  
+  if (ok)
   {
-  case 'M': ok = _merce; break;
+    const char tipo = rdoc.tipo().tipo();
-  case 'O': ok = _omaggi; break;
+    switch(tipo)
-  case 'P': ok = _prestazioni; break;
+    {
-  default : ok = FALSE; break;
+    case RIGA_MERCE      : ok = _merce; break;
+    case RIGA_OMAGGI     : ok = _omaggi; break;
+    case RIGA_PRESTAZIONI: ok = _prestazioni; break;
+    default              : ok = FALSE; break;
+    }
   }
+  
+  if (ok && !rdoc.is_articolo())
+  {     
+    const TString& codart = rdoc.get(RDOC_CODART);
+    if (codart.empty()) 
+      ok = _art_nocode;
+    else
+      ok = _art_noanag;
+  }
+  
   return ok;
+} 
+
+void TStats_agg::reset()
+{
+  _data.destroy();
 }
 
 bool TStats_agg::sub(const TRiga_documento& rdoc)
@@ -113,32 +214,74 @@ bool TStats_agg::add(const TRiga_documento& rdoc)
   if (ok)   
   {
     TStats_data& data = find(rdoc);
-    data._quantita += rdoc.quantita();
+    
     data._valore += rdoc.imponibile();
+    real qta = rdoc.quantita();
+    if (qta.is_zero())
+      qta = 1.0;
+    data._quantita += qta;
   }
   return ok;
 }
 
 bool TStats_agg::update()
-{
+{        
-  return TRUE;
+  TProgind pi(_data.items(), "Aggiornamento statistiche", FALSE, TRUE, 60);
+
+  test_firm();
+
+  bool ok = TRUE;
+
+  TToken_string key(64);
+  TLocalisamfile stat(LF_SVRIEP);
+  TRectype& curr = stat.curr();
+  
+  _data.restart();
+  for (THash_object* h = _data.get_hashobj(); h; h = _data.get_hashobj())
+  { 
+    pi.addstatus(1);
+    
+    TStats_data& data = (TStats_data&)h->obj();
+    if (data._quantita.is_zero() && data._valore.is_zero())
+      continue;
+      
+    key = h->key();
+    
+    bool saved = FALSE;
+    while (!saved)
+    {
+      put_key(curr, key);
+      int err = stat.read(_isequal, _lock);
+      if (err != NOERR)
+        put_key(curr, key);
+      real quantita(curr.get(SVR_QUANTITA));
+      real valore(curr.get(SVR_VALORE));
+      quantita += data._quantita;
+      valore += data._valore;
+      curr.put(SVR_QUANTITA, quantita);
+      curr.put(SVR_VALORE, valore);
+      
+      if (err == NOERR)
+        err = stat.rewrite();
+      else  
+        err = stat.write();
+          
+      switch(err)
+      {
+      case NOERR      : saved = TRUE; 
+                        break;
+      case _isreinsert: break; 
+      default         : saved = !yesno_box("Errore %d nell'aggiornamento statistiche:"
+                                           "Si desidera ritentare?", err);
+                        break;
+      }
+    }  
+  }
+  reset();
+  
+  return ok;
 }
 
-TStats_agg::TStats_agg()
+TStats_agg::TStats_agg() : _ditta(0)
 {
-  TConfig ini(CONFIG_DITTA, "sv");
-  switch(ini.get_char("DataFreq"))
-  {
-  case 'B': _frequenza = fs_bimestrale; break;
-  case 'M': _frequenza = fs_mensile; break;
-  case 'Q': _frequenza = fs_quindicinale; break;
-  case 'S': _frequenza = fs_settimanale; break;
-  case 'T': _frequenza = fs_trimestrale; break;
-  default : _frequenza = fs_giornaliera; break;
-  }
-  
-  _merce            = ini.get_bool("StatMerce");
-  _prestazioni      = ini.get_bool("StatPrestazioni");
-  _omaggi           = ini.get_bool("StatOmaggi");
-  _omaggio_is_merce = ini.get_bool("OmaggioIsMerce");
 }

sv/svlib01.h

@@ -20,24 +20,32 @@ class TStats_agg : public TObject
   public:
     real _quantita, _valore;
   };
-
+  
+  long _ditta;
   TAssoc_array _data;
   
   TFrequenza_statistiche _frequenza;                       
   bool _merce, _prestazioni, _omaggi, _omaggio_is_merce;
+  bool _art_nocode, _art_noanag, _art_noanag_grp;
   bool _agente, _cliente, _articolo, _giacenza, _magazzino;
   
 protected: 
-  // Converte una data nella classe temporale definita dalla frequenza delle statisitiche
+  void test_firm() const;
-  int date2class(const TDate& datadoc) const;
+  void put_key(TRectype& stat, TToken_string& key) const;
   TStats_agg::TStats_data& find(const TRiga_documento& rdoc);
   bool can_add(const TRiga_documento& rdoc) const;
-  
+
+
 public:   
+  void init();
+  void reset();
   bool sub(const TRiga_documento& rdoc);
   bool add(const TRiga_documento& rdoc);
   bool update();
 
+  // Converte una data nella classe temporale definita dalla frequenza delle statisitiche
+  int date2period(const TDate& datadoc) const;
+
   TStats_agg();
   virtual ~TStats_agg() { }
 };

sv/svriep.h

@@ -0,0 +1,17 @@
+#ifndef __SVRIEP_H
+#define __SVRIEP_H
+
+#define SVR_TIPODOC  "TIPODOC"
+#define SVR_ANNO     "ANNO"
+#define SVR_PERIODO  "PERIODO"
+#define SVR_TIPOART  "TIPOART"
+#define SVR_CODART   "CODART"
+#define SVR_UMQTA    "UMQTA"
+#define SVR_CODAG    "CODAG" 
+#define SVR_CODCF    "CODCF" 
+#define SVR_LIVELLO  "LIVELLO" 
+#define SVR_CODMAG   "CODMAG" 
+#define SVR_QUANTITA "QUANTITA"
+#define SVR_VALORE   "VALORE"
+
+#endif