Aggiustamenti XI e errori corretti

disabilitato cg3500 in attesa di aggiornamento per saldi


git-svn-id: svn://10.65.10.50/trunk@2883 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1996-05-22 10:40:53 +00:00
parent 47f30ceee4
commit 229fcb8bb2
7 changed files with 15 additions and 20 deletions

View File

@ -17,7 +17,7 @@ int main(int argc,char** argv)
case 1: rt = cg3200(argc,argv) ; break; case 1: rt = cg3200(argc,argv) ; break;
case 2: rt = cg3300(argc,argv) ; break; case 2: rt = cg3300(argc,argv) ; break;
case 3: rt = cg3400(argc,argv) ; break; case 3: rt = cg3400(argc,argv) ; break;
case 4: rt = cg3500(argc,argv) ; break; // case 4: rt = cg3500(argc,argv) ; break;
default: error_box(usage, argv[0]) ; break; default: error_box(usage, argv[0]) ; break;
} }
return rt; return rt;

View File

@ -85,7 +85,7 @@ BEGIN
MESSAGE FALSE ENABLE,F_STAMPA MESSAGE FALSE ENABLE,F_STAMPA
END END
RADIOBUTTON F_DECIDI 10 RADIOBUTTON F_DECIDI 12
BEGIN BEGIN
PROMPT 2 10 "Stampa " PROMPT 2 10 "Stampa "
HELP "Indicare il criterio di scelta dei movimenti" HELP "Indicare il criterio di scelta dei movimenti"

View File

@ -844,8 +844,7 @@ void CG3300_application::calcola ()
_alleg->put (ALL_CODCF, _tipoa_richiesto); _alleg->put (ALL_CODCF, _tipoa_richiesto);
TProgind prnd(_alleg->items(), TProgind prnd(_alleg->items(),
format ("Calcolo in corso \n", "Elaborazione in corso...",
"Attendere prego... "),
FALSE, TRUE); FALSE, TRUE);
if (_ricerca_att != "") if (_ricerca_att != "")

View File

@ -86,13 +86,13 @@ END
BOOLEAN F_ARROT BOOLEAN F_ARROT
BEGIN BEGIN
PROMPT 2 11 "Importi non arrotondati " PROMPT 2 11 "Importi non arrotondati "
HELP "Indicare se vengano arrotondati gli importi" HELP "Indicare se gli importi devono essere arrotondati"
END END
BOOLEAN F_ANNO_PREC BOOLEAN F_ANNO_PREC
BEGIN BEGIN
PROMPT 31 10 "Estratto anno precedente " PROMPT 31 10 "Estratto anno precedente "
HELP "Indicare se stamapre solo il saldo dell'anno precedente" HELP "Indicare se stampare solo il saldo dell'anno precedente"
END END
BOOLEAN F_ATTIVITA BOOLEAN F_ATTIVITA

View File

@ -1174,9 +1174,9 @@ void CG4600_application::chiudi_attivita()
j = 0; j = 0;
numrig = 0; numrig = 0;
for (_saldi->read(_isgteq); ; _saldi->next()) for (int err = _saldi->read(_isgteq); ; _saldi->next())
{ {
if (_saldi->curr() > (*_rec) || _saldi->eof()) if (_saldi->curr() > (*_rec) || _saldi->eof() || err != NOERR)
{ {
// Aggiungo un ulteriore riga di movimento contenente la somma // Aggiungo un ulteriore riga di movimento contenente la somma
// di tutti i saldi aventi lo stesso conto, indicandola // di tutti i saldi aventi lo stesso conto, indicandola
@ -1200,15 +1200,11 @@ void CG4600_application::chiudi_attivita()
compila_mov = FALSE; compila_mov = FALSE;
} }
//numrig++;
s = _saldi->get_long(SLD_SOTTOCONTO); s = _saldi->get_long(SLD_SOTTOCONTO);
//sale.calcola_ultima_immissione(_annoesch,0,g,c,s,indbil);
sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil, 1); sale.ultima_immissione_bilancio(_annoesch,g,c,s,indbil, 1);
_saldo = sale.saldo(); _saldo = sale.saldo();
//_saldo = ZERO;
const int dbkey = _saldi->getkey(); const int dbkey = _saldi->getkey();
_saldi->setkey(1); _saldi->setkey(1);
// TString sldstr = _saldo.string();
if (_saldo == ZERO) continue; // *** TBC qui fa ciclo infinito if (_saldo == ZERO) continue; // *** TBC qui fa ciclo infinito