From 0f6c4a57cbce23512ce0e631a4f970b73ba4aa12 Mon Sep 17 00:00:00 2001 From: cris Date: Mon, 3 Mar 1997 16:16:49 +0000 Subject: [PATCH] corretto errori MI3457, MI3460, MI3461 git-svn-id: svn://10.65.10.50/trunk@4176 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/cg6902.cpp | 352 ++++++++++++++++++++++++++------------------------ 1 file changed, 182 insertions(+), 170 deletions(-) diff --git a/cg/cg6902.cpp b/cg/cg6902.cpp index 05828b501..3ac05f248 100755 --- a/cg/cg6902.cpp +++ b/cg/cg6902.cpp @@ -505,6 +505,12 @@ bool TInv_cont::invio_tab_cau() int tipomov = _tcaus->get_int(CAU_TIPOMOV); str.format("%d", tipomov); record.overwrite(str,208); //Tipo movimento del saldaconto + + bool movval = _tcaus->get_bool(CAU_MOVVAL); + if (movval) + record.overwrite("X",214); + else //Flag movimento in valuta + record.overwrite(" ",214); int num = 0; int pos_gcs = 41; @@ -1746,177 +1752,183 @@ bool TInv_cont::invio_mov_SC() TString numpart = _tpart->get (PART_NUMPART); int nriga = _tpart->get_int (PART_NRIGA); int tipomov = _tpart->get_int (PART_TIPOMOV); - - if (tipomov == 1) - { - _tscad->zero(); - _tscad->put(SCAD_TIPOCF, tipo); - if (gruppo != 0) - _tscad->put(SCAD_GRUPPO, gruppo); - if (conto != 0) - _tscad->put(SCAD_CONTO, conto); - if (sottoc != 0) - _tscad->put(SCAD_SOTTOCONTO, sottoc); - _tscad->put(SCAD_ANNO, anno); - _tscad->put(SCAD_NUMPART, numpart); - _tscad->put(SCAD_NRIGA, nriga); - - TRectype scad (_tscad->curr()); - - TString rec,file,str,codpag,ultclass,datascad,numero,codag,impvalstr,numpart; - - for (_tscad->read(_isgteq); !_tscad->eof(); _tscad->next()) - { - rec = scad.get(SCAD_NUMPART); - file = _tscad->get(SCAD_NUMPART); - - if (_tscad->curr() != scad || file != rec) break; - - partita2trasfer(record); - - int nrata = _tscad->get_int(SCAD_NRATA); - str.format("%02d", nrata); - record.overwrite(str,35); //Numero di rata - - char tipo = _tscad->get_char(SCAD_TIPOCF); - int g = _tscad->get_int (SCAD_GRUPPO); - int c = _tscad->get_int (SCAD_CONTO); - long s = _tscad->get_long(SCAD_SOTTOCONTO); - int anno = _tscad->get_int (SCAD_ANNO); - numpart = _tscad->get(SCAD_NUMPART); - aggiorna_array_rate(tipo,g,c,s,anno,numpart,nrata); - - codpag = _tscad->get(SCAD_CODPAG); - str.format("%-2s", (const char*) codpag); - record.overwrite(str,112); //Codice di pagamento - - int tipopag = _tscad->get_int(SCAD_TIPOPAG); - str.format("%d", tipopag); - record.overwrite(str,114); //Tipo pagamento - - ultclass = _tscad->get(SCAD_ULTCLASS); - str.format("%s", (const char*) ultclass); - record.overwrite(str,115); //Ulteriore classificazione - - real importo (_tscad->get_real(SCAD_IMPORTO)); - numero = importo.string(); - if (importo.sign() < 0) - negPC2negAS(numero); - str.format("%011s", (const char*) numero); - record.overwrite(str,116); //Importo in lire rata partita - - real importoval (_tscad->get_real(SCAD_IMPORTOVAL)); - dec2integer(importoval,1000); - impvalstr = importoval.string(); - if (importoval.sign() < 0) - negPC2negAS(impvalstr); - str.format("%013s", (const char*) impvalstr); - record.overwrite(str,127); //Importo in valuta rata partita - - datascad = _tscad->get_date(SCAD_DATASCAD); - str = riconverti(datascad,FALSE); - str.format("%06s", (const char*) str); - record.overwrite(str,140); //Data scadenza - - codag = _tscad->get(SCAD_CODAG); - str.format("%-6s", (const char*) codag); - record.overwrite(str,172); //Codice agente - - _tras_file.write_control_rec(record,size); - } - } - else - { - _tpagsca->zero(); - _tpagsca->put(PAGSCA_TIPOC, tipo); - if (gruppo != 0) - _tpagsca->put(PAGSCA_GRUPPO, gruppo); - if (conto != 0) - _tpagsca->put(PAGSCA_CONTO, conto); - if (sottoc != 0) - _tpagsca->put(PAGSCA_SOTTOCONTO, sottoc); - _tpagsca->put(PAGSCA_ANNO, anno); - _tpagsca->put(PAGSCA_NUMPART, numpart); - - TRectype pagsca (_tpagsca->curr()); - - TString str,rec,file; - - for (_tpagsca->read(_isgteq); !_tpagsca->eof(); _tpagsca->next()) - { - int nrigp = _tpagsca->get_int(PAGSCA_NRIGP); - - rec = pagsca.get(PAGSCA_NUMPART); - file = _tpagsca->get(PAGSCA_NUMPART); - - if (_tpagsca->curr() != pagsca || file != rec) break; - - if (nriga != nrigp) continue; - - partita2trasfer(record); - - real importo (_tpagsca->get_real(PAGSCA_IMPORTO)); - real importoval (_tpagsca->get_real(PAGSCA_IMPORTOVAL)); - pagsca2trasfer(record,importo,importoval); - real abbuoni (_tpagsca->get_real(PAGSCA_ABBUONI)); - if (abbuoni != ZERO) - { - char sezabb; - char passat = _tpagsca->get_char(PAGSCA_PASSATT); - char sez = _tpart->get_char(PART_SEZ); - if (passat == 'A') - sezabb = 'D'; - else - if (passat == 'P') - sezabb = 'A'; - if (sezabb != sez) - abbuoni = abbuoni * -1; - real abblire = ZERO; - partita2trasfer(record,FALSE); - if (_codval.not_empty()) - { - abblire = abbuoni * _cambio; - abblire.round(); - } - str.format("%d", 4); - record.overwrite(str,37); - str.format("%c", sezabb); - record.overwrite(str,152); - pagsca2trasfer(record,abblire,abbuoni); - } - - real diffcam (_tpagsca->get_real(PAGSCA_DIFFCAM)); - if (diffcam != ZERO) - { - real imp = ZERO; - partita2trasfer(record,FALSE); - char sez = _tpart->get_char(PART_SEZ); - if (diffcam < ZERO) - { - diffcam = diffcam * -1; - if (sez == 'D') - sez = 'A'; - else - if (sez == 'A') - sez = 'D'; - } - str.format("%d", 4); - record.overwrite(str,37); - str.format("%c", sez); - record.overwrite(str,152); - pagsca2trasfer(record,diffcam,imp); - } - - real ritenute (_tpagsca->get_real(PAGSCA_RITENUTE)); - if (ritenute != ZERO) - { - real imp = ZERO; - partita2trasfer(record,FALSE); - pagsca2trasfer(record,ritenute,imp); - } - } - } + if (tipo == 'C' || tipo == 'F') + { + if (tipomov == 1) + { + _tscad->zero(); + _tscad->put(SCAD_TIPOCF, tipo); + if (gruppo != 0) + _tscad->put(SCAD_GRUPPO, gruppo); + if (conto != 0) + _tscad->put(SCAD_CONTO, conto); + if (sottoc != 0) + _tscad->put(SCAD_SOTTOCONTO, sottoc); + _tscad->put(SCAD_ANNO, anno); + _tscad->put(SCAD_NUMPART, numpart); + _tscad->put(SCAD_NRIGA, nriga); + + TRectype scad (_tscad->curr()); + + TString rec,file,str,codpag,ultclass,datascad,numero,codag,impvalstr,numpart; + + for (_tscad->read(_isgteq); !_tscad->eof(); _tscad->next()) + { + rec = scad.get(SCAD_NUMPART); + file = _tscad->get(SCAD_NUMPART); + + if (_tscad->curr() != scad || file != rec) break; + + partita2trasfer(record); + + int nrata = _tscad->get_int(SCAD_NRATA); + str.format("%02d", nrata); + record.overwrite(str,35); //Numero di rata + + char tipo = _tscad->get_char(SCAD_TIPOCF); + int g = _tscad->get_int (SCAD_GRUPPO); + int c = _tscad->get_int (SCAD_CONTO); + long s = _tscad->get_long(SCAD_SOTTOCONTO); + int anno = _tscad->get_int (SCAD_ANNO); + numpart = _tscad->get(SCAD_NUMPART); + aggiorna_array_rate(tipo,g,c,s,anno,numpart,nrata); + + codpag = _tscad->get(SCAD_CODPAG); + str.format("%-2s", (const char*) codpag); + record.overwrite(str,112); //Codice di pagamento + + int tipopag = _tscad->get_int(SCAD_TIPOPAG); + str.format("%d", tipopag); + record.overwrite(str,114); //Tipo pagamento + + ultclass = _tscad->get(SCAD_ULTCLASS); + str.format("%s", (const char*) ultclass); + record.overwrite(str,115); //Ulteriore classificazione + + real importo (_tscad->get_real(SCAD_IMPORTO)); + numero = importo.string(); + if (importo.sign() < 0) + negPC2negAS(numero); + str.format("%011s", (const char*) numero); + record.overwrite(str,116); //Importo in lire rata partita + + real importoval (_tscad->get_real(SCAD_IMPORTOVAL)); + dec2integer(importoval,1000); + impvalstr = importoval.string(); + if (importoval.sign() < 0) + negPC2negAS(impvalstr); + str.format("%013s", (const char*) impvalstr); + record.overwrite(str,127); //Importo in valuta rata partita + + datascad = _tscad->get_date(SCAD_DATASCAD); + str = riconverti(datascad,FALSE); + str.format("%06s", (const char*) str); + record.overwrite(str,140); //Data scadenza + + codag = _tscad->get(SCAD_CODAG); + str.format("%-6s", (const char*) codag); + record.overwrite(str,172); //Codice agente + + _tras_file.write_control_rec(record,size); + } + } + else + { + _tpagsca->zero(); + _tpagsca->put(PAGSCA_TIPOC, tipo); + if (gruppo != 0) + _tpagsca->put(PAGSCA_GRUPPO, gruppo); + if (conto != 0) + _tpagsca->put(PAGSCA_CONTO, conto); + if (sottoc != 0) + _tpagsca->put(PAGSCA_SOTTOCONTO, sottoc); + _tpagsca->put(PAGSCA_ANNO, anno); + _tpagsca->put(PAGSCA_NUMPART, numpart); + + TRectype pagsca (_tpagsca->curr()); + + TString str,rec,file; + + for (_tpagsca->read(_isgteq); !_tpagsca->eof(); _tpagsca->next()) + { + int nrigp = _tpagsca->get_int(PAGSCA_NRIGP); + + rec = pagsca.get(PAGSCA_NUMPART); + file = _tpagsca->get(PAGSCA_NUMPART); + + if (_tpagsca->curr() != pagsca || file != rec) break; + + if (nriga != nrigp) continue; + + partita2trasfer(record); + + real importo (_tpagsca->get_real(PAGSCA_IMPORTO)); + real importoval (_tpagsca->get_real(PAGSCA_IMPORTOVAL)); + pagsca2trasfer(record,importo,importoval); + + real abbuoni (_tpagsca->get_real(PAGSCA_ABBUONI)); + if (abbuoni != ZERO) + { + char sezabb; + char passat = _tpagsca->get_char(PAGSCA_PASSATT); + char sez = _tpart->get_char(PART_SEZ); + if (passat == 'A') + sezabb = 'D'; + else + if (passat == 'P') + sezabb = 'A'; + if (sezabb != sez) + abbuoni = abbuoni * -1; + real abblire = ZERO; + partita2trasfer(record,FALSE); + if (_codval.not_empty()) + { + abblire = abbuoni * _cambio; + abblire.round(); + } + str.format("%d", 4); + record.overwrite(str,37); + str.format("%c", sezabb); + record.overwrite(str,152); + if (_codval.not_empty()) + pagsca2trasfer(record,abblire,abbuoni); + else + pagsca2trasfer(record,abbuoni,abblire); + } + + real diffcam (_tpagsca->get_real(PAGSCA_DIFFCAM)); + if (diffcam != ZERO) + { + real imp = ZERO; + partita2trasfer(record,FALSE); + char sez = _tpart->get_char(PART_SEZ); + if (diffcam < ZERO) + { + diffcam = diffcam * -1; + if (sez == 'D') + sez = 'A'; + else + if (sez == 'A') + sez = 'D'; + } + str.format("%d", 4); + record.overwrite(str,37); + str.format("%c", sez); + record.overwrite(str,152); + pagsca2trasfer(record,diffcam,imp); + } + + real ritenute (_tpagsca->get_real(PAGSCA_RITENUTE)); + if (ritenute != ZERO) + { + real imp = ZERO; + partita2trasfer(record,FALSE); + pagsca2trasfer(record,ritenute,imp); + } + } + } + } } delete _prog;