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

Patch level : 12.0 920

Browse Source 
Files correlati     : fp0.exe
Commento            : Corretta esportazione informazioni dichiarazioni d'intento
This commit is contained in:
Simone Palacino 2020-01-14 14:35:12 +01:00
parent 0d9137b690
commit 5e2122e112
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/fp/fplib01.cpp
View File

@ -18,6 +18,8 @@
#include "../cg/cfban.h"
#include <modaut.h>
#include <urldefid.h>
#include "../li/letint.h"
bool set_connection(SSimple_query& s)
{
bool ok = true;
@ -2033,12 +2035,29 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
paf1800f.set("PI_NUMEROLINEA", riga);
reset(paf3000f);
paf3000f.set("PT_RIFNUMLINEA", riga);
paf3000f.set("PT_COMMENTO", descrizione(riga_es));
paf3000f.set("PT_COMMENTO", "Informazioni documento");
paf1800f.set("PI_QUANTITA", UNO);
paf1800f.set("PI_PREZZOUNIT", ZERO);
paf1800f.set("PI_PRZTOTALE", ZERO);
//descrizione(riga_es);
set_IVA(_codivadefault, paf1800f);
ok &= insert(paf1800f) && insert(paf3000f);
TString dichiar;
ok &= insert(paf1800f) && insert(paf3000f);
TToken_string le_plafs(doc.get("PLAFOND"), ',');
for (int i = 0; i < le_plafs.items(); i++)
{
static TToken_string this_plaf; this_plaf.cut(0) << le_plafs.get(i);
static TString key; key.cut(0) << this_plaf.get(0) << "|" << this_plaf.get(1);
TRectype plaf = cache().get(LF_LETINT, key);
dichiar.cut(0) << "N. di protocollo di invio: " << plaf.get(LETINT_PROTINTF) << "-" << plaf.get(LETINT_PROTINTS);
reset(paf2100f);
paf2100f.set("PK_KEYNLINEA", static_cast<long>(riga));
paf2100f.set("PK_KEYNLINAR", _idx_adg_doc_row++);
paf2100f.set("PK_TIPODATO", "Dich.Inten");
paf2100f.set("PK_RIFDATO", dichiar);
ok &= paf2100f.insert();
}
riga++;
}
}