Patch level : 12.0 332
Files correlati : Patch 332Patch level : 12.0 332 Files correlati : ve0.exe ve6.exe Aggiunte le spese di trasporto all'imponibile intra suddivise per nomenclatura. La tabella spese ha ora una tipologia di spesa esplicita ( Altro, Incasso, Rimborsi, Trasporto). git-svn-id: svn://10.65.10.50/branches/R_10_00@23539 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
e8e3b4701e
commit
f5d8badd2b
@ -3807,7 +3807,30 @@ error_type TContabilizzazione::write_intra(TDocumento& doc)
|
||||
// Effettuando il raggruppamento in un comodo TAssoc_array
|
||||
TToken_string key;
|
||||
int numrig = 1;
|
||||
FOR_EACH_PHYSICAL_RDOC(doc, i, prdoc) if (prdoc->is_articolo())
|
||||
const real spese = doc.spese(TIPO_SPESE_TRASPORTO);
|
||||
real speselit = spese;
|
||||
|
||||
if (is_val)
|
||||
{
|
||||
TCurrency_documento sp(speselit, doc);
|
||||
sp.change_to_firm_val();
|
||||
speselit = sp.get_num();
|
||||
}
|
||||
|
||||
TGeneric_distrib d(spese, doc.decimals());
|
||||
TGeneric_distrib dlit(speselit, TCurrency::get_firm_dec());
|
||||
|
||||
FOR_EACH_PHYSICAL_RDOC(doc, i, prdoc0) if (prdoc0->is_articolo())
|
||||
{
|
||||
const TRiga_documento& rr = doc[i];
|
||||
TCurrency_documento imp_val(rr.TVariable_rectype::exist("VALINTRA") ? rr.get_real("VALINTRA") : rr.importo(true, false), doc);
|
||||
TCurrency_documento imp(imp_val); imp.change_to_firm_val();
|
||||
|
||||
d.add(imp_val.get_num());
|
||||
dlit.add(imp.get_num());
|
||||
}
|
||||
|
||||
FOR_EACH_PHYSICAL_RDOC(doc, i, prdoc) if (prdoc->is_articolo())
|
||||
{
|
||||
const TRiga_documento& rr = doc[i];
|
||||
const TRectype& rec_anamag = cchh.get(LF_ANAMAG, rr.get(RDOC_CODARTMAG));
|
||||
@ -3881,7 +3904,11 @@ error_type TContabilizzazione::write_intra(TDocumento& doc)
|
||||
const real qta = rr.get_real(RDOC_QTA);
|
||||
TCurrency_documento imp_val(rr.TVariable_rectype::exist("VALINTRA") ? rr.get_real("VALINTRA") : rr.importo(true, false), doc);
|
||||
TCurrency_documento imp(imp_val); imp.change_to_firm_val();
|
||||
imp_val.change_value(codvali, cambioi);
|
||||
|
||||
imp_val += d.get();
|
||||
imp += dlit.get();
|
||||
imp_val.change_value(codvali, cambioi);
|
||||
|
||||
real ammeuro = rc->get_real("AMMLIRE");
|
||||
real ammvaluta = rc->get_real("AMMVALUTA");
|
||||
real massakg = rc->get_real("MASSAKG");
|
||||
@ -3963,37 +3990,16 @@ error_type TContabilizzazione::write_intra(TDocumento& doc)
|
||||
totale_righe += imp.get_num();
|
||||
}
|
||||
|
||||
if (nota_credito)
|
||||
totale_righe -= doc.spese(TIPO_SPESE_TRASPORTO);
|
||||
else
|
||||
totale_righe += doc.spese(TIPO_SPESE_TRASPORTO);
|
||||
|
||||
if (_error == no_error)
|
||||
{
|
||||
TGeneric_distrib d(doc.spese(TIPO_SPESE_TRASPORTO));
|
||||
TRectype* rc;
|
||||
|
||||
for(rc = (TRectype*)righe.first_item(); rc != NULL; rc = (TRectype*)righe.succ_item())
|
||||
d.add(is_val ? rc->get_real("AMMVALUTA") : rc->get_real("AMMLIRE"));
|
||||
// Copia il contenuto dell'assoc nel record array
|
||||
rc = new TRectype(LF_RINTRA);
|
||||
rc->put("NUMREG", numreg);
|
||||
rintra.set_key(rc);
|
||||
for(rc = (TRectype*)righe.first_item(); rc != NULL; rc = (TRectype*)righe.succ_item())
|
||||
{
|
||||
real amm = is_val ? rc->get_real("AMMVALUTA") : rc->get_real("AMMLIRE");
|
||||
|
||||
amm += d.get();
|
||||
rc->put(is_val ? "AMMVALUTA" : "AMMLIRE", amm);
|
||||
if (is_val)
|
||||
{
|
||||
TCurrency_documento imp(amm, doc);
|
||||
|
||||
imp.change_to_firm_val();
|
||||
rc->put("AMMLIRE", imp.get_num());
|
||||
}
|
||||
rintra.add_row(*rc); // Devo aggiungere una copia della riga dell'assoc array!
|
||||
}
|
||||
// Testa (de coccio...)
|
||||
intra.zero();
|
||||
intra.put("NUMREG", numreg);
|
||||
|
Loading…
x
Reference in New Issue
Block a user