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;

4
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"
@ -56,7 +56,7 @@ END
LIST F_CONTROLLO 23 LIST F_CONTROLLO 23
BEGIN BEGIN
PROMPT 2 7 "Controllo movimenti errati " PROMPT 2 7 "Controllo movimenti errati "
HELP "Indicare il tipo di controllo per movimenti errati" HELP "Indicare il tipo di controllo per movimenti errati"
ITEM "3|No" MESSAGE HIDE,1@|RESET,1@|ENABLE,F_STAMPA ITEM "3|No" MESSAGE HIDE,1@|RESET,1@|ENABLE,F_STAMPA
ITEM "2|Si" MESSAGE SHOW,1@ ITEM "2|Si" MESSAGE SHOW,1@

29
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;
@ -2977,7 +2997,8 @@ 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);

127
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();
} }
@ -250,12 +277,14 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_FLAGSALINI,tipo_conto); _tmp_saldi->put(SLD_FLAGSALINI,tipo_conto);
_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();
} }
@ -449,9 +484,11 @@ tipo CG3500_application::leggi_conti(int counter)
TConto conto (_gcorr,_ccorr,_scorr,_tipo); TConto conto (_gcorr,_ccorr,_scorr,_tipo);
_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);
@ -473,9 +510,11 @@ tipo CG3500_application::leggi_conti(int counter)
TConto conto (_gcorr,_ccorr,_scorr,_tipo); TConto conto (_gcorr,_ccorr,_scorr,_tipo);
_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;
@ -519,9 +558,11 @@ tipo CG3500_application::leggi_gruppi(int counter)
TConto conto (_gcorr,_ccorr,0l,_tipo); TConto conto (_gcorr,_ccorr,0l,_tipo);
_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);
@ -568,9 +611,11 @@ bool CG3500_application::CercaConto(int g, int c)
TConto conto (_gconto,_cconto,0l,_tipo); TConto conto (_gconto,_cconto,0l,_tipo);
_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;
} }
@ -594,9 +639,11 @@ bool CG3500_application::CercaGruppo(int g)
TConto conto (_ggruppo,0,0l,_tipo); TConto conto (_ggruppo,0,0l,_tipo);
_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"

46
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"

338
cg/cg6804a.uml
View File

