root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzioni AGA n.134-145

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@146 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-09-05 10:01:41 +00:00
parent 291307af56
commit af9ae417a7
1 changed files with 97 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

122
ba/ba3200.cpp
View File

@ -17,15 +17,15 @@
class BA3200_application : public TPrintapp
{
// TTable* _tab;
TString _tabname;
TFilename _rptname;
TRelation* _rel;
TCursor *_cur;
TMask* _msk;
TString _maskname;
// TScanner *_rpt;
int _logicnum;
TArray _string_roman;
TArray _field_roman;
public:
@ -34,12 +34,14 @@ public:
virtual bool set_print(int) ;
virtual void set_page(int, int);
virtual bool preprocess_page (int, int);
void leggi_rpt();
void set_headers();
void set_rows();
void set_footers();
void set_translations();
void set_relations();
BA3200_application(const char * tabname) : _tabname(tabname) {}
virtual ~BA3200_application() {}
};
@ -47,25 +49,26 @@ public:
bool BA3200_application::set_print(int)
{
TRectype from(_rel->lfile()->curr());
TRectype to (_rel->lfile()->curr());
TRectype from(_rel->lfile()->curr()); from.zero();
TRectype to (from);
from.zero();
to.zero();
const KEY tasto = _msk->run();
if (tasto == K_ENTER)
if (_msk->run() == K_ENTER)
{
const int campi_maschera = _msk->fields(); // - 2; Tolgo bottoni...
const int campi_maschera = _msk->fields();
for (int i = 0; i < campi_maschera; i++)
{
const TMask_field& campo_maschera = _msk->fld(i);
const char* val = campo_maschera.get();
const TFieldref* campo_ref = campo_maschera.field();
if (*val && campo_ref != NULL && campo_ref->ok())
if (*val)
{
if (campo_maschera.in_group(1)) campo_ref->write(val, from); else
if (campo_maschera.in_group(2)) campo_ref->write(val, to);
const TFieldref* campo_ref = campo_maschera.field();
if (campo_ref != NULL && campo_ref->ok())
{
if (campo_maschera.in_group(1)) campo_ref->write(val, from);
else
if (campo_maschera.in_group(2)) campo_ref->write(val, to);
}
}
}
@ -77,9 +80,30 @@ bool BA3200_application::set_print(int)
void BA3200_application::set_page (int , int )
{
_string_roman.destroy();
_field_roman.destroy();
leggi_rpt();
}
bool BA3200_application::preprocess_page(int , int)
{
const int items = _field_roman.items();
if (items > 0)
{
for (int i = 0; i < items; i++)
{
TString& fn = (TString &) _field_roman[i];
TFieldref fld(fn, 0);
TString& s = (TString &) _string_roman[i];
const int n = atoi(fld.read(_rel));
s = itor(n);
}
}
return TRUE;
}
void BA3200_application::set_headers()
{
TString NomeTabella, sep, formato_intesta, testo_intesta;
@ -145,26 +169,44 @@ void BA3200_application::set_rows()
{
riga_record = line.get_int();
campo = line.get();
TString s(line.get());
campo = s;
from = campo.from();
to = campo.to();
name = campo.name();
int logicnum = campo.file() == 0 ? _logicnum : campo.file();
formato_campo = line.get();
formato_campo = line.get();
formato_campo.trim();
formato_campo.lower();
const int p = formato_campo.find("@m");
if (formato_campo.lower() == "@pn")
picture = line.get();
if (p != -1)
{
formato_campo.cut(p);
formato_campo << "#t";
_string_roman.add(new TString);
_field_roman.add(s);
const int last = _string_roman.items() - 1;
set_row (riga_record, formato_campo, _string_roman.objptr(last));
}
else
picture = "";
if (to == -1)
if (picture != "")
set_row (riga_record, formato_campo, FLD(_logicnum,name,picture) );
{
if (formato_campo.find("@pn"))
picture = line.get();
else
set_row (riga_record, formato_campo, FLD(_logicnum,name) );
else
set_row (riga_record, formato_campo, FLD(_logicnum,name,from,to) );
picture = "";
if (to == -1)
if (picture != "")
set_row (riga_record, formato_campo, FLD(logicnum,name,picture) );
else
set_row (riga_record, formato_campo, FLD(logicnum,name) );
else
set_row (riga_record, formato_campo, FLD(logicnum,name,from,to) );
}
line = (const char *) rpt.line();
}
@ -217,6 +259,33 @@ void BA3200_application::set_translations()
}
}
void BA3200_application::set_relations()
{
TToken_string line("", ',');
TString tab(16), expr(40);
int key, linkto, alias, logicnum;
TScanner rpt(_rptname);
rpt.paragraph("Relations");
line = rpt.line();
while ( (line != "") && (line[0] != '[') )
{
tab = line.get();
logicnum = atoi(tab);
expr = line.get();
key = line.get_int();
if (key == 0) key = 1;
linkto = line.get_int();
alias = line.get_int();
if (logicnum > 0)
_rel->add(logicnum, expr, key, linkto, alias);
else
_rel->add(tab, expr, key, linkto, alias);
line = rpt.line();
}
}
void BA3200_application::leggi_rpt()
{
set_rows();
@ -249,6 +318,7 @@ void BA3200_application::user_create()
set_headers();
set_footers();
set_translations();
set_relations();
}
void BA3200_application::user_destroy()