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

Modifiche relative al nuovo tracciato dei SALDI

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2990 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale 1996-06-14 14:38:05 +00:00
parent 4ac58631c4
commit 282a4f0a6b
17 changed files with 1217 additions and 1121 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cg/cg1500a.uml
View File

@ -44,7 +44,7 @@ BEGIN
FLAGS "Z" FLAGS "Z"
END END
RADIOBUTTON F_BILANCIO 33 RADIOBUTTON F_BILANCIO 37
BEGIN BEGIN
PROMPT 2 5 "Tipo bilancio " PROMPT 2 5 "Tipo bilancio "
HELP "Indicare il tipo di bilancio da stampare" HELP "Indicare il tipo di bilancio da stampare"
@ -68,7 +68,7 @@ END
RADIOBUTTON F_STAMPA 28 RADIOBUTTON F_STAMPA 28
BEGIN BEGIN
PROMPT 40 5 "Tipo stampa " PROMPT 41 5 "Tipo stampa "
HELP "Indicare il tipo di stampa" HELP "Indicare il tipo di stampa"
ITEM "1|Per date limite" ITEM "1|Per date limite"
MESSAGE SHOW,F_DATALIM|SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO MESSAGE SHOW,F_DATALIM|SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO

8
cg/cg1600.cpp
View File

@ -1861,8 +1861,8 @@ bool CG1600_application::calcola_saldo(real& saldo, real& saldo_raf,int g,int c,
{ {
_sld->set_annoes(_anno_esercizio_raf); _sld->set_annoes(_anno_esercizio_raf);
// if (_databilrafr != _data_fine_raf) //(_tipo_stampa == 1) bilancio per data limite if (_databilrafr != _data_fine_raf) //(_tipo_stampa == 1) bilancio per data limite
// { {
esiste = _sld->data_limite_bilancio(DataLimite,g,c,s,_datairaf,_databilrafr,indbil,_stampa_mov_prov); esiste = _sld->data_limite_bilancio(DataLimite,g,c,s,_datairaf,_databilrafr,indbil,_stampa_mov_prov);
saldo_raf = _sld->saldo(); saldo_raf = _sld->saldo();
@ -1888,7 +1888,7 @@ bool CG1600_application::calcola_saldo(real& saldo, real& saldo_raf,int g,int c,
else else
no_movimentato_raf = FALSE; no_movimentato_raf = FALSE;
} }
/* } }
else if (_databilrafr == _data_fine_raf) //(_tipo_stampa == 2) else if (_databilrafr == _data_fine_raf) //(_tipo_stampa == 2)
{ {
if (!_sld->ultima_immissione_bilancio(_anno_esercizio_raf,g,c,s,indbil,_stampa_mov_prov)) if (!_sld->ultima_immissione_bilancio(_anno_esercizio_raf,g,c,s,indbil,_stampa_mov_prov))
@ -1902,7 +1902,7 @@ bool CG1600_application::calcola_saldo(real& saldo, real& saldo_raf,int g,int c,
no_movimentato_raf = FALSE; no_movimentato_raf = FALSE;
saldo_raf = _sld->saldo(); saldo_raf = _sld->saldo();
}*/ }
saldo_rafstr = saldo_raf.string(); saldo_rafstr = saldo_raf.string();
} }
} }

2
cg/cg3.cpp
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;

2
cg/cg3100a.uml
View File

@ -43,7 +43,7 @@ BEGIN
FLAGS "RZ" FLAGS "RZ"
END END
RADIOBUTTON F_MOVIMENTI 38 RADIOBUTTON F_MOVIMENTI 41
BEGIN BEGIN
PROMPT 30 3 "Scelta stampa " PROMPT 30 3 "Scelta stampa "
HELP "Indicare il tipo di stampa" HELP "Indicare il tipo di stampa"

27
cg/cg3200.cpp
View File

