Patch level : 12.0 912

Files correlati     : cg0200a.msk f17.dir f17.trr ve0.exe ve1.exe ve5.exe ve6.exe
Commento            :

Agguinta la data di inizio esenzione CONAI
This commit is contained in:
Alessandro Bonazzi 2019-12-18 21:30:03 +01:00
parent f1e8d3f8d0
commit 7780eb5e14
2 changed files with 13 additions and 6 deletions

View File

@ -3057,8 +3057,10 @@ void TDocumento::update_conai()
const bool cli_add_conai = cfven.get_bool("ADDCONAI");
const TDate datadoc = get(DOC_DATADOC);
const TDate dataes = cfven.get(CFV_DATAECONAI);
const TDate dataies = cfven.get(CFV_DATAICONAI);
const TDate dataees = cfven.get(CFV_DATAECONAI);
bool esponi_esenti = ini_get_bool(CONFIG_DITTA, "ve", "ESPONIESENTI");
real perc_esenz;
// Come prima cosa mi calcolo le qta conai
update_conai_qta();
@ -3082,10 +3084,9 @@ void TDocumento::update_conai()
{
if (cli_add_conai)
{
real perc_esenz = cfven.get_real(get_cf_esenz(sottocat.left(2)));
if ((datadoc >= dataies) && ((!dataees.ok()) || (datadoc <= dataees)))
perc_esenz = cfven.get_real(get_cf_esenz(sottocat.left(2)));
real qta = (real &) _conaiqta[sottocat];
if (dataes.ok() && datadoc > dataes)
perc_esenz = ZERO;
const bool cli_esente = esponi_esenti && (perc_esenz >= CENTO);
if (!cli_esente && !perc_esenz.is_zero())
qta = qta * (CENTO - perc_esenz) / CENTO; // More precise
@ -3128,7 +3129,9 @@ void TDocumento::update_conai()
error_box(sp.err_msg());
// Aggiungo la spesa
const real perc_esenz = cfven.get_real(get_cf_esenz(cod_sottocat.left(2)));
if ((datadoc >= dataies) && ((!dataees.ok()) || (datadoc <= dataees)))
perc_esenz = cfven.get_real(get_cf_esenz(cod_sottocat.left(2)));
const bool cli_esente = (esponi_esenti) && (perc_esenz >= CENTO);
const real qta_lorda = *((real *)item);
real qta = qta_lorda;
@ -3153,7 +3156,7 @@ void TDocumento::update_conai()
descrizione.cut(0) << sp.descrizione() << " (" << cod_sottocat << ")";
riga.put(RDOC_DESCR, descrizione);
riga.put(RDOC_QTA, qta);
riga.put(RDOC_PERESCONAI, perc_esenz);
// Mi salvo anche la sottocategoria in questione
riga.put(RDOC_TIPOCON, cod_sottocat);

View File

@ -39,11 +39,15 @@ BEGIN
FIELD CODTAB[3,4]
KEY 1
USE &CSC
JOIN &SCC ALIAS 201@ INTO CODTAB==S1
FLAGS "Z"
INPUT CODTAB[1,2] SCC_VCATEGORIA
INPUT CODTAB[3,4] SCC_VCODICE
DISPLAY "Vecchia categoria" CODTAB[1,2]
DISPLAY "Codice@8" CODTAB[3,4]
DISPLAY "Nuova categoria" S1[1,2]
DISPLAY "Codice@8" S1[3,4]
DISPLAY "Descrizione@50" 201@->S0
OUTPUT SCC_VCATEGORIA CODTAB[1,2]
OUTPUT SCC_VCODICE CODTAB[3,4]
CHECKTYPE REQUIRED