Corretta richiesta ditta per contabilita

git-svn-id: svn://10.65.10.50/trunk@3550 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-09-09 10:48:37 +00:00
parent 41d5e0fd25
commit 7bd695ee32

View File

@ -980,11 +980,16 @@ bool TMenu_application::main_loop()
} }
if (!ok) error_box("Password di servizio errata!\nAccesso negato."); if (!ok) error_box("Password di servizio errata!\nAccesso negato.");
} }
if (ok) if (ok)
{ {
const TString16 module(cmd2name(option)); const TString16 module(cmd2name(option));
if (get_firm() == 0 && module.compare("cg", 2, TRUE) == 0) // Chiede ditta se necessario if (get_firm() == 0 && module.compare("cg", 2, TRUE) == 0) // Chiede ditta se necessario
set_firm(); ok = set_firm();
}
if (ok)
{
prefix().set(NULL); // Chiude prefix prefix().set(NULL); // Chiude prefix
TFilename opt_cmd(option); TFilename opt_cmd(option);
#if XVT_OS == XVT_OS_WIN #if XVT_OS == XVT_OS_WIN