Corretta creazione contemporanea di una stessa ditta.

git-svn-id: svn://10.65.10.50/trunk@1631 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1995-07-21 10:45:17 +00:00
parent 3aa8bbbf81
commit 26ad777cf5

View File

@ -10,6 +10,8 @@
#include <tabutil.h>
#include <utility.h>
#include <urldefid.h>
#include <lffiles.h>
#include <nditte.h>
#include "ba0.h"
#include "ba0100a.h"
@ -123,7 +125,17 @@ bool TMenu_application::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;
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;
}
set_autoload_new_files(yesno_box("Si desidera precaricare gli archivi standard"));
s = s.path(); s.rtrim(1);
@ -204,7 +216,9 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
reg.put("B9", "X");
reg.rewrite();
}
}
}
ditte.reread(_unlock);
set_firm(codditta);
set_autoload_new_files(TRUE);