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"
END
RADIOBUTTON F_BILANCIO 33
RADIOBUTTON F_BILANCIO 37
BEGIN
PROMPT 2 5 "Tipo bilancio "
HELP "Indicare il tipo di bilancio da stampare"
@ -68,7 +68,7 @@ END
RADIOBUTTON F_STAMPA 28
BEGIN
PROMPT 40 5 "Tipo stampa "
PROMPT 41 5 "Tipo stampa "
HELP "Indicare il tipo di stampa"
ITEM "1|Per date limite"
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);
// 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);
saldo_raf = _sld->saldo();
@ -1888,7 +1888,7 @@ bool CG1600_application::calcola_saldo(real& saldo, real& saldo_raf,int g,int c,
else
no_movimentato_raf = FALSE;
}
/* }
}
else if (_databilrafr == _data_fine_raf) //(_tipo_stampa == 2)
{
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;
saldo_raf = _sld->saldo();
}*/
}
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 2: rt = cg3300(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;
}
return rt;

4
cg/cg3100a.uml
View File

@ -43,7 +43,7 @@ BEGIN
FLAGS "RZ"
END
RADIOBUTTON F_MOVIMENTI 38
RADIOBUTTON F_MOVIMENTI 41
BEGIN
PROMPT 30 3 "Scelta stampa "
HELP "Indicare il tipo di stampa"
@ -56,7 +56,7 @@ END
LIST F_CONTROLLO 23
BEGIN
PROMPT 2 7 "Controllo movimenti errati "
PROMPT 2 7 "Controllo movimenti errati "
HELP "Indicare il tipo di controllo per movimenti errati"
ITEM "3|No" MESSAGE HIDE,1@|RESET,1@|ENABLE,F_STAMPA
ITEM "2|Si" MESSAGE SHOW,1@

29
cg/cg3200.cpp
View File

@ -106,6 +106,8 @@ protected:
public:
TDate _inizioEs,_fineEs;
int date2esc(const TDate& d, int* prevesc = NULL);
void ricerca_clifo();
void ricerca_gruppo();
int ricerca_clifo(int riga);
@ -585,6 +587,24 @@ bool TMastrini_application::check_ordine(TMask_field& f, KEY k)
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
//record figlio (e che soddisfa la condizione riguardante la data di registr.).
//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;
}
app()._anno_ghost = date2esc(data_ini);
app()._anno_ghost = app().date2esc(data_ini);
app()._inizioes = app()._inizioEs;
@ -2977,7 +2997,8 @@ void TMastrini_application::calcola_progressivi()
}
}
}
*/
*/
} // if (!saldi.get_bool(SLD_FLSCA))
} // FOR
//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");
_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);
_unloc = new TLocalisamfile (LF_UNLOC);
_comuni = new TLocalisamfile (LF_COMUNI);

127
cg/cg3500.cpp
View File

