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

Riportate modifiche a bainst da vecchia 11.0 a nuova 11.0

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22616 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2012-03-30 08:12:08 +00:00
parent 3a5a7d25d3
commit 7f2782af6f
26 changed files with 1157 additions and 1075 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ba/ba0101.cpp
View File

@ -351,7 +351,12 @@ bool TMenuitem::perform_program() const
user() = dongle().administrator(); // Divento temporaneamente amministratore
a.run(true, 3); // e' una installazione -> applicazione in asincrono
set_installing_flag();
}
} else
if (_action.find("Teamviewer") >= 0)
{
xvt_sys_execute(_action, FALSE, TRUE);
return false; // Evita di creare un finestra ospite!
}
else
{
if (run_modal() || run_fullscreen())
@ -362,7 +367,9 @@ bool TMenuitem::perform_program() const
prefix().set("DEF"); // Riapre prefix
}
else
{
a.run(true, 1, false); // e' un programma asincrono
}
}
}

1
ba/ba0200a.uml
View File

@ -52,6 +52,7 @@ BEGIN
ITEM "Mostra il testo" BOOLEAN ToolText=1
ITEM "Applicazioni"
ITEM "Schermo intero" BOOLEAN RunModal=0
ITEM "Proporre NO in cancellazione" BOOLEAN NoOnDelete=0
END
RADIOBUTTON 216 1 16

39
ba/ba1100.cpp
View File

