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

Patch level : 10.0 318

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

Sistemata creazione ditte


git-svn-id: svn://10.65.10.50/trunk@18948 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2009-05-27 13:46:20 +00:00
parent 554e34ed72
commit d0b4aa6e55
1 changed files with 7 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
include/prefix.cpp
View File

@ -36,7 +36,7 @@ TPrefix& prefix_init()
// @func Determina se il prefix e' stato inizializzato
//
// @rdesc Ritorna TRUE o FALSE
// @rdesc Ritorna true o false
bool prefix_valid()
{
return _prefhndl != NULL;
@ -497,7 +497,7 @@ const TFilename& TFile_info::load_filedes()
TFile_info::TFile_info(int logicnum, TFilename& name)
: _ref_count(0), _num(logicnum), _handle(-1),
_last_access(0),
_last_change(0), _locked(FALSE), _exclusive(FALSE), _last_key(-1)
_last_change(0), _locked(false), _exclusive(false), _last_key(-1)
{
if (logicnum < LF_EXTERNAL)
{
@ -998,7 +998,7 @@ void TPrefix::reopen() const
// @mfunc Setta la ditta corrente
void TPrefix::set(
const char* name, // @parm Nome del direttorio dati da attivare (default NULL)
bool force, // @parm Permette di settarla anche se non esiste (default FALSE)
bool force, // @parm Permette di settarla anche se non esiste (default false)
TFilelock mode) // @parm Permette di aprire la ditta in modo esclusivo (default _manulock)
// @comm Il parametro <p name> puo' assumere i seguenti valori:
@ -1189,7 +1189,7 @@ bool TPrefix::set_studio(const char* study, long ditta)
if (!ok)
{
strcpy(__ptprf, old_study);
set(old_firm, TRUE);
set(old_firm, true);
}
return ok;
}
@ -1301,16 +1301,7 @@ bool TPrefix::build_firm_data(long codditta, bool flagcom)
if (exist)
return message_box("Direttorio dati danneggiato, impossibile attivare la ditta %ld", codditta);
if (!yesno_box("Gli archivi della ditta %ld non esistono: si desidera generarli?", codditta))
return FALSE;
TLocalisamfile ditte(LF_NDITTE);
ditte.zero();
ditte.put(NDT_CODDITTA,codditta);
if (ditte.read(_isequal,_testandlock) == _islocked)
{
message_box("Archivi della ditta %ld in fase di creazione da parte di un altro utente.",codditta);
return FALSE;
}
return false;
set_autoload_new_files(yesno_box("Si desidera precaricare gli archivi standard"));
s = s.path(); s.rtrim(1);
@ -1353,7 +1344,7 @@ bool TPrefix::build_firm_data(long codditta, bool flagcom)
rec.zero();
}
TString mess(TR("Generazione archivi della ditta ")); mess << codditta;
TProgind p(maxeod0 ? maxeod0 : 1, mess, FALSE, TRUE);
TProgind p(maxeod0 ? maxeod0 : 1, mess, false, TRUE);
for (int i = LF_USER; i <= maxeod0; i++)
{
@ -1372,7 +1363,7 @@ bool TPrefix::build_firm_data(long codditta, bool flagcom)
if (dir.is_valid() && create_now)
{
TSystemisamfile f(i);
f.build(30);
f.build();
}
else
{
@ -1391,8 +1382,6 @@ bool TPrefix::build_firm_data(long codditta, bool flagcom)
reg.rewrite();
}
}
ditte.reread(_unlock);
set_codditta(codditta);
set_autoload_new_files(TRUE);