From 5305e01b4b0544df82df52c9b362eff8afcbe2ab Mon Sep 17 00:00:00 2001 From: Alessandro Bonazzi Date: Wed, 25 May 2022 14:18:37 +0200 Subject: [PATCH] Patch level : 12.0 1152 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 --- src/fp/fplib01.cpp | 35 +++++++++++++++++++++++++++++++++-- 1 file changed, 33 insertions(+), 2 deletions(-) diff --git a/src/fp/fplib01.cpp b/src/fp/fplib01.cpp index 40c9b9226..4a6379428 100644 --- a/src/fp/fplib01.cpp +++ b/src/fp/fplib01.cpp @@ -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 {