@ -1,167 +1,171 @@
#include "cg6804a.h" #include "cg6804a.h"
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 10 TOOLBAR "" 0 20 0 2
LIST F_TIPOCF 1 12 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT 1 1 "Tipo conto " PROMPT -12 -1 "~Conferma"
ITEM " |Conto" MESSAGE EXIT,K_ENTER
MESSAGE SHOW,1@|RESET,1@|HIDE,2@|HIDE,3@ END
ITEM "C|Cliente"
MESSAGE HIDE,1@|SHOW,2@|RESET,2@|HIDE,3@ BUTTON DLG_QUIT 9 2
ITEM "F|Fornitore" BEGIN
MESSAGE HIDE,1@|HIDE,2@|SHOW,3@|RESET,3@ PROMPT -22 -1 ""
END END
NUMBER F_GRUPPO 3 ENDPAGE
BEGIN
PROMPT 26 1 "Gruppo " PAGE "Variazione Movimenti Saldaconto" -1 -1 78 10
USE LF_PCON SELECT CONTO==""
INPUT GRUPPO F_GRUPPO LIST F_TIPOCF 1 12
DISPLAY "Gruppo" GRUPPO BEGIN
DISPLAY "Descrizione@50" DESCR PROMPT 1 1 "Tipo conto "
OUTPUT F_GRUPPO GRUPPO ITEM " |Conto"
CHECKTYPE NORMAL MESSAGE SHOW,1@|RESET,1@|HIDE,2@|HIDE,3@
ADD RUN cg0 -0 ITEM "C|Cliente"
END MESSAGE HIDE,1@|SHOW,2@|RESET,2@|HIDE,3@
ITEM "F|Fornitore"
NUMBER F_CONTO 3 MESSAGE HIDE,1@|HIDE,2@|SHOW,3@|RESET,3@
BEGIN END
PROMPT 40 1 "Conto "
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="") NUMBER F_GRUPPO 3
INPUT GRUPPO F_GRUPPO BEGIN
INPUT CONTO F_CONTO PROMPT 28 1 "Gruppo "
DISPLAY "Gruppo" GRUPPO USE LF_PCON SELECT CONTO==""
DISPLAY "Conto" CONTO INPUT GRUPPO F_GRUPPO
DISPLAY "Descrizione@50" DESCR DISPLAY "Gruppo" GRUPPO
DISPLAY "Tipo" TMCF DISPLAY "Descrizione@50" DESCR
OUTPUT F_TIPOCF TMCF OUTPUT F_GRUPPO GRUPPO
OUTPUT F_GRUPPO GRUPPO CHECKTYPE NORMAL
OUTPUT F_CONTO CONTO ADD RUN cg0 -0
CHECKTYPE NORMAL END
ADD RUN cg0 -0
END NUMBER F_CONTO 3
BEGIN
NUMBER F_SOTTOCONTO 6 PROMPT 41 1 "Conto "
BEGIN USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
PROMPT 54 1 "Sottoconto " INPUT GRUPPO F_GRUPPO
USE LF_PCON SELECT SOTTOCONTO!="" INPUT CONTO F_CONTO
COPY INPUT F_CONTO DISPLAY "Gruppo" GRUPPO
INPUT SOTTOCONTO F_SOTTOCONTO DISPLAY "Conto" CONTO
DISPLAY "Gruppo" GRUPPO DISPLAY "Descrizione@50" DESCR
DISPLAY "Conto" CONTO DISPLAY "Tipo" TMCF
DISPLAY "Sottoconto" SOTTOCONTO OUTPUT F_TIPOCF TMCF
DISPLAY "Descrizione@50" DESCR OUTPUT F_GRUPPO GRUPPO
OUTPUT F_GRUPPO GRUPPO OUTPUT F_CONTO CONTO
OUTPUT F_CONTO CONTO CHECKTYPE NORMAL
OUTPUT F_SOTTOCONTO SOTTOCONTO ADD RUN cg0 -0
OUTPUT F_DESCR DESCR END
ADD RUN cg0 -0
GROUP 1 NUMBER F_SOTTOCONTO 6
CHECKTYPE NORMAL BEGIN
END PROMPT 54 1 "Sottoconto "
USE LF_PCON SELECT SOTTOCONTO!=""
NUMBER F_CLIENTE 6 COPY INPUT F_CONTO
BEGIN INPUT SOTTOCONTO F_SOTTOCONTO
PROMPT 54 1 "Cliente " DISPLAY "Gruppo" GRUPPO
USE LF_CLIFO DISPLAY "Conto" CONTO
INPUT TIPOCF "C" DISPLAY "Sottoconto" SOTTOCONTO
INPUT CODCF F_CLIENTE DISPLAY "Descrizione@50" DESCR
DISPLAY "Cliente" CODCF OUTPUT F_GRUPPO GRUPPO
DISPLAY "Descrizione@50" RAGSOC OUTPUT F_CONTO CONTO
OUTPUT F_CLIENTE CODCF OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESCRCLI RAGSOC OUTPUT F_DESCR DESCR
ADD RUN cg0 -1 C ADD RUN cg0 -0
GROUP 2 GROUP 1
CHECKTYPE NORMAL CHECKTYPE NORMAL
MESSAGE COPY,F_SOTTOCONTO END
END
NUMBER F_CLIENTE 6
NUMBER F_FORNITORE 6 BEGIN
BEGIN PROMPT 54 1 "Cliente "
PROMPT 54 1 "Fornitore " USE LF_CLIFO
USE LF_CLIFO INPUT TIPOCF "C"
INPUT TIPOCF "F" INPUT CODCF F_CLIENTE
INPUT CODCF F_FORNITORE DISPLAY "Cliente" CODCF
DISPLAY "Fornitore" CODCF DISPLAY "Descrizione@50" RAGSOC
DISPLAY "Descrizione@50" RAGSOC OUTPUT F_CLIENTE CODCF
OUTPUT F_FORNITORE CODCF OUTPUT F_DESCRCLI RAGSOC
OUTPUT F_DESCRFOR RAGSOC ADD RUN cg0 -1 C
ADD RUN cg0 -1 F GROUP 2
GROUP 3 CHECKTYPE NORMAL
CHECKTYPE NORMAL MESSAGE COPY,F_SOTTOCONTO
MESSAGE COPY,F_SOTTOCONTO END
END
NUMBER F_FORNITORE 6
STRING F_DESCR 50 58 BEGIN
BEGIN PROMPT 54 1 "Fornitore "
PROMPT 1 2 "Descrizione " USE LF_CLIFO
USE LF_PCON KEY 2 INPUT TIPOCF "F"
INPUT DESCR F_DESCR INPUT CODCF F_FORNITORE
DISPLAY "Descrizione@50" DESCR DISPLAY "Fornitore" CODCF
DISPLAY "Gruppo" GRUPPO DISPLAY "Descrizione@50" RAGSOC
DISPLAY "Conto" CONTO OUTPUT F_FORNITORE CODCF
DISPLAY "Sottoconto" SOTTOCONTO OUTPUT F_DESCRFOR RAGSOC
COPY OUTPUT F_SOTTOCONTO ADD RUN cg0 -1 F
CHECKTYPE NORMAL GROUP 3
GROUP 1 CHECKTYPE NORMAL
ADD RUN cg0 -0 MESSAGE COPY,F_SOTTOCONTO
END END
STRING F_DESCRCLI 50 58 STRING F_DESCR 50 58
BEGIN BEGIN
PROMPT 1 2 "Descrizione " PROMPT 1 2 "Descrizione "
USE LF_CLIFO KEY 2 USE LF_PCON KEY 2
INPUT TIPOCF "C" INPUT DESCR F_DESCR
INPUT RAGSOC F_DESCRCLI DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" CODCF DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Ragione sociale@50" RAGSOC COPY OUTPUT F_SOTTOCONTO
COPY OUTPUT F_CLIENTE CHECKTYPE NORMAL
CHECKTYPE NORMAL GROUP 1
GROUP 2 ADD RUN cg0 -0
ADD RUN cg0 -1 END
END
STRING F_DESCRCLI 50 58
STRING F_DESCRFOR 50 58 BEGIN
BEGIN PROMPT 1 2 "Descrizione "
PROMPT 1 2 "Descrizione " USE LF_CLIFO KEY 2
USE LF_CLIFO KEY 2 INPUT TIPOCF "C"
INPUT TIPOCF "F" INPUT RAGSOC F_DESCRCLI
INPUT RAGSOC F_DESCRFOR DISPLAY "Gruppo" GRUPPO
COPY DISPLAY F_DESCRCLI DISPLAY "Conto" CONTO
COPY OUTPUT F_FORNITORE DISPLAY "Sottoconto" CODCF
CHECKTYPE NORMAL DISPLAY "Ragione sociale@50" RAGSOC
GROUP 3 COPY OUTPUT F_CLIENTE
ADD RUN cg0 -1 CHECKTYPE NORMAL
END GROUP 2
ADD RUN cg0 -1
NUMBER F_ANNO 4 END
BEGIN
PROMPT 1 4 "Anno riferimento partita " STRING F_DESCRFOR 50 58
END BEGIN
PROMPT 1 2 "Descrizione "
STRING F_NUMPART 7 USE LF_CLIFO KEY 2
BEGIN INPUT TIPOCF "F"
PROMPT 1 5 "Numero riferimento partita " INPUT RAGSOC F_DESCRFOR
END COPY DISPLAY F_DESCRCLI
COPY OUTPUT F_FORNITORE
NUMBER F_NRIGA 4 CHECKTYPE NORMAL
BEGIN GROUP 3
PROMPT 1 6 "Numero riga riferimento partita " ADD RUN cg0 -1
END END
BUTTON DLG_OK 9 2 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT -12 -1 "~Conferma" PROMPT 1 4 "Anno riferimento partita "
MESSAGE EXIT,K_ENTER END
END
STRING F_NUMPART 7
BUTTON DLG_QUIT 9 2 BEGIN
BEGIN PROMPT 1 5 "Numero riferimento partita "
PROMPT -22 -1 "" END
END
NUMBER F_NRIGA 4
ENDPAGE BEGIN
PROMPT 1 6 "Numero riga riferimento partita "
END
ENDPAGE

118
cg/cg6804b.uml
View File

