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

Correzione MI3579, relativo all'invio del totale docuemnto in

Browse Source 
valuta per i record di saldaconto; invio data e numero documento
relativamente ai movimenti extracontabili (MI3582)


git-svn-id: svn://10.65.10.50/trunk@4277 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-04-11 15:06:16 +00:00
parent 1d21c9411e
commit e47bd67bde
1 changed files with 18 additions and 4 deletions

22
cg/cg6902.cpp

@ -1470,6 +1470,15 @@ long TInv_cont::crea_record_riferimento_PN()
str.format("%06s", (const char*) str);
record.overwrite(str,15); //Data di registrazione
TString datadoc (_tpart->get_date(PART_DATADOC));
str = riconverti(datareg,FALSE);
str.format("%06s", (const char*) str);
record.overwrite(str,22); //Data documento
long ndoc = _tpart->get_long(PART_NUMDOC);
str.format("%7d", ndoc);
record.overwrite(str,28); //numero documento
int gruppo = _tpart->get_int (PART_GRUPPOCL);
str.format("%02d", gruppo);
record.overwrite(str,74); //Gruppo di partita
@ -1615,7 +1624,16 @@ void TInv_cont::partita2trasfer(TString& record, bool crea_record_riferimento)
str.format("%011s", (const char*) ws);
record.overwrite(str,68); //Importo in lire tot documento
_codval = _tpart->get(PART_CODVAL);
str.format("%-3s", (const char*) _codval);
record.overwrite(str,79); //Codice valuta
real importoval (_tpart->get_real(PART_IMPTOTVAL));
if (importoval == ZERO && nreg != 0 && _codval.not_empty()) // se non lo trova lo cerca nei movimenti
{
_tmov->put(MOV_NUMREG,nreg);
if (_tmov->read() == NOERR) importoval = _tmov->get_real(MOV_TOTDOCVAL);
}
dec2integer(importoval,1000);
ws = importoval.string();
if (importoval.sign() < 0)
@ -1623,10 +1641,6 @@ void TInv_cont::partita2trasfer(TString& record, bool crea_record_riferimento)
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
_cambio = _tpart->get_real(PART_CAMBIO);
dec2integer(_cambio,100000);
TString cambioi = _cambio.string();