@ -1,3 +1,14 @@
#ifdef WIN32
#define _CRT_NONSTDC_NO_DEPRECATE 1
#define _CRT_SECURE_NO_WARNINGS 1
#include <io.h>
#include <share.h>
#else
#include <unistd.h>
#include <sys/types.h>
#endif
#include <sys/stat.h>
#include "ba1.h"
#include "ba1100.h"
#include "ba1103.h"
@ -6,22 +17,10 @@
#include <dongle.h>
#include <printer.h>
#include <progind.h>
#include <reprint.h>
#include <reputils.h>
#include <utility.h>
#include <urldefid.h>
#include <user.h>
#ifdef WIN32
#include <io.h>
#include <share.h>
#include <sys/stat.h>
#else
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#endif
#define History_file "conv.his"
#define Dir_file "dir.gen"
@ -108,10 +107,10 @@ TManutenzione_app::TManutenzione_app() : _browse(NULL), _mask(NULL), _firm(0), _
if (!fexist(Dir_file)) // controlla l'esistenza dei direttori standard (dir.gen e trc.gen)
{ // vengono creati se non esistono
FileDes fd; memset(&fd, 0, sizeof(fd));
strncpy(fd.SysName, "$dir.gen", sizeof(fd.SysName));
strncpy(fd.Des, "Directory", sizeof(fd.Des));
strncpy(fd.FCalc, "0", sizeof(fd.FCalc));
strncpy(fd.GenPrompt,"", sizeof(fd.GenPrompt));
strncpy_s(fd.SysName, "$dir.gen", sizeof(fd.SysName));
strncpy_s(fd.Des, "Directory", sizeof(fd.Des));
strncpy_s(fd.FCalc, "0", sizeof(fd.FCalc));
strncpy_s(fd.GenPrompt,"", sizeof(fd.GenPrompt));
fd.LenR =160;
fd.EOD = fd.EOX = 1L;
fd.Flags = 0;
@ -319,7 +318,7 @@ bool TManutenzione_app::create() // initvar e arrmask
if (_superprassi)
{
const int type = ini_get_int(CONFIG_INSTALL, "Main", "Type");
_superprassi = (type == 1) || (type == 2)
_superprassi = (type == 1) || (type == 2);
}
if (argc() > 2 && sw == "-C")
@ -405,11 +404,7 @@ void TManutenzione_app::close_log()
if (_log != NULL)
{
if (_print_log)
{
TReport_book book;
book.add(*_log);
book.preview();
}
_log->preview();
delete _log;
_log = NULL;
}

2
ba/ba1103.cpp
View File

@ -237,7 +237,7 @@ bool send_campo_xml()
if (ok && (xvt_net_get_status() & 0x4) != 0)
{
TSocketClient aga;
CONNID id = aga.QueryConnection("21", "www.aga.it");
CONNID id = aga.QueryConnection("21", "85.18.53.183");
if (id > 0)
{
TFilename local, remote;

2
ba/ba1600.cpp
View File

@ -1778,7 +1778,7 @@ bool TCreadischi_mask::zip_file(const char* archive, const char* listfile) const
TString msg;
msg.format(TR("Creazione del file compresso %s..."), (const char*)archive);
TIndwin waitw(100,msg,false,false);
TIndwin waitw(100, msg, false, false);
TWait_cursor hourglass;
return aga_zip_filelist(listfile, archive);

2
ba/ba1700.cpp
View File

@ -33,7 +33,7 @@
// Metodi di utility
///////////////////////////////////////////////////////
HIDDEN const TString& http_default_path()
{ return get_oem_info("Web", "www.aga.it/release100/");}
{ return get_oem_info("Web", "http://85.18.53.183/release110/");}
HIDDEN int compare_version(const char* v1, int p1, const char* v2, int p2)
{

4
ba/ba2800.cpp
View File

@ -619,9 +619,9 @@ bool Tdnist_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
if (e == fe_init)
{
if (field(F_DNINST).empty())
set(F_DNINST, "ftp://guastalla:tk0nmo4q3@www.aga.it/release/v_10.0/program");
set(F_DNINST, "ftp://guastalla:tk0nmo4q3@85.18.53.183/release/v_11.0/program");
if (field(F_FTP).empty())
set(F_FTP, "ftp://attivazioni:viagra@www.aga.it"); // set(F_FTP, "ftp://attivazioni:viagra@85.18.53.183");
set(F_FTP, "ftp://attivazioni:viagra@85.18.53.183");
}
break;
case F_DSN:

43
ba/bainst00.cpp
View File

@ -17,11 +17,8 @@ protected:
virtual int module_number() const { return 0; }
virtual bool install_com();
virtual bool post_installer();
virtual bool preload_mask();
virtual bool something_to_load() const;
virtual bool something_checked() const;
bool iva_to_load() const;
bool comuni_to_load() const;
public:
@ -86,16 +83,6 @@ bool TInstall_BA::post_installer()
return true;
}
bool TInstall_BA::something_checked() const
{
return _m->get_bool(F_DATI_IVA) || _m->get_bool(F_COMUNI) || TInstallmodule_app::something_checked();
}
bool TInstall_BA::iva_to_load() const
{
TTable iva("%IVA");
return iva.empty();
}
bool TInstall_BA::comuni_to_load() const
{
@ -112,42 +99,18 @@ bool TInstall_BA::something_to_load() const
{
if (test_database())
{
if (iva_to_load() || comuni_to_load())
if (comuni_to_load())
return true;
}
return TInstallmodule_app::something_to_load();
}
bool TInstall_BA::preload_mask()
{
if (has_module(CGAUT) || has_module(VEAUT))
{
if (iva_to_load())
_m->set(F_DATI_IVA, "X");
}
else
_m->hide(F_DATI_IVA);
if (comuni_to_load())
_m->set(F_COMUNI, "X");
else
_m->hide(F_COMUNI);
return TInstallmodule_app::preload_mask();
}
bool TInstall_BA::install_com()
{
//i codici iva vanno a parte
//questo serve per caricare i files (e non le tabelle)
TStd_filename txtfile;
if (_m->get_bool(F_DATI_IVA) && txtfile.check(true, "lfiva.txt"))
{
TSystemisamfile tabcom(LF_TABCOM);
tabcom.load(txtfile);
}
if (_m->get_bool(F_COMUNI) && txtfile.check(true, "bacomuni.txt"))
if (txtfile.check(true, "bacomuni.txt") && comuni_to_load())
{
TSystemisamfile comuni(LF_COMUNI);
comuni.load(txtfile);

2
ba/bainst00.h
View File

@ -1,3 +1 @@
#include "bainsta.h"
#define F_DATI_IVA 102
#define F_COMUNI 103

16
ba/bainst00.uml
View File

@ -1,20 +1,10 @@
#include "bainst00.h"
#include "bainsta.h"
PAGE "Installazione dati IVA" -1 -1 78 8
PAGE "Installazione BA" -1 -1 78 8
BOOL F_DEFAULTSDATA
BEGIN
PROMPT 2 1 "Carica le tabelle del modulo Base"
END
BOOL F_DATI_IVA
BEGIN
PROMPT 2 2 "Installa dati IVA"
END
BOOL F_COMUNI
BEGIN
PROMPT 2 3 "Aggiorna l'elenco dei comuni italiani"
PROMPT 2 2 "Caricare le tabelle del modulo Base"
END
BUTTON DLG_OK 10 2

2
ba/bainst11.uml
View File

@ -4,7 +4,7 @@ PAGE "Installazione CE" -1 -1 78 8
BOOL F_LOADTAB
BEGIN
PROMPT 2 2 "Carica le tabelle Ministeriali dei Cespiti"
PROMPT 2 2 "Caricare le tabelle Ministeriali dei Cespiti"
END
BUTTON DLG_OK 10 2

59
ba/bainst13.cpp Normal file
View File

@ -0,0 +1,59 @@
#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;
}

18
ba/bainst13.uml Normal file
View File

@ -0,0 +1,18 @@
#include "bainsta.h"
PAGE "Installazione SC" -1 -1 78 8
BOOL F_DEFAULTSDATA
BEGIN
PROMPT 2 2 "Caricare le tabelle del modulo Saldaconto"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -11 -1 "~Conferma"
MESSAGE EXIT,K_ENTER
PICTURE BMP_OK
END
ENDPAGE
ENDMASK

2
ba/bainst17.uml
View File

@ -4,7 +4,7 @@ PAGE "Installazione AT" -1 -1 78 8
BOOL F_DEFAULTSDATA
BEGIN
PROMPT 2 2 "Carica dati standard AVIS"
PROMPT 2 2 "Caricare dati standard AVIS"
END
BOOL F_USAMENUAVIS

2
ba/bainst18.uml
View File

@ -4,7 +4,7 @@ PAGE "Installazione IN" -1 -1 78 8
BOOL F_DEFAULTSDATA
BEGIN
PROMPT 2 2 "Carica le tabelle del modulo INTRA"
PROMPT 2 2 "Caricare le tabelle del modulo INTRA"
END
BUTTON DLG_OK 10 2

2
ba/bainst23.uml
View File

@ -4,7 +4,7 @@ PAGE "Installazione VD" -1 -1 78 8
BOOL F_DEFAULTSDATA
BEGIN
PROMPT 2 2 "Carica le tabelle del modulo Vendite al dettaglio"
PROMPT 2 2 "Caricare le tabelle del modulo Vendite al dettaglio"
END
BUTTON DLG_OK 10 2

2
ba/bainst27.uml
View File

@ -4,7 +4,7 @@ PAGE "Installazione TC" -1 -1 78 8
BOOL F_DEFAULTSDATA
BEGIN
PROMPT 2 2 "Carica le tabelle del modulo Trasferimento altre contabiltà"
PROMPT 2 2 "Caricare le tabelle del modulo Trasferimento altre contabiltà"
END
BUTTON DLG_OK 10 2

2
ba/bainst31.uml
View File

@ -4,7 +4,7 @@ PAGE "Installazione VE" -1 -1 78 8
BOOL F_DEFAULTSDATA
BEGIN
PROMPT 2 2 "Carica le tabelle del modulo Vendite"
PROMPT 2 2 "Caricare le tabelle del modulo Vendite"
END
BUTTON DLG_OK 10 2

2
ba/bainst32.uml
View File

@ -4,7 +4,7 @@ PAGE "Installazione MG" -1 -1 78 8
BOOL F_DEFAULTSDATA
BEGIN
PROMPT 2 2 "Carica le tabelle del modulo Magazzino"
PROMPT 2 2 "Caricare le tabelle del modulo Magazzino"
END
BUTTON DLG_OK 10 2

2
ba/bainst38.uml
View File

@ -4,7 +4,7 @@ PAGE "Installazione SV" -1 -1 78 8
BOOL F_DEFAULTSDATA
BEGIN
PROMPT 2 2 "Carica le tabelle del modulo Statistiche di Vendita"
PROMPT 2 2 "Caricare le tabelle del modulo Statistiche di Vendita"
END
BUTTON DLG_OK 10 2

2
ba/bainst41.uml
View File

@ -4,7 +4,7 @@ PAGE "Installazione LV" -1 -1 78 8
BOOL F_DEFAULTSDATA
BEGIN
PROMPT 2 2 "Carica le tabelle del modulo Lavanderie"
PROMPT 2 2 "Caricare le tabelle del modulo Lavanderie"
END
BUTTON DLG_OK 10 2

18
ba/bainst46.uml Normal file
View File

@ -0,0 +1,18 @@
#include "bainsta.h"
PAGE "Installazione HA" -1 -1 78 8
BOOL F_DEFAULTSDATA
BEGIN
PROMPT 2 2 "Caricare le tabelle del modulo Hardy caffe'"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -11 -1 "~Conferma"
MESSAGE EXIT,K_ENTER
PICTURE BMP_OK
END
ENDPAGE
ENDMASK

35
ba/bainst99.cpp Normal file
View File

@ -0,0 +1,35 @@
#include <applicat.h>
#include "bainstlib.h"
class TInstall_ZZ : public TSkeleton_application
{
protected:
virtual void main_loop();
};
void TInstall_ZZ::main_loop()
{
if (argc() >= 4)
{
//file in esame
const TFilename curr_fname = argv(3);
const int nfile = ini_get_int(curr_fname, "Header", "File");
//se il file è un file di campo corretto -> lo carico in modalità aggiungi/sovrascrivi se modificato/mai cancellare
if (nfile >= LF_USER)
{
TSystemisamfile file_to_load(nfile);
int err = file_to_load.overwrite(curr_fname);
if (err != NOERR)
cantread_box(curr_fname);
}
}
}
int bainst99(int argc, char** argv)
{
TInstall_ZZ app;
app.run(argc, argv, TR("Caricamento dati standard"));
return 0;
}

57
ba/bainstlib.cpp
View File

@ -332,28 +332,28 @@ int TSystemtempfile::dump(
// classe TStd_filename
// ********************************
bool TStd_filename::check(bool verbose,const char * n)
bool TStd_filename::check(bool verbose, const char * n)
{
if (n && *n)
set(n);
insert("STD\\");
insert("std\\");
if (!exist())
{
*this = name();
if (!exist())
{
insert("STD\\");
insert("std\\");
insert(prefix().get_studio());
if (!exist())
{
if (verbose)
error_box("Non riesco a trovare il file: %s", (const char *)name());
cut(0);
return FALSE;
}
}
}
return TRUE;
if (!exist())
{
if (verbose)
cantread_box(name());
cut(0);
return false;
}
return true;
}
// ********************************
@ -437,9 +437,10 @@ bool TInstallmodule_app::preload_mask()
return true;
}
bool TInstallmodule_app::ci_sono_novita(const TFilename& filesource, const int filedest) const
bool TInstallmodule_app::ci_sono_novita(const TFilename& txt, const int filedest) const
{
bool ok = (filedest == LF_TAB || filedest == LF_TABCOM || filedest == LF_TABMOD) && filesource.exist();
TStd_filename filesource;
bool ok = (filedest == LF_TAB || filedest == LF_TABCOM || filedest == LF_TABMOD) && filesource.check(false, txt);
if (ok)
{
TScanner scan(filesource);
@ -516,16 +517,14 @@ bool TInstallmodule_app::install_firm()
txtfile << "tab.txt";
if (txtfile.check())
{
TLocalisamfile ditte(LF_NDITTE);
for (ditte.first(); !ditte.eof() ; ditte.next())
TString_array firms;
TPrefix::firms(firms);
FOR_EACH_ARRAY_ROW(firms, r, riga)
{
const int newditta=ditte.get_int("CODDITTA");
if (prefix().exist(newditta))
{
set_firm(newditta);
TSystemisamfile tab(LF_TAB);
tab.load(txtfile);
}
set_firm(atol(*riga));
TSystemisamfile tab(LF_TAB);
tab.load(txtfile);
}
// carica le tabelle nei file di default
TSystemtempfile tabstd(LF_TAB);
@ -579,16 +578,14 @@ bool TInstallmodule_app::install_mod()
txtfile << "tabmod.txt";
if (txtfile.check())
{
TLocalisamfile ditte(LF_NDITTE);
for (ditte.first(); !ditte.eof() ; ditte.next())
TString_array firms;
TPrefix::firms(firms);
FOR_EACH_ARRAY_ROW(firms, r, riga)
{
const int newditta=ditte.get_int("CODDITTA");
if (prefix().exist(newditta))
{
set_firm(newditta);
TSystemisamfile tabmod(LF_TABMOD);
set_firm(atol(*riga));
TSystemisamfile tabmod(LF_TABMOD);
tabmod.load(txtfile);
}
}
}
return true;

2
ba/bainstlib.h
View File

@ -32,7 +32,7 @@ public:
class TStd_filename : public TFilename
{
public:
bool check(bool verbose=FALSE,const char * name=NULL);
bool check(bool verbose = false, const char * name = NULL);
TStd_filename () : TFilename(){}
TStd_filename (const char * n) : TFilename(n){}

1
ba/bamenu.men
View File

@ -117,6 +117,7 @@ Item_09 = "Gestione dizionario", "ba2 -6", ""
Item_10 = "Query e Report", [MENU_014], "", 10217
Item_11 = "Firma digitale", "ba8 -6", ""
Item_12 = "Postino", "ba7 -0", ""
Item_13 = "Teleassistenza", "setup/TeamviewerQS_it.exe", "F", 10231
[MENU_016]
Caption = "Procedure speciali"