@ -1,5 +1,24 @@
//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 <mask.h>
#include <printapp.h>
@ -109,11 +128,13 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_PDARE,prg_conto_dare);
_tmp_saldi->put(SLD_PAVERE,prg_conto_avere);
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
{
saldo_conto = saldo_conto * (-1.00);
_tmp_saldi->put(SLD_PAVERESCA,saldo_conto);
saldo_conto = saldo_conto * (-1.00);
_tmp_saldi->put(SLD_PAVEREPRO,saldo_conto); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PAVERESCA,saldo_conto);
}
_tmp_saldi->write();
esiste_conto = TRUE;
@ -135,11 +156,13 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_PDARE,prg_gruppo_dare);
_tmp_saldi->put(SLD_PAVERE,prg_gruppo_avere);
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
{
saldo_gruppo = saldo_gruppo * (-1.00);
_tmp_saldi->put(SLD_PAVERESCA,saldo_gruppo);
saldo_gruppo = saldo_gruppo * (-1.00);
_tmp_saldi->put(SLD_PAVEREPRO,saldo_gruppo); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PAVERESCA,saldo_gruppo);
}
_tmp_saldi->write();
gp = conto.gruppo();
@ -178,11 +201,13 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_PDARE,prg_conto_dare);
_tmp_saldi->put(SLD_PAVERE,prg_conto_avere);
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
{
saldo_conto = saldo_conto * (-1.00);
_tmp_saldi->put(SLD_PAVERESCA,saldo_conto);
saldo_conto = saldo_conto * (-1.00);
_tmp_saldi->put(SLD_PAVEREPRO,saldo_conto); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PAVERESCA,saldo_conto);
}
_tmp_saldi->write();
esiste_conto = TRUE;
@ -200,11 +225,13 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_PDARE,prg_gruppo_dare);
_tmp_saldi->put(SLD_PAVERE,prg_gruppo_avere);
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
{
saldo_gruppo = saldo_gruppo * (-1.00);
_tmp_saldi->put(SLD_PAVERESCA,saldo_gruppo);
saldo_gruppo = saldo_gruppo * (-1.00);
_tmp_saldi->put(SLD_PAVEREPRO,saldo_gruppo); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PAVERESCA,saldo_gruppo);
}
_tmp_saldi->write();
}
@ -250,12 +277,14 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_FLAGSALINI,tipo_conto);
_tmp_saldi->put(SLD_PDARE,prg_dare);
_tmp_saldi->put(SLD_PAVERE,prg_avere);
if (saldo > 0.00) //va stampato in Dare
_tmp_saldi->put(SLD_PDARESCA,saldo);
if (saldo > 0.00) //va stampato in Dare
_tmp_saldi->put(SLD_PDAREPRO,saldo); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PDARESCA,saldo);
else
{
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();
}
@ -289,11 +318,13 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_PDARE,prg_conto_dare);
_tmp_saldi->put(SLD_PAVERE,prg_conto_avere);
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
{
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();
}
@ -309,11 +340,13 @@ bool CG3500_application::riepilogo()
_tmp_saldi->put(SLD_PDARE,prg_gruppo_dare);
_tmp_saldi->put(SLD_PAVERE,prg_gruppo_avere);
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
{
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();
}
@ -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_PAVERE,prg_avere);
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
{
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();
}
@ -449,9 +484,11 @@ tipo CG3500_application::leggi_conti(int counter)
TConto conto (_gcorr,_ccorr,_scorr,_tipo);
_descr = conto.descrizione();
_prg_dare = _tmp_saldi->get_real(SLD_PDARE);
_prg_avere = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare = _tmp_saldi->get_real(SLD_PDARESCA);
_saldo_avere = _tmp_saldi->get_real(SLD_PAVERESCA);
_prg_avere = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare = _tmp_saldi->get_real(SLD_PDAREPRO); // W96SALDI del 10-06-96
//_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);
CercaGruppo(_gcorr);
@ -473,9 +510,11 @@ tipo CG3500_application::leggi_conti(int counter)
TConto conto (_gcorr,_ccorr,_scorr,_tipo);
_descr = conto.descrizione();
_prg_dare = _tmp_saldi->get_real(SLD_PDARE);
_prg_avere = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare = _tmp_saldi->get_real(SLD_PDARESCA);
_saldo_avere = _tmp_saldi->get_real(SLD_PAVERESCA);
_prg_avere = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare = _tmp_saldi->get_real(SLD_PDAREPRO); // W96SALDI del 10-06-96
//_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();
return stampasottoconto;
@ -519,9 +558,11 @@ tipo CG3500_application::leggi_gruppi(int counter)
TConto conto (_gcorr,_ccorr,0l,_tipo);
_descrconto = conto.descrizione();
_prg_dare_conto = _tmp_saldi->get_real(SLD_PDARE);
_prg_avere_conto = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare_conto = _tmp_saldi->get_real(SLD_PDARESCA);
_saldo_avere_conto = _tmp_saldi->get_real(SLD_PAVERESCA);
_prg_avere_conto = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare_conto = _tmp_saldi->get_real(SLD_PDAREPRO); // W96SALDI del 10-06-96
//_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);
@ -540,8 +581,10 @@ tipo CG3500_application::leggi_gruppi(int counter)
_descrconto = conto.descrizione();
_prg_dare_conto = _tmp_saldi->get_real(SLD_PDARE);
_prg_avere_conto = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare_conto = _tmp_saldi->get_real(SLD_PDARESCA);
_saldo_avere_conto = _tmp_saldi->get_real(SLD_PAVERESCA);
_saldo_dare_conto = _tmp_saldi->get_real(SLD_PDAREPRO); // W96SALDI del 10-06-96
//_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();
return stampaconto;
@ -555,7 +598,7 @@ bool CG3500_application::CercaConto(int g, int c)
_tmp_saldi->put(SLD_CONTO,c);
_tmp_saldi->put(SLD_SOTTOCONTO,0l);
_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)
{
_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);
_descrconto = conto.descrizione();
_prg_dare_conto = _tmp_saldi->get_real(SLD_PDARE);
_prg_avere_conto = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare_conto = _tmp_saldi->get_real(SLD_PDARESCA);
_saldo_avere_conto = _tmp_saldi->get_real(SLD_PAVERESCA);
_prg_avere_conto = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare_conto = _tmp_saldi->get_real(SLD_PDAREPRO);
//_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;
}
@ -594,9 +639,11 @@ bool CG3500_application::CercaGruppo(int g)
TConto conto (_ggruppo,0,0l,_tipo);
_descrgruppo = conto.descrizione();
_prg_dare_gruppo = _tmp_saldi->get_real(SLD_PDARE);
_prg_avere_gruppo = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare_gruppo = _tmp_saldi->get_real(SLD_PDARESCA);
_saldo_avere_gruppo = _tmp_saldi->get_real(SLD_PAVERESCA);
_prg_avere_gruppo = _tmp_saldi->get_real(SLD_PAVERE);
_saldo_dare_gruppo = _tmp_saldi->get_real(SLD_PDAREPRO); // W96SALDI del 10-06-96
//_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_avere_tot += _prg_avere_gruppo;
@ -754,7 +801,7 @@ TDate CG3500_application::UltimaData(int g, int c, long s)
saldi.zero();
if (_annoese != 0)
saldi.put(SLD_ANNOES, _annoese);
saldi->put(SLD_FLSCA, "");
saldi.put(SLD_FLSCA, FALSE); // W96SALDI del 10-06-96
saldi.put(SLD_GRUPPO,g);
if (c != 0)
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"
END
RADIOBUTTON F_STAMPA 26
RADIOBUTTON F_STAMPA 30
BEGIN
PROMPT 2 5 "Scelta stampa "
HELP "Indicare il grado di riepilogo"
@ -51,7 +51,7 @@ BEGIN
ITEM "2|Stampa riepilogo gruppi"
END
RADIOBUTTON F_RICHIESTA 40
RADIOBUTTON F_RICHIESTA 44
BEGIN
PROMPT 2 9 "Richiesta stampa "
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_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.
costi ();
@ -771,11 +773,10 @@ void CG4600_application::costi()
_saldi->put(SLD_ANNOES, _annoesch);
_saldi->put(SLD_GRUPPO, g);
_saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
(*_rec) = _saldi->curr();
_saldi->put(SLD_FLSCA,"");
j = 0;
numrig = 0;
@ -783,7 +784,7 @@ void CG4600_application::costi()
{
_saldo = ZERO;
if (_saldi->curr() > (*_rec) || _saldi->eof())
if (_saldi->curr() != (*_rec) || _saldi->eof())
{
// Aggiungo un ulteriore riga di movimento contenente la somma
// 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_GRUPPO, g);
_saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
(*_rec) = _saldi->curr();
_saldi->put(SLD_FLSCA,"");
j = 0;
numrig = 0;
@ -937,7 +937,7 @@ void CG4600_application::ricavi()
{
_saldo = ZERO;
if (_saldi->curr() > (*_rec) || _saldi->eof())
if (_saldi->curr() != (*_rec) || _saldi->eof())
{
// Aggiungo un ulteriore riga di movimento contenente la somma
// 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_GRUPPO, g);
_saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
// TRectype rec (_saldi->curr());
*_rec = _saldi->curr();
_saldi->put(SLD_FLSCA,"");
j = 0;
numrig = 0;
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
// 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_GRUPPO, g);
_saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
TRectype rec (_saldi->curr());
_saldi->put(SLD_FLSCA,"");
j = 0;
numrig = 0;
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
// 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_GRUPPO, g);
_saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
// TRectype rec (_saldi->curr());
*_rec = _saldi->curr();
_saldi->put(SLD_FLSCA,"");
j = 0;
numrig = 0;
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
// 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_GRUPPO, g);
_saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
TRectype rec (_saldi->curr());
_saldi->put(SLD_FLSCA,"");
j = 0;
numrig = 0;
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
// 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_GRUPPO, g);
_saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
TRectype rec (_saldi->curr());
_saldi->put(SLD_FLSCA,"");
j = 0;
numrig = 0;
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
// 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_GRUPPO, g);
_saldi->put(SLD_CONTO, c);
_saldi->put(SLD_FLSCA, FALSE);
TRectype rec (_saldi->curr());
_saldi->put(SLD_FLSCA,"");
j = 0;
numrig = 0;
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
// di tutti i saldi aventi lo stesso conto, indicandola

2
cg/cg6700a.uml
View File

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

338
cg/cg6804a.uml
View File

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

118
cg/cg6804b.uml
View File

@ -1,58 +1,62 @@
#include "cg6804a.h"
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
SPREADSHEET F_RIGAPART 0 16
BEGIN
PROMPT 0 1 ""
ITEM "Tipo"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione conto / Ragione sociale C/F@50"
ITEM "Anno"
ITEM "Numero@7"
ITEM "N.riga"
ITEM "Data doc.@10"
ITEM "N.docum."
ITEM "Causale"
ITEM "Descrizione causale@50"
ITEM "N.reg. "
ITEM "N.rig."
ITEM "Data oper."
ITEM "Gruppo"
ITEM "Conto"
ITEM "Descrizione conto cliente@50"
ITEM "Tipo mov."
ITEM "Descrizione@50"
ITEM "Sez"
ITEM "Data pag. "
ITEM "Tipo pag."
ITEM "Cod. val."
ITEM "Data cambio"
ITEM "Cambio@15"
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
ENDMASK
#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
SPREADSHEET F_RIGAPART 0 16
BEGIN
PROMPT 0 1 ""
ITEM "Tipo"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione conto / Ragione sociale C/F@50"
ITEM "Anno"
ITEM "Numero@7"
ITEM "N.riga"
ITEM "Data doc.@10"
ITEM "N.docum."
ITEM "Causale"
ITEM "Descrizione causale@50"
ITEM "N.reg. "
ITEM "N.rig."
ITEM "Data oper."
ITEM "Gruppo"
ITEM "Conto"
ITEM "Descrizione conto cliente@50"
ITEM "Tipo mov."
ITEM "Descrizione@50"
ITEM "Sez"
ITEM "Data pag. "
ITEM "Tipo pag."
ITEM "Cod. val."
ITEM "Data cambio"
ITEM "Cambio@15"
END
ENDPAGE
ENDMASK
#include "cg6804c.uml"

422
cg/cg6804c.uml
View File

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

116
cg/cg6804d.uml
View File

@ -1,57 +1,61 @@
#include "cg6804a.h"
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
SPREADSHEET F_RIGASCAD 0 16
BEGIN
PROMPT 0 1 ""
ITEM "Tipo"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione conto / Ragione sociale C/F@50"
ITEM "Anno"
ITEM "Numero@7"
ITEM "N.riga"
ITEM "N.rata"
ITEM "Data scad."
ITEM "Cod.pag."
ITEM "Tipopag"
ITEM "Ult.class."
ITEM "Descrizione condizioni pagamento@50"
ITEM "Sez"
ITEM "Importo@15"
ITEM "Importo in valuta"
ITEM "Descrizione@50"
ITEM "Ns.ABI"
ITEM "Ns.CAB"
ITEM "Vs.ABI"
ITEM "Vs.CAB"
ITEM "Cod.Agente"
ITEM "Data soll."
ITEM "Num. soll."
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
ENDMASK
#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
SPREADSHEET F_RIGASCAD 0 16
BEGIN
PROMPT 0 1 ""
ITEM "Tipo"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione conto / Ragione sociale C/F@50"
ITEM "Anno"
ITEM "Numero@7"
ITEM "N.riga"
ITEM "N.rata"
ITEM "Data scad."
ITEM "Cod.pag."
ITEM "Tipopag"
ITEM "Ult.class."
ITEM "Descrizione condizioni pagamento@50"
ITEM "Sez"
ITEM "Importo@15"
ITEM "Importo in valuta"
ITEM "Descrizione@50"
ITEM "Ns.ABI"
ITEM "Ns.CAB"
ITEM "Vs.ABI"
ITEM "Vs.CAB"
ITEM "Cod.Agente"
ITEM "Data soll."
ITEM "Num. soll."
END
ENDPAGE
ENDMASK
#include "cg6804f.uml"

128
cg/cg6804e.uml
View File

@ -1,63 +1,67 @@
#include "cg6804a.h"
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
SPREADSHEET F_RIGAPAGSCA 0 16
BEGIN
PROMPT 0 1 ""
ITEM "Tipo"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione conto / Ragione sociale C/F@50"
ITEM "Anno"
ITEM "Numero@7"
ITEM "N.riga fatt."
ITEM "N.rata fatt."
ITEM "N.riga"
ITEM "Acc./Sal."
ITEM "Sez"
ITEM "Importo pagato"
ITEM "Sez"
ITEM "Ritenute prof."
ITEM "Sez"
ITEM "Abbuoni@15"
ITEM "Sez"
ITEM "Diff. cambio@15"
ITEM "Importo in valuta"
ITEM "Tipo"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione contropartita@50"
ITEM "Ns.ABI"
ITEM "Ns.CAB"
ITEM "Vs.ABI"
ITEM "Vs.CAB"
ITEM "Cod.Agente"
ITEM "Attivo/Passivo"
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
ENDMASK
#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
SPREADSHEET F_RIGAPAGSCA 0 16
BEGIN
PROMPT 0 1 ""
ITEM "Tipo"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione conto / Ragione sociale C/F@50"
ITEM "Anno"
ITEM "Numero@7"
ITEM "N.riga fatt."
ITEM "N.rata fatt."
ITEM "N.riga"
ITEM "Acc./Sal."
ITEM "Sez"
ITEM "Importo pagato"
ITEM "Sez"
ITEM "Ritenute prof."
ITEM "Sez"
ITEM "Abbuoni@15"
ITEM "Sez"
ITEM "Diff. cambio@15"
ITEM "Importo in valuta"
ITEM "Tipo"
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione contropartita@50"
ITEM "Ns.ABI"
ITEM "Ns.CAB"
ITEM "Vs.ABI"
ITEM "Vs.CAB"
ITEM "Cod.Agente"
ITEM "Attivo/Passivo"
END
ENDPAGE
ENDMASK
#include "cg6804g.uml"

444
cg/cg6804f.uml
View File

@ -1,220 +1,224 @@
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 18
LIST 101 1 12
BEGIN
PROMPT 1 1 "Tipo conto "
ITEM " |Conto"
ITEM "C|Cliente"
ITEM "F|Fornitore"
FLAGS "DG"
END
NUMBER 102 3
BEGIN
PROMPT 28 1 "Gruppo "
FLAGS "D"
END
NUMBER 103 3
BEGIN
PROMPT 42 1 "Conto "
FLAGS "D"
END
NUMBER 104 6
BEGIN
PROMPT 56 1 "Sottoconto "
FLAGS "DG"
END
STRING 105 50
BEGIN
PROMPT 1 2 "Descrizione "
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 3 "@bRiferimento partita "
FLAGS "D"
END
NUMBER 106 4
BEGIN
PROMPT 1 4 "Anno "
FLAGS "D"
END
STRING 107 7
BEGIN
PROMPT 22 4 "Numero "
FLAGS "UD"
END
NUMBER 108 4
BEGIN
PROMPT 40 4 "N.ro riga "
FLAGS "D"
END
NUMBER 109 4
BEGIN
PROMPT 59 4 "N.ro rata "
FLAGS "D"
END
DATE 110
BEGIN
PROMPT 1 6 "Data scadenza "
END
STRING 111 4
BEGIN
PROMPT 1 7 "Cod.pagamento "
USE %CPG
INPUT CODTAB 111
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT 111 CODTAB
CHECKTYPE NORMAL
FLAGS "U"
ADD RUN ba3 -6
END
NUMBER 112 1
BEGIN
PROMPT 27 7 "Tipo pagamento "
END
STRING 113 1
BEGIN
PROMPT 48 7 "Ulteriore classificazione "
FLAGS "U"
END
STRING 114 50
BEGIN
PROMPT 1 8 "Descrizione "
FLAGS "D"
END
STRING 115 1
BEGIN
PROMPT 1 9 "Importo "
FLAGS "D"
END
NUMBER 116 15
BEGIN
PROMPT 18 9 ""
PICTURE "."
END
NUMBER 117 15
BEGIN
PROMPT 40 9 "Importo in valuta "
PICTURE ".3"
END
STRING 118 50
BEGIN
PROMPT 1 10 "Descrizione "
END
NUMBER 119 5
BEGIN
PROMPT 1 11 "Codice ns. banca "
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB 119
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Denominazione@50" S0
OUTPUT 119 CODTAB[1,5]
CHECKTYPE NORMAL
FLAGS "Z"
END
NUMBER 120 5
BEGIN
PROMPT 26 11 ""
USE %BAN
INPUT CODTAB[1,5] 119
INPUT CODTAB[6,10] 120
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Cod. CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT 119 CODTAB[1,5]
OUTPUT 120 CODTAB[6,10]
CHECKTYPE NORMAL
FLAGS "Z"
END
NUMBER 121 5
BEGIN
PROMPT 1 12 "Codice vs. banca "
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB 121
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Cod. CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT 121 CODTAB[1,5]
CHECKTYPE NORMAL
FLAGS "Z"
END
NUMBER 122 5
BEGIN
PROMPT 26 12 ""
USE %BAN
INPUT CODTAB[1,5] 121
INPUT CODTAB[6,10] 122
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Cod. CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT 121 CODTAB[1,5]
OUTPUT 122 CODTAB[6,10]
CHECKTYPE NORMAL
FLAGS "Z"
END
STRING 123 5
BEGIN
PROMPT 1 13 "Codice agente "
USE AGE
INPUT CODTAB 123
DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT 123 CODTAB
FLAGS "U"
CHECKTYPE NORMAL
END
DATE 124
BEGIN
PROMPT 1 14 "Data sollecito "
END
NUMBER 125 2
BEGIN
PROMPT 53 14 "Numero sollecito "
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
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
LIST 101 1 12
BEGIN
PROMPT 1 1 "Tipo conto "
ITEM " |Conto"
ITEM "C|Cliente"
ITEM "F|Fornitore"
FLAGS "DG"
END
NUMBER 102 3
BEGIN
PROMPT 30 1 "Gruppo "
FLAGS "D"
END
NUMBER 103 3
BEGIN
PROMPT 43 1 "Conto "
FLAGS "D"
END
NUMBER 104 6
BEGIN
PROMPT 56 1 "Sottoconto "
FLAGS "DG"
END
STRING 105 50
BEGIN
PROMPT 1 2 "Descrizione "
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 3 "@bRiferimento partita "
FLAGS "D"
END
NUMBER 106 4
BEGIN
PROMPT 1 4 "Anno "
FLAGS "D"
END
STRING 107 7
BEGIN
PROMPT 22 4 "Numero "
FLAGS "UD"
END
NUMBER 108 4
BEGIN
PROMPT 40 4 "N.ro riga "
FLAGS "D"
END
NUMBER 109 4
BEGIN
PROMPT 59 4 "N.ro rata "
FLAGS "D"
END
DATE 110
BEGIN
PROMPT 1 6 "Data scadenza "
END
STRING 111 4
BEGIN
PROMPT 1 7 "Cod.pagamento "
USE %CPG
INPUT CODTAB 111
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT 111 CODTAB
CHECKTYPE NORMAL
FLAGS "U"
ADD RUN ba3 -6
END
NUMBER 112 1
BEGIN
PROMPT 27 7 "Tipo pagamento "
END
STRING 113 1
BEGIN
PROMPT 48 7 "Ulteriore classificazione "
FLAGS "U"
END
STRING 114 50
BEGIN
PROMPT 1 8 "Descrizione "
FLAGS "D"
END
STRING 115 1
BEGIN
PROMPT 1 9 "Importo "
FLAGS "D"
END
NUMBER 116 15
BEGIN
PROMPT 18 9 ""
PICTURE "."
END
NUMBER 117 15
BEGIN
PROMPT 40 9 "Importo in valuta "
PICTURE ".3"
END
STRING 118 50
BEGIN
PROMPT 1 10 "Descrizione "
END
NUMBER 119 5
BEGIN
PROMPT 1 11 "Codice ns. banca "
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB 119
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Denominazione@50" S0
OUTPUT 119 CODTAB[1,5]
CHECKTYPE NORMAL
FLAGS "Z"
END
NUMBER 120 5
BEGIN
PROMPT 26 11 ""
USE %BAN
INPUT CODTAB[1,5] 119
INPUT CODTAB[6,10] 120
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Cod. CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT 119 CODTAB[1,5]
OUTPUT 120 CODTAB[6,10]
CHECKTYPE NORMAL
FLAGS "Z"
END
NUMBER 121 5
BEGIN
PROMPT 1 12 "Codice vs. banca "
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB 121
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Cod. CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT 121 CODTAB[1,5]
CHECKTYPE NORMAL
FLAGS "Z"
END
NUMBER 122 5
BEGIN
PROMPT 26 12 ""
USE %BAN
INPUT CODTAB[1,5] 121
INPUT CODTAB[6,10] 122
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Cod. CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT 121 CODTAB[1,5]
OUTPUT 122 CODTAB[6,10]
CHECKTYPE NORMAL
FLAGS "Z"
END
STRING 123 5
BEGIN
PROMPT 1 13 "Codice agente "
USE AGE
INPUT CODTAB 123
DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT 123 CODTAB
FLAGS "U"
CHECKTYPE NORMAL
END
DATE 124
BEGIN
PROMPT 1 14 "Data sollecito "
END
NUMBER 125 2
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
LIST 101 1 12
BEGIN
PROMPT 1 1 "Tipo conto "
ITEM " |Conto"
ITEM "C|Cliente"
ITEM "F|Fornitore"
FLAGS "DG"
END
NUMBER 102 3
BEGIN
PROMPT 28 1 "Gruppo "
FLAGS "D"
END
NUMBER 103 3
BEGIN
PROMPT 42 1 "Conto "
FLAGS "D"
END
NUMBER 104 6
BEGIN
PROMPT 56 1 "Sottoconto "
FLAGS "DG"
END
STRING 105 50
BEGIN
PROMPT 1 2 "Descrizione "
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 3 "@bRiferimento partita "
FLAGS "D"
END
NUMBER 106 4
BEGIN
PROMPT 1 4 "Anno "
FLAGS "D"
END
STRING 107 7
BEGIN
PROMPT 28 4 "Numero "
FLAGS "UD"
END
NUMBER 110 4
BEGIN
PROMPT 56 4 "Numero riga "
FLAGS "D"
END
NUMBER 109 4
BEGIN
PROMPT 1 5 "Numero rata fatt. "
FLAGS "D"
END
NUMBER 108 4
BEGIN
PROMPT 53 5 "Numero riga fatt. "
FLAGS "D"
END
STRING 111 1
BEGIN
PROMPT 1 7 "Acconto/Saldo "
FLAGS "U"
END
STRING 112 1
BEGIN
PROMPT 1 8 "Importo pagato "
FLAGS "D"
END
NUMBER 113 15
BEGIN
PROMPT 20 8 ""
PICTURE "."
END
STRING 114 1
BEGIN
PROMPT 1 9 "Ritenute prof. "
FLAGS "D"
END
NUMBER 115 15
BEGIN
PROMPT 20 9 ""
PICTURE "."
END
STRING 116 1
BEGIN
PROMPT 1 10 "Abbuoni "
FLAGS "U"
END
NUMBER 117 15
BEGIN
PROMPT 20 10 ""
PICTURE "."
END
STRING 118 1
BEGIN
PROMPT 1 11 "Diff. cambio "
FLAGS "U"
END
NUMBER 119 15
BEGIN
PROMPT 20 11 ""
PICTURE "."
END
NUMBER 120 15
BEGIN
PROMPT 41 8 "Importo in valuta "
PICTURE ".3"
END
LIST 121 1 12
BEGIN
PROMPT -1 -1 ""
ITEM " |Conto"
ITEM "C|Cliente"
ITEM "F|Fornitore"
FLAGS "D"
END
NUMBER 122 3
BEGIN
PROMPT 1 12 "Cod.contropartita "
END
NUMBER 123 3
BEGIN
PROMPT 27 12 ""
END
NUMBER 124 6
BEGIN
PROMPT 34 12 ""
USE LF_PCON
INPUT GRUPPO 122
INPUT CONTO 123
INPUT SOTTOCONTO 124
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT 122 GRUPPO
OUTPUT 123 CONTO
OUTPUT 124 SOTTOCONTO
OUTPUT 125 DESCR
CHECKTYPE NORMAL
END
STRING 125 50
BEGIN
PROMPT 1 13 "Descrizione "
FLAGS "D"
END
NUMBER 126 5
BEGIN
PROMPT 1 14 "Codice ns. banca "
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB 126
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Denominazione@50" S0
OUTPUT 126 CODTAB[1,5]
CHECKTYPE NORMAL
FLAGS "Z"
END
NUMBER 127 5
BEGIN
PROMPT 28 14 ""
USE %BAN
INPUT CODTAB[1,5] 126
INPUT CODTAB[6,10] 127
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Cod. CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT 126 CODTAB[1,5]
OUTPUT 127 CODTAB[6,10]
CHECKTYPE NORMAL
FLAGS "Z"
END
NUMBER 128 5
BEGIN
PROMPT 1 15 "Codice vs. banca "
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB 128
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Cod. CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT 128 CODTAB[1,5]
CHECKTYPE NORMAL
FLAGS "Z"
END
NUMBER 129 5
BEGIN
PROMPT 28 15 ""
USE %BAN
INPUT CODTAB[1,5] 128
INPUT CODTAB[6,10] 129
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Cod. CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT 128 CODTAB[1,5]
OUTPUT 129 CODTAB[6,10]
CHECKTYPE NORMAL
FLAGS "Z"
END
STRING 130 5
BEGIN
PROMPT 1 16 "Codice agente "
USE AGE
INPUT CODTAB 130
DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT 130 CODTAB
FLAGS "U"
CHECKTYPE NORMAL
END
STRING 131 1
BEGIN
PROMPT 41 10 "Attivo / Passivo "
FLAGS "UD"
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
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
LIST 101 1 12
BEGIN
PROMPT 1 1 "Tipo conto "
ITEM " |Conto"
ITEM "C|Cliente"
ITEM "F|Fornitore"
FLAGS "DG"
END
NUMBER 102 3
BEGIN
PROMPT 30 1 "Gruppo "
FLAGS "D"
END
NUMBER 103 3
BEGIN
PROMPT 43 1 "Conto "
FLAGS "D"
END
NUMBER 104 6
BEGIN
PROMPT 56 1 "Sottoconto "
FLAGS "DG"
END
STRING 105 50
BEGIN
PROMPT 1 2 "Descrizione "
FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 3 "@bRiferimento partita "
FLAGS "D"
END
NUMBER 106 4
BEGIN
PROMPT 1 4 "Anno "
FLAGS "D"
END
STRING 107 7
BEGIN
PROMPT 28 4 "Numero "
FLAGS "UD"
END
NUMBER 110 4
BEGIN
PROMPT 56 4 "Numero riga "
FLAGS "D"
END
NUMBER 109 4
BEGIN
PROMPT 1 5 "Numero rata fatt. "
FLAGS "D"
END
NUMBER 108 4
BEGIN
PROMPT 53 5 "Numero riga fatt. "
FLAGS "D"
END
STRING 111 1
BEGIN
PROMPT 1 7 "Acconto/Saldo "
FLAGS "U"
END
STRING 112 1
BEGIN
PROMPT 1 8 "Importo pagato "
FLAGS "D"
END
NUMBER 113 15
BEGIN
PROMPT 20 8 ""
PICTURE "."
END
STRING 114 1
BEGIN
PROMPT 1 9 "Ritenute prof. "
FLAGS "D"
END
NUMBER 115 15
BEGIN
PROMPT 20 9 ""
PICTURE "."
END
STRING 116 1
BEGIN
PROMPT 1 10 "Abbuoni "
FLAGS "U"
END
NUMBER 117 15
BEGIN
PROMPT 20 10 ""
PICTURE "."
END
STRING 118 1
BEGIN
PROMPT 1 11 "Diff. cambio "
FLAGS "U"
END
NUMBER 119 15
BEGIN
PROMPT 20 11 ""
PICTURE "."
END
NUMBER 120 15
BEGIN
PROMPT 41 8 "Importo in valuta "
PICTURE ".3"
END
LIST 121 1 12
BEGIN
PROMPT 1 30 ""
ITEM " |Conto"
ITEM "C|Cliente"
ITEM "F|Fornitore"
FLAGS "D"
END
NUMBER 122 3
BEGIN
PROMPT 1 12 "Cod.contropartita "
END
NUMBER 123 3
BEGIN
PROMPT 27 12 ""
END
NUMBER 124 6
BEGIN
PROMPT 34 12 ""
USE LF_PCON
INPUT GRUPPO 122
INPUT CONTO 123
INPUT SOTTOCONTO 124
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT 122 GRUPPO
OUTPUT 123 CONTO
OUTPUT 124 SOTTOCONTO
OUTPUT 125 DESCR
CHECKTYPE NORMAL
END
STRING 125 50
BEGIN
PROMPT 1 13 "Descrizione "
FLAGS "D"
END
NUMBER 126 5
BEGIN
PROMPT 1 14 "Codice ns. banca "
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB 126
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Denominazione@50" S0
OUTPUT 126 CODTAB[1,5]
CHECKTYPE NORMAL
FLAGS "Z"
END
NUMBER 127 5
BEGIN
PROMPT 28 14 ""
USE %BAN
INPUT CODTAB[1,5] 126
INPUT CODTAB[6,10] 127
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Cod. CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT 126 CODTAB[1,5]
OUTPUT 127 CODTAB[6,10]
CHECKTYPE NORMAL
FLAGS "Z"
END
NUMBER 128 5
BEGIN
PROMPT 1 15 "Codice vs. banca "
USE %BAN KEY 1 SELECT CODTAB ?= "?????"
INPUT CODTAB 128
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Cod. CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT 128 CODTAB[1,5]
CHECKTYPE NORMAL
FLAGS "Z"
END
NUMBER 129 5
BEGIN
PROMPT 28 15 ""
USE %BAN
INPUT CODTAB[1,5] 128
INPUT CODTAB[6,10] 129
DISPLAY "Cod. ABI" CODTAB[1,5]
DISPLAY "Cod. CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0
OUTPUT 128 CODTAB[1,5]
OUTPUT 129 CODTAB[6,10]
CHECKTYPE NORMAL
FLAGS "Z"
END
STRING 130 5
BEGIN
PROMPT 1 16 "Codice agente "
USE AGE
INPUT CODTAB 130
DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT 130 CODTAB
FLAGS "U"
CHECKTYPE NORMAL
END
STRING 131 1
BEGIN
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.write();
saldi.put(SLD_FLSCA, "X");
saldi.read(_unlock);
saldi.read(_isequal,_unlock);
}
}
saldi.reread(_unlock);
@ -266,6 +266,12 @@ void TSaldo_agg::registra()
saldi.put(SLD_FLAGSALINI, flag_salini);
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 += tcon.dare();
saldi.put(SLD_PDARE, r);