Corretta autosistemazione di prefix.txt
git-svn-id: svn://10.65.10.50/trunk@716 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
1962a5f4c7
commit
7876c36981
@ -29,10 +29,12 @@ TPrefix::TPrefix()
|
||||
_rdir = rdir;
|
||||
|
||||
CGetPref();
|
||||
const long primaditta = atol(cprefix);
|
||||
const TFilename dir(cprefix);
|
||||
|
||||
const long primaditta = atol(dir.name());
|
||||
if (primaditta > 0 && !exist(primaditta))
|
||||
{
|
||||
ofstream out_pr("prefix.txt");
|
||||
ofstream out_pr(prefname());
|
||||
out_pr << "com" << endl;
|
||||
}
|
||||
}
|
||||
@ -181,7 +183,7 @@ void TPrefix::set(const char* name, bool force, TFilelock mode)
|
||||
|
||||
bool TPrefix::exist(long codditta) const
|
||||
{
|
||||
CHECKD(codditta > 0, "Solo le ditte con codice maggiore di zero possono esistere : codice", codditta);
|
||||
CHECKD(codditta > 0, "Solo le ditte con codice maggiore di zero possono esistere : codice ", codditta);
|
||||
TFilename s(firm2dir(codditta)); s << "/dir.gen";
|
||||
|
||||
if (fexist(s))
|
||||
|
Loading…
x
Reference in New Issue
Block a user