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
This commit is contained in:
angelo 1995-09-06 16:08:14 +00:00
parent df862da7f5
commit 7d9a470e15

View File

@ -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[])
{