@ -1,58 +1,62 @@
#include "cg6804a.h" #include "cg6804a.h"
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20 TOOLBAR "" 0 20 0 2
SPREADSHEET F_RIGAPART 0 16 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT 0 1 "" PROMPT -13 -1 "~Registra"
ITEM "Tipo" MESSAGE EXIT,K_SAVE
ITEM "Gruppo" END
ITEM "Conto"
ITEM "Sottoconto" BUTTON DLG_CANCEL 10 2
ITEM "Descrizione conto / Ragione sociale C/F@50" BEGIN
ITEM "Anno" PROMPT -23 -1 ""
ITEM "Numero@7" MESSAGE EXIT,K_ESC
ITEM "N.riga" END
ITEM "Data doc.@10"
ITEM "N.docum." BUTTON DLG_QUIT 10 2
ITEM "Causale" BEGIN
ITEM "Descrizione causale@50" PROMPT -33 -1 ""
ITEM "N.reg. " MESSAGE EXIT,K_QUIT
ITEM "N.rig." END
ITEM "Data oper."
ITEM "Gruppo" ENDPAGE
ITEM "Conto"
ITEM "Descrizione conto cliente@50" PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
ITEM "Tipo mov."
ITEM "Descrizione@50" SPREADSHEET F_RIGAPART 0 16
ITEM "Sez" BEGIN
ITEM "Data pag. " PROMPT 0 1 ""
ITEM "Tipo pag." ITEM "Tipo"
ITEM "Cod. val." ITEM "Gruppo"
ITEM "Data cambio" ITEM "Conto"
ITEM "Cambio@15" ITEM "Sottoconto"
END ITEM "Descrizione conto / Ragione sociale C/F@50"
ITEM "Anno"
BUTTON DLG_SAVEREC 10 2 ITEM "Numero@7"
BEGIN ITEM "N.riga"
PROMPT -13 -1 "~Registra" ITEM "Data doc.@10"
MESSAGE EXIT,K_SAVE ITEM "N.docum."
END ITEM "Causale"
ITEM "Descrizione causale@50"
BUTTON DLG_CANCEL 10 2 ITEM "N.reg. "
BEGIN ITEM "N.rig."
PROMPT -23 -1 "" ITEM "Data oper."
MESSAGE EXIT,K_ESC ITEM "Gruppo"
END ITEM "Conto"
ITEM "Descrizione conto cliente@50"
BUTTON DLG_QUIT 10 2 ITEM "Tipo mov."
BEGIN ITEM "Descrizione@50"
PROMPT -33 -1 "" ITEM "Sez"
MESSAGE EXIT,K_QUIT ITEM "Data pag. "
END ITEM "Tipo pag."
ITEM "Cod. val."
ENDPAGE ITEM "Data cambio"
ITEM "Cambio@15"
ENDMASK END
ENDPAGE
ENDMASK
#include "cg6804c.uml" #include "cg6804c.uml"

422
cg/cg6804c.uml
View File

