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

Correzione MI3462.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4237 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-03-25 08:52:06 +00:00
parent 48faaae709
commit 8ece692274
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
cg/cg6902.cpp
View File

@ -1606,7 +1606,23 @@ void TInv_cont::partita2trasfer(TString& record, bool crea_record_riferimento)
codcaus = (TString&)_tab_cau[tipomov-1]; // Causale da tabella
str.format("%03s", (const char*)codcaus);
record.overwrite(str,63); //Codice causale
TString ws;
real importo (_tpart->get_real(PART_IMPTOTDOC));
ws = importo.string();
if (importo.sign() < 0)
negPC2negAS(ws);
str.format("%011s", (const char*) ws);
record.overwrite(str,68); //Importo in lire tot documento
real importoval (_tpart->get_real(PART_IMPTOTVAL));
dec2integer(importoval,1000);
ws = importoval.string();
if (importoval.sign() < 0)
negPC2negAS(ws);
str.format("%013s", (const char*) ws);
record.overwrite(str,82); //Importo in valuta tot documento
_codval = _tpart->get(PART_CODVAL);
str.format("%-3s", (const char*) _codval);
record.overwrite(str,79); //Codice valuta