Patch level : 10.0

Files correlati     : *.exe
Ricompilazione Demo : [ ]
Commento            :
Potenziata gestione tabelle di modulo in modo da poter utilizzate in moduli diversi da quello di stretta appartenenza


git-svn-id: svn://10.65.10.50/trunk@17234 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2008-09-12 11:52:57 +00:00
parent 888c0fb3fc
commit 474c581215
2 changed files with 35 additions and 15 deletions

View File

@ -603,8 +603,7 @@ const TObject& TFile_cache::query(const char* code)
{
const RecDes* recd = curr.rec_des(); // Descrizione del record della testata
const KeyDes& kd = recd->Ky[_key-1]; // Elenco dei campi della chiave
const int fi = f.tab() ? 1 : (f.num() == LF_TABMOD ? 2 : 0);
for (int i = fi; i < kd.NkFields; i++) // Riempie la chiave selezionata
for (int i = 0; i < kd.NkFields; i++) // Riempie la chiave selezionata
{
const int nf = kd.FieldSeq[i] % MaxFields;
const RecFieldDes& rf = recd->Fd[nf];
@ -796,19 +795,26 @@ TRecord_cache& TDB_cache::rec_cache(int file)
int TDB_cache::build_table_key(const char* table, const char* key, TToken_string& k) const
{
int file = LF_TAB;
k.cut(0);
if (!isalnum(*table)) // gestisco i casi come %IVA e &AUT
{
switch (*table)
{
case '%': file = LF_TABCOM; break;
case '^': file = LF_TABGEN; break;
case '&': file = LF_TABMOD; break;
case '&': file = LF_TABMOD;
{
const TModule_table mt(table);
k = mt.module();
k.add(mt.customer());
}
break;
case '$':
default : file = LF_TAB; break;
}
table++; // Skippa il primo carattere speciale
}
k = table;
k.add(table);
k.add(key);
return file;
}

View File

@ -6,27 +6,41 @@ TModule_table::TModule_table(const char* tabname, const char* module, long custo
: TLocalisamfile(LF_TABMOD), _tabname(tabname),
_module(module), _customer(customer)
{
TFilename app = main_app().argv(0); app.ext("");
const TFixed_string appname(app.name());
if (_module.blank())
_module = appname.left(2);
_module.upper();
if (!isalpha(_tabname[0])) // Toglie eventuali prefissi inutili d'ora in poi
if (!isalnum(_tabname[0])) // Toglie eventuali prefissi inutili d'ora in poi
_tabname.ltrim(1);
_tabname.upper();
if (_customer <= 0L && real::is_natural(appname.mid(3)))
_customer = atol(app.mid(2));
if (_tabname.len() >= 5)
{
_module = _tabname.left(2);
_tabname.ltrim(2);
if (_tabname.len() > 3)
{
_customer = atol(_tabname);
_tabname = _tabname.right(3);
}
}
if (_module.blank() || _customer <= 0L)
{
TFilename app = main_app().argv(0); app.ext("");
const TFixed_string appname(app.name());
if (_module.blank())
_module = appname.left(2);
if (_customer <= 0L && real::is_natural(appname.mid(3)))
_customer = atol(app.mid(2));
}
_module.upper();
}
void TModule_table::zero_rec(TRectype& rec, char c)
{
rec.zero(c);
rec.put("COD", _tabname);
rec.put("MOD", _module);
rec.put("CUST", _customer);
rec.put("COD", _tabname);
}
// @cmember Vuota tutto il record