@ -1,209 +1,213 @@
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20 TOOLBAR "" 0 20 0 2
LIST 101 1 12 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT 1 1 "Tipo conto " PROMPT -14 -1 "~Conferma"
ITEM " |Conto" MESSAGE EXIT,K_SAVE
ITEM "C|Cliente" END
ITEM "F|Fornitore"
FLAGS "DG" BUTTON DLG_DELREC 8 2
END BEGIN
PROMPT -24 -1 "~Elimina"
NUMBER 102 3 MESSAGE EXIT,K_DEL
BEGIN END
PROMPT 28 1 "Gruppo "
FLAGS "D" BUTTON DLG_CANCEL 8 2
END BEGIN
PROMPT -34 -1 ""
NUMBER 103 3 MESSAGE EXIT,K_ESC
BEGIN END
PROMPT 42 1 "Conto "
FLAGS "D" BUTTON 100 8 2
END BEGIN
PROMPT -44 -1 "~Gestione"
NUMBER 104 6 END
BEGIN
PROMPT 56 1 "Sottoconto " ENDPAGE
FLAGS "DG"
END PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
STRING 105 50 LIST 101 1 12
BEGIN BEGIN
PROMPT 1 2 "Descrizione " PROMPT 1 1 "Tipo conto "
FLAGS "D" ITEM " |Conto"
END ITEM "C|Cliente"
ITEM "F|Fornitore"
TEXT DLG_NULL FLAGS "DG"
BEGIN END
PROMPT 1 3 "@bRiferimento partita "
END NUMBER 102 3
BEGIN
NUMBER 106 4 PROMPT 30 1 "Gruppo "
BEGIN FLAGS "D"
PROMPT 1 4 "Anno " END
FLAGS "D"
END NUMBER 103 3
BEGIN
STRING 107 7 PROMPT 43 1 "Conto "
BEGIN FLAGS "D"
PROMPT 28 4 "Numero " END
FLAGS "UD"
END NUMBER 104 6
BEGIN
NUMBER 108 4 PROMPT 56 1 "Sottoconto "
BEGIN FLAGS "DG"
PROMPT 56 4 "Numero riga " END
FLAGS "D"
END STRING 105 50
BEGIN
DATE 109 PROMPT 1 2 "Descrizione "
BEGIN FLAGS "D"
PROMPT 1 6 "Data documento " END
END
TEXT DLG_NULL
STRING 110 7 BEGIN
BEGIN PROMPT 1 3 "@bRiferimento partita "
PROMPT 50 6 "Numero documento " END
END
NUMBER 106 4
STRING 111 3 BEGIN
BEGIN PROMPT 1 4 "Anno "
PROMPT 1 7 "Causale " FLAGS "D"
USE LF_CAUSALI KEY 1 END
INPUT CODCAUS 111
DISPLAY "Causale" CODCAUS STRING 107 7
DISPLAY "Descrizione@50" DESCR BEGIN
OUTPUT 111 CODCAUS PROMPT 28 4 "Numero "
OUTPUT 112 DESCR FLAGS "UD"
FLAGS "UZ" END
CHECKTYPE NORMAL
END NUMBER 108 4
BEGIN
STRING 112 50 PROMPT 56 4 "Numero riga "
BEGIN FLAGS "D"
PROMPT 25 7 "" END
FLAGS "D"
END DATE 109
BEGIN
NUMBER 113 7 PROMPT 1 6 "Data documento "
BEGIN END
PROMPT 1 8 "Numero operazione "
END STRING 110 7
BEGIN
NUMBER 114 3 PROMPT 50 6 "Numero documento "
BEGIN END
PROMPT 30 8 "Numero riga "
END STRING 111 3
BEGIN
DATE 115 PROMPT 1 7 "Causale "
BEGIN USE LF_CAUSALI KEY 1
PROMPT 49 8 "Data operazione " INPUT CODCAUS 111
END DISPLAY "Causale" CODCAUS
DISPLAY "Descrizione@50" DESCR
NUMBER 116 3 OUTPUT 111 CODCAUS
BEGIN OUTPUT 112 DESCR
PROMPT 1 9 "Codice conto C/F " FLAGS "UZ"
USE LF_PCON KEY 1 CHECKTYPE NORMAL
INPUT GRUPPO 116 END
INPUT CONTO 117
DISPLAY "Gruppo" GRUPPO STRING 112 50
DISPLAY "Conto" CONTO BEGIN
DISPLAY "Descrizione@50" DESCR PROMPT 25 7 ""
OUTPUT 116 GRUPPO FLAGS "D"
OUTPUT 117 CONTO END
OUTPUT 118 DESCR
CHECKTYPE NORMAL NUMBER 113 7
END BEGIN
PROMPT 1 8 "Numero operazione "
NUMBER 117 3 END
BEGIN
PROMPT 26 9 "" NUMBER 114 3
COPY ALL 116 BEGIN
END PROMPT 30 8 "Numero riga "
END
STRING 118 50
BEGIN DATE 115
PROMPT 1 10 "Descrizione " BEGIN
FLAGS "D" PROMPT 49 8 "Data operazione "
END END
LIST 119 20 NUMBER 116 3
BEGIN BEGIN
PROMPT 1 11 "Tipo movimento " PROMPT 1 9 "Codice conto C/F "
ITEM "1|Fattura" USE LF_PCON KEY 1
ITEM "2|Nota credito" INPUT GRUPPO 116
ITEM "3|Incasso/pagamento" INPUT CONTO 117
ITEM "5|Insoluto" DISPLAY "Gruppo" GRUPPO
ITEM "6|Pagamento insoluto" DISPLAY "Conto" CONTO
END DISPLAY "Descrizione@50" DESCR
OUTPUT 116 GRUPPO
STRING 120 50 OUTPUT 117 CONTO
BEGIN OUTPUT 118 DESCR
PROMPT 1 12 "Descrizione " CHECKTYPE NORMAL
END END
LIST 121 7 NUMBER 117 3
BEGIN BEGIN
PROMPT 1 13 "Sezione " PROMPT 26 9 ""
ITEM "D|Dare" COPY ALL 116
ITEM "A|Avere" END
END
STRING 118 50
DATE 122 BEGIN
BEGIN PROMPT 1 10 "Descrizione "
PROMPT 1 14 "Data pagamento " FLAGS "D"
END END
NUMBER 123 1 LIST 119 20
BEGIN BEGIN
PROMPT 58 14 "Tipo pagamento " PROMPT 1 11 "Tipo movimento "
END ITEM "1|Fattura"
ITEM "2|Nota credito"
STRING 124 3 ITEM "3|Incasso/pagamento"
BEGIN ITEM "5|Insoluto"
PROMPT 1 15 "Codice valuta " ITEM "6|Pagamento insoluto"
USE %VAL END
INPUT CODTAB 124
DISPLAY "Codice" CODTAB STRING 120 50
DISPLAY "Descrizione@5" S0 BEGIN
OUTPUT 124 CODTAB PROMPT 1 12 "Descrizione "
CHECKTYPE NORMAL END
FLAGS "U"
END LIST 121 7
BEGIN
DATE 125 PROMPT 1 13 "Sezione "
BEGIN ITEM "D|Dare"
PROMPT 1 16 "Data cambio " ITEM "A|Avere"
END END
NUMBER 126 15 5 DATE 122
BEGIN BEGIN
PROMPT 53 16 "Cambio " PROMPT 1 14 "Data pagamento "
PICTURE ".5" END
END
NUMBER 123 1
BUTTON DLG_OK 8 2 BEGIN
BEGIN PROMPT 58 14 "Tipo pagamento "
PROMPT -14 -1 "~Conferma" END
MESSAGE EXIT,K_SAVE
END STRING 124 3
BEGIN
BUTTON DLG_DELREC 8 2 PROMPT 1 15 "Codice valuta "
BEGIN USE %VAL
PROMPT -24 -1 "~Elimina" INPUT CODTAB 124
MESSAGE EXIT,K_DEL DISPLAY "Codice" CODTAB
END DISPLAY "Descrizione@5" S0
OUTPUT 124 CODTAB
BUTTON DLG_CANCEL 8 2 CHECKTYPE NORMAL
BEGIN FLAGS "U"
PROMPT -34 -1 "" END
MESSAGE EXIT,K_ESC
END DATE 125
BEGIN
BUTTON 100 8 2 PROMPT 1 16 "Data cambio "
BEGIN END
PROMPT -44 -1 "~Gestione"
END NUMBER 126 15 5
BEGIN
ENDPAGE PROMPT 53 16 "Cambio "
PICTURE ".5"
END
ENDPAGE

116
cg/cg6804d.uml
View File

@ -1,57 +1,61 @@
#include "cg6804a.h" #include "cg6804a.h"
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20 TOOLBAR "" 0 20 0 2
SPREADSHEET F_RIGASCAD 0 16 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT 0 1 "" PROMPT -13 -1 "~Registra"
ITEM "Tipo" MESSAGE EXIT,K_SAVE
ITEM "Gruppo" END
ITEM "Conto"
ITEM "Sottoconto" BUTTON DLG_CANCEL 10 2
ITEM "Descrizione conto / Ragione sociale C/F@50" BEGIN
ITEM "Anno" PROMPT -23 -1 ""
ITEM "Numero@7" MESSAGE EXIT,K_ESC
ITEM "N.riga" END
ITEM "N.rata"
ITEM "Data scad." BUTTON DLG_QUIT 10 2
ITEM "Cod.pag." BEGIN
ITEM "Tipopag" PROMPT -33 -1 ""
ITEM "Ult.class." MESSAGE EXIT,K_QUIT
ITEM "Descrizione condizioni pagamento@50" END
ITEM "Sez"
ITEM "Importo@15" ENDPAGE
ITEM "Importo in valuta"
ITEM "Descrizione@50" PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
ITEM "Ns.ABI"
ITEM "Ns.CAB" SPREADSHEET F_RIGASCAD 0 16
ITEM "Vs.ABI" BEGIN
ITEM "Vs.CAB" PROMPT 0 1 ""
ITEM "Cod.Agente" ITEM "Tipo"
ITEM "Data soll." ITEM "Gruppo"
ITEM "Num. soll." ITEM "Conto"
END ITEM "Sottoconto"
ITEM "Descrizione conto / Ragione sociale C/F@50"
BUTTON DLG_SAVEREC 10 2 ITEM "Anno"
BEGIN ITEM "Numero@7"
PROMPT -13 -1 "~Registra" ITEM "N.riga"
MESSAGE EXIT,K_SAVE ITEM "N.rata"
END ITEM "Data scad."
ITEM "Cod.pag."
BUTTON DLG_CANCEL 10 2 ITEM "Tipopag"
BEGIN ITEM "Ult.class."
PROMPT -23 -1 "" ITEM "Descrizione condizioni pagamento@50"
MESSAGE EXIT,K_ESC ITEM "Sez"
END ITEM "Importo@15"
ITEM "Importo in valuta"
BUTTON DLG_QUIT 10 2 ITEM "Descrizione@50"
BEGIN ITEM "Ns.ABI"
PROMPT -33 -1 "" ITEM "Ns.CAB"
MESSAGE EXIT,K_QUIT ITEM "Vs.ABI"
END ITEM "Vs.CAB"
ITEM "Cod.Agente"
ENDPAGE ITEM "Data soll."
ITEM "Num. soll."
ENDMASK END
ENDPAGE
ENDMASK
#include "cg6804f.uml" #include "cg6804f.uml"

