d6bef9b4e2
Files correlati : ba0.exe f90.exe f90100d.msk f90200a.msk f90300a.msk f90300b.msk f181.dir f181.trr f181.des f183.dir f183.trr f183.des Commento : - Aumentato campo FILENAME nelle tabelle. - Aggiunto alle cat. annessi se obbligatorio. - Aggiunto controllo annessi obbligatori in diagnostica. - Corretta esportazione IVA per categorie annessi: ora prende il nome della cat. - Implementati nuovi metodi per le categorie doc. - Modificati sheet categorie e annessi - Dopo la conferma del nuovo annesso la maschera non usciva. - Ora gli annessi sono univoci per ogni categoria "padre" - Aggiunto controllo univocita' annesso in inserimento - Modificata finestra nuovo annesso utilizzata anche per modificare una cat. annesso esistente - Semplificato notevolmente riempimento sheet annessi - Tolta colonna inutilizzata nelle categorie documentali - Aggiunta possibilita' di modificare i file e annessi (solo alcuni campi) - Durante l'inserimento di un file annesso non viene piu' richiesta la cat. padre poiche' non avrebbe senso, visto che e' il programma che deve riconoscere a quale cat. appartiene, quindi viene presa in automatico, e caricati autom. le cat annessi. - Aggiunto controllo esistenza file annessi come per i doc. - Aggiunti test sulle classi per le categorie documentali.
341 lines
9.4 KiB
C++
341 lines
9.4 KiB
C++
#include "f90.h"
|
|
#include "applicat.h"
|
|
#include "automask.h"
|
|
#include "f90200a.h"
|
|
#include "tsdb.h"
|
|
#include "../fp/fplib.h"
|
|
#include "f901tab.h"
|
|
#include "f90100.h"
|
|
#include "urldefid.h"
|
|
|
|
TString escape(const char* str);
|
|
|
|
///////////////////////////////////////////////////////////////
|
|
// TF9_categorie_doc_msk
|
|
///////////////////////////////////////////////////////////////
|
|
|
|
class TF9_categorie_doc_msk : public TAutomask
|
|
{
|
|
class TNew_annesso_msk : public TMask
|
|
{
|
|
public:
|
|
void edit_mode(const bool edit = true)
|
|
{
|
|
enable(101, !edit);
|
|
}
|
|
|
|
void fill_field(const TString& nome_ann, const TString& descr, const TString& tipo_ann, const bool obblig)
|
|
{
|
|
set(101, nome_ann);
|
|
set(102, descr);
|
|
set(103, tipo_ann);
|
|
set(104, obblig);
|
|
}
|
|
|
|
TNew_annesso_msk(const char* title) : TMask(title, 1, 78, 13)
|
|
{
|
|
add_button_tool(DLG_OK, "~Conferma", TOOL_OK);
|
|
add_button_tool(DLG_NULL, "", 0);
|
|
add_button_tool(DLG_CANCEL, "~Annulla", TOOL_CANCEL);
|
|
add_string (101, 0, "Nome tipo annesso:", 1, 1, 10);
|
|
add_string (102, 0, "Descrizione: ", 1, 2, 30);
|
|
add_list (103, 0, "Tipologia annesso:", 1, 3, 21, "", "DC|RC", "Annesso Cartaceo|Prospetto Rev. Charge");
|
|
add_boolean (104, 0, "Obbligatorio: ", 1, 4);
|
|
}
|
|
};
|
|
std::shared_ptr<TArray_sheet> _annessi_sheet;
|
|
TRecord_categorie _categorie_doc;
|
|
|
|
bool on_field_event(TOperable_field& o, TField_event e, long jolly) override;
|
|
bool on_key(KEY key) override;
|
|
|
|
void check_spell() const;
|
|
void fill_annessi(const TString& catdoc);
|
|
void load_table() const;
|
|
void salva_tabella() const;
|
|
|
|
public:
|
|
static void correct_spell_catdoc(TString& catdoc);
|
|
|
|
TF9_categorie_doc_msk() : TAutomask("f90200a") { load_table(); }
|
|
};
|
|
|
|
bool TF9_categorie_doc_msk::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
|
{
|
|
switch(o.dlg())
|
|
{
|
|
case DLG_OK:
|
|
if (e == fe_button)
|
|
salva_tabella();
|
|
break;
|
|
case B_DELETE:
|
|
if (e == fe_button)
|
|
{
|
|
TSheet_field& sf = sfield(S_CLASSDOC);
|
|
sf.hide();
|
|
FOR_EACH_SHEET_ROW(sf, nr, row)
|
|
{
|
|
if (row->starts_with("X"))
|
|
{
|
|
sf.destroy(nr);
|
|
--nr;
|
|
}
|
|
}
|
|
sf.show();
|
|
}
|
|
break;
|
|
case DLG_USER:
|
|
if (e == fe_button)
|
|
{
|
|
TSheet_field& sf = sfield(S_CLASSDOC);
|
|
const TString catdoc_padre(sf.row(sf.selected()).get(1));
|
|
fill_annessi(catdoc_padre);
|
|
int key;
|
|
while ((key = _annessi_sheet->run()) != K_ESC)
|
|
{
|
|
if (key == K_INS) // Voglio inserire un nuovo annesso
|
|
{
|
|
_categorie_doc.reload();
|
|
TString title; title << "Nuovo annesso per " << catdoc_padre;
|
|
TNew_annesso_msk new_ann(title);
|
|
while(new_ann.run() == K_ENTER)
|
|
{
|
|
TString catann = new_ann.get(101);
|
|
if (catann.empty())
|
|
{
|
|
warning_box("Inserire il nome tipo annesso");
|
|
continue;
|
|
}
|
|
TCategorie_doc::annesso ann;
|
|
if (!_categorie_doc.get_ann(catann, ann))
|
|
{
|
|
const TString& descr = new_ann.get(102);
|
|
const TString& tipo = new_ann.get(103);
|
|
const bool obblig = new_ann.get_bool(104);
|
|
correct_spell_catdoc(catann);
|
|
_categorie_doc.add_annesso(catdoc_padre, catann, descr, tipo, obblig);
|
|
fill_annessi(catdoc_padre);
|
|
}
|
|
else
|
|
warning_box("E' gia' presente un annesso con lo stesso nome per la categoria %s", (const char*)catdoc_padre);
|
|
break;
|
|
}
|
|
}
|
|
else if (key == K_DEL)
|
|
{
|
|
const int r = _annessi_sheet->selected();
|
|
if (yesno_box("Eliminare l'annesso N. %d?", r + 1))
|
|
{
|
|
_categorie_doc.del_annesso(catdoc_padre, _annessi_sheet->row(r).get(0));
|
|
fill_annessi(catdoc_padre);
|
|
}
|
|
}
|
|
else if(key == K_CTRL+'F' || key == K_ENTER) // EDIT
|
|
{
|
|
//_categorie_doc.reload();
|
|
TString title; title << "Modifica annesso per " << catdoc_padre;
|
|
TNew_annesso_msk new_ann(title);
|
|
new_ann.edit_mode();
|
|
TToken_string& r = _annessi_sheet->row(_annessi_sheet->selected());
|
|
new_ann.fill_field(r.get(0), r.get(1), r.get(2), r.get_bool(3));
|
|
if (new_ann.run() == K_ENTER)
|
|
{
|
|
const TString catann = new_ann.get(101);
|
|
//TCategorie_doc::annesso ann;
|
|
/*if (!_categorie_doc.get_ann(catann, ann))
|
|
{*/
|
|
const TString& descr = new_ann.get(102);
|
|
const TString& tipo = new_ann.get(103);
|
|
const bool obblig = new_ann.get_bool(104);
|
|
//correct_spell_catdoc(catann);
|
|
_categorie_doc.del_annesso(catdoc_padre, catann);
|
|
_categorie_doc.add_annesso(catdoc_padre, catann, descr, tipo, obblig);
|
|
fill_annessi(catdoc_padre);
|
|
//}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
default: break;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
bool TF9_categorie_doc_msk::on_key(KEY key)
|
|
{
|
|
if (key == K_DEL)
|
|
{
|
|
TSheet_field& sf = sfield(S_CLASSDOC);
|
|
sf.hide();
|
|
TString_array& arr = sf.rows_array();
|
|
arr.destroy(sf.selected(), true);
|
|
sf.force_update();
|
|
sf.show();
|
|
}
|
|
return TAutomask::on_key(key);
|
|
}
|
|
|
|
void TF9_categorie_doc_msk::check_spell() const
|
|
{
|
|
TSheet_field& sf = sfield(S_CLASSDOC);
|
|
sf.hide();
|
|
FOR_EACH_SHEET_ROW(sf, nr, row)
|
|
{
|
|
TString catdoc = row->get(F_CATDOC - 101);
|
|
correct_spell_catdoc(catdoc);
|
|
row->add(catdoc, 1);
|
|
}
|
|
sf.force_update();
|
|
sf.show();
|
|
}
|
|
|
|
void TF9_categorie_doc_msk::fill_annessi(const TString& catdoc)
|
|
{
|
|
TCategorie_doc d;
|
|
d.set_mode_sheet(6);
|
|
_annessi_sheet = d.get_sheet_ann(catdoc);
|
|
_annessi_sheet->add_button(DLG_EDIT, TR("~Modifica"), K_CTRL + 'F', TOOL_EDIT);
|
|
}
|
|
|
|
void TF9_categorie_doc_msk::load_table() const
|
|
{
|
|
TSheet_field& sf = sfield(S_CLASSDOC);
|
|
sf.hide();
|
|
sf.destroy();
|
|
|
|
int idx = 0;
|
|
while (true)
|
|
{
|
|
TToken_string appo(ini_get_string(CONFIG_DITTA, "F9", "CATDOC", "", idx++));
|
|
if (appo == "STOP" || appo.empty()) /* STOP: Riga terminatrice */
|
|
break;
|
|
TToken_string& row = sf.row(-1);
|
|
row = appo;
|
|
}
|
|
sf.show();
|
|
sf.force_update();
|
|
}
|
|
|
|
void TF9_categorie_doc_msk::salva_tabella() const
|
|
{
|
|
check_spell();
|
|
int idx = 0;
|
|
TString iget = "start";
|
|
while (iget != "STOP" && !iget.empty())
|
|
{
|
|
iget = ini_get_string(CONFIG_DITTA, "F9", "CATDOC", "", idx);
|
|
ini_remove(CONFIG_DITTA, "F9", "CATDOC", idx++);
|
|
}
|
|
|
|
idx = 0;
|
|
TSheet_field& sf = sfield(S_CLASSDOC);
|
|
FOR_EACH_SHEET_ROW(sf, nr, row)
|
|
{
|
|
if(row->get(1) && TString(row->get(1)).full())
|
|
ini_set_string(CONFIG_DITTA, "F9", "CATDOC", *row, idx++);
|
|
}
|
|
ini_set_string(CONFIG_DITTA, "F9", "CATDOC", "STOP", idx); // Riga terminatrice
|
|
|
|
// Reload
|
|
load_table();
|
|
}
|
|
|
|
void TF9_categorie_doc_msk::correct_spell_catdoc(TString& catdoc)
|
|
{
|
|
catdoc.trim();
|
|
catdoc.upper();
|
|
std::string ss = (const char*)catdoc;
|
|
for (size_t i = 0; i < ss.size(); ++i)
|
|
{
|
|
if (!(ss[i] >= 'A' && ss[i] <= 'Z' || ss[i] >= '0' && ss[i] <= '9' || ss[i] == '_'))
|
|
ss.erase(i--, 1);
|
|
}
|
|
catdoc = ss.c_str();
|
|
}
|
|
|
|
|
|
|
|
|
|
///////////////////////////////////////////////////////////////
|
|
// TF9_categorie_doc
|
|
///////////////////////////////////////////////////////////////
|
|
|
|
class TF9_categorie_doc : public TSkeleton_application
|
|
{
|
|
TString _log;
|
|
void add_error_log(TString& query);
|
|
void main_loop() override;
|
|
|
|
public:
|
|
TF9_categorie_doc() = default;
|
|
};
|
|
|
|
|
|
void TF9_categorie_doc::add_error_log(TString& query)
|
|
{
|
|
_log << "\n" << query << "\n" << fp_db().sq_get_text_error() << "\n" << fp_db().sq_get_string_error();
|
|
}
|
|
|
|
void TF9_categorie_doc::main_loop()
|
|
{
|
|
TF9_categorie_doc_msk msk;
|
|
while(msk.run() == K_ENTER)
|
|
{
|
|
TSheet_field& sf = msk.sfield(S_CLASSDOC);
|
|
TString query;
|
|
query << "TRUNCATE TABLE " F9_DRT ";\n";
|
|
bool ok = fp_db().sq_set_exec(query, false) && fp_db().sq_commit();
|
|
if (ok)
|
|
{
|
|
FOR_EACH_SHEET_ROW(sf, nr, row)
|
|
{
|
|
query.cut(0);
|
|
query << "INSERT INTO " F9_DRT "("
|
|
DRT_CODSOC ", "
|
|
DRT_CATDOC ", "
|
|
DRT_DESCR ", "
|
|
DRT_CLASSO ", "
|
|
DRT_CAUSSO ", "
|
|
DRT_CAUSCON ", "
|
|
DRT_TIPOCAU ", "
|
|
DRT_OPCEE ")\nVALUES('" <<
|
|
F9CONF.get_ambiente() << "', '" <<
|
|
row->get(1) << "', '" << // Catdoc
|
|
escape(row->get(2)) << "', '" << // Descr
|
|
row->get(3) << "', '" << // Classe doc sost.
|
|
row->get(4) << "', '" << // Causale sost.
|
|
escape(row->get(5)) << "', '" << // Causale cont
|
|
escape(row->get(6)) << "', '" << // Tipo caus. cont
|
|
row->get(8) << "');\n"; // "Operat. CEE"
|
|
ok &= fp_db().sq_set_exec(query, false) && fp_db().sq_commit();
|
|
if (!ok)
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (!ok)
|
|
{
|
|
add_error_log(query);
|
|
ofstream fout;
|
|
fout.open("f9.catdoc.dberror.txt");
|
|
fout << _log << "\n";
|
|
error_box("Errore nel salvataggio dei dati.\nControllare file di errore f9.catdoc.dberror.txt");
|
|
}
|
|
}
|
|
}
|
|
|
|
TString escape(const char* str)
|
|
{
|
|
TString string; string << str;
|
|
for (int pos = string.find('\''); pos != -1; pos = string.find('\'', pos + 2))
|
|
string.insert("'", pos);
|
|
return string;
|
|
}
|
|
|
|
int f90200(const int argc, char* argv[])
|
|
{
|
|
TF9_categorie_doc app;
|
|
app.run(argc, argv, TR("Configurazione Categorie Documentali."));
|
|
return 0;
|
|
}
|