2012-04-13 15:06:05 +00:00
|
|
|
|
#include <about.h>
|
|
|
|
|
|
#include <applicat.h>
|
|
|
|
|
|
#include <colors.h>
|
|
|
|
|
|
#include <config.h>
|
|
|
|
|
|
#include <dongle.h>
|
2015-06-17 07:16:13 +00:00
|
|
|
|
#include <golem.h>
|
|
|
|
|
|
#include <isamrpc.h>
|
2015-11-30 16:18:56 +00:00
|
|
|
|
#include <mask.h>
|
2012-04-13 15:06:05 +00:00
|
|
|
|
#include <prefix.h>
|
2015-06-17 07:16:13 +00:00
|
|
|
|
#include <progind.h>
|
2012-04-13 15:06:05 +00:00
|
|
|
|
#include <sqlset.h>
|
|
|
|
|
|
#include <toolfld.h>
|
2015-06-17 07:16:13 +00:00
|
|
|
|
#include <treectrl.h>
|
2012-04-13 15:06:05 +00:00
|
|
|
|
#include <urldefid.h>
|
|
|
|
|
|
#include <utility.h>
|
|
|
|
|
|
|
2015-06-17 07:16:13 +00:00
|
|
|
|
static int txt_sort(const TSortable& o1, const TSortable& o2, void* jolly)
|
|
|
|
|
|
{
|
|
|
|
|
|
const TString& s1 = (const TString&)o1;
|
|
|
|
|
|
const TString& s2 = (const TString&)o2;
|
|
|
|
|
|
|
|
|
|
|
|
int p = 0;
|
|
|
|
|
|
if (s1.starts_with("sy", true)) p |= 1;
|
|
|
|
|
|
if (s2.starts_with("sy", true)) p |= 2;
|
|
|
|
|
|
if (p == 1) return -1;
|
|
|
|
|
|
if (p == 2) return +1;
|
|
|
|
|
|
|
|
|
|
|
|
int cmp = s1.compare(s2, 2, true);
|
|
|
|
|
|
if (cmp == 0)
|
|
|
|
|
|
{
|
|
|
|
|
|
const int p1 = atoi(s1.mid(2));
|
|
|
|
|
|
const int p2 = atoi(s2.mid(2));
|
|
|
|
|
|
cmp = p2-p1;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
return cmp;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void history()
|
|
|
|
|
|
{
|
|
|
|
|
|
int year, rel, tag, patch;
|
|
|
|
|
|
main_app().get_version_info(year, rel, tag, patch);
|
|
|
|
|
|
|
|
|
|
|
|
TString_array txt;
|
|
|
|
|
|
TString server = "93.146.247.172";
|
|
|
|
|
|
|
|
|
|
|
|
const TString& appname = main_app().name();
|
|
|
|
|
|
TString8 pattern;
|
|
|
|
|
|
if (!appname.starts_with("ba0", true))
|
|
|
|
|
|
pattern = appname.left(2);
|
|
|
|
|
|
pattern << "*.txt";
|
|
|
|
|
|
|
|
|
|
|
|
TFilename path; path.format("/release%d0/", rel);
|
|
|
|
|
|
TFilename url; url << path << pattern;
|
|
|
|
|
|
|
|
|
|
|
|
http_isredirected_server(server, url);
|
|
|
|
|
|
http_dir(server, url, txt);
|
2015-07-10 14:52:21 +00:00
|
|
|
|
#ifdef DBG
|
|
|
|
|
|
if (txt.empty()) // Se non trova nulla riprova con la versione precedente
|
2015-06-17 07:16:13 +00:00
|
|
|
|
{
|
|
|
|
|
|
path.format("/release%d0/", --rel);
|
|
|
|
|
|
url = path; url << pattern;
|
|
|
|
|
|
http_isredirected_server(server, url);
|
|
|
|
|
|
http_dir(server, url, txt);
|
|
|
|
|
|
}
|
2015-07-10 14:52:21 +00:00
|
|
|
|
#endif
|
2015-06-17 07:16:13 +00:00
|
|
|
|
|
|
|
|
|
|
TFilename tmp; tmp.tempdir(); tmp.add("history.html");
|
|
|
|
|
|
ofstream h(tmp);
|
|
|
|
|
|
h << "<html><body><table border=1>" << endl
|
|
|
|
|
|
<< "<tr><th>Modulo</th><th>Versione</th><th>Patch</th><th>Descrizione</th></tr>" << endl;
|
|
|
|
|
|
|
|
|
|
|
|
const char* title = TR("Storia delle modifiche");
|
|
|
|
|
|
if (!txt.empty())
|
|
|
|
|
|
{
|
|
|
|
|
|
txt.TArray::sort(txt_sort, &pattern);
|
|
|
|
|
|
|
|
|
|
|
|
TProgress_monitor pi(txt.items(), title);
|
|
|
|
|
|
|
|
|
|
|
|
TString last_module;
|
|
|
|
|
|
|
|
|
|
|
|
FOR_EACH_ARRAY_ROW(txt, r, riga)
|
|
|
|
|
|
{
|
|
|
|
|
|
if (!pi.add_status())
|
|
|
|
|
|
break;
|
|
|
|
|
|
const TFilename fname = riga->get(0);
|
|
|
|
|
|
if (!fname.match(pattern, true))
|
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
|
|
const TString16 name = fname.name_only();
|
|
|
|
|
|
const int np = atoi(name.mid(2));
|
|
|
|
|
|
if (np <= 0)
|
|
|
|
|
|
continue;
|
|
|
|
|
|
|
|
|
|
|
|
if (pattern[0] == '*') // Scarta i moduli non posseduti
|
|
|
|
|
|
{
|
|
|
|
|
|
TString8 mod = name.left(2);
|
|
|
|
|
|
const word cod = dongle().module_name2code(mod);
|
|
|
|
|
|
if (cod > BAAUT)
|
|
|
|
|
|
{
|
|
|
|
|
|
if (!dongle().active(cod))
|
|
|
|
|
|
continue;
|
|
|
|
|
|
mod << "0.exe";
|
|
|
|
|
|
if (!fexist(mod))
|
|
|
|
|
|
continue;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
TFilename remote = path; remote.add(fname);
|
|
|
|
|
|
TFilename local; local.tempdir(); local.add(fname);
|
|
|
|
|
|
|
|
|
|
|
|
TString4 mod = fname.left(2);
|
|
|
|
|
|
if (mod != last_module)
|
|
|
|
|
|
last_module = mod;
|
|
|
|
|
|
else
|
|
|
|
|
|
mod.cut(0);
|
2015-11-30 16:18:56 +00:00
|
|
|
|
|
|
|
|
|
|
TString content;
|
2015-06-17 07:16:13 +00:00
|
|
|
|
if (http_get(server, remote, local))
|
|
|
|
|
|
{
|
|
|
|
|
|
ifstream i(local);
|
|
|
|
|
|
TString str(256);
|
|
|
|
|
|
while (i.good() && !i.eof())
|
|
|
|
|
|
{
|
|
|
|
|
|
i.getline(str.get_buffer(), str.size());
|
|
|
|
|
|
if (str.find('.') > 0 && fexist(str))
|
|
|
|
|
|
continue;
|
2015-11-30 16:18:56 +00:00
|
|
|
|
content << str << "<br/>";
|
2015-06-17 07:16:13 +00:00
|
|
|
|
}
|
|
|
|
|
|
i.close();
|
|
|
|
|
|
xvt_fsys_remove_file(local);
|
|
|
|
|
|
}
|
2015-11-30 16:18:56 +00:00
|
|
|
|
|
|
|
|
|
|
if (content.len() > 12)
|
|
|
|
|
|
{
|
|
|
|
|
|
h << "<tr>" << "<td><b>" << mod << "</b></td>";
|
|
|
|
|
|
h << "<td>" << rel << "</td><td>";
|
|
|
|
|
|
if (np > patch)
|
|
|
|
|
|
h << "<b>" << name << "</b>";
|
|
|
|
|
|
else
|
|
|
|
|
|
h << name;
|
|
|
|
|
|
h << "</td><td>" << content << "</td></tr>" << endl;
|
|
|
|
|
|
}
|
2015-06-17 07:16:13 +00:00
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
h << "</table></body></html>" << endl;
|
|
|
|
|
|
h.close();
|
|
|
|
|
|
goto_url(tmp);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
2012-04-13 15:06:05 +00:00
|
|
|
|
///////////////////////////////////////////////////////////
|
2015-06-17 07:16:13 +00:00
|
|
|
|
// TAdvanced_property sheet
|
2012-04-13 15:06:05 +00:00
|
|
|
|
///////////////////////////////////////////////////////////
|
|
|
|
|
|
|
|
|
|
|
|
class TAdvanced_property_sheet : public TMask
|
|
|
|
|
|
{
|
|
|
|
|
|
TProp_field* _pf;
|
|
|
|
|
|
|
|
|
|
|
|
protected:
|
|
|
|
|
|
virtual long handler(WINDOW win, EVENT* e);
|
|
|
|
|
|
void edit();
|
|
|
|
|
|
void esporta();
|
2015-06-17 07:16:13 +00:00
|
|
|
|
|
2012-04-13 15:06:05 +00:00
|
|
|
|
public:
|
|
|
|
|
|
void freeze(bool on) { _pf->freeze(on); }
|
|
|
|
|
|
void add_cat(const char* prompt);
|
|
|
|
|
|
void add_prop(const char* prompt, const char* value);
|
|
|
|
|
|
void add_prop(const char* prompt, long value);
|
|
|
|
|
|
bool curr_prop(TString& prop, TVariant& value);
|
|
|
|
|
|
|
|
|
|
|
|
void set_read_only(bool ro = true);
|
2015-11-30 16:18:56 +00:00
|
|
|
|
TAdvanced_property_sheet(const char* title = "", int width = 78, int height = 24);
|
2012-04-13 15:06:05 +00:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
long TAdvanced_property_sheet::handler(WINDOW win, EVENT* e)
|
|
|
|
|
|
{
|
|
|
|
|
|
if (_pf != NULL)
|
|
|
|
|
|
{
|
|
|
|
|
|
switch (e->type)
|
|
|
|
|
|
{
|
|
|
|
|
|
case E_SIZE:
|
|
|
|
|
|
if (win == _pf->win().parent())
|
|
|
|
|
|
_pf->win().maximize();
|
|
|
|
|
|
break;
|
|
|
|
|
|
case E_CONTROL:
|
|
|
|
|
|
switch(e->v.ctl.id)
|
|
|
|
|
|
{
|
2015-06-17 07:16:13 +00:00
|
|
|
|
case DLG_EDIT : edit(); return 0L;
|
2012-04-13 15:06:05 +00:00
|
|
|
|
case DLG_EXPORT: esporta(); return 0L;
|
2015-06-17 07:16:13 +00:00
|
|
|
|
case DLG_INFO : history(); return 0L;
|
2012-04-13 15:06:05 +00:00
|
|
|
|
default: break;
|
|
|
|
|
|
}
|
|
|
|
|
|
break;
|
|
|
|
|
|
default:
|
|
|
|
|
|
break;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
return TMask::handler(win, e);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void TAdvanced_property_sheet::add_cat(const char* prompt)
|
|
|
|
|
|
{
|
|
|
|
|
|
_pf->set_property(prompt, (const char*)NULL, prompt);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void TAdvanced_property_sheet::add_prop(const char* prompt, const char* value)
|
|
|
|
|
|
{
|
|
|
|
|
|
_pf->set_property(prompt, value, prompt);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void TAdvanced_property_sheet::add_prop(const char* prompt, long value)
|
|
|
|
|
|
{
|
|
|
|
|
|
_pf->set_property(prompt, value, prompt);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static BOOLEAN export_cb(WINDOW pg, XVT_TREEVIEW_NODE node, void* jolly)
|
|
|
|
|
|
{
|
|
|
|
|
|
char name[_MAX_PATH];
|
|
|
|
|
|
if (xvt_prop_get_string(pg, node, name, sizeof(name)))
|
|
|
|
|
|
{
|
|
|
|
|
|
ostream& out = *(ostream*)jolly;
|
|
|
|
|
|
char value[_MAX_PATH];
|
|
|
|
|
|
if (xvt_prop_get_data(pg, node, value, sizeof(value)))
|
|
|
|
|
|
out << '\t' << name << '\t' << value << endl; // Property
|
|
|
|
|
|
else
|
|
|
|
|
|
out << name << endl; // Category
|
|
|
|
|
|
}
|
|
|
|
|
|
return TRUE;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void TAdvanced_property_sheet::edit()
|
|
|
|
|
|
{
|
|
|
|
|
|
TString name;
|
|
|
|
|
|
TVariant value;
|
|
|
|
|
|
if (_pf->current_property(name, value))
|
|
|
|
|
|
{
|
|
|
|
|
|
TFilename n = value.as_string();
|
|
|
|
|
|
if (n.exist())
|
|
|
|
|
|
{
|
|
|
|
|
|
if (n.ends_with(".msk", true) || n.ends_with(".ini", true))
|
|
|
|
|
|
{
|
|
|
|
|
|
n.insert("notepad ");
|
|
|
|
|
|
xvt_sys_execute(n, FALSE, FALSE);
|
|
|
|
|
|
} else
|
|
|
|
|
|
xvt_sys_goto_url(n, "open");
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void TAdvanced_property_sheet::esporta()
|
|
|
|
|
|
{
|
|
|
|
|
|
TString cap; get_caption(cap);
|
|
|
|
|
|
for (char* buf = cap.get_buffer(); *buf; buf++)
|
|
|
|
|
|
{
|
|
|
|
|
|
switch (*buf)
|
|
|
|
|
|
{
|
|
|
|
|
|
case '?':
|
|
|
|
|
|
case '(':
|
|
|
|
|
|
case ')':
|
|
|
|
|
|
case '/':
|
|
|
|
|
|
case '\\':
|
|
|
|
|
|
case '*': *buf = ' '; break;
|
|
|
|
|
|
default : break;
|
|
|
|
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
cap.strip_spaces();
|
|
|
|
|
|
if (cap.blank())
|
|
|
|
|
|
cap = "export";
|
|
|
|
|
|
TFilename name;
|
|
|
|
|
|
name.tempdir(); name.add(cap); name.ext("xls");
|
|
|
|
|
|
if (name.full()) // Dummy test
|
|
|
|
|
|
{
|
|
|
|
|
|
ofstream xls(name);
|
|
|
|
|
|
_pf->for_each_property(export_cb, &xls);
|
|
|
|
|
|
}
|
|
|
|
|
|
if (name.exist())
|
|
|
|
|
|
xvt_sys_goto_url(name, "open");
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void TAdvanced_property_sheet::set_read_only(bool ro)
|
|
|
|
|
|
{
|
|
|
|
|
|
xvt_prop_set_read_only(_pf->win().win(), NULL, ro);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
TAdvanced_property_sheet::TAdvanced_property_sheet(const char* title, int width, int height)
|
2015-06-17 07:16:13 +00:00
|
|
|
|
: TMask(title && *title ? title : TR("Propriet<EFBFBD>"), 1, width, height), _pf(NULL)
|
2012-04-13 15:06:05 +00:00
|
|
|
|
{
|
2015-11-30 16:18:56 +00:00
|
|
|
|
add_button_tool(DLG_CANCEL, TR("Chiudi"), TOOL_CANCEL);
|
2012-04-13 15:06:05 +00:00
|
|
|
|
add_button_tool(DLG_EXPORT, TR("Esporta"), TOOL_EXCEL);
|
|
|
|
|
|
if (is_power_reseller(true))
|
|
|
|
|
|
add_button_tool(DLG_EDIT, TR("Edit"), TOOL_EDIT);
|
2015-06-17 07:16:13 +00:00
|
|
|
|
add_button_tool(DLG_INFO, TR("Modifiche"), TOOL_INFO);
|
2012-04-13 15:06:05 +00:00
|
|
|
|
add_button_tool(DLG_HELP, TR("Help"), TOOL_HELP);
|
|
|
|
|
|
|
2015-06-17 07:16:13 +00:00
|
|
|
|
if (!xvt_net_get_status())
|
|
|
|
|
|
disable(DLG_INFO);
|
|
|
|
|
|
|
2012-04-13 15:06:05 +00:00
|
|
|
|
_pf = new TProp_field(this);
|
|
|
|
|
|
_pf->create(DLG_USER, 0, 0, 0, 0, page_win(0));
|
|
|
|
|
|
}
|
|
|
|
|
|
|
2015-06-17 07:16:13 +00:00
|
|
|
|
/*
|
2012-04-13 15:06:05 +00:00
|
|
|
|
///////////////////////////////////////////////////////////
|
|
|
|
|
|
// TBasic_property sheet
|
|
|
|
|
|
///////////////////////////////////////////////////////////
|
|
|
|
|
|
|
|
|
|
|
|
class TBasic_property_sheet : public TArray_sheet
|
|
|
|
|
|
{
|
|
|
|
|
|
protected:
|
|
|
|
|
|
virtual bool get_cell_colors(int row, int col, COLOR& fore, COLOR& back) const;
|
|
|
|
|
|
|
|
|
|
|
|
public:
|
|
|
|
|
|
void add_cat(const char* cat);
|
|
|
|
|
|
void add_prop(const char* prop, const char* val);
|
|
|
|
|
|
void add_prop(const char* prop, long val);
|
|
|
|
|
|
TBasic_property_sheet(const char* title, int width, int height);
|
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
bool TBasic_property_sheet::get_cell_colors(int r, int col, COLOR& fore, COLOR& back) const
|
|
|
|
|
|
{
|
|
|
|
|
|
const TToken_string& riga = ((TBasic_property_sheet*)this)->row(r);
|
|
|
|
|
|
const bool changed = riga.items() == 1;
|
|
|
|
|
|
if (changed)
|
|
|
|
|
|
{
|
|
|
|
|
|
fore = FOCUS_COLOR;
|
|
|
|
|
|
back = REQUIRED_BACK_COLOR;
|
|
|
|
|
|
return true;
|
|
|
|
|
|
}
|
|
|
|
|
|
return changed;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void TBasic_property_sheet::add_cat(const char* cat)
|
|
|
|
|
|
{
|
|
|
|
|
|
add(cat);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void TBasic_property_sheet::add_prop(const char* prop, const char* val)
|
|
|
|
|
|
{
|
|
|
|
|
|
TToken_string r;
|
|
|
|
|
|
r = prop;
|
|
|
|
|
|
r.add(val);
|
|
|
|
|
|
add(r);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void TBasic_property_sheet::add_prop(const char* prop, long val)
|
|
|
|
|
|
{
|
|
|
|
|
|
add_prop(prop, format("%ld", val));
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
TBasic_property_sheet::TBasic_property_sheet(const char* title, int width, int height)
|
|
|
|
|
|
: TArray_sheet(-1, -1, width, height, title, format("@%d|@%d", width/4-2, 3*width/4-2))
|
|
|
|
|
|
{ }
|
2015-06-17 07:16:13 +00:00
|
|
|
|
*/
|
2012-04-13 15:06:05 +00:00
|
|
|
|
|
|
|
|
|
|
///////////////////////////////////////////////////////////
|
|
|
|
|
|
// TProperty sheet
|
|
|
|
|
|
///////////////////////////////////////////////////////////
|
|
|
|
|
|
|
|
|
|
|
|
void TProperty_sheet::add_cat(const char* cat)
|
|
|
|
|
|
{
|
2015-06-17 07:16:13 +00:00
|
|
|
|
((TAdvanced_property_sheet*)_ps)->add_cat(cat);
|
2012-04-13 15:06:05 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void TProperty_sheet::add_prop(const char* prop, const char* val)
|
|
|
|
|
|
{
|
2015-06-17 07:16:13 +00:00
|
|
|
|
((TAdvanced_property_sheet*)_ps)->add_prop(prop, val);
|
2012-04-13 15:06:05 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void TProperty_sheet::add_prop(const char* prop, long val)
|
|
|
|
|
|
{
|
2015-06-17 07:16:13 +00:00
|
|
|
|
((TAdvanced_property_sheet*)_ps)->add_prop(prop, val);
|
2012-04-13 15:06:05 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void TProperty_sheet::freeze(bool f)
|
|
|
|
|
|
{
|
2015-06-17 07:16:13 +00:00
|
|
|
|
((TAdvanced_property_sheet*)_ps)->freeze(f);
|
2012-04-13 15:06:05 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void TProperty_sheet::set_read_only(bool ro)
|
|
|
|
|
|
{
|
2015-06-17 07:16:13 +00:00
|
|
|
|
((TAdvanced_property_sheet*)_ps)->set_read_only(ro);
|
2012-04-13 15:06:05 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
KEY TProperty_sheet::run()
|
|
|
|
|
|
{ return _ps->run(); }
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
TProperty_sheet::TProperty_sheet(const char* title, int width, int height)
|
2015-06-17 07:16:13 +00:00
|
|
|
|
{ _ps = new TAdvanced_property_sheet(title, width, height); }
|
2012-04-13 15:06:05 +00:00
|
|
|
|
|
|
|
|
|
|
TProperty_sheet::~TProperty_sheet()
|
|
|
|
|
|
{
|
|
|
|
|
|
delete _ps;
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
///////////////////////////////////////////////////////////
|
|
|
|
|
|
// Finestra informazioni
|
|
|
|
|
|
///////////////////////////////////////////////////////////
|
|
|
|
|
|
|
|
|
|
|
|
class TInfo_mask : public TProperty_sheet
|
|
|
|
|
|
{
|
|
|
|
|
|
public:
|
|
|
|
|
|
TInfo_mask();
|
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
TInfo_mask::TInfo_mask() : TProperty_sheet(TR("Informazioni"))
|
|
|
|
|
|
{
|
|
|
|
|
|
freeze(true);
|
|
|
|
|
|
|
|
|
|
|
|
const word ser_no = dongle().number();
|
|
|
|
|
|
|
2015-06-17 07:16:13 +00:00
|
|
|
|
int year = 2151, release = 12, tag = 0, patch = 1;
|
|
|
|
|
|
TString80 versione = "2151.12.00";
|
2012-04-13 15:06:05 +00:00
|
|
|
|
if (main_app().get_version_info(year, release, tag, patch))
|
|
|
|
|
|
versione.format("%d.%02d.%02d Patch %d", year, release, tag, patch);
|
|
|
|
|
|
|
|
|
|
|
|
TString16 datamod;
|
|
|
|
|
|
TFilename cmdline = main_app().argv(0);
|
|
|
|
|
|
cmdline.ext("exe");
|
|
|
|
|
|
if (cmdline.exist())
|
|
|
|
|
|
{
|
|
|
|
|
|
const time_t mtime = xvt_fsys_file_attr(cmdline, XVT_FILE_ATTR_MTIME);
|
|
|
|
|
|
struct tm data; localtime_s(&data, &mtime);
|
|
|
|
|
|
datamod.format("%02d-%02d-%04d", data.tm_mday, data.tm_mon+1, data.tm_year+1900);
|
|
|
|
|
|
}
|
|
|
|
|
|
TString80 stros, strwx, strcpu;
|
|
|
|
|
|
xvt_sys_get_version(stros.get_buffer(), strwx.get_buffer(), stros.size());
|
|
|
|
|
|
xvt_sys_get_host_name(strcpu.get_buffer(), strcpu.size());
|
|
|
|
|
|
|
|
|
|
|
|
TString arg;
|
|
|
|
|
|
for (int a = 0; a < main_app().argc(); a++)
|
|
|
|
|
|
arg << main_app().argv(a) << ' ';
|
|
|
|
|
|
arg.trim();
|
|
|
|
|
|
|
|
|
|
|
|
TConfig userini(CONFIG_GUI, "Printer");
|
|
|
|
|
|
|
|
|
|
|
|
TString prot;
|
|
|
|
|
|
const TDongleHardware dhw = dongle().hardware();
|
|
|
|
|
|
switch (dhw)
|
|
|
|
|
|
{
|
2015-06-17 07:16:13 +00:00
|
|
|
|
case _dongle_ssanet:
|
|
|
|
|
|
prot = "SSA@";
|
|
|
|
|
|
case _dongle_network:
|
|
|
|
|
|
prot << dongle().server_name();
|
|
|
|
|
|
break;
|
|
|
|
|
|
case _dongle_ssa:
|
|
|
|
|
|
prot = "SSA";
|
2012-07-12 15:21:18 +00:00
|
|
|
|
{
|
2015-06-17 07:16:13 +00:00
|
|
|
|
TString_array ssa;
|
2015-07-10 14:52:21 +00:00
|
|
|
|
const int n = list_files("*.ssa", ssa);
|
|
|
|
|
|
if (n > 0)
|
|
|
|
|
|
{
|
2015-06-17 07:16:13 +00:00
|
|
|
|
prot = ssa.row(0);
|
2015-07-10 14:52:21 +00:00
|
|
|
|
if (n > 1) prot << " ?";
|
|
|
|
|
|
}
|
2012-07-12 15:21:18 +00:00
|
|
|
|
}
|
2012-04-13 15:06:05 +00:00
|
|
|
|
break;
|
2015-06-17 07:16:13 +00:00
|
|
|
|
default:
|
|
|
|
|
|
prot = TR("Nessuna");
|
|
|
|
|
|
break;
|
2012-04-13 15:06:05 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
2015-06-17 07:16:13 +00:00
|
|
|
|
int type = ini_get_int(CONFIG_INSTALL, "Main", "Type");
|
2012-04-13 15:06:05 +00:00
|
|
|
|
const char* tipo = NULL;
|
|
|
|
|
|
switch (type)
|
|
|
|
|
|
{
|
2015-06-17 07:16:13 +00:00
|
|
|
|
case 2: tipo = TR("Server"); break;
|
|
|
|
|
|
case 3: tipo = TR("Client"); break;
|
|
|
|
|
|
default: tipo = TR("Postazione singola"); break;
|
2012-04-13 15:06:05 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
TFilename temp; temp.tempdir();
|
|
|
|
|
|
TString strdb, strsql;
|
|
|
|
|
|
{
|
|
|
|
|
|
TISAM_recordset rs("");
|
|
|
|
|
|
strdb = rs.driver_version();
|
|
|
|
|
|
}
|
|
|
|
|
|
{
|
|
|
|
|
|
TSQL_recordset rs("");
|
|
|
|
|
|
strsql = rs.driver_version();
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
add_cat(TR("Programma"));
|
|
|
|
|
|
add_prop(TR("Versione"), versione);
|
|
|
|
|
|
add_prop(TR("Data"), datamod);
|
|
|
|
|
|
add_prop(TR("Linea di Comando"), arg);
|
|
|
|
|
|
add_prop(TR("Utente"), user());
|
|
|
|
|
|
|
|
|
|
|
|
add_cat(TR("Licenza"));
|
|
|
|
|
|
add_prop(TR("Installazione"), tipo);
|
|
|
|
|
|
add_prop(TR("Protezione"), prot);
|
|
|
|
|
|
add_prop(TR("N. di serie"), ser_no);
|
|
|
|
|
|
if (ser_no > 0)
|
|
|
|
|
|
{
|
|
|
|
|
|
add_prop(TR("Assistenza"), dongle().year_assist());
|
|
|
|
|
|
Tdninst dninst;
|
|
|
|
|
|
add_prop(TR("Controllo"), dninst.assist_year());
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
add_cat(TR("Area dati"));
|
|
|
|
|
|
TFilename study = firm2dir(-1);
|
|
|
|
|
|
add_prop(TR("Studio"), study);
|
2015-06-17 07:16:13 +00:00
|
|
|
|
const long codditta = ini_get_int(CONFIG_INSTALL, "Main", "Firm");
|
2012-04-13 15:06:05 +00:00
|
|
|
|
add_prop(TR("Ditta"), codditta);
|
|
|
|
|
|
if (prefix_valid())
|
|
|
|
|
|
{
|
|
|
|
|
|
const TFirm& f = prefix().firm();
|
|
|
|
|
|
add_prop(TR("Ragione Sociale"), f.ragione_sociale());
|
|
|
|
|
|
add_prop(TR("Valuta"), f.codice_valuta());
|
|
|
|
|
|
}
|
|
|
|
|
|
else
|
2015-06-17 07:16:13 +00:00
|
|
|
|
{
|
|
|
|
|
|
add_prop(TR("Ragione Sociale"), ini_get_string(CONFIG_DITTA, "Main", "RAGSOC"));
|
|
|
|
|
|
}
|
2012-04-13 15:06:05 +00:00
|
|
|
|
|
|
|
|
|
|
add_cat(TR("Dati Stazione"));
|
|
|
|
|
|
add_prop(TR("Sistema Operativo"), stros);
|
|
|
|
|
|
add_prop(TR("Utente"), user());
|
|
|
|
|
|
add_prop(TR("Computer"), strcpu);
|
|
|
|
|
|
|
|
|
|
|
|
TString16 strfree;
|
|
|
|
|
|
const long mbfree = xvt_fsys_get_disk_free_space(study, 'M');
|
|
|
|
|
|
if (mbfree > 8192)
|
|
|
|
|
|
strfree.format("%ld Gb", mbfree/1024);
|
|
|
|
|
|
else
|
|
|
|
|
|
strfree.format("%ld Mb", mbfree);
|
|
|
|
|
|
add_prop(TR("Spazio su disco"), strfree);
|
|
|
|
|
|
add_prop(TR("File temporanei"), temp);
|
|
|
|
|
|
|
|
|
|
|
|
TString printer;
|
|
|
|
|
|
printer = userini.get("Name", "Printer");
|
|
|
|
|
|
if (printer.blank())
|
|
|
|
|
|
printer = TR("Nessuna");
|
|
|
|
|
|
add_prop(TR("Stampante"), printer);
|
|
|
|
|
|
|
|
|
|
|
|
add_cat(TR("Configurazioni"));
|
2015-06-17 07:16:13 +00:00
|
|
|
|
{
|
|
|
|
|
|
TConfig campoini(CONFIG_INSTALL, "Main");
|
|
|
|
|
|
add_prop(TR("Config locale"), campoini.name());
|
|
|
|
|
|
}
|
2012-04-13 15:06:05 +00:00
|
|
|
|
add_prop(TR("Config studio"), study.add("studio.ini"));
|
|
|
|
|
|
if (codditta > 0)
|
|
|
|
|
|
{
|
|
|
|
|
|
study = firm2dir(codditta);
|
|
|
|
|
|
add_prop(TR("Config ditta"), study.add("ditta.ini"));
|
|
|
|
|
|
}
|
|
|
|
|
|
add_prop(TR("Config utente"), userini.name());
|
|
|
|
|
|
study = firm2dir(-1); study.add("config"); study.add(strcpu); study.ext("ini");
|
|
|
|
|
|
add_prop(TR("Config stazione"), study),
|
|
|
|
|
|
|
|
|
|
|
|
add_cat(TR("Librerie di supporto"));
|
|
|
|
|
|
xvt_print_pdf_version(printer.get_buffer(), printer.size());
|
|
|
|
|
|
add_prop(TR("Libreria DB"), strdb);
|
|
|
|
|
|
add_prop(TR("Libreria GUI"), strwx);
|
|
|
|
|
|
add_prop(TR("Libreria PDF"), printer);
|
|
|
|
|
|
add_prop(TR("Libreria SQL"), strsql);
|
|
|
|
|
|
#ifdef _MSC_VER
|
|
|
|
|
|
const int cver = _MSC_VER / 100 - 6;
|
|
|
|
|
|
const int csub = _MSC_VER % 100;
|
|
|
|
|
|
add_prop(TR("Libreria C++"), format("Microsoft Visual Studio %d.%d", cver, csub));
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
set_read_only();
|
|
|
|
|
|
freeze(false);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
// About box: risposta alla opzione Informazioni del menu File
|
|
|
|
|
|
void about()
|
|
|
|
|
|
{
|
|
|
|
|
|
TInfo_mask info;
|
|
|
|
|
|
info.run();
|
|
|
|
|
|
}
|
|
|
|
|
|
|
