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

Patch level : 12.0 1076

Browse Source 
Files correlati     : fp0.exe

Commento        :
Sistemato campo Data nel PAF1600F

Interno:
Riferimento LIG Centro Sud
This commit is contained in:
smen 2021-09-07 18:24:43 +02:00
parent db28017ec8
commit 74a98780d5
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/fp/fplib01.cpp
View File

@ -1819,7 +1819,10 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
if (riftesta)
{
TString rifs = doc.get(DOC_NOTE);
const int posret = rifs.find('\n');
if (posret > 0)
rifs.cut(posret);
if (rifs.len() > 25 && rifs[25] == ' ')
{
temp = rifs;
@ -1841,12 +1844,15 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
{
TToken_string rif(rifs.left(pos), ' ');
// <DatiDDT>
// <DatiDDT> //
reset(paf1600f);
temp = rif.get();
paf1600f.set("PF_NUMDDDT", temp);
temp = rif.get();
paf1600f.set("PF_DATADDT", temp);
temp = rif.get();
TDate dataddt(atoi(temp.left(2)), atoi(temp.mid(3,2)),atoi( temp.right(2)));
paf1600f.set("PF_DATADDT", dataddt);
paf1600f.set("PF_GESTIONE", "D");
paf1600f.set("PF_RIFNUMLINEA", numlinea++);
ok &= insert(paf1600f);