@ -106,6 +106,8 @@ protected:
public: public:
TDate _inizioEs,_fineEs; TDate _inizioEs,_fineEs;
int date2esc(const TDate& d, int* prevesc = NULL);
void ricerca_clifo(); void ricerca_clifo();
void ricerca_gruppo(); void ricerca_gruppo();
int ricerca_clifo(int riga); int ricerca_clifo(int riga);
@ -585,6 +587,24 @@ bool TMastrini_application::check_ordine(TMask_field& f, KEY k)
return TRUE; return TRUE;
} }
int TMastrini_application::date2esc(const TDate& d, int* prevesc)
{
if (prevesc) *prevesc = 0;
TTable esc("ESC");
for (int err = esc.first(); err == NOERR; err = esc.next())
{
const TDate ia(esc.get("D0")); // Data inizio esercizio
const TDate fa(esc.get("D1")); // Data fine esercizio
app()._inizioEs = ia;
app()._fineEs = fa;
const anno = esc.get_int("CODTAB");
if (d >= ia && d <= fa)
return anno;
if (prevesc) *prevesc = anno;
}
return 0;
}
//Questa funzione restituisce vero se il record su piano dei conti ha almeno un //Questa funzione restituisce vero se il record su piano dei conti ha almeno un
//record figlio (e che soddisfa la condizione riguardante la data di registr.). //record figlio (e che soddisfa la condizione riguardante la data di registr.).
//Viene successivamente utilizzata per stampare l'intestazione (e i totali) //Viene successivamente utilizzata per stampare l'intestazione (e i totali)
@ -718,7 +738,7 @@ bool TMastrini_application::data_fine(TMask_field& f, KEY k)
return FALSE; return FALSE;
} }
app()._anno_ghost = date2esc(data_ini); app()._anno_ghost = app().date2esc(data_ini);
app()._inizioes = app()._inizioEs; app()._inizioes = app()._inizioEs;
@ -2978,6 +2998,7 @@ void TMastrini_application::calcola_progressivi()
} }
} }
*/ */
} // if (!saldi.get_bool(SLD_FLSCA))
} // FOR } // FOR
//Se il saldo dell'esercizio attuale non e' diverso da zero, allora il saldo //Se il saldo dell'esercizio attuale non e' diverso da zero, allora il saldo
@ -3618,8 +3639,8 @@ bool TMastrini_application::user_create()
exp.add("SOTTOCONTO=SOTTOCONTO"); exp.add("SOTTOCONTO=SOTTOCONTO");
_rel->add(LF_RMOV,exp,2,LF_SALDI); _rel->add(LF_RMOV,exp,2,LF_SALDI);
_cur1=add_cursor(new TCursor(_rel,"FLSCA=\"F\"",2)); // _cur1=add_cursor(new TCursor(_rel,"FLSCA=\"F\"",2));
_cur1=add_cursor(new TCursor(_rel,"FLSCA=\" \"",2));
_nditte = new TLocalisamfile (LF_NDITTE); _nditte = new TLocalisamfile (LF_NDITTE);
_unloc = new TLocalisamfile (LF_UNLOC); _unloc = new TLocalisamfile (LF_UNLOC);
_comuni = new TLocalisamfile (LF_COMUNI); _comuni = new TLocalisamfile (LF_COMUNI);

107
cg/cg3500.cpp
View File

