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

Patch level : 10.0 148

Browse Source 
Files correlati     :  ve0.exe ve2.exe
Ricompilazione Demo : [ ]
Commento            :

Corrette tabelle di modulo per poterle usare anche in altri moduli


git-svn-id: svn://10.65.10.50/trunk@17492 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2008-10-28 19:52:45 +00:00
parent dc1e132bed
commit 8232857172
2 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
include/prefix.cpp
View File

@ -1450,16 +1450,13 @@ int TTable_names::logic_num(const TString& n)
// ATTENZIONE: NON includere qui MAG!
if (namelen == 3 && name != "DOC" && name != "MOV" && name != "RIP" && name != "CDC")
return LF_TAB;
if (namelen == 4)
switch (name[0])
{
switch (name[0])
{
case '^': return LF_TABGEN;
case '%': return LF_TABCOM;
case '$': return LF_TAB;
case '&': return LF_TABMOD;
default : break;
}
}
TString* str = (TString*)_names.objptr(name);

24
include/tabmod.cpp
View File

@ -3,22 +3,26 @@
#include <tabmod.h>
TModule_table::TModule_table(const char* tabname)
: TLocalisamfile(LF_TABMOD), _tabname(tabname), _customer(0)
: TLocalisamfile(LF_TABMOD), _customer(0)
{
if (!isalnum(_tabname[0])) // Toglie eventuali prefissi inutili d'ora in poi
_tabname.ltrim(1);
_tabname.upper();
TString8 name(tabname);
if (!isalnum(name[0])) // Toglie eventuali prefissi inutili d'ora in poi
name.ltrim(1);
name.upper();
if (_tabname.len() >= 5)
if (name.len() >= 5)
{
_module = _tabname.left(2);
_tabname.ltrim(2);
if (_tabname.len() > 3)
_module = name.left(2);
name.ltrim(2);
if (name.len() > 3)
{
_customer = atol(_tabname);
_tabname = _tabname.right(3);
_customer = atol(name);
_tabname = name.right(3);
}
else
_tabname = name;
}
else _tabname = name;
if (_module.blank() || _customer <= 0L)
{