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.
This commit is contained in:
Alessandro Bonazzi 2022-05-22 23:18:36 +02:00
parent 23c923c7aa
commit 63a1458045
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/fp/fplib01.cpp
View File

@ -2224,11 +2224,6 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
} }
else else
set_IVA(*rdoc, paf1800f); set_IVA(*rdoc, paf1800f);
/*
const TDate data = doc.get(DOC_DATADOC);
paf1800f.set("PI_DTINIZIOPER", data);
paf1800f.set("PI_DTFINEPER", data);
*/
/* /*
* Ogni riga si pu rifare a un DDT/Ordine diverso, per questo devo inserire i dati da qua e non in testata * Ogni riga si pu rifare a un DDT/Ordine diverso, per questo devo inserire i dati da qua e non in testata
@ -2249,7 +2244,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
// <DatiDDT> // <DatiDDT>
reset(paf1600f); reset(paf1600f);
ddt_linee.set(r); ddt_linee.set(r);
paf1600f.set("PF_RIFNUMLINEA", static_cast<long>(r)); paf1600f.set("PF_RIFNUMLINEA", riga);
paf1600f.set("PF_NUMDDDT", a.numdoc()); paf1600f.set("PF_NUMDDDT", a.numdoc());
paf1600f.set("PF_DATADDT", a.datadoc()); paf1600f.set("PF_DATADDT", a.datadoc());
paf1600f.set("PF_GESTIONE", stato_paf()); paf1600f.set("PF_GESTIONE", stato_paf());
@ -2261,7 +2256,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
// <DatiOrdineAcquisto> // <DatiOrdineAcquisto>
paf1000f.set("P0_KEYHEADERFATT", _hfatt); paf1000f.set("P0_KEYHEADERFATT", _hfatt);
paf1000f.set("P0_KEYBODYFATT", _bfatt); paf1000f.set("P0_KEYBODYFATT", _bfatt);
paf1000f.set("P0_RIFNUMLINEA", static_cast<long>(r)); paf1000f.set("P0_RIFNUMLINEA", riga);
paf1000f.set("P0_IDDOC", a.numdoc()); paf1000f.set("P0_IDDOC", a.numdoc());
paf1000f.set("P0_DATADOC", a.datadoc()); paf1000f.set("P0_DATADOC", a.datadoc());
paf1000f.set("P0_COMMESSACONV", com); paf1000f.set("P0_COMMESSACONV", com);
@ -2352,14 +2347,14 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
if (rdoc->get(RDOC_QTA).is_zero()) if (rdoc->get(RDOC_QTA).is_zero())
{ {
TString msg; TString msg;
msg.format("La riga omaggi %d ha quantit nulla", riga); msg.format("La riga omaggi %d ha quantità nulla", riga);
_log.log(1, msg); _log.log(1, msg);
} }
paf1800f.set("PI_TIPOCESSPREST", "AB"); paf1800f.set("PI_TIPOCESSPREST", "AB");
set_qta_prezzo(paf1800f, rdoc); set_qta_prezzo(paf1800f, rdoc);
set_IVA(*rdoc, paf1800f); set_IVA(*rdoc, paf1800f);
reset(paf2100f); reset(paf2100f);
paf2100f.set("PK_KEYNLINEA", static_cast<long>(r)); paf2100f.set("PK_KEYNLINEA", riga);
paf2100f.set("PK_KEYNLINAR", _idx_adg_doc_row++); paf2100f.set("PK_KEYNLINAR", _idx_adg_doc_row++);
paf2100f.set("PK_TIPODATO", "AswTRiga"); paf2100f.set("PK_TIPODATO", "AswTRiga");
if (rdoc->get_bool(RDOC_ADDIVA)) if (rdoc->get_bool(RDOC_ADDIVA))
@ -2379,7 +2374,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
{ {
paf2100f.set("PK_RIFDATO", "Omaggio senza rivalsa"); paf2100f.set("PK_RIFDATO", "Omaggio senza rivalsa");
// Aggiungo uno sconto // Aggiungo uno sconto
paf2000f.set("PJ_KEYNLINEA", static_cast<long>(r)); paf2000f.set("PJ_KEYNLINEA", riga);
paf2000f.set("PJ_KEYNLINAR", 1L); paf2000f.set("PJ_KEYNLINAR", 1L);
paf2000f.set("PJ_TIPOSCONTO", "SC"); paf2000f.set("PJ_TIPOSCONTO", "SC");
// Applico uno sconto del 100% portando l'importo a zero // Applico uno sconto del 100% portando l'importo a zero
@ -2405,7 +2400,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
const real perc = str; const real perc = str;
if (!perc.is_zero()) if (!perc.is_zero())
{ {
paf2000f.set("PJ_KEYNLINEA", static_cast<long>(r)); paf2000f.set("PJ_KEYNLINEA", riga);
paf2000f.set("PJ_KEYNLINAR", ++nlin_sconto); paf2000f.set("PJ_KEYNLINAR", ++nlin_sconto);
if (perc > ZERO) if (perc > ZERO)
{ {