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

Compare commits

base: root:ef37c0d7d70a729668d13f2e3566aa2dd9cd4182
Branches Tags
root:R12.00.1244
...
compare: root:e671d1646957164621dd0384f204db272180fe67
Branches Tags
root:R12.00.1244

4 Commits
ef37c0d7d7 ... e671d16469

Author SHA1 Message Date
Alessandro Bonazzi
e671d16469 Patch level : 12.00 1410 
Files correlati     : ve0.exe
Commento            :
Fringe benefit 70% , cespiti non ammortizzabili
I supervisori possono modificare i documenti bloccati
 2026-04-07 21:53:32 +02:00
Alessandro Bonazzi
303b6d3cee Merge branch 'R12.00.1244' of http://192.168.2.5:30000/root/campo-sirio into R12.00.1244 2026-04-07 21:49:29 +02:00
Alessandro Bonazzi
f7b631d52a Patch level : 12.00 1410 
Files correlati     : f139.dir f139.trr ce0500b.msk ce2.exe ce3.exe
Commento                :
Fringe benefit 70% , cespiti non ammortizzabili
 2026-04-07 21:48:29 +02:00
Alessandro Bonazzi
b3429abf79 Patch level : 12.00 1410 
Files correlati     : f139.dir f139.trr
Commento                :
Fringe benefit 70% , cespiti non ammortizzabili
 2026-04-07 20:17:45 +02:00
11 changed files with 107 additions and 60 deletions
Show Stats Expand all files Collapse all files

2
src/ba/recdesc/f139.dir
View File

@ -1,3 +1,3 @@
139
0
$cespi|0|0|256|0|Anagrafica cespiti|||
$cespi|0|0|257|0|Anagrafica cespiti|||

3
src/ba/recdesc/f139.trr
View File

@ -1,5 +1,5 @@
139
34
35
IDCESPITE|1|10|0|Codice cespite (ZZZZZZZZZZ)
CODCGRA|2|2|0|Codice gruppo (da chiarire) (AG0CGR)
CODSPA|1|4|0|Codice specie (da chiarire) (ATACSP)
@ -34,6 +34,7 @@ REPARTO|1|30|0|Reparto
IDIMP|3|5|0|Codice impianto
PERCIMP|4|7|3|% di assegnazione all'impianto
FABBR06|2|1|0|Fabbr.str. art.43 d.l.223/06(0=Nessuno, 1=Industriale, 2=Altro)
NONAMM|8|1|0|Cespite non ammortizzabile
3
IDCESPITE|
CODCGRA+CODSPA+CODCAT+DTCOMP+IDCESPITE|

1
src/ce/ce0500a.h
View File

@ -31,6 +31,7 @@
#define F_LEASING 139
#define F_USATO 140
#define F_FABBR06 141
#define F_NONAMM 142
#define F_SPEMAN 150
#define F_VEICOLO 151

7
src/ce/ce0500b.uml
View File

@ -290,6 +290,7 @@ BEGIN
ITEM "2|Deducibilità 50% - Uso promiscuo"
ITEM "3|Deducibilità 80% - Uso promiscuo agenti/rappresentanti"
ITEM "4|Deducibilità 40% - Autovettura uso promiscuo"
ITEM "9|Deducibilità 70% - Autovettura in fringe benefit"
ITEM "5|Deducibilità 90% - Autovettura in fringe benefit"
ITEM "6|Deducibilità 80% - Cellulari"
ITEM "7|Deducibilità 20% - Uso promiscuo"
@ -297,6 +298,12 @@ BEGIN
FIELD USOPROM
END
BOOLEAN F_NONAMM
BEGIN
PROMPT 1 20 "Cespite non ammortizzabile"
FIELD NONAMM
END
ENDPAGE
PAGE "Personalizzazioni" -1 -1 78 18

113
src/ce/ce2101.cpp
View File

