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) <20> da aggiornare
|
|||
|
|
//guarda se esiste il codice PEC che <20> l'unico creato al 20/05/2011...
|
|||
|
|
TLocalisamfile form(LF_FORM);
|
|||
|
|
form.put("TIPOPROF", "PEC");
|
|||
|
|
//se il PEC non c'<27> -> il file dei form <20> 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;
|
|||
|
|
}
|