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:
parent
f1e8d3f8d0
commit
7780eb5e14
@ -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);
|
||||
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user