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:
alex 1994-12-02 13:08:53 +00:00
parent 1962a5f4c7
commit 7876c36981

View File

@ -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))