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

Patch level : 10.0 1164

Browse Source 
Files correlati     : ha2.exe
Ricompilazione Demo : [ ]
Commento            :
Corretto invio record sconti ad Esselunga


git-svn-id: svn://10.65.10.50/branches/R_10_00@22502 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2011-11-24 16:11:43 +00:00
parent d132aa9af8
commit ae155f5dbb
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ha/ha2200.cpp
View File

@ -610,12 +610,17 @@ void THardy_esselunga_fat::add_recs_dettaglio(TFatture_recordset& fat, TDocument
tipo_hardy = "E"; tipo_hardy = "E";
fat.set("TAX.CATIMP", tipo_hardy); fat.set("TAX.CATIMP", tipo_hardy);
// gestione sconto riga // gestione sconto riga
real sconto = rigadoc->sconto(); const real sconto = rigadoc->sconto();
if (!sconto.is_zero()) if (!sconto.is_zero())
{ {
fat.new_rec("ALD"); fat.new_rec("ALD");
TString8 str = sconto.stringa(8,4,'0'); fat.set("ALD.IMPORTO", sconto);
str.strip(",");
TString80 str;
real perc;
scontoexpr2perc(rigadoc->get(RDOC_SCONTO), false, str, perc);
str = perc.string(8,4,'0');
str.strip("." );
fat.set("ALD.PERC", str); fat.set("ALD.PERC", str);
} }
fat.new_rec("NAD"); fat.new_rec("NAD");