Aggiunta archiviazione documenti.

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

ve/ve5.cpp

@@ -0,0 +1,22 @@
+#include <xvt.h>
+
+#include <checks.h>
+
+#include "ve5.h"
+
+#define MAIN
+
+int main(int argc, char** argv)
+{                       
+  const int k = argc > 1 ? atoi(argv[1]+1) : 0;
+  switch(k)
+  { 
+  case 0: 
+    ve5100(argc, argv);
+    break;     
+  default:
+    error_box("Applicazione sconosciuta: %s %s.", argv[0], argv[1]);
+    break;
+  }
+  return 0;
+}

ve/ve5.h

@@ -0,0 +1,15 @@
+#ifndef __VE5_H
+#define __VE5_H
+
+#ifdef MAIN
+#define extern
+#endif
+
+int ve5100(int argc, char**);
+
+#ifdef MAIN
+#undef extern
+#endif
+
+#endif 
+

ve/ve5.url

@@ -0,0 +1,6 @@
+#include <default.url>
+
+MENU TASK_MENUBAR
+	SUBMENU MENU_FILE "~File"
+
+

ve/ve5100.cpp

@@ -0,0 +1,194 @@
+#include <direct.h>
+#include <applicat.h>
+#include <archives.h>
+#include <assoc.h>
+#include <mask.h>    
+#include <progind.h>
+#include <relation.h>
+#include <tabutil.h>
+#include <urldefid.h>
+#include <utility.h>
+
+#include "ve5100a.h"    
+
+#include "velib01.h"
+
+class TDeletedoc_app : public TApplication
+{                                     
+  TArchive       _arc;      
+  TArray         _to_zap;    // Array contenente le chiavi dei documenti da eliminare
+  TString        _desc, _last_std;
+  char           _unit;
+  TFilename      _tmp_dir;
+  TIsamtempfile  *_tdoc,*_trdoc;
+  TLocalisamfile *_doc,*_rdoc;
+  
+protected:
+
+  void backup_delete_doc();    // Backup e cancellazione dei documenti da eliminare
+  void create_tmp_files(bool create=TRUE);
+  void delete_tmp_files(bool remove=TRUE);
+  virtual bool create();
+  virtual bool destroy();
+  virtual bool menu(MENU_TAG m);  
+  
+public:
+
+  TDeletedoc_app() {};  
+  ~TDeletedoc_app() {};  
+};
+
+void TDeletedoc_app::backup_delete_doc()
+{
+  TRecnotype total = 0;   
+  TDocumento doc;
+  int err;
+  
+  err = _doc->lock();
+  if (err != NOERR) 
+  {
+    error_box("Il file partite non puo' essere bloccato in modo esclusivo."
+              " Nessuna partita cancellata. Errore %d.",err);
+    return;
+  }
+  create_tmp_files();
+  _doc->zero();                                        
+  // Scorre il file dei documenti
+  {
+    TProgind p(10, "Ricerca e copia dei documenti da eliminare...", TRUE, FALSE, 10);
+    for (_doc->first();_doc->good() && !p.iscancelled();_doc->read(_isgreat))
+    {
+      doc.read(_doc->curr());
+      bool to_delete = TRUE;
+      
+      if (_doc->get("STATO") != _last_std) to_delete = FALSE;
+  
+      if (to_delete && !p.iscancelled()) // Se TRUE il puo' essere eliminato!
+      {              // Memorizza la chiave 1 del documento in un array
+        TToken_string id(30);
+        id = _doc->get("PROVV");
+        id.add(_doc->get("ANNO"));
+        id.add(_doc->get("CODNUM"));
+        id.add(_doc->get("NDOC"));
+        _to_zap.add(id);
+        err = _tdoc->write(_doc->curr());
+        const int rows = doc.rows();
+        // Memorizza le righe del documento sui file temporanei
+        for (int x=1;err==NOERR && x<=rows;x++)
+            err=_trdoc->write(doc[x]);                            
+        total++;
+      }       
+    }  // end of for
+    if (p.iscancelled()) total=0;
+  }
+  
+  if (total != 0)                                        
+    if (err==NOERR)           
+  {
+    const char * dir = &_tmp_dir[1];
+    delete_tmp_files(FALSE); //Close tmp files only
+    bool rt = _arc.backup(dir,_unit,_desc,FALSE);// Backup dei documenti da eliminare, prefix unnecessary
+    create_tmp_files(FALSE); // Reopen tmp files.
+    if (rt) 
+    {
+      // Effettiva cancellazione dei documenti
+      TString80 caption("Cancellazione di ");
+      caption.add_plural(total, "documento");
+      if (!yesno_box(caption))
+        _to_zap.destroy();
+      TProgind pi(total, caption, FALSE, TRUE, 10);
+      const int items = _to_zap.items();
+      for (int i = 0; i < items; i++)
+      {          
+        TToken_string& id = (TToken_string&)_to_zap[i];        
+        id.restart();
+        const char provv = id.get_char();
+        const int  anno  = id.get_int();
+        const TString16 codnum = id.get();
+        const long numdoc = id.get_int();
+        doc.read(provv,anno,codnum,numdoc);
+        doc.remove();
+        pi.addstatus(1);
+      }   
+    }                                          
+  }
+  else
+    error_box("Errore %d scrivendo sui files temporanei."
+              " La cancellazione dei documenti chiuse non verra' effettuata.",err);
+  delete_tmp_files();    // Physical remove of tmp files
+  _doc->unlock();
+}
+
+void TDeletedoc_app::create_tmp_files(bool create)
+{
+  TFilename tf(_tmp_dir);
+  tf << "/" << "f1";
+  _tdoc   = new TIsamtempfile(LF_DOC,tf,create);
+  tf.rtrim(1);tf << "2";
+  _trdoc   = new TIsamtempfile(LF_RIGHEDOC,tf,create);
+}                     
+
+void TDeletedoc_app::delete_tmp_files(bool remove)
+{
+  if (remove)        // Cosi' posso forzare la cancellazione in chiusura
+  {
+    _tdoc->set_autodel();
+    _trdoc->set_autodel();
+  }
+  delete _tdoc;
+  delete _trdoc;
+}
+
+bool TDeletedoc_app::create()
+{
+  TApplication::create();
+  _tmp_dir.temp();
+  _tmp_dir = _tmp_dir.path();
+  _tmp_dir << "VE";
+  if (!fexist(_tmp_dir)) make_dir(_tmp_dir);
+  _tmp_dir.insert("%");  // Add % sign 
+  _doc = new TLocalisamfile(LF_DOC);
+  _rdoc = new TLocalisamfile(LF_RIGHEDOC);
+  dispatch_e_menu(BAR_ITEM(1));
+  return TRUE;
+}
+
+bool TDeletedoc_app::destroy()
+{                
+  _tmp_dir=_tmp_dir.sub(1); // Cut out % sign
+  if (fexist(_tmp_dir)) rmdir(_tmp_dir);      
+  delete _doc;
+  delete _rdoc;
+  return TApplication::destroy();
+}
+
+bool TDeletedoc_app::menu(MENU_TAG)
+{               
+  TMask m("ve5100a");
+  
+  TTable std("%STD");
+  
+  std.last(); // Reperisce lo stato eliminabile
+  
+  _last_std = std.get("CODTAB");
+  
+  m.set(F_STATUS,_last_std);
+  m.set(F_STADESC,std.get("S0"));
+  
+  while (m.run() != K_QUIT) 
+  {                 
+    _unit       = m.get(F_UNIT)[0];
+    _desc       = m.get(F_DESC);
+      backup_delete_doc(); 
+  }
+  return FALSE;
+}
+
+
+int ve5100(int argc, char** argv)
+{
+  TDeletedoc_app a;
+  a.run(argc, argv, "Eliminazione documenti");
+  return 0;
+}
+

ve/ve5100a.h

@@ -0,0 +1,7 @@
+
+#define F_STATUS       101
+#define F_DESC         102
+#define F_UNIT         103
+#define F_STADESC      104
+
+

ve/ve5100a.uml

@@ -0,0 +1,43 @@
+#include "ve5100a.h"
+
+PAGE "Eliminazione documenti" -1 -1 60 8
+
+STRING F_STATUS 1
+BEGIN
+  PROMPT 2 2 "Stato eliminabile    "
+  FLAGS "D"
+END
+
+STRING F_STADESC 32
+BEGIN
+  PROMPT 26 2 ""
+  FLAGS "D"
+END
+
+LIST F_UNIT 2
+BEGIN
+  PROMPT 2 3 "Unita' di backup     "
+  ITEM "A|A:"
+  ITEM "B|B:"
+END
+
+STRING F_DESC 50 35
+BEGIN
+  PROMPT 2 4 "Descrizione backup   "
+  GROUP 1
+END
+
+BUTTON DLG_OK 10 2
+BEGIN 
+  PROMPT -12 -1 ""
+END  
+
+BUTTON DLG_QUIT 10 2
+BEGIN 
+  PROMPT -22 -1 ""
+END  
+
+ENDPAGE
+
+ENDMASK
+