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

Patch level : 12.0 960

Browse Source 
Files correlati     : fp0.exe
Commento            : Aggiunta quantita' esenzione CONAI in fattura
This commit is contained in:
Simone Palacino 2020-05-07 16:20:57 +02:00
parent b61a2d5d18
commit c57d287fa2
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/fp/fplib01.cpp
View File

@ -1390,11 +1390,36 @@ bool TDoc_fp::export_info_articolo(TFPRiga_documento* rdoc, TPaf_record& paf1900
TString scat = rdoc->get(conai_sottocat_name(i));
TString msg_conai;
msg_conai << "Contributo CONAI " << conai_material(conai_str2class(scat)) << " (KG)";
msg_conai << "Contributo CONAI " << conai_material(conai_str2class(scat)) << " (Kg)";
paf2100f.set("PK_TIPODATO", "CONAI");
paf2100f.set("PK_RIFDATO", msg_conai);
paf2100f.set("PK_RIFNUMERO", rdoc->get_real(conai_peso_name(i)).string());
ok &= insert(paf2100f);
TLocalisamfile cfven(LF_CFVEN);
cfven.put("TIPOCF", "C");
cfven.put("CODCF", rdoc->doc().codcf());
cfven.read();
TString esen_field = conai_esenzione_name(conai_str2class(scat));
real perc_esenz = cfven.get_real(esen_field);
if (perc_esenz > ZERO)
{
reset(paf2100f);
paf2100f.set("PK_KEYNLINEA", static_cast<long>(riga_doc));
paf2100f.set("PK_KEYNLINAR", _idx_adg_doc_row++);
real qta = rdoc->calc_conai_qta(i);
qta = qta * perc_esenz / CENTO;
qta.round(2);
TString msg_esen; msg_esen << "Esenzione CONAI sul totale riga (Kg)";
paf2100f.set("PK_TIPODATO", "ESEN CONAI");
paf2100f.set("PK_RIFDATO", msg_esen);
paf2100f.set("PK_RIFNUMERO", qta);
ok &= insert(paf2100f);
}
}
}
return ok;