128
cg/cg6804e.uml
View File

@ -1,63 +1,67 @@
#include "cg6804a.h" #include "cg6804a.h"
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20 TOOLBAR "" 0 20 0 2
SPREADSHEET F_RIGAPAGSCA 0 16 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT 0 1 "" PROMPT -13 -1 "~Registra"
ITEM "Tipo" MESSAGE EXIT,K_SAVE
ITEM "Gruppo" END
ITEM "Conto"
ITEM "Sottoconto" BUTTON DLG_CANCEL 10 2
ITEM "Descrizione conto / Ragione sociale C/F@50" BEGIN
ITEM "Anno" PROMPT -23 -1 ""
ITEM "Numero@7" MESSAGE EXIT,K_ESC
ITEM "N.riga fatt." END
ITEM "N.rata fatt."
ITEM "N.riga" BUTTON DLG_QUIT 10 2
ITEM "Acc./Sal." BEGIN
ITEM "Sez" PROMPT -33 -1 ""
ITEM "Importo pagato" MESSAGE EXIT,K_QUIT
ITEM "Sez" END
ITEM "Ritenute prof."
ITEM "Sez" ENDPAGE
ITEM "Abbuoni@15"
ITEM "Sez" PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
ITEM "Diff. cambio@15"
ITEM "Importo in valuta" SPREADSHEET F_RIGAPAGSCA 0 16
ITEM "Tipo" BEGIN
ITEM "Gruppo" PROMPT 0 1 ""
ITEM "Conto" ITEM "Tipo"
ITEM "Sottoconto" ITEM "Gruppo"
ITEM "Descrizione contropartita@50" ITEM "Conto"
ITEM "Ns.ABI" ITEM "Sottoconto"
ITEM "Ns.CAB" ITEM "Descrizione conto / Ragione sociale C/F@50"
ITEM "Vs.ABI" ITEM "Anno"
ITEM "Vs.CAB" ITEM "Numero@7"
ITEM "Cod.Agente" ITEM "N.riga fatt."
ITEM "Attivo/Passivo" ITEM "N.rata fatt."
END ITEM "N.riga"
ITEM "Acc./Sal."
BUTTON DLG_SAVEREC 10 2 ITEM "Sez"
BEGIN ITEM "Importo pagato"
PROMPT -13 -1 "~Registra" ITEM "Sez"
MESSAGE EXIT,K_SAVE ITEM "Ritenute prof."
END ITEM "Sez"
ITEM "Abbuoni@15"
BUTTON DLG_CANCEL 10 2 ITEM "Sez"
BEGIN ITEM "Diff. cambio@15"
PROMPT -23 -1 "" ITEM "Importo in valuta"
MESSAGE EXIT,K_ESC ITEM "Tipo"
END ITEM "Gruppo"
ITEM "Conto"
BUTTON DLG_QUIT 10 2 ITEM "Sottoconto"
BEGIN ITEM "Descrizione contropartita@50"
PROMPT -33 -1 "" ITEM "Ns.ABI"
MESSAGE EXIT,K_QUIT ITEM "Ns.CAB"
END ITEM "Vs.ABI"
ITEM "Vs.CAB"
ENDPAGE ITEM "Cod.Agente"
ITEM "Attivo/Passivo"
ENDMASK END
ENDPAGE
ENDMASK
#include "cg6804g.uml" #include "cg6804g.uml"

444
cg/cg6804f.uml
View File

