467 lines
13 KiB
C++
467 lines
13 KiB
C++
|
#include <automask.h>
|
|||
|
|
#include <recarray.h>
|
|||
|
|
#include <relapp.h>
|
|||
|
|
#include <defmask.h>
|
|||
|
|
|
|||
|
|
#include "celib.h"
|
|||
|
|
#include "ce1400a.h"
|
|||
|
|
|
|||
|
|
#include "catdi.h"
|
|||
|
|
|
|||
|
|
///////////////////////////////////////////////////////////
|
|||
|
|
// Applicazione principale
|
|||
|
|
///////////////////////////////////////////////////////////
|
|||
|
|
|
|||
|
|
class TScelta_amm_cat : public TRelation_application
|
|||
|
|
{
|
|||
|
|
TRelation* _rel;
|
|||
|
|
TAutomask* _msk[4];
|
|||
|
|
int _tipo;
|
|||
|
|
|
|||
|
|
protected:
|
|||
|
|
virtual bool user_create();
|
|||
|
|
virtual bool user_destroy();
|
|||
|
|
virtual TRelation* get_relation() const { return _rel; }
|
|||
|
|
virtual bool changing_mask(int) { return TRUE; }
|
|||
|
|
virtual TMask* get_mask(int mode);
|
|||
|
|
virtual bool protected_record(TRelation& rel);
|
|||
|
|
|
|||
|
|
void init_mask(TMask& m);
|
|||
|
|
virtual void init_query_mode(TMask& m);
|
|||
|
|
virtual void init_query_insert_mode(TMask& m);
|
|||
|
|
virtual void init_insert_mode(TMask& m);
|
|||
|
|
virtual void init_modify_mode(TMask& m);
|
|||
|
|
|
|||
|
|
public:
|
|||
|
|
void set_tipo_beni(int t) { _tipo = t; }
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
inline TScelta_amm_cat& app() { return (TScelta_amm_cat&)main_app(); }
|
|||
|
|
|
|||
|
|
///////////////////////////////////////////////////////////
|
|||
|
|
// Maschera di query
|
|||
|
|
///////////////////////////////////////////////////////////
|
|||
|
|
|
|||
|
|
class TSac_mask : public TAutomask
|
|||
|
|
{
|
|||
|
|
protected:
|
|||
|
|
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
|||
|
|
|
|||
|
|
public:
|
|||
|
|
TSac_mask() : TAutomask("ce1400a") { }
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
bool TSac_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
|||
|
|
{
|
|||
|
|
switch (o.dlg())
|
|||
|
|
{
|
|||
|
|
case F_ESERCIZIO:
|
|||
|
|
case F_GRUPPO:
|
|||
|
|
case F_SPECIE:
|
|||
|
|
if (e == fe_init || e == fe_modify)
|
|||
|
|
{
|
|||
|
|
const int ese = get_int(F_ESERCIZIO);
|
|||
|
|
const int gru = get_int(F_GRUPPO);
|
|||
|
|
const char* spe = get(F_SPECIE);
|
|||
|
|
TString16 str;
|
|||
|
|
str.format("%04d%02d%-4s", ese, gru, spe);
|
|||
|
|
const TRectype& curr_ccb = cache().get("CCB", str);
|
|||
|
|
const bool can_create = !curr_ccb.get_bool("B1"); // Bollato stampato
|
|||
|
|
enable(DLG_NEWREC, can_create);
|
|||
|
|
enable(DLG_DELREC, can_create);
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
case F_CATEGORIA:
|
|||
|
|
case F_DESC_CAT:
|
|||
|
|
{
|
|||
|
|
TDitta_cespiti& dc = ditta_cespiti();
|
|||
|
|
bool ok = dc.on_category_event(o, e, jolly);
|
|||
|
|
if (!ok)
|
|||
|
|
return FALSE;
|
|||
|
|
}
|
|||
|
|
case F_CATEGORIA2:
|
|||
|
|
case F_DESC_CAT2:
|
|||
|
|
if (e == fe_modify || e == fe_close)
|
|||
|
|
{
|
|||
|
|
TDitta_cespiti& dc = ditta_cespiti();
|
|||
|
|
const int gr = get_int(F_GRUPPO);
|
|||
|
|
const char* sp = get(F_SPECIE);
|
|||
|
|
const int ca = get_int(F_CATEGORIA);
|
|||
|
|
const TRectype& cac = dc.categoria(gr, sp, ca);
|
|||
|
|
bool ok = !cac.empty();
|
|||
|
|
if (ok && (o.dlg() == F_CATEGORIA || o.dlg() == F_CATEGORIA2))
|
|||
|
|
{
|
|||
|
|
set(o.dlg() == F_CATEGORIA ? F_DESC_CAT : F_DESC_CAT2, cac.get("S0"));
|
|||
|
|
|
|||
|
|
if (cac.get_bool("B0"))
|
|||
|
|
return error_box("Categoria non ammortizzabile");
|
|||
|
|
|
|||
|
|
const int tb = cac.get_int("I0");
|
|||
|
|
app().set_tipo_beni(tb);
|
|||
|
|
switch (tb)
|
|||
|
|
{
|
|||
|
|
case 1: // Beni immateriali
|
|||
|
|
{
|
|||
|
|
const bool amm_per_anni = cac.get_int("I1") <= 1;
|
|||
|
|
if (amm_per_anni)
|
|||
|
|
return error_box("La categoria prevede un ammortamento per anni:\n"
|
|||
|
|
"Effettuare le scelte sul cespite");
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
case 2: // Costi pluriennali
|
|||
|
|
{
|
|||
|
|
const int vincolo = cac.get_int("I2");
|
|||
|
|
if (vincolo == 3) // Quote
|
|||
|
|
return error_box("La categoria prevede un ammortamento per quote costanti:\n"
|
|||
|
|
"Effettuare le scelte sul cespite");
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
default:
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
if (!ok && o.dlg() == F_CATEGORIA2)
|
|||
|
|
return error_box("E' neccessario specificare una categoria valida");
|
|||
|
|
if (ok && e == fe_button && o.dlg() == F_CATEGORIA)
|
|||
|
|
send_key(K_ENTER, 0);
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
default:
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
return TRUE;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
///////////////////////////////////////////////////////////
|
|||
|
|
// Maschera di beni materiali
|
|||
|
|
///////////////////////////////////////////////////////////
|
|||
|
|
|
|||
|
|
class TMat_mask : public TAutomask
|
|||
|
|
{
|
|||
|
|
protected:
|
|||
|
|
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
|||
|
|
|
|||
|
|
bool test_min(short quota, short minimo) const;
|
|||
|
|
bool test_max(short nor, short ant, short acc) const;
|
|||
|
|
bool test_rit(short quota, short minimo) const;
|
|||
|
|
bool is_max(short quota, short massimo) const;
|
|||
|
|
|
|||
|
|
public:
|
|||
|
|
TMat_mask() : TAutomask("ce1400b") { }
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
bool TMat_mask::test_min(short quota, short minimo) const
|
|||
|
|
{
|
|||
|
|
bool warning = FALSE;
|
|||
|
|
const bool ammrit = get_bool(F_AMMRIT);
|
|||
|
|
if (!ammrit)
|
|||
|
|
{
|
|||
|
|
const real perq = get(quota);
|
|||
|
|
const real minq = get(minimo);
|
|||
|
|
warning = perq < minq;
|
|||
|
|
}
|
|||
|
|
return warning;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
bool TMat_mask::test_rit(short quota, short minimo) const
|
|||
|
|
{
|
|||
|
|
bool warning = FALSE;
|
|||
|
|
const bool ammrit = get_bool(F_AMMRIT);
|
|||
|
|
if (ammrit)
|
|||
|
|
{
|
|||
|
|
const real perq = get(quota);
|
|||
|
|
const real minq = get(minimo);
|
|||
|
|
warning = perq >= minq;
|
|||
|
|
}
|
|||
|
|
return warning;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
bool TMat_mask::test_max(short nor, short ant, short acc) const
|
|||
|
|
{
|
|||
|
|
real tot;
|
|||
|
|
tot += get_real(nor);
|
|||
|
|
tot += get_real(ant);
|
|||
|
|
tot += get_real(acc);
|
|||
|
|
return tot > 100.0;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
bool TMat_mask::is_max(short quota, short massima) const
|
|||
|
|
{
|
|||
|
|
const real perq = get(quota);
|
|||
|
|
const real maxq = get(massima);
|
|||
|
|
return perq >= maxq;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
bool TMat_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
|||
|
|
{
|
|||
|
|
switch (o.dlg())
|
|||
|
|
{
|
|||
|
|
case F_CATEGORIA:
|
|||
|
|
{
|
|||
|
|
TDitta_cespiti& dc = ditta_cespiti();
|
|||
|
|
dc.on_category_event(o, e, jolly);
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
case F_NORFIS_87:
|
|||
|
|
if (e == fe_modify || e == fe_close)
|
|||
|
|
{
|
|||
|
|
if (test_min(F_NORFIS_87, F_MIN_87))
|
|||
|
|
warning_box("L'ammortamento normale <20> inferiore al minimo della tabella ministeriale:\n"
|
|||
|
|
"Se non si seleziona l'ammortamento ritardato verrano generate delle quote perse");
|
|||
|
|
if (test_max(F_NORFIS_87, F_ANTFIS_87, F_ACCFIS))
|
|||
|
|
return error_box("Il totale delle percentuali di ammortamento supera il 100%");
|
|||
|
|
if (test_rit(F_NORFIS_87, F_MIN_87))
|
|||
|
|
return error_box("In caso di ammortamento ritardato si deve specificare una quota inferiore al minimo ministeriale");
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
case F_NORFIS_88:
|
|||
|
|
if (e == fe_modify || e == fe_close)
|
|||
|
|
{
|
|||
|
|
if (test_min(F_NORFIS_88, F_MIN_88))
|
|||
|
|
warning_box("L'ammortamento normale <20> inferiore al minimo della tabella ministeriale:\n"
|
|||
|
|
"Se non si seleziona l'ammortamento ritardato verrano generate delle quote perse");
|
|||
|
|
if (test_max(F_NORFIS_88, F_ANTFIS_88, F_ACCFIS))
|
|||
|
|
return error_box("Il totale delle percentuali di ammortamento supera il 100%");
|
|||
|
|
if (test_rit(F_NORFIS_88, F_MIN_88))
|
|||
|
|
return error_box("In caso di ammortamento ritardato si deve specificare una quota inferiore al minimo ministeriale");
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
case F_NORFIS_89:
|
|||
|
|
if (e == fe_modify || e == fe_close)
|
|||
|
|
{
|
|||
|
|
if (test_min(F_NORFIS_89, F_MIN_89))
|
|||
|
|
warning_box("L'ammortamento normale <20> inferiore al minimo della tabella ministeriale:\n"
|
|||
|
|
"Se non si seleziona l'ammortamento ritardato verrano generate delle quote perse");
|
|||
|
|
if (test_max(F_NORFIS_89, F_ANTFIS_89, F_ACCFIS))
|
|||
|
|
return error_box("Il totale delle percentuali di ammortamento supera il 100%");
|
|||
|
|
if (test_rit(F_NORFIS_89, F_MIN_89))
|
|||
|
|
return error_box("In caso di ammortamento ritardato si deve specificare una quota inferiore al minimo ministeriale");
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
case F_ANTFIS_87:
|
|||
|
|
if (e == fe_modify || e == fe_close)
|
|||
|
|
{
|
|||
|
|
if (!o.empty() && !is_max(F_NORFIS_87, F_MAX_87))
|
|||
|
|
return error_box("E' necessario completare l'ammortamento normale prima di calcolare quello anticipato");
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
case F_ANTFIS_88:
|
|||
|
|
if (e == fe_modify || e == fe_close)
|
|||
|
|
{
|
|||
|
|
if (!o.empty() && !is_max(F_NORFIS_88, F_MAX_88))
|
|||
|
|
return error_box("E' necessario completare l'ammortamento normale prima di calcolare quello anticipato");
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
case F_ANTFIS_89:
|
|||
|
|
if (e == fe_modify || e == fe_close)
|
|||
|
|
{
|
|||
|
|
if (!o.empty() && !is_max(F_NORFIS_89, F_MAX_89))
|
|||
|
|
return error_box("E' necessario completare l'ammortamento normale prima di calcolare quello anticipato");
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
default:
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
return TRUE;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
///////////////////////////////////////////////////////////
|
|||
|
|
// Maschera di beni immateriali
|
|||
|
|
///////////////////////////////////////////////////////////
|
|||
|
|
|
|||
|
|
class TImm_mask : public TAutomask
|
|||
|
|
{
|
|||
|
|
protected:
|
|||
|
|
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
|||
|
|
|
|||
|
|
public:
|
|||
|
|
TImm_mask() : TAutomask("ce1400c") { }
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
bool TImm_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
|||
|
|
{
|
|||
|
|
switch (o.dlg())
|
|||
|
|
{
|
|||
|
|
case F_CATEGORIA:
|
|||
|
|
{
|
|||
|
|
TDitta_cespiti& dc = ditta_cespiti();
|
|||
|
|
return dc.on_category_event(o, e, jolly);
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
default:
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
return TRUE;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
///////////////////////////////////////////////////////////
|
|||
|
|
// Maschera di costi pluriennali
|
|||
|
|
///////////////////////////////////////////////////////////
|
|||
|
|
|
|||
|
|
class TPlu_mask : public TAutomask
|
|||
|
|
{
|
|||
|
|
protected:
|
|||
|
|
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
|||
|
|
|
|||
|
|
public:
|
|||
|
|
TPlu_mask() : TAutomask("ce1400d") { }
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
bool TPlu_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
|||
|
|
{
|
|||
|
|
switch (o.dlg())
|
|||
|
|
{
|
|||
|
|
case F_CATEGORIA:
|
|||
|
|
{
|
|||
|
|
TDitta_cespiti& dc = ditta_cespiti();
|
|||
|
|
return dc.on_category_event(o, e, jolly);
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
default:
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
return TRUE;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
///////////////////////////////////////////////////////////
|
|||
|
|
// Applicazione principale
|
|||
|
|
///////////////////////////////////////////////////////////
|
|||
|
|
|
|||
|
|
TMask* TScelta_amm_cat::get_mask(int mode)
|
|||
|
|
{
|
|||
|
|
TMask* m = NULL;
|
|||
|
|
if (mode == MODE_QUERY || mode == MODE_QUERYINS)
|
|||
|
|
{
|
|||
|
|
if (_msk[0] == NULL)
|
|||
|
|
_msk[0] = new TSac_mask;
|
|||
|
|
m = _msk[0];
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
switch(_tipo)
|
|||
|
|
{
|
|||
|
|
case 1:
|
|||
|
|
if (_msk[2] == NULL)
|
|||
|
|
_msk[2] = new TImm_mask;
|
|||
|
|
break;
|
|||
|
|
case 2:
|
|||
|
|
if (_msk[3] == NULL)
|
|||
|
|
_msk[3] = new TPlu_mask;
|
|||
|
|
break;
|
|||
|
|
default:
|
|||
|
|
if (_msk[1] == NULL)
|
|||
|
|
_msk[1] = new TMat_mask;
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
m = _msk[_tipo+1];
|
|||
|
|
}
|
|||
|
|
return m;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
bool TScelta_amm_cat::user_create()
|
|||
|
|
{
|
|||
|
|
open_files(LF_TABCOM, LF_CATDI, 0);
|
|||
|
|
_rel = new TRelation(LF_CATDI);
|
|||
|
|
memset(_msk, 0, sizeof(_msk));
|
|||
|
|
return TRUE;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
bool TScelta_amm_cat::user_destroy()
|
|||
|
|
{
|
|||
|
|
for (int m = 3; m >= 0; m--)
|
|||
|
|
if (_msk[m]) delete _msk[m];
|
|||
|
|
delete _rel;
|
|||
|
|
return TRUE;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
bool TScelta_amm_cat::protected_record(TRelation& rel)
|
|||
|
|
{
|
|||
|
|
const TRectype& curr = rel.curr();
|
|||
|
|
const int annoes = curr.get_int(CATDI_CODES);
|
|||
|
|
int gruppo = curr.get_int(CATDI_CODCGRA);
|
|||
|
|
if (gruppo <= 0) gruppo = curr.get_int(CATDI_CODCGR);
|
|||
|
|
TString4 specie = curr.get(CATDI_CODSPA);
|
|||
|
|
if (specie.blank())
|
|||
|
|
specie = curr.get(CATDI_CODSP);
|
|||
|
|
|
|||
|
|
TString16 str;
|
|||
|
|
str.format("%04d%02d%-4s", annoes, gruppo, (const char*)specie);
|
|||
|
|
const TRectype& curr_ccb = cache().get("CCB", str);
|
|||
|
|
const bool protect = curr_ccb.get_bool("B1"); // Bollato stampato
|
|||
|
|
return protect;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void TScelta_amm_cat::init_query_mode(TMask& m)
|
|||
|
|
{
|
|||
|
|
ditta_cespiti().init_mask(m);
|
|||
|
|
set_search_field(F_CATEGORIA2);
|
|||
|
|
m.show(F_CATEGORIA2); m.show(F_DESC_CAT2);
|
|||
|
|
m.hide(F_CATEGORIA); m.hide(F_DESC_CAT);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void TScelta_amm_cat::init_query_insert_mode(TMask& m)
|
|||
|
|
{
|
|||
|
|
ditta_cespiti().init_mask(m);
|
|||
|
|
set_search_field(F_CATEGORIA);
|
|||
|
|
m.show(F_CATEGORIA); m.show(F_DESC_CAT);
|
|||
|
|
m.hide(F_CATEGORIA2); m.hide(F_DESC_CAT2);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
void TScelta_amm_cat::init_mask(TMask& m)
|
|||
|
|
{
|
|||
|
|
TDitta_cespiti& dc = ditta_cespiti();
|
|||
|
|
const int ese = _msk[0]->get_int(F_ESERCIZIO);
|
|||
|
|
const int gru = _msk[0]->get_int(F_GRUPPO);
|
|||
|
|
const char* spe = _msk[0]->get(F_SPECIE);
|
|||
|
|
const int cat = _msk[0]->get_int(F_CATEGORIA);
|
|||
|
|
dc.set_attivita(ese, gru, spe);
|
|||
|
|
dc.init_mask(m);
|
|||
|
|
|
|||
|
|
const TRectype& cac = dc.categoria(gru, spe, cat);
|
|||
|
|
switch (_tipo)
|
|||
|
|
{
|
|||
|
|
case 1:
|
|||
|
|
m.set(F_TIPOAMM, cac.get("I1"));
|
|||
|
|
m.set(F_MAX_AMM, cac.get("R13"));
|
|||
|
|
m.set(F_ANNI, cac.get("I3"));
|
|||
|
|
break;
|
|||
|
|
case 2:
|
|||
|
|
m.set(F_TIPOVINC, cac.get("I2"));
|
|||
|
|
m.set(F_MIN_AMM, cac.get("R14"));
|
|||
|
|
m.set(F_MAX_AMM, cac.get("R15"));
|
|||
|
|
m.set(F_ANNI, cac.get("I3"));
|
|||
|
|
break;
|
|||
|
|
default:
|
|||
|
|
{
|
|||
|
|
const real r11 = cac.get("R11");
|
|||
|
|
const real r12 = cac.get("R12");
|
|||
|
|
m.set(F_MIN_87, real(r12/2.0));
|
|||
|
|
m.set(F_MIN_88, real(r12/2.0));
|
|||
|
|
m.set(F_MIN_89, real(r11/2.0));
|
|||
|
|
m.set(F_MAX_87, r12);
|
|||
|
|
m.set(F_MAX_88, r12);
|
|||
|
|
m.set(F_MAX_89, r11);
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void TScelta_amm_cat::init_insert_mode(TMask& m)
|
|||
|
|
{
|
|||
|
|
init_mask(m);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
void TScelta_amm_cat::init_modify_mode(TMask& m)
|
|||
|
|
{
|
|||
|
|
init_mask(m);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
int ce1400(int argc, char* argv[])
|
|||
|
|
{
|
|||
|
|
TScelta_amm_cat sac;
|
|||
|
|
sac.run(argc, argv, "Scelta ammortamento per categoria");
|
|||
|
|
return 0;
|
|||
|
|
}
|