@ -1,5 +1,24 @@
//Stampa riepilogo gruppi/conti //Stampa riepilogo gruppi/conti
// 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 saldi 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:
// - riepilogo();
// - ricerca_cf(...);
// - leggi_conti(...);
// - leggi_gruppi(...);
// - CercaConto(...);
// - CercaGruppo(...);
// - UltimaData(...);
#include <config.h> #include <config.h>
#include <mask.h> #include <mask.h>
#include <printapp.h> #include <printapp.h>
@ -109,11 +128,13 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_PDARE,prg_conto_dare); _tmp_saldi->put(SLD_PDARE,prg_conto_dare);
_tmp_saldi->put(SLD_PAVERE,prg_conto_avere); _tmp_saldi->put(SLD_PAVERE,prg_conto_avere);
if (saldo_conto > 0.00) //va stampato in Dare if (saldo_conto > 0.00) //va stampato in Dare
_tmp_saldi->put(SLD_PDARESCA,saldo_conto); _tmp_saldi->put(SLD_PDAREPRO,saldo_conto); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PDARESCA,saldo_conto);
else else
{ {
saldo_conto = saldo_conto * (-1.00); saldo_conto = saldo_conto * (-1.00);
_tmp_saldi->put(SLD_PAVERESCA,saldo_conto); _tmp_saldi->put(SLD_PAVEREPRO,saldo_conto); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PAVERESCA,saldo_conto);
} }
_tmp_saldi->write(); _tmp_saldi->write();
esiste_conto = TRUE; esiste_conto = TRUE;
@ -135,11 +156,13 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_PDARE,prg_gruppo_dare); _tmp_saldi->put(SLD_PDARE,prg_gruppo_dare);
_tmp_saldi->put(SLD_PAVERE,prg_gruppo_avere); _tmp_saldi->put(SLD_PAVERE,prg_gruppo_avere);
if (saldo_gruppo > 0.00) //va stampato in Dare if (saldo_gruppo > 0.00) //va stampato in Dare
_tmp_saldi->put(SLD_PDARESCA,saldo_gruppo); _tmp_saldi->put(SLD_PDAREPRO,saldo_gruppo); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PDARESCA,saldo_gruppo);
else else
{ {
saldo_gruppo = saldo_gruppo * (-1.00); saldo_gruppo = saldo_gruppo * (-1.00);
_tmp_saldi->put(SLD_PAVERESCA,saldo_gruppo); _tmp_saldi->put(SLD_PAVEREPRO,saldo_gruppo); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PAVERESCA,saldo_gruppo);
} }
_tmp_saldi->write(); _tmp_saldi->write();
gp = conto.gruppo(); gp = conto.gruppo();
@ -178,11 +201,13 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_PDARE,prg_conto_dare); _tmp_saldi->put(SLD_PDARE,prg_conto_dare);
_tmp_saldi->put(SLD_PAVERE,prg_conto_avere); _tmp_saldi->put(SLD_PAVERE,prg_conto_avere);
if (saldo_conto > 0.00) //va stampato in Dare if (saldo_conto > 0.00) //va stampato in Dare
_tmp_saldi->put(SLD_PDARESCA,saldo_conto); _tmp_saldi->put(SLD_PDAREPRO,saldo_conto); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PDARESCA,saldo_conto);
else else
{ {
saldo_conto = saldo_conto * (-1.00); saldo_conto = saldo_conto * (-1.00);
_tmp_saldi->put(SLD_PAVERESCA,saldo_conto); _tmp_saldi->put(SLD_PAVEREPRO,saldo_conto); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PAVERESCA,saldo_conto);
} }
_tmp_saldi->write(); _tmp_saldi->write();
esiste_conto = TRUE; esiste_conto = TRUE;
@ -200,11 +225,13 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_PDARE,prg_gruppo_dare); _tmp_saldi->put(SLD_PDARE,prg_gruppo_dare);
_tmp_saldi->put(SLD_PAVERE,prg_gruppo_avere); _tmp_saldi->put(SLD_PAVERE,prg_gruppo_avere);
if (saldo_gruppo > 0.00) //va stampato in Dare if (saldo_gruppo > 0.00) //va stampato in Dare
_tmp_saldi->put(SLD_PDARESCA,saldo_gruppo); _tmp_saldi->put(SLD_PDAREPRO,saldo_gruppo);
//_tmp_saldi->put(SLD_PDARESCA,saldo_gruppo); // W96SALDI del 10-06-96
else else
{ {
saldo_gruppo = saldo_gruppo * (-1.00); saldo_gruppo = saldo_gruppo * (-1.00);
_tmp_saldi->put(SLD_PAVERESCA,saldo_gruppo); _tmp_saldi->put(SLD_PAVEREPRO,saldo_gruppo); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PAVERESCA,saldo_gruppo);
} }
_tmp_saldi->write(); _tmp_saldi->write();
} }
@ -251,11 +278,13 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_PDARE,prg_dare); _tmp_saldi->put(SLD_PDARE,prg_dare);
_tmp_saldi->put(SLD_PAVERE,prg_avere); _tmp_saldi->put(SLD_PAVERE,prg_avere);
if (saldo > 0.00) //va stampato in Dare if (saldo > 0.00) //va stampato in Dare
_tmp_saldi->put(SLD_PDARESCA,saldo); _tmp_saldi->put(SLD_PDAREPRO,saldo); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PDARESCA,saldo);
else else
{ {
saldo = saldo * (-1.00); saldo = saldo * (-1.00);
_tmp_saldi->put(SLD_PAVERESCA,saldo); _tmp_saldi->put(SLD_PAVEREPRO,saldo); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PAVERESCA,saldo);
} }
_tmp_saldi->write(); _tmp_saldi->write();
} }
@ -289,11 +318,13 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_PDARE,prg_conto_dare); _tmp_saldi->put(SLD_PDARE,prg_conto_dare);
_tmp_saldi->put(SLD_PAVERE,prg_conto_avere); _tmp_saldi->put(SLD_PAVERE,prg_conto_avere);
if (saldo_conto > 0.00) //va stampato in Dare if (saldo_conto > 0.00) //va stampato in Dare
_tmp_saldi->put(SLD_PDARESCA,saldo_conto); _tmp_saldi->put(SLD_PDAREPRO,saldo_conto); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PDARESCA,saldo_conto);
else else
{ {
saldo_conto = saldo_conto * (-1.00); saldo_conto = saldo_conto * (-1.00);
_tmp_saldi->put(SLD_PAVERESCA,saldo_conto); _tmp_saldi->put(SLD_PAVEREPRO,saldo_conto); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PAVERESCA,saldo_conto);
} }
_tmp_saldi->write(); _tmp_saldi->write();
} }
@ -309,11 +340,13 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_PDARE,prg_gruppo_dare); _tmp_saldi->put(SLD_PDARE,prg_gruppo_dare);
_tmp_saldi->put(SLD_PAVERE,prg_gruppo_avere); _tmp_saldi->put(SLD_PAVERE,prg_gruppo_avere);
if (saldo_gruppo > 0.00) //va stampato in Dare if (saldo_gruppo > 0.00) //va stampato in Dare
_tmp_saldi->put(SLD_PDARESCA,saldo_gruppo); _tmp_saldi->put(SLD_PDAREPRO,saldo_gruppo); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PDARESCA,saldo_gruppo);
else else
{ {
saldo_gruppo = saldo_gruppo * (-1.00); saldo_gruppo = saldo_gruppo * (-1.00);
_tmp_saldi->put(SLD_PAVERESCA,saldo_gruppo); _tmp_saldi->put(SLD_PAVEREPRO,saldo_gruppo); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PAVERESCA,saldo_gruppo);
} }
_tmp_saldi->write(); _tmp_saldi->write();
} }
@ -367,11 +400,13 @@ bool CG3500_application::ricerca_cf(TConto& conto,int indbil,real& prg_conto_dar
_tmp_saldi->put(SLD_PDARE,prg_dare); _tmp_saldi->put(SLD_PDARE,prg_dare);
_tmp_saldi->put(SLD_PAVERE,prg_avere); _tmp_saldi->put(SLD_PAVERE,prg_avere);
if (saldo > 0.00) //va stampato in Dare if (saldo > 0.00) //va stampato in Dare
_tmp_saldi->put(SLD_PDARESCA,saldo); _tmp_saldi->put(SLD_PDAREPRO,saldo); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PDARESCA,saldo);
else else
{ {
saldo = saldo * (-1.00); saldo = saldo * (-1.00);
_tmp_saldi->put(SLD_PAVERESCA,saldo); _tmp_saldi->put(SLD_PAVEREPRO,saldo); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PAVERESCA,saldo);
} }
_tmp_saldi->write(); _tmp_saldi->write();
} }
@ -450,8 +485,10 @@ tipo CG3500_application::leggi_conti(int counter)
_descr = conto.descrizione(); _descr = conto.descrizione();
_prg_dare = _tmp_saldi->get_real(SLD_PDARE); _prg_dare = _tmp_saldi->get_real(SLD_PDARE);
_prg_avere = _tmp_saldi->get_real(SLD_PAVERE); _prg_avere = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare = _tmp_saldi->get_real(SLD_PDARESCA); _saldo_dare = _tmp_saldi->get_real(SLD_PDAREPRO); // W96SALDI del 10-06-96
_saldo_avere = _tmp_saldi->get_real(SLD_PAVERESCA); //_saldo_dare = _tmp_saldi->get_real(SLD_PDARESCA);
_saldo_avere = _tmp_saldi->get_real(SLD_PAVEREPRO);
//_saldo_avere = _tmp_saldi->get_real(SLD_PAVERESCA);
CercaConto(_gcorr,_ccorr); CercaConto(_gcorr,_ccorr);
CercaGruppo(_gcorr); CercaGruppo(_gcorr);
@ -474,8 +511,10 @@ tipo CG3500_application::leggi_conti(int counter)
_descr = conto.descrizione(); _descr = conto.descrizione();
_prg_dare = _tmp_saldi->get_real(SLD_PDARE); _prg_dare = _tmp_saldi->get_real(SLD_PDARE);
_prg_avere = _tmp_saldi->get_real(SLD_PAVERE); _prg_avere = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare = _tmp_saldi->get_real(SLD_PDARESCA); _saldo_dare = _tmp_saldi->get_real(SLD_PDAREPRO); // W96SALDI del 10-06-96
_saldo_avere = _tmp_saldi->get_real(SLD_PAVERESCA); //_saldo_dare = _tmp_saldi->get_real(SLD_PDARESCA);
_saldo_avere = _tmp_saldi->get_real(SLD_PAVEREPRO);
//_saldo_avere = _tmp_saldi->get_real(SLD_PAVERESCA);
_tmp_saldi->next(); _tmp_saldi->next();
return stampasottoconto; return stampasottoconto;
@ -520,8 +559,10 @@ tipo CG3500_application::leggi_gruppi(int counter)
_descrconto = conto.descrizione(); _descrconto = conto.descrizione();
_prg_dare_conto = _tmp_saldi->get_real(SLD_PDARE); _prg_dare_conto = _tmp_saldi->get_real(SLD_PDARE);
_prg_avere_conto = _tmp_saldi->get_real(SLD_PAVERE); _prg_avere_conto = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare_conto = _tmp_saldi->get_real(SLD_PDARESCA); _saldo_dare_conto = _tmp_saldi->get_real(SLD_PDAREPRO); // W96SALDI del 10-06-96
_saldo_avere_conto = _tmp_saldi->get_real(SLD_PAVERESCA); //_saldo_dare_conto = _tmp_saldi->get_real(SLD_PDARESCA);
_saldo_avere_conto = _tmp_saldi->get_real(SLD_PAVEREPRO);
//_saldo_avere_conto = _tmp_saldi->get_real(SLD_PAVERESCA);
CercaGruppo(_gcorr); CercaGruppo(_gcorr);
@ -540,8 +581,10 @@ tipo CG3500_application::leggi_gruppi(int counter)
_descrconto = conto.descrizione(); _descrconto = conto.descrizione();
_prg_dare_conto = _tmp_saldi->get_real(SLD_PDARE); _prg_dare_conto = _tmp_saldi->get_real(SLD_PDARE);
_prg_avere_conto = _tmp_saldi->get_real(SLD_PAVERE); _prg_avere_conto = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare_conto = _tmp_saldi->get_real(SLD_PDARESCA); _saldo_dare_conto = _tmp_saldi->get_real(SLD_PDAREPRO); // W96SALDI del 10-06-96
_saldo_avere_conto = _tmp_saldi->get_real(SLD_PAVERESCA); //_saldo_dare_conto = _tmp_saldi->get_real(SLD_PDARESCA);
_saldo_avere_conto = _tmp_saldi->get_real(SLD_PAVEREPRO);
//_saldo_avere_conto = _tmp_saldi->get_real(SLD_PAVERESCA);
_tmp_saldi->next(); _tmp_saldi->next();
return stampaconto; return stampaconto;
@ -555,7 +598,7 @@ bool CG3500_application::CercaConto(int g, int c)
_tmp_saldi->put(SLD_CONTO,c); _tmp_saldi->put(SLD_CONTO,c);
_tmp_saldi->put(SLD_SOTTOCONTO,0l); _tmp_saldi->put(SLD_SOTTOCONTO,0l);
_tmp_saldi->put(SLD_ANNOES,_annoese); _tmp_saldi->put(SLD_ANNOES,_annoese);
_tmp_saldi->put(SLD_FLSCA. ""); _tmp_saldi->put(SLD_FLSCA,FALSE); // W96SALDI del 10-06-96
if (_tmp_saldi->read() == NOERR) if (_tmp_saldi->read() == NOERR)
{ {
_gconto = _tmp_saldi->get_int(SLD_GRUPPO); _gconto = _tmp_saldi->get_int(SLD_GRUPPO);
@ -569,8 +612,10 @@ bool CG3500_application::CercaConto(int g, int c)
_descrconto = conto.descrizione(); _descrconto = conto.descrizione();
_prg_dare_conto = _tmp_saldi->get_real(SLD_PDARE); _prg_dare_conto = _tmp_saldi->get_real(SLD_PDARE);
_prg_avere_conto = _tmp_saldi->get_real(SLD_PAVERE); _prg_avere_conto = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare_conto = _tmp_saldi->get_real(SLD_PDARESCA); _saldo_dare_conto = _tmp_saldi->get_real(SLD_PDAREPRO);
_saldo_avere_conto = _tmp_saldi->get_real(SLD_PAVERESCA); //_saldo_dare_conto = _tmp_saldi->get_real(SLD_PDARESCA); // W96SALDI del 10-06-96
_saldo_avere_conto = _tmp_saldi->get_real(SLD_PAVEREPRO);
//_saldo_avere_conto = _tmp_saldi->get_real(SLD_PAVERESCA);
return TRUE; return TRUE;
} }
@ -595,8 +640,10 @@ bool CG3500_application::CercaGruppo(int g)
_descrgruppo = conto.descrizione(); _descrgruppo = conto.descrizione();
_prg_dare_gruppo = _tmp_saldi->get_real(SLD_PDARE); _prg_dare_gruppo = _tmp_saldi->get_real(SLD_PDARE);
_prg_avere_gruppo = _tmp_saldi->get_real(SLD_PAVERE); _prg_avere_gruppo = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare_gruppo = _tmp_saldi->get_real(SLD_PDARESCA); _saldo_dare_gruppo = _tmp_saldi->get_real(SLD_PDAREPRO); // W96SALDI del 10-06-96
_saldo_avere_gruppo = _tmp_saldi->get_real(SLD_PAVERESCA); //_saldo_dare_gruppo = _tmp_saldi->get_real(SLD_PDARESCA);
_saldo_avere_gruppo = _tmp_saldi->get_real(SLD_PAVEREPRO);
//_saldo_avere_gruppo = _tmp_saldi->get_real(SLD_PAVERESCA);
_prg_dare_tot += _prg_dare_gruppo; _prg_dare_tot += _prg_dare_gruppo;
_prg_avere_tot += _prg_avere_gruppo; _prg_avere_tot += _prg_avere_gruppo;
@ -754,7 +801,7 @@ TDate CG3500_application::UltimaData(int g, int c, long s)
saldi.zero(); saldi.zero();
if (_annoese != 0) if (_annoese != 0)
saldi.put(SLD_ANNOES, _annoese); saldi.put(SLD_ANNOES, _annoese);
saldi->put(SLD_FLSCA, ""); saldi.put(SLD_FLSCA, FALSE); // W96SALDI del 10-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);