@ -1,220 +1,224 @@
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 18 TOOLBAR "" 0 20 0 2
LIST 101 1 12 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT 1 1 "Tipo conto " PROMPT -13 -1 "~Conferma"
ITEM " |Conto" MESSAGE EXIT,K_SAVE
ITEM "C|Cliente" END
ITEM "F|Fornitore"
FLAGS "DG" BUTTON DLG_DELREC 8 2
END BEGIN
PROMPT -23 -1 "~Elimina"
NUMBER 102 3 MESSAGE EXIT,K_DEL
BEGIN END
PROMPT 28 1 "Gruppo "
FLAGS "D" BUTTON DLG_CANCEL 8 2
END BEGIN
PROMPT -33 -1 ""
NUMBER 103 3 MESSAGE EXIT,K_ESC
BEGIN END
PROMPT 42 1 "Conto "
FLAGS "D" ENDPAGE
END
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 18
NUMBER 104 6
BEGIN LIST 101 1 12
PROMPT 56 1 "Sottoconto " BEGIN
FLAGS "DG" PROMPT 1 1 "Tipo conto "
END ITEM " |Conto"
ITEM "C|Cliente"
STRING 105 50 ITEM "F|Fornitore"
BEGIN FLAGS "DG"
PROMPT 1 2 "Descrizione " END
FLAGS "D"
END NUMBER 102 3
BEGIN
TEXT DLG_NULL PROMPT 30 1 "Gruppo "
BEGIN FLAGS "D"
PROMPT 1 3 "@bRiferimento partita " END
FLAGS "D"
END NUMBER 103 3
BEGIN
NUMBER 106 4 PROMPT 43 1 "Conto "
BEGIN FLAGS "D"
PROMPT 1 4 "Anno " END
FLAGS "D"
END NUMBER 104 6
BEGIN
STRING 107 7 PROMPT 56 1 "Sottoconto "
BEGIN FLAGS "DG"
PROMPT 22 4 "Numero " END
FLAGS "UD"
END STRING 105 50
BEGIN
NUMBER 108 4 PROMPT 1 2 "Descrizione "
BEGIN FLAGS "D"
PROMPT 40 4 "N.ro riga " END
FLAGS "D"
END TEXT DLG_NULL
BEGIN
NUMBER 109 4 PROMPT 1 3 "@bRiferimento partita "
BEGIN FLAGS "D"
PROMPT 59 4 "N.ro rata " END
FLAGS "D"
END NUMBER 106 4
BEGIN
DATE 110 PROMPT 1 4 "Anno "
BEGIN FLAGS "D"
PROMPT 1 6 "Data scadenza " END
END
STRING 107 7
STRING 111 4 BEGIN
BEGIN PROMPT 22 4 "Numero "
PROMPT 1 7 "Cod.pagamento " FLAGS "UD"
USE %CPG END
INPUT CODTAB 111
DISPLAY "Codice" CODTAB NUMBER 108 4
DISPLAY "Descrizione@50" S0 BEGIN
OUTPUT 111 CODTAB PROMPT 40 4 "N.ro riga "
CHECKTYPE NORMAL FLAGS "D"
FLAGS "U" END
ADD RUN ba3 -6
END NUMBER 109 4
BEGIN
NUMBER 112 1 PROMPT 59 4 "N.ro rata "
BEGIN FLAGS "D"
PROMPT 27 7 "Tipo pagamento " END
END
DATE 110
STRING 113 1 BEGIN
BEGIN PROMPT 1 6 "Data scadenza "
PROMPT 48 7 "Ulteriore classificazione " END
FLAGS "U"
END STRING 111 4
BEGIN
STRING 114 50 PROMPT 1 7 "Cod.pagamento "
BEGIN USE %CPG
PROMPT 1 8 "Descrizione " INPUT CODTAB 111
FLAGS "D" DISPLAY "Codice" CODTAB
END DISPLAY "Descrizione@50" S0
OUTPUT 111 CODTAB
STRING 115 1 CHECKTYPE NORMAL
BEGIN FLAGS "U"
PROMPT 1 9 "Importo " ADD RUN ba3 -6
FLAGS "D" END
END
NUMBER 112 1
NUMBER 116 15 BEGIN
BEGIN PROMPT 27 7 "Tipo pagamento "
PROMPT 18 9 "" END
PICTURE "."
END STRING 113 1
BEGIN
NUMBER 117 15 PROMPT 48 7 "Ulteriore classificazione "
BEGIN FLAGS "U"
PROMPT 40 9 "Importo in valuta " END
PICTURE ".3"
END STRING 114 50
BEGIN
STRING 118 50 PROMPT 1 8 "Descrizione "
BEGIN FLAGS "D"
PROMPT 1 10 "Descrizione " END
END
STRING 115 1
NUMBER 119 5 BEGIN
BEGIN PROMPT 1 9 "Importo "
PROMPT 1 11 "Codice ns. banca " FLAGS "D"
USE %BAN KEY 1 SELECT CODTAB ?= "?????" END
INPUT CODTAB 119
DISPLAY "Cod. ABI" CODTAB[1,5] NUMBER 116 15
DISPLAY "Denominazione@50" S0 BEGIN
OUTPUT 119 CODTAB[1,5] PROMPT 18 9 ""
CHECKTYPE NORMAL PICTURE "."
FLAGS "Z" END
END
NUMBER 117 15
NUMBER 120 5 BEGIN
BEGIN PROMPT 40 9 "Importo in valuta "
PROMPT 26 11 "" PICTURE ".3"
USE %BAN END
INPUT CODTAB[1,5] 119
INPUT CODTAB[6,10] 120 STRING 118 50
DISPLAY "Cod. ABI" CODTAB[1,5] BEGIN
DISPLAY "Cod. CAB" CODTAB[6,10] PROMPT 1 10 "Descrizione "
DISPLAY "Denominazione@50" S0 END
OUTPUT 119 CODTAB[1,5]
OUTPUT 120 CODTAB[6,10] NUMBER 119 5
CHECKTYPE NORMAL BEGIN
FLAGS "Z" PROMPT 1 11 "Codice ns. banca "
END USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB 119
NUMBER 121 5 DISPLAY "Cod. ABI" CODTAB[1,5]
BEGIN DISPLAY "Denominazione@50" S0
PROMPT 1 12 "Codice vs. banca " OUTPUT 119 CODTAB[1,5]
USE %BAN KEY 1 SELECT CODTAB ?= "?????" CHECKTYPE NORMAL
INPUT CODTAB 121 FLAGS "Z"
DISPLAY "Cod. ABI" CODTAB[1,5] END
DISPLAY "Cod. CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0 NUMBER 120 5
OUTPUT 121 CODTAB[1,5] BEGIN
CHECKTYPE NORMAL PROMPT 26 11 ""
FLAGS "Z" USE %BAN
END INPUT CODTAB[1,5] 119
INPUT CODTAB[6,10] 120
NUMBER 122 5 DISPLAY "Cod. ABI" CODTAB[1,5]
BEGIN DISPLAY "Cod. CAB" CODTAB[6,10]
PROMPT 26 12 "" DISPLAY "Denominazione@50" S0
USE %BAN OUTPUT 119 CODTAB[1,5]
INPUT CODTAB[1,5] 121 OUTPUT 120 CODTAB[6,10]
INPUT CODTAB[6,10] 122 CHECKTYPE NORMAL
DISPLAY "Cod. ABI" CODTAB[1,5] FLAGS "Z"
DISPLAY "Cod. CAB" CODTAB[6,10] END
DISPLAY "Denominazione@50" S0
OUTPUT 121 CODTAB[1,5] NUMBER 121 5
OUTPUT 122 CODTAB[6,10] BEGIN
CHECKTYPE NORMAL PROMPT 1 12 "Codice vs. banca "
FLAGS "Z" USE %BAN KEY 1 SELECT CODTAB ?= "?????"
END INPUT CODTAB 121
DISPLAY "Cod. ABI" CODTAB[1,5]
STRING 123 5 DISPLAY "Cod. CAB" CODTAB[6,10]
BEGIN DISPLAY "Denominazione@50" S0
PROMPT 1 13 "Codice agente " OUTPUT 121 CODTAB[1,5]
USE AGE CHECKTYPE NORMAL
INPUT CODTAB 123 FLAGS "Z"
DISPLAY "Codice" CODTAB END
DISPLAY "Denominazione@50" S0
OUTPUT 123 CODTAB NUMBER 122 5
FLAGS "U" BEGIN
CHECKTYPE NORMAL PROMPT 26 12 ""
END USE %BAN
INPUT CODTAB[1,5] 121
DATE 124 INPUT CODTAB[6,10] 122
BEGIN DISPLAY "Cod. ABI" CODTAB[1,5]
PROMPT 1 14 "Data sollecito " DISPLAY "Cod. CAB" CODTAB[6,10]
END DISPLAY "Denominazione@50" S0
OUTPUT 121 CODTAB[1,5]
NUMBER 125 2 OUTPUT 122 CODTAB[6,10]
BEGIN CHECKTYPE NORMAL
PROMPT 53 14 "Numero sollecito " FLAGS "Z"
END END
BUTTON DLG_OK 8 2 STRING 123 5
BEGIN BEGIN
PROMPT -13 -1 "~Conferma" PROMPT 1 13 "Codice agente "
MESSAGE EXIT,K_SAVE USE AGE
END INPUT CODTAB 123
DISPLAY "Codice" CODTAB
BUTTON DLG_DELREC 8 2 DISPLAY "Denominazione@50" S0
BEGIN OUTPUT 123 CODTAB
PROMPT -23 -1 "~Elimina" FLAGS "U"
MESSAGE EXIT,K_DEL CHECKTYPE NORMAL
END END
BUTTON DLG_CANCEL 8 2 DATE 124
BEGIN BEGIN
PROMPT -33 -1 "" PROMPT 1 14 "Data sollecito "
MESSAGE EXIT,K_ESC END
END
NUMBER 125 2
ENDPAGE BEGIN
PROMPT 53 14 "Numero sollecito "
END
ENDPAGE

