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

Modifiche alla stampa bilancio riguardo il nuovo tracciato dei saldi e al discorso degli scaricati

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2974 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale 1996-06-07 15:07:55 +00:00
parent f820668b01
commit 68c0d1ddae
5 changed files with 736 additions and 685 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cg/cg1.cpp
View File

@ -19,8 +19,8 @@ int main(int argc,char** argv)
cg1300(argc,argv); break; cg1300(argc,argv); break;
case 3: case 3:
cg1400(argc,argv); break; cg1400(argc,argv); break;
// case 4: case 4:
// cg1500(argc,argv); break; cg1500(argc,argv); break;
case 5: case 5:
cg1600(argc,argv); break; cg1600(argc,argv); break;
case 6: case 6:

129
cg/cg1500.cpp
View File

@ -1,5 +1,24 @@
//Stampa bilanci //Stampa bilanci
// W96SALDI e' la sigla di tutte le modifiche effettuate riguardo il cambiamento dell' archivio
// SALDI. L' archivio e' cambiato nel seguente modo:
// - Non esistono piu' i progressivi dei movimenti scaricati PDARESCA e PAVERESCA;
// - Ora esistono un record per i movimenti normali e un record per i movimenti scaricati; la
// distinzione e' resa possibile dall' introduzione in chiave di un flag FLSCA (vedi tracciato)
// che e' un booleano. Il record con FLSCA = FALSE contiene la somma dei saldi dei movimenti
// normali e dei movimenti scaricati, mentre il record con FLSCA = TRUE, contiene solo i saldi
// dei movimenti scaricati.
// Tutti i progressivi che nel programma venivano memorizzati nei campi PDARESCA e PAVERESCA dei
// file temporanei ora sono memorizzati in PDAREPRO e PAVEREPRO.
// Le funzioni che sono state modificate sono:
// - bil_verifica();
// - ricerca_cf(...);
// - scrivi_record_gruppo();
// - scrivi_record_conto();
// - leggi_clifo();
// - leggi_file_tmp();
// - UltimaData();
#include <config.h> #include <config.h>
#include <mask.h> #include <mask.h>
#include <progind.h> #include <progind.h>
@ -523,6 +542,10 @@ void CG1500_application::scrivig_file_temp()
tmp->zero(); tmp->zero();
tmp->put(SLD_GRUPPO,_gp); tmp->put(SLD_GRUPPO,_gp);
tmp->put(SLD_CONTO,0);
tmp->put(SLD_SOTTOCONTO,0L);
tmp->put(SLD_ANNOES,0); // W96SALDI del 07-06-96
tmp->put(SLD_FLSCA,FALSE);
if (tmp->read() == NOERR) if (tmp->read() == NOERR)
{ {
tmp->put(SLD_CONTO,0); tmp->put(SLD_CONTO,0);
@ -532,8 +555,11 @@ void CG1500_application::scrivig_file_temp()
} }
else else
{ {
tmp->put(SLD_GRUPPO,_gp);
tmp->put(SLD_CONTO,0); tmp->put(SLD_CONTO,0);
tmp->put(SLD_SOTTOCONTO,0L); tmp->put(SLD_SOTTOCONTO,0L);
tmp->put(SLD_ANNOES,0); // W96SALDI del 07-06-96
tmp->put(SLD_FLSCA,FALSE);
tmp->put(nome_campo, valore); tmp->put(nome_campo, valore);
tmp->write(); tmp->write();
} }
@ -562,6 +588,10 @@ void CG1500_application::scrivig_file_temp()
tmp->zero(); tmp->zero();
tmp->put(SLD_GRUPPO,_gp); tmp->put(SLD_GRUPPO,_gp);
tmp->put(SLD_CONTO,0);
tmp->put(SLD_SOTTOCONTO,0L);
tmp->put(SLD_ANNOES,0); // W96SALDI del 07-06-96
tmp->put(SLD_FLSCA,FALSE);
if (tmp->read() == NOERR) if (tmp->read() == NOERR)
{ {
tmp->put(SLD_CONTO,0); tmp->put(SLD_CONTO,0);
@ -571,8 +601,11 @@ void CG1500_application::scrivig_file_temp()
} }
else else
{ {
tmp->put(SLD_GRUPPO,_gp);
tmp->put(SLD_CONTO,0); tmp->put(SLD_CONTO,0);
tmp->put(SLD_SOTTOCONTO,0L); tmp->put(SLD_SOTTOCONTO,0L);
tmp->put(SLD_ANNOES,0); // W96SALDI del 07-06-96
tmp->put(SLD_FLSCA,FALSE);
tmp->put(nome_campo, valore); tmp->put(nome_campo, valore);
tmp->write(); tmp->write();
} }
@ -1351,11 +1384,12 @@ bool CG1500_application::bil_verifica()
saldo_iniziale = _saldo_ini_dare - _saldo_ini_avere; saldo_iniziale = _saldo_ini_dare - _saldo_ini_avere;
else //discorso flag "movimentato" (video) else //discorso flag "movimentato" (video)
{ {
TLocalisamfile saldi(LF_SALDI); TLocalisamfile saldi(LF_SALDI); // W96SALDI
saldi.zero(); saldi.zero(); // Modifica SALDI per movimenti
saldi.put(SLD_ANNOES,_annoes); saldi.put(SLD_ANNOES, _annoes); // scaricati del 05-06-96
saldi.put(SLD_GRUPPO,g); saldi.put(SLD_FLSCA, FALSE); // Ho aggiunto saldi.put(SLD_FLSCA, FALSE);
saldi.put(SLD_CONTO,c); saldi.put(SLD_GRUPPO, g); // In questo modo considero il record con
saldi.put(SLD_CONTO, c); // la somma fra progressivi normali e scaricati
saldi.put(SLD_SOTTOCONTO, s); saldi.put(SLD_SOTTOCONTO, s);
if (saldi.read() == NOERR) if (saldi.read() == NOERR)
{ {
@ -1520,24 +1554,30 @@ if (movimentato || _stampav != 1)
//modifica del 21/11/1995 //modifica del 21/11/1995
if (_datada == _dataini && _tipo_stampa1 == 1) if (_datada == _dataini && _tipo_stampa1 == 1)
{ {
_tmp_saldi_att->put(SLD_PDARESCA,_saldo_ini_dare); //_tmp_saldi_att->put(SLD_PDARESCA,_saldo_ini_dare);
_tmp_saldi_att->put(SLD_PAVERESCA,_saldo_ini_avere); //_tmp_saldi_att->put(SLD_PAVERESCA,_saldo_ini_avere);
_tmp_saldi_att->put(SLD_PDAREPRO,_saldo_ini_dare); // W96SALDI del 05-06-96
_tmp_saldi_att->put(SLD_PAVEREPRO,_saldo_ini_avere);
} }
else else
{ {
if (saldo_iniziale > ZERO) //va stampato in Dare if (saldo_iniziale > ZERO) //va stampato in Dare
_tmp_saldi_att->put(SLD_PDARESCA,saldo_iniziale); _tmp_saldi_att->put(SLD_PDAREPRO,saldo_iniziale); // W96SALDI del 05-06-96
//_tmp_saldi_att->put(SLD_PDARESCA,saldo_iniziale);
else if (saldo_iniziale < ZERO) else if (saldo_iniziale < ZERO)
{ {
saldo_iniziale = -saldo_iniziale; saldo_iniziale = -saldo_iniziale;
_tmp_saldi_att->put(SLD_PAVERESCA,saldo_iniziale); //_tmp_saldi_att->put(SLD_PAVERESCA,saldo_iniziale);
_tmp_saldi_att->put(SLD_PAVEREPRO,saldo_iniziale); // W96SALDI del 05-06-96
} }
} }
} }
else if (_datada > _dataini) else if (_datada > _dataini)
{ {
_tmp_saldi_att->put(SLD_PDARESCA,_prg_prec_dare); //_tmp_saldi_att->put(SLD_PDARESCA,_prg_prec_dare);
_tmp_saldi_att->put(SLD_PAVERESCA,_prg_prec_avere); //_tmp_saldi_att->put(SLD_PAVERESCA,_prg_prec_avere);
_tmp_saldi_att->put(SLD_PDAREPRO,_prg_prec_dare); // W96SALDI del 05-06-96
_tmp_saldi_att->put(SLD_PAVEREPRO,_prg_prec_avere);
} }
_tmp_saldi_att->put(SLD_PDARE,_mov_periodo_dare); _tmp_saldi_att->put(SLD_PDARE,_mov_periodo_dare);
_tmp_saldi_att->put(SLD_PAVERE,_mov_periodo_avere); _tmp_saldi_att->put(SLD_PAVERE,_mov_periodo_avere);
@ -1756,9 +1796,10 @@ bool CG1500_application::ricerca_cf(int g,int c,char tipocf,int ib, real& saldo_
TLocalisamfile saldi(LF_SALDI); TLocalisamfile saldi(LF_SALDI);
saldi.zero(); saldi.zero();
saldi.put(SLD_ANNOES,_annoes); saldi.put(SLD_ANNOES,_annoes);
saldi.put(SLD_GRUPPO,g); saldi.put(SLD_FLSCA, FALSE); // W96SALDI del 05-06-96
saldi.put(SLD_CONTO,c); saldi.put(SLD_GRUPPO,g); // Ho aggiunto in chiave saldi.put(SLD_FLSCA, FALSE);
saldi.put(SLD_SOTTOCONTO,s); saldi.put(SLD_CONTO,c); // in questa maniera reperisco il record dei saldi
saldi.put(SLD_SOTTOCONTO,s); // contenente la somma degli scaricati e non scaricati
if (saldi.read() == NOERR) if (saldi.read() == NOERR)
{ {
//se il saldo iniziale e' diverso da zero non lo devo considerare //se il saldo iniziale e' diverso da zero non lo devo considerare
@ -1916,24 +1957,30 @@ bool CG1500_application::ricerca_cf(int g,int c,char tipocf,int ib, real& saldo_
//modifica del 21/11/1995 //modifica del 21/11/1995
if (_tipo_stampa1 == 1 && _datada == _dataini) if (_tipo_stampa1 == 1 && _datada == _dataini)
{ {
_tmp_saldi_att->put(SLD_PDARESCA,_saldo_ini_dare); //_tmp_saldi_att->put(SLD_PDARESCA,_saldo_ini_dare);
_tmp_saldi_att->put(SLD_PAVERESCA,_saldo_ini_avere); //_tmp_saldi_att->put(SLD_PAVERESCA,_saldo_ini_avere);
_tmp_saldi_att->put(SLD_PDAREPRO,_saldo_ini_dare); // W96SALDI del 05-06-96
_tmp_saldi_att->put(SLD_PAVEREPRO,_saldo_ini_avere);
} }
else else
{ {
if (saldo_iniziale > ZERO) //va stampato in Dare if (saldo_iniziale > ZERO) //va stampato in Dare
_tmp_saldi_att->put(SLD_PDARESCA,saldo_iniziale); _tmp_saldi_att->put(SLD_PDAREPRO,saldo_iniziale); // W96SALDI del 05-06-96
//_tmp_saldi_att->put(SLD_PDARESCA,saldo_iniziale);
else if (saldo_iniziale < ZERO) else if (saldo_iniziale < ZERO)
{ {
saldo_iniziale = -saldo_iniziale; saldo_iniziale = -saldo_iniziale;
_tmp_saldi_att->put(SLD_PAVERESCA,saldo_iniziale); //_tmp_saldi_att->put(SLD_PAVERESCA,saldo_iniziale);
_tmp_saldi_att->put(SLD_PAVEREPRO,saldo_iniziale); // W96SALDI del 05-06-96
} }
} }
} }
else if (_datada > _dataini) else if (_datada > _dataini)
{ {
_tmp_saldi_att->put(SLD_PDARESCA,_prg_prec_dare); //_tmp_saldi_att->put(SLD_PDARESCA,_prg_prec_dare);
_tmp_saldi_att->put(SLD_PAVERESCA,_prg_prec_avere); //_tmp_saldi_att->put(SLD_PAVERESCA,_prg_prec_avere);
_tmp_saldi_att->put(SLD_PDAREPRO,_prg_prec_dare); // W96SALDI del 05-06-96
_tmp_saldi_att->put(SLD_PAVEREPRO,_prg_prec_avere);
} }
_tmp_saldi_att->put(SLD_PDARE,_mov_periodo_dare); _tmp_saldi_att->put(SLD_PDARE,_mov_periodo_dare);
_tmp_saldi_att->put(SLD_PAVERE,_mov_periodo_avere); _tmp_saldi_att->put(SLD_PAVERE,_mov_periodo_avere);
@ -1958,25 +2005,25 @@ void CG1500_application::scrivi_record_gruppo(const real& prg_da,
//modifica del 21/11/1995 //modifica del 21/11/1995
if (_datada == _dataini && _tipo_stampa1 == 1) if (_datada == _dataini && _tipo_stampa1 == 1)
{ {
_tmp_saldi_att->put(SLD_PDARESCA,_saldo_ini_gruppo_dare); _tmp_saldi_att->put(SLD_PDAREPRO,_saldo_ini_gruppo_dare); // W96SALDI del 05-06-96
_tmp_saldi_att->put(SLD_PAVERESCA,_saldo_ini_gruppo_avere); _tmp_saldi_att->put(SLD_PAVEREPRO,_saldo_ini_gruppo_avere);
} }
else else
{ {
real app = _saldo_ini_gruppo_dare + _saldo_ini_gruppo_avere; real app = _saldo_ini_gruppo_dare + _saldo_ini_gruppo_avere;
if (app > ZERO) //va stampato in Dare if (app > ZERO) //va stampato in Dare
_tmp_saldi_att->put(SLD_PDARESCA,app); _tmp_saldi_att->put(SLD_PDAREPRO,app); // W96SALDI del 05-06-96
else if (app < ZERO) else if (app < ZERO)
{ {
app = -app; app = -app;
_tmp_saldi_att->put(SLD_PAVERESCA,app); _tmp_saldi_att->put(SLD_PAVEREPRO,app); // W96SALDI del 05-06-96
} }
} }
} }
else if (_datada > _dataini) else if (_datada > _dataini)
{ {
_tmp_saldi_att->put(SLD_PDARESCA,prg_da); _tmp_saldi_att->put(SLD_PDAREPRO,prg_da); // W96SALDI del 05-06-96
_tmp_saldi_att->put(SLD_PAVERESCA,prg_a); _tmp_saldi_att->put(SLD_PAVEREPRO,prg_a);
} }
_tmp_saldi_att->put(SLD_PDARE,mov_da); _tmp_saldi_att->put(SLD_PDARE,mov_da);
_tmp_saldi_att->put(SLD_PAVERE,mov_a); _tmp_saldi_att->put(SLD_PAVERE,mov_a);
@ -1996,25 +2043,25 @@ void CG1500_application::scrivi_record_conto(const real& prg_da,
//modifica del 21/11/1995 //modifica del 21/11/1995
if (_datada == _dataini && _tipo_stampa1 == 1) if (_datada == _dataini && _tipo_stampa1 == 1)
{ {
_tmp_saldi_att->put(SLD_PDARESCA,_saldo_ini_conto_dare); _tmp_saldi_att->put(SLD_PDAREPRO,_saldo_ini_conto_dare); // W96SALDI del 05-06-96
_tmp_saldi_att->put(SLD_PAVERESCA,_saldo_ini_conto_avere); _tmp_saldi_att->put(SLD_PAVEREPRO,_saldo_ini_conto_avere);
} }
else else
{ {
real app = _saldo_ini_conto_dare + _saldo_ini_conto_avere; real app = _saldo_ini_conto_dare + _saldo_ini_conto_avere;
if (app > ZERO) //va stampato in Dare if (app > ZERO) //va stampato in Dare
_tmp_saldi_att->put(SLD_PDARESCA,app); _tmp_saldi_att->put(SLD_PDAREPRO,app); // W96SALDI del 05-06-96
else if (app < ZERO) else if (app < ZERO)
{ {
app = -app; app = -app;
_tmp_saldi_att->put(SLD_PAVERESCA,app); _tmp_saldi_att->put(SLD_PAVEREPRO,app); // W96SALDI del 05-06-96
} }
} }
} }
else if (_datada > _dataini) else if (_datada > _dataini)
{ {
_tmp_saldi_att->put(SLD_PDARESCA,prg_da); _tmp_saldi_att->put(SLD_PDAREPRO,prg_da); // W96SALDI del 05-06-96
_tmp_saldi_att->put(SLD_PAVERESCA,prg_a); _tmp_saldi_att->put(SLD_PAVEREPRO,prg_a);
} }
_tmp_saldi_att->put(SLD_PDARE,mov_da); _tmp_saldi_att->put(SLD_PDARE,mov_da);
_tmp_saldi_att->put(SLD_PAVERE,mov_a); _tmp_saldi_att->put(SLD_PAVERE,mov_a);
@ -2155,7 +2202,8 @@ void CG1500_application::leggi_clifo(const TArray& gccf)
} }
int aprec = EsePre(anno); int aprec = EsePre(anno);
saldi.zero(); saldi.zero();
saldi.put(SLD_ANNOES, anno); saldi.put(SLD_ANNOES, anno); // W96SALDI del 05-06-96
saldi.put(SLD_FLSCA, FALSE);
saldi.put(SLD_GRUPPO, g); saldi.put(SLD_GRUPPO, g);
saldi.put(SLD_CONTO, c); saldi.put(SLD_CONTO, c);
saldi.put(SLD_SOTTOCONTO, codcf); saldi.put(SLD_SOTTOCONTO, codcf);
@ -2168,7 +2216,8 @@ void CG1500_application::leggi_clifo(const TArray& gccf)
if (_indbil == 1 || _indbil == 2 || _indbil == 5) if (_indbil == 1 || _indbil == 2 || _indbil == 5)
{ {
saldi.zero(); saldi.zero();
saldi.put(SLD_ANNOES, aprec); saldi.put(SLD_ANNOES, aprec); // W96SALDI del 05-06-96
saldi.put(SLD_FLSCA, FALSE);
saldi.put(SLD_GRUPPO, g); saldi.put(SLD_GRUPPO, g);
saldi.put(SLD_CONTO, c); saldi.put(SLD_CONTO, c);
saldi.put(SLD_SOTTOCONTO, codcf); saldi.put(SLD_SOTTOCONTO, codcf);
@ -2225,7 +2274,8 @@ void CG1500_application::leggi_clifo(const TArray& gccf)
{ {
TLocalisamfile saldi(LF_SALDI); TLocalisamfile saldi(LF_SALDI);
saldi.zero(); saldi.zero();
saldi.put(SLD_ANNOES,_annoes); saldi.put(SLD_ANNOES, _annoes); // W96SALDI del 05-06-96
saldi.put(SLD_FLSCA, FALSE);
saldi.put(SLD_GRUPPO, g); saldi.put(SLD_GRUPPO, g);
saldi.put(SLD_CONTO, c); saldi.put(SLD_CONTO, c);
saldi.put(SLD_SOTTOCONTO, codcf); saldi.put(SLD_SOTTOCONTO, codcf);
@ -2483,8 +2533,8 @@ void CG1500_application::leggi_file_tmp()
_sottoconto = _tmp_saldi_att->get_long(SLD_SOTTOCONTO); _sottoconto = _tmp_saldi_att->get_long(SLD_SOTTOCONTO);
_tipo_conto = _tmp_saldi_att->get_char(SLD_FLAGSALINI); _tipo_conto = _tmp_saldi_att->get_char(SLD_FLAGSALINI);
_descr = DescrizioneConto(_gruppo,_conto,_sottoconto,_tipo_conto); _descr = DescrizioneConto(_gruppo,_conto,_sottoconto,_tipo_conto);
_saldoini_dare = _tmp_saldi_att->get_real(SLD_PDARESCA); _saldoini_dare = _tmp_saldi_att->get_real(SLD_PDAREPRO); // W96SALDI del 05-06-96
_saldoini_avere = _tmp_saldi_att->get_real(SLD_PAVERESCA); _saldoini_avere = _tmp_saldi_att->get_real(SLD_PAVEREPRO);
_mov_dare = _tmp_saldi_att->get_real(SLD_PDARE); _mov_dare = _tmp_saldi_att->get_real(SLD_PDARE);
_mov_avere = _tmp_saldi_att->get_real(SLD_PAVERE); _mov_avere = _tmp_saldi_att->get_real(SLD_PAVERE);
_saldofinale = _tmp_saldi_att->get_real(SLD_SALDO); _saldofinale = _tmp_saldi_att->get_real(SLD_SALDO);
@ -2503,8 +2553,8 @@ void CG1500_application::leggi_file_tmp()
else _ultima_data = _tmp_saldi_att->get_date(SLD_DATAULMOV); else _ultima_data = _tmp_saldi_att->get_date(SLD_DATAULMOV);
_descr_succ = DescrizioneConto(_gruppo_succ,_conto_succ, _descr_succ = DescrizioneConto(_gruppo_succ,_conto_succ,
_sottoconto_succ,_tipoc_succ); _sottoconto_succ,_tipoc_succ);
_saldoini_dare_succ = _tmp_saldi_att->get_real(SLD_PDARESCA); _saldoini_dare_succ = _tmp_saldi_att->get_real(SLD_PDAREPRO); // W96SALDI del 05-06-96
_saldoini_avere_succ = _tmp_saldi_att->get_real(SLD_PAVERESCA); _saldoini_avere_succ = _tmp_saldi_att->get_real(SLD_PAVEREPRO);
_mov_dare_succ = _tmp_saldi_att->get_real(SLD_PDARE); _mov_dare_succ = _tmp_saldi_att->get_real(SLD_PDARE);
_mov_avere_succ = _tmp_saldi_att->get_real(SLD_PAVERE); _mov_avere_succ = _tmp_saldi_att->get_real(SLD_PAVERE);
_saldofinale_succ = _tmp_saldi_att->get_real(SLD_SALDO); _saldofinale_succ = _tmp_saldi_att->get_real(SLD_SALDO);
@ -3514,6 +3564,7 @@ TDate CG1500_application::UltimaData(int g, int c, long s, int anno)
saldi.zero(); saldi.zero();
if (_annoes != 0) if (_annoes != 0)
saldi.put(SLD_ANNOES, anno); saldi.put(SLD_ANNOES, anno);
saldi.put(SLD_FLSCA, FALSE); // W96SALDI del 05-06-96
saldi.put(SLD_GRUPPO,g); saldi.put(SLD_GRUPPO,g);
if (c != 0) if (c != 0)
saldi.put(SLD_CONTO, c); saldi.put(SLD_CONTO, c);

6
cg/cg6400.cpp
View File

@ -659,9 +659,9 @@ bool TRic_archivi::baipassa(TMask& m,KEY k)
{ {
if ( (k == K_SHIFT+K_F7) && (app()._stato_ripartenza == 0) ) if ( (k == K_SHIFT+K_F7) && (app()._stato_ripartenza == 0) )
app()._baipassa = TRUE; app()._baipassa = TRUE;
else // else // Modifica del 05-06-96 xche' con le nuove maschere non
app()._baipassa = FALSE; // app()._baipassa = FALSE; // funziona piu', in quanto passa dall' handler anche quando
// faccio il conferma.
return FALSE; return FALSE;
} }