4
cg/cg3500a.uml
View File

@ -43,7 +43,7 @@ BEGIN
WARNING "Il codice esercizio deve essere presente nella tabella degli esercizi" WARNING "Il codice esercizio deve essere presente nella tabella degli esercizi"
END END
RADIOBUTTON F_STAMPA 26 RADIOBUTTON F_STAMPA 30
BEGIN BEGIN
PROMPT 2 5 "Scelta stampa " PROMPT 2 5 "Scelta stampa "
HELP "Indicare il grado di riepilogo" HELP "Indicare il grado di riepilogo"
@ -51,7 +51,7 @@ BEGIN
ITEM "2|Stampa riepilogo gruppi" ITEM "2|Stampa riepilogo gruppi"
END END
RADIOBUTTON F_RICHIESTA 40 RADIOBUTTON F_RICHIESTA 44
BEGIN BEGIN
PROMPT 2 9 "Richiesta stampa " PROMPT 2 9 "Richiesta stampa "
HELP "Indicare il tipo di movimenti da stampare" HELP "Indicare il tipo di movimenti da stampare"

44
cg/cg4600.cpp
View File

@ -614,7 +614,9 @@ bool CG4600_application::set()
_sld->set_anno_es(_annoesch); _sld->set_anno_es(_annoesch);
_sld->set_movprovv(FALSE); _sld->set_movprovv(FALSE);
_sld->set_tipo_saldo(normale); // _sld->set_tipo_saldo(normale);
_sld->set_tipo_saldo(chiusura);
_sld->set_movimentato(TRUE);
// _pn->destroy_rows(_numreg); //Azzero l'oggetto pn. // _pn->destroy_rows(_numreg); //Azzero l'oggetto pn.
costi (); costi ();
@ -771,11 +773,10 @@ void CG4600_application::costi()
_saldi->put(SLD_ANNOES, _annoesch); _saldi->put(SLD_ANNOES, _annoesch);
_saldi->put(SLD_GRUPPO, g); _saldi->put(SLD_GRUPPO, g);
_saldi->put(SLD_CONTO, c); _saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
(*_rec) = _saldi->curr(); (*_rec) = _saldi->curr();
_saldi->put(SLD_FLSCA,"");
j = 0; j = 0;
numrig = 0; numrig = 0;
@ -783,7 +784,7 @@ void CG4600_application::costi()
{ {
_saldo = ZERO; _saldo = ZERO;
if (_saldi->curr() > (*_rec) || _saldi->eof()) if (_saldi->curr() != (*_rec) || _saldi->eof())
{ {
// 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
@ -925,11 +926,10 @@ void CG4600_application::ricavi()
_saldi->put(SLD_ANNOES, _annoesch); _saldi->put(SLD_ANNOES, _annoesch);
_saldi->put(SLD_GRUPPO, g); _saldi->put(SLD_GRUPPO, g);
_saldi->put(SLD_CONTO, c); _saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
(*_rec) = _saldi->curr(); (*_rec) = _saldi->curr();
_saldi->put(SLD_FLSCA,"");
j = 0; j = 0;
numrig = 0; numrig = 0;
@ -937,7 +937,7 @@ void CG4600_application::ricavi()
{ {
_saldo = ZERO; _saldo = ZERO;
if (_saldi->curr() > (*_rec) || _saldi->eof()) if (_saldi->curr() != (*_rec) || _saldi->eof())
{ {
// 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
@ -1171,18 +1171,17 @@ void CG4600_application::chiudi_attivita()
_saldi->put(SLD_ANNOES, _annoesch); _saldi->put(SLD_ANNOES, _annoesch);
_saldi->put(SLD_GRUPPO, g); _saldi->put(SLD_GRUPPO, g);
_saldi->put(SLD_CONTO, c); _saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
// TRectype rec (_saldi->curr()); // TRectype rec (_saldi->curr());
*_rec = _saldi->curr(); *_rec = _saldi->curr();
_saldi->put(SLD_FLSCA,"");
j = 0; j = 0;
numrig = 0; numrig = 0;
for (int err = _saldi->read(_isgteq); ; _saldi->next()) for (int err = _saldi->read(_isgteq); ; _saldi->next())
{ {
if (_saldi->curr() > (*_rec) || _saldi->eof() || err != NOERR) 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
@ -1326,17 +1325,16 @@ void CG4600_application::chiudi_passivita()
_saldi->put(SLD_ANNOES, _annoesch); _saldi->put(SLD_ANNOES, _annoesch);
_saldi->put(SLD_GRUPPO, g); _saldi->put(SLD_GRUPPO, g);
_saldi->put(SLD_CONTO, c); _saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
TRectype rec (_saldi->curr()); TRectype rec (_saldi->curr());
_saldi->put(SLD_FLSCA,"");
j = 0; j = 0;
numrig = 0; numrig = 0;
for (_saldi->read(); ; _saldi->next()) for (_saldi->read(); ; _saldi->next())
{ {
if (_saldi->curr() > rec || _saldi->eof()) if (_saldi->curr() != rec || _saldi->eof())
{ {
// 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
@ -1480,18 +1478,17 @@ void CG4600_application::chiudi_conti_ordine()
_saldi->put(SLD_ANNOES, _annoesch); _saldi->put(SLD_ANNOES, _annoesch);
_saldi->put(SLD_GRUPPO, g); _saldi->put(SLD_GRUPPO, g);
_saldi->put(SLD_CONTO, c); _saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
// TRectype rec (_saldi->curr()); // TRectype rec (_saldi->curr());
*_rec = _saldi->curr(); *_rec = _saldi->curr();
_saldi->put(SLD_FLSCA,"");
j = 0; j = 0;
numrig = 0; numrig = 0;
for (_saldi->read(_isgteq); ; _saldi->next()) for (_saldi->read(_isgteq); ; _saldi->next())
{ {
if (_saldi->curr() > (*_rec) || _saldi->eof()) if (_saldi->curr() != (*_rec) || _saldi->eof())
{ {
// 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
@ -1683,17 +1680,16 @@ void CG4600_application::apri_attivita()
_saldi->put(SLD_ANNOES, _annoesch); _saldi->put(SLD_ANNOES, _annoesch);
_saldi->put(SLD_GRUPPO, g); _saldi->put(SLD_GRUPPO, g);
_saldi->put(SLD_CONTO, c); _saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
TRectype rec (_saldi->curr()); TRectype rec (_saldi->curr());
_saldi->put(SLD_FLSCA,"");
j = 0; j = 0;
numrig = 0; numrig = 0;
for (_saldi->read(); ; _saldi->next()) for (_saldi->read(); ; _saldi->next())
{ {
if (_saldi->curr() > rec || _saldi->eof()) if (_saldi->curr() != rec || _saldi->eof())
{ {
// 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
@ -1831,17 +1827,16 @@ void CG4600_application::apri_passivita()
_saldi->put(SLD_ANNOES, _annoesch); _saldi->put(SLD_ANNOES, _annoesch);
_saldi->put(SLD_GRUPPO, g); _saldi->put(SLD_GRUPPO, g);
_saldi->put(SLD_CONTO, c); _saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
TRectype rec (_saldi->curr()); TRectype rec (_saldi->curr());
_saldi->put(SLD_FLSCA,"");
j = 0; j = 0;
numrig = 0; numrig = 0;
for (_saldi->read(); ; _saldi->next()) for (_saldi->read(); ; _saldi->next())
{ {
if (_saldi->curr() > rec || _saldi->eof()) if (_saldi->curr() != rec || _saldi->eof())
{ {
// 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
@ -1979,17 +1974,16 @@ void CG4600_application::apri_conti_ordine()
_saldi->put(SLD_ANNOES, _annoesch); _saldi->put(SLD_ANNOES, _annoesch);
_saldi->put(SLD_GRUPPO, g); _saldi->put(SLD_GRUPPO, g);
_saldi->put(SLD_CONTO, c); _saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
TRectype rec (_saldi->curr()); TRectype rec (_saldi->curr());
_saldi->put(SLD_FLSCA,"");
j = 0; j = 0;
numrig = 0; numrig = 0;
for (_saldi->read(); ; _saldi->next()) for (_saldi->read(); ; _saldi->next())
{ {
if (_saldi->curr() > rec || _saldi->eof()) if (_saldi->curr() != rec || _saldi->eof())
{ {
// 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

2
cg/cg6700a.uml
View File

@ -19,7 +19,7 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
RADIOBUTTON F_LISTA 31 RADIOBUTTON F_LISTA 34
BEGIN BEGIN
PROMPT 2 4 "Scelta controllo " PROMPT 2 4 "Scelta controllo "
HELP "Indicare il tipo di controllo" HELP "Indicare il tipo di controllo"

30
cg/cg6804a.uml
View File

@ -1,5 +1,20 @@
#include "cg6804a.h" #include "cg6804a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 "~Conferma"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 10 PAGE "Variazione Movimenti Saldaconto" -1 -1 78 10
LIST F_TIPOCF 1 12 LIST F_TIPOCF 1 12
@ -15,7 +30,7 @@ END
NUMBER F_GRUPPO 3 NUMBER F_GRUPPO 3
BEGIN BEGIN
PROMPT 26 1 "Gruppo " PROMPT 28 1 "Gruppo "
USE LF_PCON SELECT CONTO=="" USE LF_PCON SELECT CONTO==""
INPUT GRUPPO F_GRUPPO INPUT GRUPPO F_GRUPPO
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
@ -27,7 +42,7 @@ END
NUMBER F_CONTO 3 NUMBER F_CONTO 3
BEGIN BEGIN
PROMPT 40 1 "Conto " PROMPT 41 1 "Conto "
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="") USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
INPUT GRUPPO F_GRUPPO INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO INPUT CONTO F_CONTO
@ -152,16 +167,5 @@ BEGIN
PROMPT 1 6 "Numero riga riferimento partita " PROMPT 1 6 "Numero riga riferimento partita "
END END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 "~Conferma"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE ENDPAGE

40
cg/cg6804b.uml
View File

@ -1,5 +1,27 @@
#include "cg6804a.h" #include "cg6804a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 "~Registra"
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20 PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
SPREADSHEET F_RIGAPART 0 16 SPREADSHEET F_RIGAPART 0 16
@ -33,24 +55,6 @@ BEGIN
ITEM "Cambio@15" ITEM "Cambio@15"
END END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 "~Registra"
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

54
cg/cg6804c.uml
View File

@ -1,3 +1,30 @@
TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 8 2
BEGIN
PROMPT -14 -1 "~Conferma"
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -24 -1 "~Elimina"
MESSAGE EXIT,K_DEL
END
BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -34 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON 100 8 2
BEGIN
PROMPT -44 -1 "~Gestione"
END
ENDPAGE
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20 PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
LIST 101 1 12 LIST 101 1 12
@ -11,13 +38,13 @@ END
NUMBER 102 3 NUMBER 102 3
BEGIN BEGIN
PROMPT 28 1 "Gruppo " PROMPT 30 1 "Gruppo "
FLAGS "D" FLAGS "D"
END END
NUMBER 103 3 NUMBER 103 3
BEGIN BEGIN
PROMPT 42 1 "Conto " PROMPT 43 1 "Conto "
FLAGS "D" FLAGS "D"
END END
@ -182,28 +209,5 @@ BEGIN
PICTURE ".5" PICTURE ".5"
END END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -14 -1 "~Conferma"
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -24 -1 "~Elimina"
MESSAGE EXIT,K_DEL
END
BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -34 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON 100 8 2
BEGIN
PROMPT -44 -1 "~Gestione"
END
ENDPAGE ENDPAGE

40
cg/cg6804d.uml
View File

@ -1,5 +1,27 @@
#include "cg6804a.h" #include "cg6804a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 "~Registra"
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20 PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
SPREADSHEET F_RIGASCAD 0 16 SPREADSHEET F_RIGASCAD 0 16
@ -32,24 +54,6 @@ BEGIN
ITEM "Num. soll." ITEM "Num. soll."
END END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 "~Registra"
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

40
cg/cg6804e.uml
View File

@ -1,5 +1,27 @@
#include "cg6804a.h" #include "cg6804a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 "~Registra"
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20 PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
SPREADSHEET F_RIGAPAGSCA 0 16 SPREADSHEET F_RIGAPAGSCA 0 16
@ -38,24 +60,6 @@ BEGIN
ITEM "Attivo/Passivo" ITEM "Attivo/Passivo"
END END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 "~Registra"
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

44
cg/cg6804f.uml
View File

@ -1,3 +1,25 @@
TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 8 2
BEGIN
PROMPT -13 -1 "~Conferma"
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -23 -1 "~Elimina"
MESSAGE EXIT,K_DEL
END
BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_ESC
END
ENDPAGE
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 18 PAGE "Variazione Movimenti Saldaconto" -1 -1 78 18
LIST 101 1 12 LIST 101 1 12
@ -11,13 +33,13 @@ END
NUMBER 102 3 NUMBER 102 3
BEGIN BEGIN
PROMPT 28 1 "Gruppo " PROMPT 30 1 "Gruppo "
FLAGS "D" FLAGS "D"
END END
NUMBER 103 3 NUMBER 103 3
BEGIN BEGIN
PROMPT 42 1 "Conto " PROMPT 43 1 "Conto "
FLAGS "D" FLAGS "D"
END END
@ -198,23 +220,5 @@ BEGIN
PROMPT 53 14 "Numero sollecito " PROMPT 53 14 "Numero sollecito "
END END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -13 -1 "~Conferma"
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -23 -1 "~Elimina"
MESSAGE EXIT,K_DEL
END
BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_ESC
END
ENDPAGE ENDPAGE

46
cg/cg6804g.uml
View File

@ -1,3 +1,25 @@
TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 8 2
BEGIN
PROMPT -13 -1 "~Conferma"
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -23 -1 "~Elimina"
MESSAGE EXIT,K_DEL
END
BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_ESC
END
ENDPAGE
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20 PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
LIST 101 1 12 LIST 101 1 12
@ -11,13 +33,13 @@ END
NUMBER 102 3 NUMBER 102 3
BEGIN BEGIN
PROMPT 28 1 "Gruppo " PROMPT 30 1 "Gruppo "
FLAGS "D" FLAGS "D"
END END
NUMBER 103 3 NUMBER 103 3
BEGIN BEGIN
PROMPT 42 1 "Conto " PROMPT 43 1 "Conto "
FLAGS "D" FLAGS "D"
END END
@ -131,7 +153,7 @@ END
LIST 121 1 12 LIST 121 1 12
BEGIN BEGIN
PROMPT -1 -1 "" PROMPT 1 30 ""
ITEM " |Conto" ITEM " |Conto"
ITEM "C|Cliente" ITEM "C|Cliente"
ITEM "F|Fornitore" ITEM "F|Fornitore"
@ -245,23 +267,5 @@ BEGIN
FLAGS "UD" FLAGS "UD"
END END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -13 -1 "~Conferma"
MESSAGE EXIT,K_SAVE
END
BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -23 -1 "~Elimina"
MESSAGE EXIT,K_DEL
END
BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_ESC
END
ENDPAGE ENDPAGE

8
cg/cglib02.cpp
View File

@ -167,7 +167,7 @@ void TSaldo_agg::clear_saldi(int year)
saldi.put(SLD_FLSCA, ""); saldi.put(SLD_FLSCA, "");
saldi.write(); saldi.write();
saldi.put(SLD_FLSCA, "X"); saldi.put(SLD_FLSCA, "X");
saldi.read(_unlock); saldi.read(_isequal,_unlock);
} }
} }
saldi.reread(_unlock); saldi.reread(_unlock);
@ -266,6 +266,12 @@ void TSaldo_agg::registra()
saldi.put(SLD_FLAGSALINI, flag_salini); saldi.put(SLD_FLAGSALINI, flag_salini);
saldi.put(SLD_SALDO, si); saldi.put(SLD_SALDO, si);
} }
real sf = tcon.saldofin();
char flag_salfin = sf < ZERO ? 'A' : 'D';
if (flag_salfin == 'A') sf = -sf;
saldi.put(SLD_FLAGSALFIN, flag_salfin);
saldi.put(SLD_SALDOFIN, sf);
r = saldi.get_real(SLD_PDARE); r = saldi.get_real(SLD_PDARE);
r += tcon.dare(); r += tcon.dare();
saldi.put(SLD_PDARE, r); saldi.put(SLD_PDARE, r);