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

Patch level : 10.0 nopatch

Browse Source 
Files correlati     : ps0713.exe
Ricompilazione Demo : [ ]
Commento

Importazione fatture ATS


git-svn-id: svn://10.65.10.50/branches/R_10_00@20834 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-09-08 15:44:26 +00:00
parent 1579bf806d
commit 3a2cf9e61b
1 changed files with 24 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
ps/ps0713300.cpp
View File

@ -97,34 +97,37 @@ bool TImporta_fatacq_app::get_doc(const TFilename& file, const TMask & m)
if (!pi.addstatus(1))
break;
TRiga_documento & row = doc.new_row("06");
row.put(RDOC_CODART, p.codice());
row.put(RDOC_CHECKED, "X");
TString16 tmp = s.get(1).as_string();
tmp.strip(".");
tmp.replace(',', '.');
real imp(tmp); imp.round(doc.decimals());
if (imp != ZERO)
{
TRiga_documento & row = doc.new_row("06");
row.put(RDOC_CODART, p.codice());
row.put(RDOC_CHECKED, "X");
row.put(RDOC_QTA, 1);
row.put(RDOC_UMQTA, p.um());
row.put(RDOC_PREZZO, imp),
row.put(RDOC_CODIVA, p.cod_iva());
const TString16 codcom = s.get(0).as_string();
TCommessa cms(codcom);
TCommessa_string ankey = cms.cmsstr();
TString descr;
descr << " Id. Lavoro " << codcom;
row.put(RDOC_QTA, 1);
row.put(RDOC_UMQTA, p.um());
row.put(RDOC_PREZZO, imp),
row.put(RDOC_CODIVA, p.cod_iva());
const TString16 codcom = s.get(0).as_string();
TCommessa cms(codcom);
TCommessa_string ankey = cms.cmsstr();
TString descr;
descr << " Id. Lavoro " << codcom;
row.put(RDOC_DESCR, descr);
row.put(RDOC_CODCMS, codcom);
row.put(RDOC_QTAGG1, s.get(2).as_int());
row.put(RDOC_QTAGG2, s.get(3).as_int());
row.put(RDOC_QTAGG3, s.get(4).as_int());
row.put(RDOC_DESCR, descr);
row.put(RDOC_CODCMS, codcom);
row.put(RDOC_QTAGG1, s.get(2).as_int());
row.put(RDOC_QTAGG2, s.get(3).as_int());
row.put(RDOC_QTAGG3, s.get(4).as_int());
}
}
TString16 codsp = m.get(F_CODSP1);
real perc = m.get(F_PERCSP1);