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

git-svn-id: svn://10.65.10.50/branches/R_10_00@23118 c028cbd2-c16b-5b4b-a496-9718f37d4682

Browse Source
This commit is contained in:
guy 2015-06-17 09:41:18 +00:00
parent 794d88b1a3
commit 84eca849b1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pa/pa0100.cpp
View File

@ -1182,10 +1182,10 @@ bool TDoc2Paf::elabora(TDocumentoEsteso& doc)
if (rdoc->is_merce())
{
paf1800f.set("PI_UNITAMISURA", rdoc->get(RDOC_UMQTA));
const real qta = rdoc->quantita();
const real qta = rdoc->get(RDOC_QTA);
if (qta.is_zero())
{
TString msg; msg.format("La riga merce %d ha quantità nulla (campo %s)", riga, (const char*)rdoc->field_qta());
TString msg; msg.format("La riga merce %d ha quantità nulla", riga);
log(1, msg);
}
if (qta >= ZERO)
@ -1261,7 +1261,7 @@ bool TDoc2Paf::elabora(TDocumentoEsteso& doc)
paf1000f.set("P0_RIFNUMLINEA", (long)r);
paf1000f.set("P0_IDDOC", a._numdoc);
paf1000f.set("P0_DATADOC", a._datadoc);
paf1000f.set("P0_COMMCONVENZ", com);
paf1000f.set("P0_COMMCONVENZ", com);
paf1000f.set("P0_CODCUP", cup);
paf1000f.set("P0_CODCIG", cig);
paf1000f.set("P0_GESTIONE", "D");
@ -1277,7 +1277,7 @@ bool TDoc2Paf::elabora(TDocumentoEsteso& doc)
if (sp.is_tipo())
{
paf1800f.set("PI_UNITAMISURA", rdoc->get(RDOC_UMQTA));
qta = rdoc->quantita();
qta = rdoc->get_real(RDOC_QTA);
if (qta.is_zero())
{
TString msg; msg.format("La riga spese a quantità %d ha quantità nulla (campo %s)", riga, (const char*)rdoc->field_qta());
@ -1303,7 +1303,7 @@ bool TDoc2Paf::elabora(TDocumentoEsteso& doc)
if (rdoc->is_prestazione())
{
paf1800f.set("PI_UNITAMISURA", rdoc->get(RDOC_UMQTA));
real qta = rdoc->quantita(); if (qta.is_zero()) qta = UNO;
real qta = rdoc->get(RDOC_QTA); if (qta.is_zero()) qta = UNO;
paf1800f.set("PI_QUANTITA", qta);
paf1800f.set("PI_PREZZOUNIT", rdoc->prezzo(false, false));
paf1800f.set("PI_PRZTOTALE", rdoc->importo(true, false));