538
cg/cg6804g.uml
View File

@ -1,267 +1,271 @@
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20 TOOLBAR "" 0 20 0 2
LIST 101 1 12 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT 1 1 "Tipo conto " PROMPT -13 -1 "~Conferma"
ITEM " |Conto" MESSAGE EXIT,K_SAVE
ITEM "C|Cliente" END
ITEM "F|Fornitore"
FLAGS "DG" BUTTON DLG_DELREC 8 2
END BEGIN
PROMPT -23 -1 "~Elimina"
NUMBER 102 3 MESSAGE EXIT,K_DEL
BEGIN END
PROMPT 28 1 "Gruppo "
FLAGS "D" BUTTON DLG_CANCEL 8 2
END BEGIN
PROMPT -33 -1 ""
NUMBER 103 3 MESSAGE EXIT,K_ESC
BEGIN END
PROMPT 42 1 "Conto "
FLAGS "D" ENDPAGE
END
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
NUMBER 104 6
BEGIN LIST 101 1 12
PROMPT 56 1 "Sottoconto " BEGIN
FLAGS "DG" PROMPT 1 1 "Tipo conto "
END ITEM " |Conto"
ITEM "C|Cliente"
STRING 105 50 ITEM "F|Fornitore"
BEGIN FLAGS "DG"
PROMPT 1 2 "Descrizione " END
FLAGS "D"
END NUMBER 102 3
BEGIN
TEXT DLG_NULL PROMPT 30 1 "Gruppo "
BEGIN FLAGS "D"
PROMPT 1 3 "@bRiferimento partita " END
FLAGS "D"
END NUMBER 103 3
BEGIN
NUMBER 106 4 PROMPT 43 1 "Conto "
BEGIN FLAGS "D"
PROMPT 1 4 "Anno " END
FLAGS "D"
END NUMBER 104 6
BEGIN
STRING 107 7 PROMPT 56 1 "Sottoconto "
BEGIN FLAGS "DG"
PROMPT 28 4 "Numero " END
FLAGS "UD"
END STRING 105 50
BEGIN
NUMBER 110 4 PROMPT 1 2 "Descrizione "
BEGIN FLAGS "D"
PROMPT 56 4 "Numero riga " END
FLAGS "D"
END TEXT DLG_NULL
BEGIN
NUMBER 109 4 PROMPT 1 3 "@bRiferimento partita "
BEGIN FLAGS "D"
PROMPT 1 5 "Numero rata fatt. " END
FLAGS "D"
END NUMBER 106 4
BEGIN
NUMBER 108 4 PROMPT 1 4 "Anno "
BEGIN FLAGS "D"
PROMPT 53 5 "Numero riga fatt. " END
FLAGS "D"
END STRING 107 7
BEGIN
STRING 111 1 PROMPT 28 4 "Numero "
BEGIN FLAGS "UD"
PROMPT 1 7 "Acconto/Saldo " END
FLAGS "U"
END NUMBER 110 4
BEGIN
STRING 112 1 PROMPT 56 4 "Numero riga "
BEGIN FLAGS "D"
PROMPT 1 8 "Importo pagato " END
FLAGS "D"
END NUMBER 109 4
BEGIN
NUMBER 113 15 PROMPT 1 5 "Numero rata fatt. "
BEGIN FLAGS "D"
PROMPT 20 8 "" END
PICTURE "."
END NUMBER 108 4
BEGIN
STRING 114 1 PROMPT 53 5 "Numero riga fatt. "
BEGIN FLAGS "D"
PROMPT 1 9 "Ritenute prof. " END
FLAGS "D"
END STRING 111 1
BEGIN
NUMBER 115 15 PROMPT 1 7 "Acconto/Saldo "
BEGIN FLAGS "U"
PROMPT 20 9 "" END
PICTURE "."
END STRING 112 1
BEGIN
STRING 116 1 PROMPT 1 8 "Importo pagato "
BEGIN FLAGS "D"
PROMPT 1 10 "Abbuoni " END
FLAGS "U"
END NUMBER 113 15
BEGIN
NUMBER 117 15 PROMPT 20 8 ""
BEGIN PICTURE "."
PROMPT 20 10 "" END
PICTURE "."
END STRING 114 1
BEGIN
STRING 118 1 PROMPT 1 9 "Ritenute prof. "
BEGIN FLAGS "D"
PROMPT 1 11 "Diff. cambio " END
FLAGS "U"
END NUMBER 115 15
BEGIN
NUMBER 119 15 PROMPT 20 9 ""
BEGIN PICTURE "."
PROMPT 20 11 "" END
PICTURE "."
END STRING 116 1
BEGIN
NUMBER 120 15 PROMPT 1 10 "Abbuoni "
BEGIN FLAGS "U"
PROMPT 41 8 "Importo in valuta " END
PICTURE ".3"
END NUMBER 117 15
BEGIN
LIST 121 1 12 PROMPT 20 10 ""
BEGIN PICTURE "."
PROMPT -1 -1 "" END
ITEM " |Conto"
ITEM "C|Cliente" STRING 118 1
ITEM "F|Fornitore" BEGIN
FLAGS "D" PROMPT 1 11 "Diff. cambio "
END FLAGS "U"
END
NUMBER 122 3
BEGIN NUMBER 119 15
PROMPT 1 12 "Cod.contropartita " BEGIN
END PROMPT 20 11 ""
PICTURE "."
NUMBER 123 3 END
BEGIN
PROMPT 27 12 "" NUMBER 120 15
END BEGIN
PROMPT 41 8 "Importo in valuta "
NUMBER 124 6 PICTURE ".3"
BEGIN END
PROMPT 34 12 ""
USE LF_PCON LIST 121 1 12
INPUT GRUPPO 122 BEGIN
INPUT CONTO 123 PROMPT 1 30 ""
INPUT SOTTOCONTO 124 ITEM " |Conto"
DISPLAY "Gruppo" GRUPPO ITEM "C|Cliente"
DISPLAY "Conto" CONTO ITEM "F|Fornitore"
DISPLAY "Sottoconto" SOTTOCONTO FLAGS "D"
DISPLAY "Descrizione@50" DESCR END
OUTPUT 122 GRUPPO
OUTPUT 123 CONTO NUMBER 122 3
OUTPUT 124 SOTTOCONTO BEGIN
OUTPUT 125 DESCR PROMPT 1 12 "Cod.contropartita "
CHECKTYPE NORMAL END
END
NUMBER 123 3
STRING 125 50 BEGIN
BEGIN PROMPT 27 12 ""
PROMPT 1 13 "Descrizione " END
FLAGS "D"
END NUMBER 124 6
BEGIN
NUMBER 126 5 PROMPT 34 12 ""
BEGIN USE LF_PCON
PROMPT 1 14 "Codice ns. banca " INPUT GRUPPO 122
USE %BAN KEY 1 SELECT CODTAB ?= "?????" INPUT CONTO 123
INPUT CODTAB 126 INPUT SOTTOCONTO 124
DISPLAY "Cod. ABI" CODTAB[1,5] DISPLAY "Gruppo" GRUPPO
DISPLAY "Denominazione@50" S0 DISPLAY "Conto" CONTO
OUTPUT 126 CODTAB[1,5] DISPLAY "Sottoconto" SOTTOCONTO
CHECKTYPE NORMAL DISPLAY "Descrizione@50" DESCR
FLAGS "Z" OUTPUT 122 GRUPPO
END OUTPUT 123 CONTO
OUTPUT 124 SOTTOCONTO
NUMBER 127 5 OUTPUT 125 DESCR
BEGIN CHECKTYPE NORMAL
PROMPT 28 14 "" END
USE %BAN
INPUT CODTAB[1,5] 126 STRING 125 50
INPUT CODTAB[6,10] 127 BEGIN
DISPLAY "Cod. ABI" CODTAB[1,5] PROMPT 1 13 "Descrizione "
DISPLAY "Cod. CAB" CODTAB[6,10] FLAGS "D"
DISPLAY "Denominazione@50" S0 END
OUTPUT 126 CODTAB[1,5]
OUTPUT 127 CODTAB[6,10] NUMBER 126 5
CHECKTYPE NORMAL BEGIN
FLAGS "Z" PROMPT 1 14 "Codice ns. banca "
END USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB 126
NUMBER 128 5 DISPLAY "Cod. ABI" CODTAB[1,5]
BEGIN DISPLAY "Denominazione@50" S0
PROMPT 1 15 "Codice vs. banca " OUTPUT 126 CODTAB[1,5]
USE %BAN KEY 1 SELECT CODTAB ?= "?????" CHECKTYPE NORMAL
INPUT CODTAB 128 FLAGS "Z"
DISPLAY "Cod. ABI" CODTAB[1,5] END
DISPLAY "Cod. CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0 NUMBER 127 5
OUTPUT 128 CODTAB[1,5] BEGIN
CHECKTYPE NORMAL PROMPT 28 14 ""
FLAGS "Z" USE %BAN
END INPUT CODTAB[1,5] 126
INPUT CODTAB[6,10] 127
NUMBER 129 5 DISPLAY "Cod. ABI" CODTAB[1,5]
BEGIN DISPLAY "Cod. CAB" CODTAB[6,10]
PROMPT 28 15 "" DISPLAY "Denominazione@50" S0
USE %BAN OUTPUT 126 CODTAB[1,5]
INPUT CODTAB[1,5] 128 OUTPUT 127 CODTAB[6,10]
INPUT CODTAB[6,10] 129 CHECKTYPE NORMAL
DISPLAY "Cod. ABI" CODTAB[1,5] FLAGS "Z"
DISPLAY "Cod. CAB" CODTAB[6,10] END
DISPLAY "Denominazione@50" S0
OUTPUT 128 CODTAB[1,5] NUMBER 128 5
OUTPUT 129 CODTAB[6,10] BEGIN
CHECKTYPE NORMAL PROMPT 1 15 "Codice vs. banca "
FLAGS "Z" USE %BAN KEY 1 SELECT CODTAB ?= "?????"
END INPUT CODTAB 128
DISPLAY "Cod. ABI" CODTAB[1,5]
STRING 130 5 DISPLAY "Cod. CAB" CODTAB[6,10]
BEGIN DISPLAY "Denominazione@50" S0
PROMPT 1 16 "Codice agente " OUTPUT 128 CODTAB[1,5]
USE AGE CHECKTYPE NORMAL
INPUT CODTAB 130 FLAGS "Z"
DISPLAY "Codice" CODTAB END
DISPLAY "Denominazione@50" S0
OUTPUT 130 CODTAB NUMBER 129 5
FLAGS "U" BEGIN
CHECKTYPE NORMAL PROMPT 28 15 ""
END USE %BAN
INPUT CODTAB[1,5] 128
STRING 131 1 INPUT CODTAB[6,10] 129
BEGIN DISPLAY "Cod. ABI" CODTAB[1,5]
PROMPT 41 10 "Attivo / Passivo " DISPLAY "Cod. CAB" CODTAB[6,10]
FLAGS "UD" DISPLAY "Denominazione@50" S0
END OUTPUT 128 CODTAB[1,5]
OUTPUT 129 CODTAB[6,10]
BUTTON DLG_OK 8 2 CHECKTYPE NORMAL
BEGIN FLAGS "Z"
PROMPT -13 -1 "~Conferma" END
MESSAGE EXIT,K_SAVE
END STRING 130 5
BEGIN
BUTTON DLG_DELREC 8 2 PROMPT 1 16 "Codice agente "
BEGIN USE AGE
PROMPT -23 -1 "~Elimina" INPUT CODTAB 130
MESSAGE EXIT,K_DEL DISPLAY "Codice" CODTAB
END DISPLAY "Denominazione@50" S0
OUTPUT 130 CODTAB
BUTTON DLG_CANCEL 8 2 FLAGS "U"
BEGIN CHECKTYPE NORMAL
PROMPT -33 -1 "" END
MESSAGE EXIT,K_ESC
END STRING 131 1
BEGIN
ENDPAGE PROMPT 41 10 "Attivo / Passivo "
FLAGS "UD"
END
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);