From 7d9a470e152c1f491c93f9761ba6faeeb74cf1a9 Mon Sep 17 00:00:00 2001
From: angelo <angelo@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 6 Sep 1995 16:08:14 +0000
Subject: [PATCH] Aggiunta l'apertura di LF_TABCOM e cambiata la condizione di
 filtro: da B0=="" e' divenuta B0!="X" che sostanzialmente significa la stessa
 cosa, ma in realta' ha due effetti ben diversi, dati che la get_str() di
 campi booleani ritorna " " al posto di "".

git-svn-id: svn://10.65.10.50/trunk@1792 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/ba2400.cpp | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/ba/ba2400.cpp b/ba/ba2400.cpp
index 598abb536..be108f81e 100755
--- a/ba/ba2400.cpp
+++ b/ba/ba2400.cpp
@@ -31,7 +31,7 @@ TTab_form::TTab_form(const char* name) : TForm(name)
   TIsamtempfile* tmp = new TIsamtempfile(LF_TABCOM, t, FALSE);
   relation()->replace(tmp);
   
-  c->setfilter("B0==\"\"");    // Esclude le deleghe gia' stampate
+  c->setfilter("B0!=\"X\"");    // Esclude le deleghe gia' stampate
 }
 
 word TTab_form::set_body(word p, bool u)
@@ -115,10 +115,12 @@ bool TTab_form::validate(TForm_item& fld, TToken_string& s)
 ///////////////////////////////////////////////////////////
 
 class TForm_printer : public TApplication
-{
+{ 
+  TLocalisamfile* _tabcom;
+  
 protected:
   virtual bool create();
-
+  virtual bool destroy();
 public:
   TForm_printer() {}
   virtual ~TForm_printer() {}
@@ -134,13 +136,18 @@ bool TForm_printer::create()
   TFilename form(argv(2)); form.ext("frm");
   if (!fexist(form))
     return error_box("Il profilo %s non esiste", (const char*)form);
-
+  _tabcom = new TLocalisamfile(LF_TABCOM);
   TTab_form f(form);
   f.print();  
   
   return TRUE;
 }
 
+bool TForm_printer::destroy()
+{                         
+  delete _tabcom;
+  return TApplication::destroy();
+}
 
 int ba2400(int argc, char* argv[])
 {