@ -377,7 +377,6 @@ bool TCespite::valido()
return false;
}
}
return true;
}
@ -505,7 +504,8 @@ real TCespite::percentuale_deducibilita() const
{
real percento;
const int uso_promiscuo = get_int(CESPI_USOPROM);
switch (uso_promiscuo)
switch (uso_promiscuo)
{
case 2: // Beni in uso promiscuo
percento = 50;
@ -522,10 +522,11 @@ real TCespite::percentuale_deducibilita() const
break;
case 3: percento = 80; break; // Agenti/rappresentanti
case 4: percento = 40; break; // Uso promiscuo a dipententi
case 5: percento = 90; break; // Fringe benefit
case 5: percento = 90; break; // Fringe benefit90%
case 6: percento = 80; break; // Cellulari
case 7: percento = 20; break; // Uso promiscuo 2013
case 8: percento = 70; break; // Uso promiscuo 2013
case 8: percento = 70; break; // Uso promiscuo 2013
case 9: percento = 70; break; // Fringe benefit 70%
default: percento = CENTO; break; // Beni strumentali al 100%
}
return percento;
@ -878,7 +879,7 @@ int TCespite::test_rip(TRelation& rel)
// Se questa supera il residuo da ammortizzare allora pone la quota uguale al residuo e
// ricalcola la percentuale effettiva
real TCespite::calc_quota(const real& valamm, const real& perric,
const real& residuo, real& pereff, TRelation* mov /* =NULL */)
const real& residuo, real& pereff, TRelation* mov /* = nullptr */)
{
// Caso anomalo di percentuale o valore nulli
if (perric <= ZERO || valamm <= ZERO)
@ -1183,9 +1184,9 @@ void TCespite::calc_perc(TRelation& rel, const TRectype& tmv, const TRectype& tm
{
const TDitta_cespiti& cce = ditta_cespiti();
const real coeff = cce.coefficiente_durata_esercizio();
TRectype& ammmv = rel.curr(LF_AMMMV);
const bool nonamm = get_bool(CESPI_NONAMM);
TRectype& ammmv = rel.curr(LF_AMMMV);
if (ammmv.get_bool(AMMMV_FZQUO)) // Forzatura per quote
{
// Leggo comunque le percentuali teoriche
@ -1265,23 +1266,28 @@ void TCespite::calc_perc(TRelation& rel, const TRectype& tmv, const TRectype& tm
real resamm = mov_res_amm(tmv, tmvam) - ammmv.get_real(AMMMV_FPRIVATO);
if (resamm > ZERO)
{
const real penor = ammmv.get_real(AMMMV_PENOR);
const real penor = nonamm ? ZERO : ammmv.get_real(AMMMV_PENOR);
real per_eff;
const real qnor = calc_quota(mov_val_amm(tmv), penor, resamm, per_eff, &rel);
ammmv.put(AMMMV_QNOR, qnor);
ammmv.put(AMMMV_QNOR, qnor);
ammmv.put(AMMMV_PENOR, per_eff);
resamm -= qnor;
const real peacc = ammmv.get_real(AMMMV_PEACC);
if (resamm > ZERO && peacc > ZERO)
const real peacc = nonamm ? ZERO : ammmv.get_real(AMMMV_PEACC);
if (resamm > ZERO && peacc > ZERO)
{
const real qacc = calc_quota(mov_val_amm(tmv), peacc, resamm, per_eff, &rel);
ammmv.put(AMMMV_QACC, qacc);
ammmv.put(AMMMV_QACC, qacc);
ammmv.put(AMMMV_PEACC, per_eff);
resamm -= qacc;
}
const real peant = ammmv.get_real(AMMMV_PEANT);
const real peant = nonamm ? ZERO : ammmv.get_real(AMMMV_PEANT);
if (resamm > ZERO && peant > ZERO)
{
const real qant = calc_quota(mov_val_amm(tmv), peant, resamm, per_eff, &rel);
@ -1336,10 +1342,11 @@ void TCespite::calc_perc(TRelation& rel, const TRectype& tmv, const TRectype& tm
{
// Calcolare quota ammortamento normale
const real valamm = mov_val_amm(tmv);
const real penor = ammmv.get_real(AMMMV_PENOR); // Attenzione: usare PENOR, non PNOR!
const real penor = nonamm ? ZERO : ammmv.get_real(AMMMV_PENOR); // Attenzione: usare PENOR, non PNOR!
real per_eff;
const real qnor = calc_quota(valamm, penor, resamm, per_eff, &rel);
ammmv.put(AMMMV_QNOR, qnor);
ammmv.put(AMMMV_QNOR, qnor);
ammmv.put(AMMMV_PENOR, per_eff);
// Calcolare quote perse
@ -1361,9 +1368,10 @@ void TCespite::calc_perc(TRelation& rel, const TRectype& tmv, const TRectype& tm
// Calcolare quota ammortamento accelerato
if (resamm > ZERO && ammmv.get_real(AMMMV_PEACC) > ZERO && ammmv.get_real(AMMMV_QPERSE) == ZERO)
{
const real peacc = ammmv.get_real(AMMMV_PEACC);
const real peacc = nonamm ? ZERO : ammmv.get_real(AMMMV_PEACC);
const real qacc = calc_quota(valamm, peacc, resamm, per_eff, &rel);
ammmv.put(AMMMV_QACC, qacc);
ammmv.put(AMMMV_QACC, qacc);
ammmv.put(AMMMV_PEACC, per_eff);
if (_tipo_sit == 1 && get_int(CESPI_USOPROM) > 1)
agg_quota(valamm, ammmv, "QACC", false);
@ -1380,11 +1388,13 @@ void TCespite::calc_perc(TRelation& rel, const TRectype& tmv, const TRectype& tm
resamm -= ammmv.get_real(AMMMV_QACC);
if (tipo() == tc_materiale && _salini.get_int(SALCE_ANNIAMM) <= 2)
{
const real peant = ammmv.get_real(AMMMV_PEANT);
const real peant = nonamm ? ZERO : ammmv.get_real(AMMMV_PEANT);
if (resamm > ZERO && peant > ZERO && ammmv.get_real(AMMMV_QPERSE) == ZERO)
{
const real qant = calc_quota(valamm, peant, resamm, per_eff, &rel);
ammmv.put(AMMMV_QANT, qant);
ammmv.put(AMMMV_QANT, qant);
ammmv.put(AMMMV_PEANT, per_eff);
if (_tipo_sit == 1 && get_int(CESPI_USOPROM) > 1)
agg_quota(valamm, ammmv, "QANT", false);
@ -1737,7 +1747,8 @@ void TCespite::calc_amm_residui(bool is_valid)
const bool is_forz = fzper || fzquo; // Forzatura sul cespite
const TTipo_cespite tc = tipo();
const bool leasing = get_bool(CESPI_LEASING);
const int anniric = get_int(CESPI_ANNIRIC);
const int anniric = get_int(CESPI_ANNIRIC);
const bool nonamm = get_bool(CESPI_NONAMM);
if ((tc == tc_materiale && !leasing) || (tc == tc_immateriale && anniric <= 0) || is_forz)
{
@ -1794,10 +1805,11 @@ void TCespite::calc_amm_residui(bool is_valid)
if (resamm > ZERO)
{
const real valamm = val_amm();
const real pnor = _ammpro.get_real(AMMCE_PNOR);
const real pnor = nonamm ? ZERO : _ammpro.get_real(AMMCE_PNOR);
real per_eff;
const real qnor = calc_quota(valamm, pnor, resamm, per_eff);
_ammpro.put(AMMCE_QNOR, qnor);
_ammpro.put(AMMCE_QNOR, qnor);
ammpro_put_perc(AMMCE_PNOR, per_eff);
resamm -= qnor;
}
@ -1807,7 +1819,8 @@ void TCespite::calc_amm_residui(bool is_valid)
AMMCE_QPERSE, AMMCE_FPRIVATO, AMMCE_QPPRIVATE, NULL);
}
const real pacc = _ammpro.get_real(AMMCE_PACC);
const real pacc = nonamm ? ZERO : _ammpro.get_real(AMMCE_PACC);
if (resamm > ZERO && pacc > ZERO)
{
const real valamm = val_amm();
@ -1820,7 +1833,8 @@ void TCespite::calc_amm_residui(bool is_valid)
else
zero_fields(_ammpro, AMMCE_QACC, AMMCE_PACC, NULL);
const real pant = _ammpro.get_real(AMMCE_PANT);
const real pant = nonamm ? ZERO : _ammpro.get_real(AMMCE_PANT);
if (resamm > ZERO && pant > ZERO)
{
const real valamm = val_amm();
@ -1836,22 +1850,25 @@ void TCespite::calc_amm_residui(bool is_valid)
else // Nessuna forzatura
{
// Leggo percentuali teoriche da AMMINI
_ammpro.put(AMMCE_PNOR, ammini_get_real(AMMCE_PNOR));
_ammpro.put(AMMCE_PANT, ammini_get_real(AMMCE_PANT));
_ammpro.put(AMMCE_PACC, ammini_get_real(AMMCE_PACC));
_ammpro.put(AMMCE_PNOR, nonamm ? ZERO : ammini_get_real(AMMCE_PNOR));
_ammpro.put(AMMCE_PANT, nonamm ? ZERO : ammini_get_real(AMMCE_PANT));
_ammpro.put(AMMCE_PACC, nonamm ? ZERO : ammini_get_real(AMMCE_PACC));
// Percentuale minima quote perse
real pmat = get_real(CESPI_PMAT) / 2.0;
real pmat = nonamm ? ZERO : get_real(CESPI_PMAT) / 2.0;
const TDate dtfunz = get_date(CESPI_DTFUNZ);
if (tc == tc_materiale && _salini.get_int(SALCE_ANNIAMM) == 0 &&
if (tc == tc_materiale && _salini.get_int(SALCE_ANNIAMM) == 0 &&
!cce.professionista() && dtfunz >= inies)
{
// Calcolo il valore di un singolo elemento per vedere se e' inferiore al milione di lire
real vam1 = val_amm();
if (vam1 > ZERO)
if (vam1 > ZERO)
{
const real numele = _salpro.get_real(SALCE_NUMELE);
if (numele > ZERO)
if (numele > ZERO)
vam1 /= numele;
}
if (ammini_get_bool(AMMCE_CSCEN) && vam1 < un_milione())
@ -1867,9 +1884,9 @@ void TCespite::calc_amm_residui(bool is_valid)
const real durata_esercizio = fines - inies + 1;
const real giorni_possesso = fines - dtfunz + 1;
const real coeff = giorni_possesso / durata_esercizio;
ammpro_put_perc(AMMCE_PNOR, ammini_get_real(AMMCE_PNOR)*coeff);
ammpro_put_perc(AMMCE_PANT, ammini_get_real(AMMCE_PANT)*coeff);
ammpro_put_perc(AMMCE_PACC, ammini_get_real(AMMCE_PACC)*coeff);
ammpro_put_perc(AMMCE_PNOR, nonamm ? ZERO : ammini_get_real(AMMCE_PNOR)*coeff);
ammpro_put_perc(AMMCE_PANT, nonamm ? ZERO : ammini_get_real(AMMCE_PANT)*coeff);
ammpro_put_perc(AMMCE_PACC, nonamm ? ZERO : ammini_get_real(AMMCE_PACC)*coeff);
pmat *= coeff; pmat.round(3);
_ammpro.put(AMMCE_MSG06, "X"); // Ammortamento proporzionale nel primo esercizio
}
@ -1877,9 +1894,9 @@ void TCespite::calc_amm_residui(bool is_valid)
{
if (!cce.primo_ammortamento_100(dtfunz, _ammpro.get_int(AMMCE_TPAMM), auto_o_moto()))
{
ammpro_put_perc(AMMCE_PNOR, ammini_get_real(AMMCE_PNOR)/2.0);
ammpro_put_perc(AMMCE_PANT, ammini_get_real(AMMCE_PANT)/2.0);
ammpro_put_perc(AMMCE_PACC, ammini_get_real(AMMCE_PACC)/2.0);
ammpro_put_perc(AMMCE_PNOR, nonamm ? ZERO : ammini_get_real(AMMCE_PNOR)/2.0);
ammpro_put_perc(AMMCE_PANT, nonamm ? ZERO : ammini_get_real(AMMCE_PANT)/2.0);
ammpro_put_perc(AMMCE_PACC, nonamm ? ZERO : ammini_get_real(AMMCE_PACC)/2.0);
pmat /= 2.0; pmat.round(3);
_ammpro.put(AMMCE_MSG01, "X"); // Ammortamento al 40-50-80-90% nel primo esercizio
}
@ -1891,10 +1908,11 @@ void TCespite::calc_amm_residui(bool is_valid)
if (resamm > ZERO)
{
const real valamm = val_amm();
const real pnor = _ammpro.get_real(AMMCE_PNOR);
const real pnor = nonamm ? ZERO : _ammpro.get_real(AMMCE_PNOR);
real per_eff;
const real qnor = calc_quota(valamm, pnor, resamm, per_eff);
_ammpro.put(AMMCE_QNOR, qnor);
_ammpro.put(AMMCE_QNOR, qnor);
ammpro_put_perc(AMMCE_PNOR, per_eff);
// non piu' previste dalla legge tolto nel 2021
@ -1908,11 +1926,13 @@ void TCespite::calc_amm_residui(bool is_valid)
zero_fields(_ammpro, AMMCE_FPRIVATO, AMMCE_QPPRIVATE, NULL);
resamm -= qnor + _ammpro.get_real(AMMCE_FPRIVATO);
const real pacc = _ammpro.get_real(AMMCE_PACC);
if (resamm > ZERO && pacc > ZERO) // non piu' previste dalla legge tolto nel 2021 && quote_perse.is_zero())
const real pacc = nonamm ? ZERO : _ammpro.get_real(AMMCE_PACC);
if (resamm > ZERO && pacc > ZERO) // non piu' previste dalla legge tolto nel 2021 && quote_perse.is_zero())
{
const real qacc = calc_quota(val_amm(), pacc, resamm, per_eff);
_ammpro.put(AMMCE_QACC, qacc);
_ammpro.put(AMMCE_QACC, qacc);
ammpro_put_perc(AMMCE_PACC, per_eff);
if (_tipo_sit == 1 && uso_promiscuo > 1)
agg_quota(valamm, _ammpro, AMMCE_QACC, false);
@ -1930,8 +1950,9 @@ void TCespite::calc_amm_residui(bool is_valid)
}
else
{
const real pant = _ammpro.get_real(AMMCE_PANT);
if (resamm > ZERO && pant > ZERO)
const real pant = nonamm ? ZERO : _ammpro.get_real(AMMCE_PANT);
if (resamm > ZERO && pant > ZERO)
{
const real qant = calc_quota(val_amm(), pant, resamm, per_eff);
_ammpro.put(AMMCE_QANT, qant);
@ -2101,7 +2122,7 @@ bool TCespite::calc_amm(int tipo_sit, const TDate& data_limite,
#ifdef DBG
if (atol(idcespite) == 441)
if (atol(idcespite) == 264)
int i = 1; // Put your breakpoint here
#endif

2
src/ce/ce2101.h
View File

@ -62,7 +62,7 @@ protected:
void elabora_mov_neg(TRelation& rel, TRectype& tmv, TRectype& tmvam);
real calc_quota(const real& valamm, const real& perric, const real& residuo,
real& pereff, TRelation* mov = NULL);
real& pereff, TRelation* mov = nullptr);
real calc_quote_perse(const real& valamm, const real& peric, const real& residuo,
const real& quotamm, bool mov_vend, const TDate& dtmov);
void agg_quota(const real& valamm, TRectype& rec, const char* field, bool calcq);

13
src/ce/ce3100.cpp
View File

@ -770,12 +770,13 @@ void TRegistro_cespiti::print_valorifinali()
const int usoprom = _form->cursor()->curr().get_int(CESPI_USOPROM);
switch (usoprom)
{
case 2: key=TR("Ammortamento ridotto al 50% per bene in uso promiscuo"); break;
case 3: key=TR("Ammortamento ridotto all'80% per bene in uso promiscuo agenti/rappresentanti"); break;
case 4: key=TR("Ammortamento ridotto al 40% per auto in uso promiscuo"); break;
case 5: key=TR("Ammortamento ridotto al 90% per auto in fringe benefit"); break;
case 6: key=TR("Ammortamento ridotto all'80% per cellulari in uso promiscuo"); break;
default: break;
case 2: key = TR("Ammortamento ridotto al 50% per bene in uso promiscuo"); break;
case 3: key = TR("Ammortamento ridotto all'80% per bene in uso promiscuo agenti/rappresentanti"); break;
case 4: key = TR("Ammortamento ridotto al 40% per auto in uso promiscuo"); break;
case 5: key = TR("Ammortamento ridotto al 90% per auto in fringe benefit"); break;
case 6: key = TR("Ammortamento ridotto all'80% per cellulari in uso promiscuo"); break;
case 9: key = TR("Ammortamento ridotto al 90% per auto in fringe benefit"); break;
default: break;
}
section.find_field(FR_FE_MSG3).set(key);
section.find_field(FR_FE_MSG3).enable(msg);

1
src/ce/cespi.h
View File

@ -32,3 +32,4 @@
#define CESPI_IDIMP "IDIMP"
#define CESPI_PERCIMP "PERCIMP"
#define CESPI_FABBR06 "FABBR06"
#define CESPI_NONAMM "NONAMM"

2
src/ve01/ve0100.cpp
View File

@ -618,7 +618,7 @@ int TMotore_application::rewrite( const TMask& m ) // C 90
TDocumento_mask& mask = (TDocumento_mask&) m;
int err = NOERR;
if (!d.bloccato())
if (supervisor() || !d.bloccato())
{
mask.mask2doc();
d = ((TDocumento_mask&)m).doc(); // Trasferisce il documento da maschera a record

16
src/ve01/velib03.cpp
View File

@ -1713,9 +1713,18 @@ int TDocumento::write_rewrite(TBaseisamfile & f, bool re) const
if (!dcons.ok())
r.put(RDOC_DATACONS, datacons);
}
if (r.get(RDOC_CODCMS).blank()) r.put(RDOC_CODCMS, codcms);
if (r.get(RDOC_FASCMS).blank()) r.put(RDOC_FASCMS, fascms);
if (r.get(RDOC_CODCOSTO).blank()) r.put(RDOC_CODCOSTO, codcos);
if (r.is_descrizione())
{
r.put(RDOC_CODCMS, codcms);
r.put(RDOC_FASCMS, fascms);
r.put(RDOC_CODCOSTO, codcos);
}
else
{
if (r.get(RDOC_CODCMS).blank()) r.put(RDOC_CODCMS, codcms);
if (r.get(RDOC_FASCMS).blank()) r.put(RDOC_FASCMS, fascms);
if (r.get(RDOC_CODCOSTO).blank()) r.put(RDOC_CODCOSTO, codcos);
}
}
if (is_ordine())
((TDocumento *)this)->put(DOC_DOCEVASO, docevaso); // Tutte le righe evase -> doc evaso
@ -3237,6 +3246,7 @@ TRecord_array& TDocumento::body(int logicnum) const
{
TRectype& rec = r[i];
TRecfield dcons(rec, RDOC_DATACONS);
if (order && datacons == dcons)
dcons = "";
if (can_reset_ca)

7
src/ve01/velib06.cpp
View File

@ -1177,12 +1177,14 @@ bool TDocumento_mask::on_key(KEY key)
if (key == K_SHIFT + K_F12)
{
TRelation r(LF_DOC);
r.curr()=doc();
bool can_save = !doc().bloccato() && !doc().chiuso();
if (can_save && ::user_can_write(&r))
if (supervisor() || (can_save && ::user_can_write(&r)))
{
TMask_field& stato = field(F_STATO);
stato.enable();
enable(DLG_SAVEREC);
enable(DLG_DELREC);
@ -4472,12 +4474,15 @@ bool tip_filter(const TRelation* r)
{
if (__codnum.blank())
return true;
const TCodice_numerazione & cod_num = cached_numerazione(__codnum);
const TString4 tipo = r->curr().get("CODTAB");
const int last = cod_num.ntipi_doc();
for (int i = 0; i < last; i++ )
{
const TString& curtipo = cod_num.tipo_doc(i);
if (curtipo == tipo && is_tipodoc_ok(curtipo))
return true;
}