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

Patch level : 12.0 1152

Browse Source 
Files correlati     : fp0.exe

Commento:
Nell'invio fatture se c'e una riga vuota non viene inviata, ma nei campi P*_RIFNUMLINEA (tutti i campi di quel tipo) veniva messo il numero di riga documento e non il progressivo riga inviata.
Aggiunta una riga per stornare l'imponibile degli omaggi con rivalsa
This commit is contained in:
Alessandro Bonazzi 2022-05-25 14:18:37 +02:00
parent e4d600417a
commit 5305e01b4b
1 changed files with 33 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/fp/fplib01.cpp
View File

@ -2367,8 +2367,39 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf1800f.set("PI_PRZTOTALE", converti_prezzo(rdoc->prezzo(false, false) * rdoc->get_real(RDOC_QTA)));
TRiepilogo_agg& riepilogo_agg = _riepilogo_agg[rdoc->iva().codice()];
riepilogo_agg.imponibile += rdoc->imponibile_omaggio(2);
// Non metto l'imposta, gi presente nei totali
//riepilogo_agg.imposta += rdoc->iva_omaggio(8, 2);
paf1800f.set("PI_GESTIONE", stato_paf());
ok &= insert(paf1800f);
reset(paf1800f);
paf1800f.set("PI_NUMEROLINEA", ++riga);
set_qta_prezzo(paf1800f, rdoc);
paf1800f.set("PI_UNITAMISURA", rdoc->get(RDOC_UMQTA));
paf1800f.set("PI_QUANTITA", rdoc->get_real(RDOC_QTA).string(0));
paf1800f.set("PI_PREZZOUNIT", converti_prezzo(-rdoc->prezzo(false, false)));
paf1800f.set("PI_PRZTOTALE", converti_prezzo(-rdoc->prezzo(false, false) * rdoc->get_real(RDOC_QTA)));
paf1800f.set("PI_ALIQUOTAIVA", "0.00");
paf1800f.set("PI_NATURA", "N2.2");
ok &= insert(paf2100f);
reset(paf2100f);
paf2100f.set("PK_KEYNLINEA", riga);
paf2100f.set("PK_KEYNLINAR", _idx_adg_doc_row++);
paf2100f.set("PK_TIPODATO", "AswCodIva");
paf2100f.set("PK_RIFDATO", "Fuori campo IVA");
ok &= insert(paf2100f);
reset(paf2100f);
paf2100f.set("PK_KEYNLINEA", riga);
paf2100f.set("PK_KEYNLINAR", _idx_adg_doc_row++);
paf2100f.set("PK_TIPODATO", "AswTRiga");
paf2100f.set("PK_RIFDATO", "Storno omaggio");
ok &= insert(paf2100f);
reset(paf2100f);
paf2100f.set("PK_KEYNLINEA", riga);
paf2100f.set("PK_KEYNLINAR", _idx_adg_doc_row++);
paf2100f.set("PK_TIPODATO", "AswRifRiga");
TString descstorno("Storno omaggio ");
descstorno << riga - 1;
paf2100f.set("PK_RIFDATO", descstorno);
}
else
{