7f2782af6f
git-svn-id: svn://10.65.10.50/branches/R_10_00@22616 c028cbd2-c16b-5b4b-a496-9718f37d4682
60 lines
1.3 KiB
C++
60 lines
1.3 KiB
C++
#include <modaut.h>
|
|
|
|
#include "bainstlib.h"
|
|
|
|
class TInstall_SC : public TInstallmodule_app
|
|
{
|
|
|
|
protected:
|
|
virtual int module_number() const { return SCAUT; }
|
|
virtual bool something_to_load() const;
|
|
virtual bool install_com();
|
|
|
|
bool form_to_load() const;
|
|
|
|
public:
|
|
virtual ~TInstall_SC () {}
|
|
};
|
|
|
|
bool TInstall_SC::form_to_load() const
|
|
{
|
|
//controlla se il file con i form (solo PEC per ora) è da aggiornare
|
|
//guarda se esiste il codice PEC che è l'unico creato al 20/05/2011...
|
|
TLocalisamfile form(LF_FORM);
|
|
form.put("TIPOPROF", "PEC");
|
|
//se il PEC non c'è -> il file dei form è da aggiornare (capita solo con nuova installazione)
|
|
const int err = form.read();
|
|
return err != NOERR;
|
|
}
|
|
|
|
bool TInstall_SC::something_to_load() const
|
|
{
|
|
if (test_database())
|
|
{
|
|
if (form_to_load())
|
|
return true;
|
|
}
|
|
return TInstallmodule_app::something_to_load();
|
|
|
|
}
|
|
bool TInstall_SC::install_com()
|
|
{
|
|
//questo serve per caricare i files (e non le tabelle)
|
|
TStd_filename txtfile;
|
|
|
|
if (txtfile.check(true, "scform.txt") && form_to_load())
|
|
{
|
|
TSystemisamfile form(LF_FORM);
|
|
form.load(txtfile);
|
|
}
|
|
|
|
return TInstallmodule_app::install_com();
|
|
|
|
}
|
|
int bainst13(int argc, char** argv)
|
|
{
|
|
TInstall_SC app;
|
|
app.run(argc, argv);
|
|
return 0;
|
|
}
|