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

cg21cg.uml Aggiunta tabella centro di costo allo sheet contabile

Browse Source 
cg3200.cpp     Aggiunta funzione di memorizzazione scelte di stampa
cg3200.h       Cambuiati gli identificatori di tutti i campi
cg3200a.uml    Aggiunto spreadsheet delle scelte di stampa


git-svn-id: svn://10.65.10.50/trunk@4044 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1997-01-09 11:49:36 +00:00
parent df7fbd6af0
commit c31c8952d4
4 changed files with 5023 additions and 4555 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cg/cg21cg.uml
View File

@ -340,6 +340,12 @@ END
NUMBER 115 7
BEGIN
PROMPT 2 13 "******* "
USE CDC
INPUT CODTAB 115
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT 115 CODTAB
CHECKTYPE NORMAL
END
LIST CG_ROWTYPE 24

660
cg/cg3200.cpp
View File

@ -5,9 +5,8 @@
#include <execp.h>
#include <mailbox.h>
#include <mask.h>
#include <msksheet.h>
#include <printapp.h>
#include <sort.h>
#include <tabutil.h>
#include <utility.h>
@ -27,9 +26,6 @@
#include "cglib04.h"
#include "cglib03.h"
bool sottoc_handler_ini (TMask_field& f, KEY k);
bool sottoc_handler_fine (TMask_field& f, KEY k);
class TMastrini_application : public TPrintapp
{
static bool data_inizio (TMask_field& f, KEY k);
@ -37,13 +33,16 @@ class TMastrini_application : public TPrintapp
static bool gruppo_hnd (TMask_field& f, KEY k);
static bool contoi_hnd (TMask_field& f, KEY k);
static bool contof_hnd (TMask_field& f, KEY k);
friend bool sottoc_handler_ini (TMask_field& f, KEY k);
friend bool sottoc_handler_fine (TMask_field& f, KEY k);
static bool sottoc_handler_ini (TMask_field& f, KEY k);
static bool sottoc_handler_fine (TMask_field& f, KEY k);
static bool memorizza_handler(TMask_field& f, KEY k);
static bool scelte_notify(TSheet_field& s, int r, KEY k);
TDociva_array _b;
TRelation* _rel;
TMask* _msk;
TTable* _tabivd, * _tabtpd, * _tabreg, * _tabesc;
TTable* _tabivd, * _tabtpd, * _tabreg;
TLocalisamfile* _mov;
TLocalisamfile* _nditte;
TLocalisamfile* _unloc;
@ -105,10 +104,14 @@ protected:
virtual void set_page(int,int);
virtual void process_link(int id, const char* txt);
void set_handlers(TMask* msk) const;
bool mask2sheet();
bool sheet2mask();
public:
TDate _inizioEs,_fineEs;
int date2esc(const TDate& d, int* prevesc = NULL);
int date2esc(const TDate& d);
void ricerca_clifo();
void ricerca_gruppo();
int ricerca_clifo(int riga);
@ -150,9 +153,10 @@ public:
int righe_rimaste_da_stampare();
TMastrini_application() {}
virtual ~TMastrini_application() {}
};
HIDDEN TMastrini_application& app() { return (TMastrini_application&) main_app(); }
inline TMastrini_application& app() { return (TMastrini_application&)main_app(); }
int TMastrini_application::righe_rimaste_da_stampare()
{
@ -203,17 +207,14 @@ void TMastrini_application::process_link(int id, const char* txt)
pn.run();
}
bool sottoc_handler_ini(TMask_field& f, KEY key)
bool TMastrini_application::sottoc_handler_ini(TMask_field& f, KEY key)
{
const short id = f.dlg();
TString ds;
TString80 rs;
bool warning;
TLocalisamfile pconti (LF_PCON);
int conto;
bool warning = FALSE;
const int gruppo = f.mask().get_int(F_GRUPPOINI);
int conto;
if (id == F_SOTTOCINI_CONTO)
conto = f.mask().get_int(F_CONTOINI_CONTO);
else
@ -236,8 +237,10 @@ bool sottoc_handler_ini(TMask_field& f, KEY key)
if ( key == K_TAB && f.mask().is_running())
{
TString ds;
if (id == F_SOTTOCINI_CONTO)
{
TLocalisamfile pconti(LF_PCON);
pconti.zero();
pconti.put(PCN_GRUPPO, gruppo) ;
pconti.put(PCN_CONTO, conto);
@ -265,6 +268,7 @@ bool sottoc_handler_ini(TMask_field& f, KEY key)
else
if (id == F_SOTTOCINI_CLIENTE || id == F_SOTTOCINI_FORN)
{
TString rs;
char tipo = id == F_SOTTOCINI_CLIENTE ? 'C' : 'F';
TLocalisamfile clifo (LF_CLIFO);
if (sottoconto != 0)
@ -300,14 +304,13 @@ bool sottoc_handler_ini(TMask_field& f, KEY key)
// conto e sottoconto iniziale e finale. //
/////////////////////////////////////////////////////////////////////////////
bool sottoc_handler_fine(TMask_field& f, KEY key)
bool TMastrini_application::sottoc_handler_fine(TMask_field& f, KEY key)
{
const short id = f.dlg();
int conto;
TString ds;
TString80 rs;
bool warning;
TLocalisamfile pconti (LF_PCON);
const int gruppo = f.mask().get_int(F_GRUPPOFINE);
@ -338,6 +341,7 @@ bool sottoc_handler_fine(TMask_field& f, KEY key)
{
if (id == F_SOTTOCFINE_CONTO)
{
TLocalisamfile pconti (LF_PCON);
pconti.zero();
pconti.put(PCN_GRUPPO, gruppo) ;
pconti.put(PCN_CONTO, conto);
@ -563,12 +567,12 @@ bool TMastrini_application::contof_hnd (TMask_field& f, KEY k)
bool TMastrini_application::check_ordine(TMask_field& f, KEY k)
{
int gruppof = f.mask().get_int(F_GRUPPOFINE);
const int gruppof = f.mask().get_int(F_GRUPPOFINE);
if (gruppof == 0)
return TRUE;
int gruppoi = f.mask().get_int(F_GRUPPOINI);
const int gruppoi = f.mask().get_int(F_GRUPPOINI);
if (gruppoi < gruppof)
return TRUE;
@ -588,22 +592,26 @@ bool TMastrini_application::check_ordine(TMask_field& f, KEY k)
return TRUE;
}
int TMastrini_application::date2esc(const TDate& d, int* prevesc)
bool TMastrini_application::memorizza_handler(TMask_field& f, KEY k)
{
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;
bool ok = TRUE;
if (k == K_SPACE)
ok = app().mask2sheet();
return ok;
}
bool TMastrini_application::scelte_notify(TSheet_field& s, int r, KEY k)
{
bool ok = TRUE;
if (k == K_INS)
return ok = FALSE;
return ok;
}
int TMastrini_application::date2esc(const TDate& d)
{
TEsercizi_contabili esc;
return esc.date2esc(d);
}
//Questa funzione restituisce vero se il record su piano dei conti ha almeno un
@ -638,7 +646,7 @@ bool TMastrini_application::almeno_un_record()
if (_mov->bad())
_mov->zero();
datacomp = (_mov->curr().get(MOV_DATACOMP));
TString provvis (_mov->curr().get(MOV_PROVVIS));
TString provvis (_mov->curr().get(MOV_PROVVIS));
if (_annomsk == 0)
datareg = rmov.get_date(RMV_DATAREG);
@ -665,11 +673,8 @@ bool TMastrini_application::almeno_un_record()
bool TMastrini_application::data_inizio(TMask_field& f, KEY k)
{
int anno;
TDate data;
anno = f.mask().get_int(F_ANNO);
data = f.mask().get (F_DATAINI);
const TDate data = f.mask().get (F_DATAINI);
const int anno = f.mask().get_int(F_ANNO);
app()._annomsk = anno;
if (k == K_ENTER)
@ -679,27 +684,31 @@ bool TMastrini_application::data_inizio(TMask_field& f, KEY k)
app().data_fine_esercizio(anno);
if (data == botime)
app()._data_ini = app()._data_inizioese;
app()._data_ini = app()._data_inizioese;
else
if (data < app()._data_inizioese || data > app()._data_finese)
{
f.error_box("La data non appartiene all'esercizio indicato");
return FALSE;
}
else
app()._data_ini = data;
}
else
if (anno == 0)
{
if (data == botime)
{
f.error_box("La data deve essere obbligatoriamente indicata");
return FALSE;
}
else
if (data < app()._data_inizioese || data > app()._data_finese)
{
f.error_box("La data non appartiene all'esercizio indicato");
return FALSE;
}
else
app()._data_ini = data;
}
}
else
{
if (anno == 0)
{
if (data == botime)
{
f.error_box("La data deve essere obbligatoriamente indicata");
return FALSE;
}
else
app()._data_ini = data;
}
}
}
return TRUE;
}
@ -778,29 +787,29 @@ void TMastrini_application::saldi_zero()
while (!rmov.eof())
{
long numreg = rmov.get_long(RMV_NUMREG);
_mov->setkey(1);
_mov->curr().zero();
_mov->curr().put(MOV_NUMREG,numreg);
_mov->read();
if (_mov->bad())
_mov->zero();
TString provvis (_mov->curr().get(MOV_PROVVIS));
int gruppo = atoi(rmov.get(RMV_GRUPPO));
int conto = atoi(rmov.get(RMV_CONTO));
long sottoc = atol(rmov.get(RMV_SOTTOCONTO));
long numreg = rmov.get_long(RMV_NUMREG);
_mov->setkey(1);
_mov->curr().zero();
_mov->curr().put(MOV_NUMREG,numreg);
_mov->read();
if (_mov->bad())
_mov->zero();
TString provvis (_mov->curr().get(MOV_PROVVIS));
int gruppo = atoi(rmov.get(RMV_GRUPPO));
int conto = atoi(rmov.get(RMV_CONTO));
long sottoc = atol(rmov.get(RMV_SOTTOCONTO));
if ((gruppo == _gruppo)&&(conto == _conto)&&(sottoc == _sottoc))
{
if (_stampa_mov_prov || provvis.trim().empty())
{
char sezione = rmov.curr().get(RMV_SEZIONE)[0];
real importo = rmov.curr().get_real(RMV_IMPORTO);
if (sezione == 'D')
saldo_dare += importo;
else if (sezione == 'A')
saldo_avere += importo;
}
if ((gruppo == _gruppo)&&(conto == _conto)&&(sottoc == _sottoc))
{
if (_stampa_mov_prov || provvis.trim().empty())
{
char sezione = rmov.curr().get(RMV_SEZIONE)[0];
real importo = rmov.curr().get_real(RMV_IMPORTO);
if (sezione == 'D')
saldo_dare += importo;
else if (sezione == 'A')
saldo_avere += importo;
}
}
else break;
rmov.next();
@ -1922,22 +1931,22 @@ bool TMastrini_application::preprocess_page(int file, int counter)
dep_avere = _riporto_footer_avere;
}
if (_nummast != 3 || dep_dare != ZERO || dep_avere != ZERO)
{
TString dare (dep_dare.string("###.###.###.###"));
TString avere (dep_avere.string("###.###.###.###"));
if (_numcarat == 1)
{
set_row (_rw,"@32gA RIPORTO@85g%s", (const char*) dare);
set_row (_rw,"@101g%s", (const char*) avere);
}
else
if (_numcarat == 2)
{
set_row (_rw,"@32gA RIPORTO@101g%s", (const char*) dare);
set_row (_rw,"@117g%s", (const char*) avere);
}
}
if (_nummast != 3 || dep_dare != ZERO || dep_avere != ZERO)
{
TString dare (dep_dare.string("###.###.###.###"));
TString avere (dep_avere.string("###.###.###.###"));
if (_numcarat == 1)
{
set_row (_rw,"@32gA RIPORTO@85g%s", (const char*) dare);
set_row (_rw,"@101g%s", (const char*) avere);
}
else
if (_numcarat == 2)
{
set_row (_rw,"@32gA RIPORTO@101g%s", (const char*) dare);
set_row (_rw,"@117g%s", (const char*) avere);
}
}
if (lim == 0)
{
rmov.prev();
@ -2356,36 +2365,46 @@ bool TMastrini_application::preprocess_print(int file, int counter)
bool TMastrini_application::set_print(int)
{
KEY tasto;
TLocalisamfile* fl;
TString data1,data2;
_puoi_stampare = TRUE;
_msk->set_handler (F_DATAINI ,data_inizio);
_msk->set_handler (F_DATAFINE ,data_fine);
KEY tasto;
tasto = _msk->run();
// Controlla se esistono impostazioni di stampa in coda
if (sheet2mask())
{
tasto = K_ENTER;
}
else
{
tasto = _msk->run();
if (tasto == K_ENTER)
{
mask2sheet(); // Forza la maschera corrente in coda
sheet2mask(); // Estrae la prima dalla coda
}
}
if (tasto == K_ENTER)
{
_annomsk = atoi(_msk->get(F_ANNO));
_codice_ditta = get_firm();
_annomsk = _msk->get_int(F_ANNO);
_stampaprogre = (bool)(_msk->get(F_STAMPAPROGRE) == "X");
_stampatotiva = (bool)(_msk->get(F_STAMPATOTIVA) == "X");
_stampanum = atoi(_msk->get(F_STAMPANUM));
_stampa_mov_prov = (bool)(_msk->get(F_STAMPAMOVPROV) == "X");
int gruppoini = atoi(_msk->get(F_GRUPPOINI));
int contoini = atoi(_msk->get(F_CONTOINI_CONTO));
long sottocontoini = atol(_msk->get(F_SOTTOCINI_CONTO));
int gruppofine = atoi(_msk->get(F_GRUPPOFINE));
int contofine = atoi(_msk->get(F_CONTOFINE_CONTO));
long sottocontofine = atol(_msk->get(F_SOTTOCFINE_CONTO));
_tipostampa = atoi(_msk->get(F_TIPOSTAMPA));
_numcarat = atoi(_msk->get(F_NUMCARAT));
int formato = atoi(_msk->get(F_FORMATO));
_nummast = atoi(_msk->get(F_NUMMAST));
_codice_ditta = get_firm();
int gruppoini = _msk->get_int(F_GRUPPOINI);
int contoini = _msk->get_int(F_CONTOINI_CONTO);
long sottocontoini = _msk->get_long(F_SOTTOCINI_CONTO);
int gruppofine = _msk->get_int(F_GRUPPOFINE);
int contofine = _msk->get_int(F_CONTOFINE_CONTO);
long sottocontofine = _msk->get_long(F_SOTTOCFINE_CONTO);
_stampaprogre = _msk->get_bool(F_STAMPAPROGRE);
_stampatotiva = _msk->get_bool(F_STAMPATOTIVA);
_stampanum = _msk->get_int(F_STAMPANUM);
_stampa_mov_prov = _msk->get_bool(F_STAMPAMOVPROV);
_tipostampa = _msk->get_int(F_TIPOSTAMPA);
_numcarat = _msk->get_int(F_NUMCARAT);
int formato = _msk->get_int(F_FORMATO);
_nummast = _msk->get_int(F_NUMMAST);
ricerca_dati_ditta();
@ -2395,25 +2414,8 @@ bool TMastrini_application::set_print(int)
if (_annomsk == 0)
_anno_corrente = _anno_ghost;
// GNACK! NO! poooorco zeeus! poooorca giunoooone!
// _anno_precedente = _anno_corrente - 1;
_tabesc->zero();
TString16 dep(format("%04d", _anno_corrente));
_tabesc->put("CODTAB", dep);
_tabesc->read();
TDate ini = _tabesc->get("D0");
--ini;
for (_tabesc->first(); !_tabesc->eof(); _tabesc->next())
{
if (_tabesc->get_date("D1") == ini)
{
_anno_precedente = _tabesc->get_int("CODTAB");
break;
}
else if (_tabesc->get_date("D1") < ini)
_anno_precedente = _tabesc->get_int("CODTAB");
}
// LA'!
TEsercizi_contabili esc;
_anno_precedente = esc.pred(_anno_corrente);
if (_nummast == 1 || _nummast == 3)
printer().footerlen(4);
@ -2427,7 +2429,8 @@ bool TMastrini_application::set_print(int)
add_file(LF_RMOV,LF_SALDI);
select_cursor(_cur1);
fl = &(current_cursor()->file(LF_SALDI));
TLocalisamfile* fl = &(current_cursor()->file(LF_SALDI));
TRectype da (fl->curr());
TRectype a (fl->curr());
@ -2450,9 +2453,9 @@ bool TMastrini_application::set_print(int)
//_inizio_stampa = TRUE;
_numero_pag = 1;
if (_nummast == 3)
_pagina = 0;
else
_pagina = 1;
_pagina = 0;
else
_pagina = 1;
_cambia_mastrino = FALSE;
_rw = 0;
_conta_mastrini = 0;
@ -2485,14 +2488,9 @@ bool TMastrini_application::set_print(int)
void TMastrini_application::data_fine_esercizio(int anno)
{
TString16 dep;
_tabesc->curr().zero();
dep << format ("%04d", anno);
_tabesc->curr().put("CODTAB", (const char*) dep);
_tabesc->read();
_data_finese = _tabesc->curr().get("D1");
_data_inizioese = _tabesc->curr().get("D0");
TEsercizi_contabili esc;
_data_finese = esc[anno].fine();
_data_inizioese = esc[anno].inizio();
}
void TMastrini_application::preprocess_header()
@ -2564,22 +2562,22 @@ void TMastrini_application::preprocess_footer()
dep_avere = _stampato ? _riporto_footer_avere : _riporto_footer_avere - imp_a;
}
if (_nummast != 3 || dep_dare != ZERO || dep_avere != ZERO)
{
TString dare (dep_dare.string("###.###.###.###"));
TString avere (dep_avere.string("###.###.###.###"));
if (_numcarat == 1)
{
set_footer (2,"@32gA RIPORTO@85g%s", (const char*) dare);
set_footer (2,"@101g%s", (const char*) avere);
}
else
if (_numcarat == 2)
{
set_footer (2,"@32gA RIPORTO@101g%s", (const char*) dare);
set_footer (2,"@117g%s", (const char*) avere);
}
}
if (_nummast != 3 || dep_dare != ZERO || dep_avere != ZERO)
{
TString dare (dep_dare.string("###.###.###.###"));
TString avere (dep_avere.string("###.###.###.###"));
if (_numcarat == 1)
{
set_footer (2,"@32gA RIPORTO@85g%s", (const char*) dare);
set_footer (2,"@101g%s", (const char*) avere);
}
else
if (_numcarat == 2)
{
set_footer (2,"@32gA RIPORTO@101g%s", (const char*) dare);
set_footer (2,"@117g%s", (const char*) avere);
}
}
}
}
@ -2667,19 +2665,19 @@ void TMastrini_application::crea_intestazione()
if (_cambia_mastrino)
{
if (_nummast != 3)
_pagina = 1;
if (_nummast != 3)
_pagina = 1;
_cambia_mastrino = FALSE;
}
if (_numcarat == 1)
{
if (_nummast == 3)
{
if (_pagina != np)
sep << "Pag. @#";
}
else
sep << "Pag. " << _pagina;
if (_nummast == 3)
{
if (_pagina != np)
sep << "Pag. @#";
}
else
sep << "Pag. " << _pagina;
sep.right_just(132);
set_header(1,(const char*) sep);
sep ="";
@ -2688,31 +2686,31 @@ void TMastrini_application::crea_intestazione()
}
else if (_numcarat == 2)
{
if (_nummast == 3)
{
if (_pagina != np)
sep1 << "Pagina @#";
}
else
sep1 << "Pagina " << _pagina;
if (_nummast == 3)
{
if (_pagina != np)
sep1 << "Pagina @#";
}
else
sep1 << "Pagina " << _pagina;
sep1.right_just(198);
set_header(1,(const char*) sep1);
sep1 ="";
set_header(2,"@1g%s",(const char*) sep1);
//set_header(1,"@190gPagina %2d", _numero_pag++);
}
if (_nummast != 3)
_pagina++;
if (_nummast != 3)
_pagina++;
if (_nummast != 3 || _pagina != np)
{
set_header (1, "@0gDITTA@6g%5ld", _codice_ditta);
set_header (1, "@12g%-.45s", (const char*) _ragsoc);
set_header (1, "@59g%s", (const char*) _indulc);
//set_header (1, "@86g%-.9s", (const char*) _civulc);
set_header (1, "@97g%-.5s", (const char*) _capulc);
set_header (1, "@103g%-.18s", (const char*) _com);
set_header (1, "@122g%-.3s", (const char*) _prov);
if (_nummast != 3 || _pagina != np)
{
set_header (1, "@0gDITTA@6g%5ld", _codice_ditta);
set_header (1, "@12g%-.45s", (const char*) _ragsoc);
set_header (1, "@59g%s", (const char*) _indulc);
//set_header (1, "@86g%-.9s", (const char*) _civulc);
set_header (1, "@97g%-.5s", (const char*) _capulc);
set_header (1, "@103g%-.18s", (const char*) _com);
set_header (1, "@122g%-.3s", (const char*) _prov);
}
if (_nummast == 3)
{
@ -2815,23 +2813,23 @@ void TMastrini_application::crea_intestazione()
dep_dare = _stampato ? _riporto_dare : _riporto_dare - imp_d;
dep_avere = _stampato ? _riporto_avere : _riporto_avere - imp_a;
if (_nummast != 3 || dep_dare != ZERO || dep_avere != 0)
{
if (_numcarat == 1)
{
TString string = dep_dare.string("###.###.###.###");
set_header (10,"@32gA RIPORTO@85g%15s",(const char*) string);
string = dep_avere.string("###.###.###.###");
set_header (10,"@101g%15s",(const char*) string);
}
if (_numcarat == 2)
{
TString string = dep_dare.string("###.###.###.###");
set_header (10,"@32gA RIPORTO@101g%15s",(const char*) string);
string = dep_avere.string("###.###.###.###");
set_header (10,"@117g%15s",(const char*) string);
}
}
if (_nummast != 3 || dep_dare != ZERO || dep_avere != 0)
{
if (_numcarat == 1)
{
TString string = dep_dare.string("###.###.###.###");
set_header (10,"@32gA RIPORTO@85g%15s",(const char*) string);
string = dep_avere.string("###.###.###.###");
set_header (10,"@101g%15s",(const char*) string);
}
if (_numcarat == 2)
{
TString string = dep_dare.string("###.###.###.###");
set_header (10,"@32gA RIPORTO@101g%15s",(const char*) string);
string = dep_avere.string("###.###.###.###");
set_header (10,"@117g%15s",(const char*) string);
}
}
_riporto_parziale_dare = ZERO;
_riporto_parziale_avere = ZERO;
}
@ -2845,8 +2843,8 @@ void TMastrini_application::crea_intestazione()
sep1 ="";
set_header(11,"@1g%s",(const char*) sep1);
}
if (_pagina != np)
_pagina = np;
if (_pagina != np)
_pagina = np;
}
int TMastrini_application::crea_intestazione(int start_riga)
@ -2857,7 +2855,7 @@ int TMastrini_application::crea_intestazione(int start_riga)
reset_header();
int np = get_page_number();
int np = get_page_number();
_conta_mastrini++;
@ -2870,40 +2868,40 @@ int TMastrini_application::crea_intestazione(int start_riga)
_numero_pag = 1;
_cambia_mastrino = FALSE;
}
if (_nummast == 3)
{
if (_pagina != np)
{
if (_numcarat == 1)
{
sep << "Pag. @#";
set_row(r,"@126g%s", (const char*) sep);
}
else if (_numcarat == 2)
{
sep << "Pagina @#";
set_row(r,"@190g%s", (const char*) sep);
}
}
}
else
{
if (_numcarat == 1)
set_row(r,"@126gPag. %2d", _numero_pag++);
else if (_numcarat == 2)
set_row(r,"@190gPagina %2d", _numero_pag++);
}
if (_nummast != 3 || _pagina != np)
{
set_row (r, "@0gDITTA@6g%5ld", _codice_ditta);
set_row (r, "@12g%-45s", (const char*) _ragsoc);
set_row (r, "@59g%s", (const char*) _indulc);
//set_row (r, "@86g%-9s", (const char*) _civulc);
set_row (r, "@97g%-5s", (const char*) _capulc);
set_row (r, "@103g%-18s", (const char*) _com);
set_row (r, "@122g%-3s", (const char*) _prov);
r += 2;
}
if (_nummast == 3)
{
if (_pagina != np)
{
if (_numcarat == 1)
{
sep << "Pag. @#";
set_row(r,"@126g%s", (const char*) sep);
}
else if (_numcarat == 2)
{
sep << "Pagina @#";
set_row(r,"@190g%s", (const char*) sep);
}
}
}
else
{
if (_numcarat == 1)
set_row(r,"@126gPag. %2d", _numero_pag++);
else if (_numcarat == 2)
set_row(r,"@190gPagina %2d", _numero_pag++);
}
if (_nummast != 3 || _pagina != np)
{
set_row (r, "@0gDITTA@6g%5ld", _codice_ditta);
set_row (r, "@12g%-45s", (const char*) _ragsoc);
set_row (r, "@59g%s", (const char*) _indulc);
//set_row (r, "@86g%-9s", (const char*) _civulc);
set_row (r, "@97g%-5s", (const char*) _capulc);
set_row (r, "@103g%-18s", (const char*) _com);
set_row (r, "@122g%-3s", (const char*) _prov);
r += 2;
}
if (_nummast == 3)
{
set_row (r, "@0gSottoconto@12g@b%d", _gruppo);
@ -2969,8 +2967,8 @@ int TMastrini_application::crea_intestazione(int start_riga)
sep1.fill('-');
set_row (r++,"@0g%s", (const char *) sep1);
}
if (_pagina != np)
_pagina = np;
if (_pagina != np)
_pagina = np;
return r;
}
@ -2999,23 +2997,23 @@ void TMastrini_application::stampa_progre_riporto()
dep_dare = _stampato ? _riporto_dare : _riporto_dare - imp_d;
dep_avere = _stampato ? _riporto_avere : _riporto_avere - imp_a;
if (_nummast != 3 || dep_dare != ZERO || dep_avere != 0)
{
if (_numcarat == 1)
{
TString string = dep_dare.string("###.###.###.###");
set_row (_rw,"@32gA RIPORTO@85g%15s",(const char*) string);
string = dep_avere.string("###.###.###.###");
set_row (_rw++,"@101g%15s",(const char*) string);
}
if (_numcarat == 2)
{
TString string = dep_dare.string("###.###.###.###");
set_row (_rw,"@32gA RIPORTO@101g%15s",(const char*) string);
string = dep_avere.string("###.###.###.###");
set_row (_rw++,"@117g%15s",(const char*) string);
}
}
if (_nummast != 3 || dep_dare != ZERO || dep_avere != 0)
{
if (_numcarat == 1)
{
TString string = dep_dare.string("###.###.###.###");
set_row (_rw,"@32gA RIPORTO@85g%15s",(const char*) string);
string = dep_avere.string("###.###.###.###");
set_row (_rw++,"@101g%15s",(const char*) string);
}
if (_numcarat == 2)
{
TString string = dep_dare.string("###.###.###.###");
set_row (_rw,"@32gA RIPORTO@101g%15s",(const char*) string);
string = dep_avere.string("###.###.###.###");
set_row (_rw++,"@117g%15s",(const char*) string);
}
}
_riporto_parziale_dare = ZERO;
_riporto_parziale_avere = ZERO;
}
@ -3054,23 +3052,23 @@ int TMastrini_application::stampa_progre_riporto(int start_riga)
dep_dare = _stampato ? _riporto_dare : _riporto_dare - imp_d;
dep_avere = _stampato ? _riporto_avere : _riporto_avere - imp_a;
if (_nummast != 3 || dep_dare != ZERO || dep_avere != ZERO)
{
if (_numcarat == 1)
{
TString string = dep_dare.string("###.###.###.###");
set_row (r,"@32gA RIPORTO@85g%15s",(const char*) string);
string = dep_avere.string("###.###.###.###");
set_row (r++,"@101g%15s",(const char*) string);
}
if (_numcarat == 2)
{
TString string = dep_dare.string("###.###.###.###");
set_row (r,"@32gA RIPORTO@101g%15s",(const char*) string);
string = dep_avere.string("###.###.###.###");
set_row (r++,"@117g%15s",(const char*) string);
}
}
if (_nummast != 3 || dep_dare != ZERO || dep_avere != ZERO)
{
if (_numcarat == 1)
{
TString string = dep_dare.string("###.###.###.###");
set_row (r,"@32gA RIPORTO@85g%15s",(const char*) string);
string = dep_avere.string("###.###.###.###");
set_row (r++,"@101g%15s",(const char*) string);
}
if (_numcarat == 2)
{
TString string = dep_dare.string("###.###.###.###");
set_row (r,"@32gA RIPORTO@101g%15s",(const char*) string);
string = dep_avere.string("###.###.###.###");
set_row (r++,"@117g%15s",(const char*) string);
}
}
_riporto_parziale_dare = ZERO;
_riporto_parziale_avere = ZERO;
}
@ -3209,8 +3207,8 @@ void TMastrini_application::calcola_progressivi()
if (_stampa_mov_prov)
{
progredare_eseprec = pdarep + saldi.get_real(SLD_PDAREPRO);
progreavere_eseprec = paverep + saldi.get_real(SLD_PAVEREPRO);
progredare_eseprec = pdarep + saldi.get_real(SLD_PDAREPRO);
progreavere_eseprec = paverep + saldi.get_real(SLD_PAVEREPRO);
}
// cerca eventuale record scaricati
@ -3896,6 +3894,71 @@ const char* TMastrini_application::descrizione_sottoconto()
return TMP;
}
// Funzione per settare tutti gli handlers della maschera principale
// o di quella dello spreadsheet della seconda pagina
void TMastrini_application::set_handlers(TMask* msk) const
{
/* Guy: Provo a non usarli e uso i check normali
msk->set_handler(F_SOTTOCINI_CONTO, sottoc_handler_ini);
msk->set_handler(F_SOTTOCINI_CLIENTE, sottoc_handler_ini);
msk->set_handler(F_SOTTOCINI_FORN, sottoc_handler_ini);
msk->set_handler(F_SOTTOCFINE_CONTO, sottoc_handler_fine);
msk->set_handler(F_SOTTOCFINE_CLIENTE, sottoc_handler_fine);
msk->set_handler(F_SOTTOCFINE_FORN, sottoc_handler_fine);
*/
msk->set_handler(F_DATAINI, data_inizio);
msk->set_handler(F_DATAFINE, data_fine);
msk->set_handler(F_GRUPPOFINE, gruppo_hnd);
msk->set_handler(F_CONTOINI_CONTO, contoi_hnd);
msk->set_handler(F_CONTOINI_CLIENTE, contoi_hnd);
msk->set_handler(F_CONTOINI_FORN, contoi_hnd);
msk->set_handler(F_CONTOFINE_CONTO, contof_hnd);
msk->set_handler(F_CONTOFINE_CLIENTE, contof_hnd);
msk->set_handler(F_CONTOFINE_FORN, contof_hnd);
}
// Copia i parametri della prima pagina in una nuova riga dello spreadsheet
// a meno che non ci siano gia'
bool TMastrini_application::mask2sheet()
{
TToken_string row(120);
short id = F_ANNO;
for (int pos = _msk->id2pos(id); pos >= 0; pos = _msk->id2pos(++id))
row.add(_msk->fld(pos).get());
bool ok = FALSE;
if (!row.empty_items())
{
TSheet_field& sht = (TSheet_field&)_msk->field(F_SCELTE);
TString_array& rows = sht.rows_array();
ok = rows.find(row) < 0;
if (ok)
{
rows.add(row);
sht.force_update();
}
}
return ok;
}
bool TMastrini_application::sheet2mask()
{
TSheet_field& sht = (TSheet_field&)_msk->field(F_SCELTE);
bool ok = sht.items() > 0;
if (ok)
{
TString_array& rows = sht.rows_array();
TToken_string row = rows.row(0);
rows.destroy(0, TRUE);
short id = F_ANNO;
for (int pos = _msk->id2pos(id); pos >= 0; pos = _msk->id2pos(++id))
_msk->fld(pos).set(row.get());
}
return ok;
}
bool TMastrini_application::user_create()
{
TToken_string exp;
@ -3918,7 +3981,6 @@ bool TMastrini_application::user_create()
_tabivd = new TTable (TAB_IVD);
_tabtpd = new TTable (TAB_TPD);
_tabreg = new TTable (TAB_REG);
_tabesc = new TTable (TAB_ESC);
_sld = new TSaldo ();
_d18 = new TParagraph_string ("",18);
@ -3926,29 +3988,16 @@ bool TMastrini_application::user_create()
_d30 = new TParagraph_string ("",30);
_msk = new TMask("cg3200a");
set_handlers(_msk);
_msk->set_handler(F_MEMORIZZA, memorizza_handler);
/* Guy: Provo a non usarli e uso i check normali
_msk->set_handler(F_SOTTOCINI_CONTO, sottoc_handler_ini);
_msk->set_handler(F_SOTTOCINI_CLIENTE, sottoc_handler_ini);
_msk->set_handler(F_SOTTOCINI_FORN, sottoc_handler_ini);
_msk->set_handler(F_SOTTOCFINE_CONTO, sottoc_handler_fine);
_msk->set_handler(F_SOTTOCFINE_CLIENTE, sottoc_handler_fine);
_msk->set_handler(F_SOTTOCFINE_FORN, sottoc_handler_fine);
*/
_msk->set_handler (F_GRUPPOFINE ,gruppo_hnd);
_msk->set_handler (F_CONTOINI_CONTO ,contoi_hnd);
_msk->set_handler (F_CONTOINI_CLIENTE ,contoi_hnd);
_msk->set_handler (F_CONTOINI_FORN ,contoi_hnd);
_msk->set_handler (F_CONTOFINE_CONTO ,contof_hnd);
_msk->set_handler (F_CONTOFINE_CLIENTE ,contof_hnd);
_msk->set_handler (F_CONTOFINE_FORN ,contof_hnd);
TSheet_field& sht = (TSheet_field&)_msk->field(F_SCELTE);
sht.set_notify(scelte_notify);
TMask& sm = sht.sheet_mask();
set_handlers(&sm);
_gia_stampata_intestazione = FALSE;
// _msk->set_handler (F_SOTTOCFINE_CONTO ,sottoc_hnd);
// _msk->set_handler (F_SOTTOCFINE_CLIENTE ,sottoc_hnd);
// _msk->set_handler (F_SOTTOCFINE_FORN ,sottoc_hnd);
return TRUE;
}
@ -3965,7 +4014,6 @@ bool TMastrini_application::user_destroy()
delete _tabivd;
delete _tabtpd;
delete _tabreg;
delete _tabesc;
delete _sld;
delete _d18;
delete _d23;

73
cg/cg3200.h
View File

@ -6,42 +6,43 @@
#define TAB_REG "REG"
#define TAB_ESC "ESC"
#define F_CODDITTA 101
#define F_RAGSOC 102
#define F_TIPOCF_INI 103
#define F_GRUPPOINI 104
#define F_GRUPPOFINE 105
#define F_CONTOINI_CONTO 106
#define F_CONTOFINE_CONTO 107
#define F_SOTTOCINI_CONTO 108
#define F_SOTTOCFINE_CONTO 109
#define F_SOTTOCINI_CLIENTE 110
#define F_SOTTOCFINE_CLIENTE 111
#define F_SOTTOCINI_FORN 112
#define F_SOTTOCFINE_FORN 113
#define F_DESCRINI_CONTO 114
#define F_DESCRFINE_CONTO 115
#define F_DESCRINI_CLIENTE 116
#define F_DESCRFINE_CLIENTE 117
#define F_DESCRINI_FORN 118
#define F_DESCRFINE_FORN 119
#define F_DATAINI 120
#define F_DATAFINE 121
#define F_STAMPANUM 122
#define F_STAMPAPROGRE 123
#define F_STAMPATOTIVA 124
#define F_TIPOSTAMPA 125
#define F_STAMPAMOVPROV 126
#define F_MEMORIZZA 127
#define F_NUMCARAT 128
#define F_NUMMAST 129
#define F_ANNO 130
#define F_FORMATO 131
#define F_CONTOINI_CLIENTE 132
#define F_CONTOINI_FORN 133
#define F_CONTOFINE_CLIENTE 134
#define F_CONTOFINE_FORN 135
#define F_TIPOCF_FINE 136
#define F_ANNO 101
#define F_TIPOCF_INI 102
#define F_GRUPPOINI 103
#define F_CONTOINI_CONTO 104
#define F_CONTOINI_CLIENTE 204
#define F_CONTOINI_FORN 304
#define F_SOTTOCINI_CONTO 105
#define F_SOTTOCINI_CLIENTE 205
#define F_SOTTOCINI_FORN 305
#define F_TIPOCF_FINE 106
#define F_GRUPPOFINE 107
#define F_CONTOFINE_CONTO 108
#define F_CONTOFINE_CLIENTE 208
#define F_CONTOFINE_FORN 308
#define F_SOTTOCFINE_CONTO 109
#define F_SOTTOCFINE_CLIENTE 209
#define F_SOTTOCFINE_FORN 309
#define F_DESCRINI_CONTO 125
#define F_DESCRINI_CLIENTE 135
#define F_DESCRINI_FORN 145
#define F_DESCRFINE_CONTO 129
#define F_DESCRFINE_CLIENTE 139
#define F_DESCRFINE_FORN 149
#define F_DATAINI 110
#define F_DATAFINE 111
#define F_STAMPANUM 112
#define F_STAMPAPROGRE 113
#define F_STAMPATOTIVA 114
#define F_TIPOSTAMPA 115
#define F_STAMPAMOVPROV 116
#define F_MEMORIZZA 500
#define F_NUMCARAT 501
#define F_NUMMAST 502
#define F_FORMATO 503
#define F_CODDITTA 504
#define F_RAGSOC 505
#define F_SCELTE 506
#endif // __CG3200_H

523
cg/cg3200a.uml
View File

@ -2,16 +2,20 @@
TOOLBAR "" 0 20 0 2
BUTTON DLG_PRINT 10 2
BUTTON DLG_PRINT 16 2
BEGIN
PROMPT -12 -11 "~Stampa"
MESSAGE EXIT,K_ENTER
PROMPT -13 -11 "~Stampa"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 10 2
BUTTON F_MEMORIZZA 16 2
BEGIN
PROMPT -22 -11 ""
PROMPT -23 -11 "Memorizza scelte"
END
BUTTON DLG_QUIT 16 2
BEGIN
PROMPT -33 -11 ""
END
ENDPAGE
@ -20,15 +24,15 @@ PAGE "Stampa Mastrini" -1 -1 78 20
NUMBER F_CODDITTA 5
BEGIN
PROMPT 4 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
PROMPT 4 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
END
STRING F_RAGSOC 50
@ -60,7 +64,6 @@ END
NUMBER F_ANNO 4
BEGIN
PROMPT 47 1 "Codice esercizio "
HELP "Codice esercizio di cui stampare i mastrini"
USE ESC
INPUT CODTAB F_ANNO
DISPLAY "Codice Esercizio" CODTAB
@ -71,13 +74,13 @@ BEGIN
MESSAGE HIDE,98|HIDE,99|SHOW,96|SHOW,97
MESSAGE EMPTY HIDE,96|HIDE,97|SHOW,98|SHOW,99
FLAGS "RZ"
ADD RUN cg0 -5 esc
// ADD RUN cg0 -5 esc
ADD NONE
END
LIST F_TIPOCF_INI 25
BEGIN
PROMPT 4 4 "Ricerca "
HELP "Indicare il tipo di mastrini da stampare"
ITEM " |Gruppo/conto/sottoconto"
MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|SHOW,1@
ITEM "C|Clienti"
@ -89,13 +92,11 @@ END
NUMBER F_GRUPPOINI 3
BEGIN
PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
HELP "Codice conto da cui iniziare la stampa"
END
NUMBER F_CONTOINI_CONTO 3
BEGIN
PROMPT 41 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CONTO
@ -114,7 +115,6 @@ END
NUMBER F_CONTOINI_CLIENTE 3
BEGIN
PROMPT 41 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CLIENTE
@ -134,7 +134,6 @@ END
NUMBER F_CONTOINI_FORN 3
BEGIN
PROMPT 41 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F")
INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_FORN
@ -154,7 +153,6 @@ END
NUMBER F_SOTTOCINI_CONTO 6
BEGIN
PROMPT 48 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CONTO
@ -188,7 +186,6 @@ END
NUMBER F_SOTTOCINI_CLIENTE 6
BEGIN
PROMPT 48 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_CLIFO
CHECKTYPE NORMAL
INPUT TIPOCF "C"
@ -206,7 +203,6 @@ END
STRING F_DESCRINI_CLIENTE 50
BEGIN
PROMPT 4 6 "Ragione sociale C "
HELP "Codice conto da cui iniziare la stampa"
FIELD LF_CLIFO->RAGSOC
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
@ -224,7 +220,6 @@ END
NUMBER F_SOTTOCINI_FORN 6
BEGIN
PROMPT 48 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_CLIFO
CHECKTYPE NORMAL
INPUT TIPOCF "F"
@ -243,7 +238,6 @@ END
STRING F_DESCRINI_FORN 50
BEGIN
PROMPT 4 6 "Ragione Sociale F "
HELP "Codice conto da cui iniziare la stampa"
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
INPUT RAGSOC F_DESCRINI_FORN
@ -260,7 +254,6 @@ END
LIST F_TIPOCF_FINE 25
BEGIN
PROMPT 4 7 "Ricerca "
HELP "Indicare il tipo di mastrini da stamapare"
ITEM " |Gruppo/conto/sottoconto"
MESSAGE HIDE,5@|HIDE,6@|RESET,5@|RESET,6@|SHOW,4@
ITEM "C|Clienti"
@ -277,7 +270,6 @@ END
NUMBER F_CONTOFINE_CONTO 3
BEGIN
PROMPT 41 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CONTO
@ -296,7 +288,6 @@ END
NUMBER F_CONTOFINE_CLIENTE 3
BEGIN
PROMPT 41 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CLIENTE
@ -316,7 +307,6 @@ END
NUMBER F_CONTOFINE_FORN 3
BEGIN
PROMPT 41 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F")
INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_FORN
@ -336,7 +326,6 @@ END
NUMBER F_SOTTOCFINE_CONTO 6
BEGIN
PROMPT 48 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CONTO
@ -357,7 +346,6 @@ END
STRING F_DESCRFINE_CONTO 50
BEGIN
PROMPT 4 9 "Descrizione "
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON KEY 2
CHECKTYPE NORMAL
INPUT DESCR F_DESCRINI_CONTO
@ -372,7 +360,6 @@ END
NUMBER F_SOTTOCFINE_CLIENTE 6
BEGIN
PROMPT 48 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_CLIFO
CHECKTYPE NORMAL
WARNING "Cliente inesistente o mancante"
@ -391,7 +378,6 @@ END
STRING F_DESCRFINE_CLIENTE 50
BEGIN
PROMPT 4 9 "Ragione sociale "
HELP "Codice conto a cui terminare la stampa"
FIELD LF_CLIFO->RAGSOC
CHECKTYPE NORMAL
USE LF_CLIFO KEY 2
@ -409,7 +395,6 @@ END
NUMBER F_SOTTOCFINE_FORN 6
BEGIN
PROMPT 48 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_CLIFO
CHECKTYPE NORMAL
WARNING "Fornitore inesistente o mancante"
@ -428,7 +413,6 @@ END
STRING F_DESCRFINE_FORN 50
BEGIN
PROMPT 4 9 "Ragione Sociale "
HELP "Codice conto a cui terminare la stampa"
USE LF_CLIFO KEY 2
CHECKTYPE NORMAL
INPUT TIPOCF "F"
@ -445,37 +429,31 @@ END
DATE F_DATAINI
BEGIN
PROMPT 26 11 ""
HELP "Data da cui iniziare la stampa"
END
DATE F_DATAFINE
BEGIN
PROMPT 62 11 ""
HELP "Data a cui terminare la stampa"
END
BOOLEAN F_STAMPATOTIVA
BEGIN
PROMPT 4 12 "Stampa totali documenti IVA"
HELP "Inidcare se stampare un totale per ogni tipo di doc. IVA"
END
BOOLEAN F_STAMPAPROGRE
BEGIN
PROMPT 44 12 "Stampa progressivi attuali"
HELP "Indicare se stampare dati attuali a fondo pagina"
END
BOOLEAN F_STAMPAMOVPROV
BEGIN
PROMPT 4 13 "Stampa movimenti provvisori"
HELP "Indicare se stampare movimenti provvisori"
END
LIST F_STAMPANUM 15
BEGIN
PROMPT 4 15 "Stampa numerazione "
HELP "Indicare il tipo di numerazione da stampare"
ITEM "1|Operazione"
ITEM "2|Riga giornale"
ITEM "3|Nessuna"
@ -484,27 +462,18 @@ END
LIST F_TIPOSTAMPA 34
BEGIN
PROMPT 4 16 "Tipo stampa "
HELP "Indicare il tipo di stampa da ottenere"
ITEM "1|Mastrini movimentati nel periodo"
ITEM "2|Mastrini con saldi diversi da 0"
ITEM "3|Completa"
END
//BOOLEAN F_MEMORIZZA
//BEGIN
// PROMPT 4 17 "Memorizza scelte"
// HELP "Indicare se riproporre le scelte effettuate"
//END
ENDPAGE
PAGE "Parametri" -1 -1 60 10
PAGE "Parametri" -1 -1 78 20
LIST F_NUMCARAT 10
BEGIN
PROMPT 4 2 "Numero caratteri "
HELP "Indicare il numero di caratteri del foglio di stampa (larghezza)"
ITEM "1|132 crt."
ITEM "2|198 crt."
END
@ -512,7 +481,6 @@ END
LIST F_FORMATO 23
BEGIN
PROMPT 4 4 "Formato modulo di stampa "
HELP "Indicare l'altezza del modulo di stampa"
ITEM "66|11 pollici (27,94 cm)"
ITEM "72|12 pollici (30,48 cm)"
END
@ -520,12 +488,457 @@ END
LIST F_NUMMAST 10
BEGIN
PROMPT 4 6 "Numero mastrini per pagina "
HELP "Indicare il numero di mastrini contenuti in una pagina"
ITEM "1|Uno"
ITEM "2|Due"
ITEM "3|Continua"
END
SPREADSHEET F_SCELTE
BEGIN
PROMPT 0 8 ""
ITEM "Anno"
ITEM "Tipo@4"
ITEM "Gr."
ITEM "Co."
ITEM "Sottoc."
ITEM "Tipo@4"
ITEM "Gr."
ITEM "Co."
ITEM "Sottoc."
ITEM "Dal@10"
ITEM "Al@10"
ITEM "IVA"
ITEM "Progr."
ITEM "Provvis."
ITEM "Numerazione"
ITEM "Stampa"
END
ENDPAGE
ENDMASK
PAGE "Scelte" -1 -1 68 13
NUMBER F_ANNO 4
BEGIN
PROMPT 1 1 "Esercizio "
USE ESC
INPUT CODTAB F_ANNO
DISPLAY "Codice Esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio " D1
OUTPUT F_ANNO CODTAB
CHECKTYPE NORMAL
FLAGS "Z"
ADD NONE
END
LIST F_TIPOCF_INI 25
BEGIN
PROMPT 1 2 "Dal conto "
ITEM " |Gruppo/conto/sottoconto"
MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|SHOW,1@
ITEM "C|Clienti"
MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|SHOW,2@
ITEM "F|Fornitori"
MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|SHOW,3@
END
NUMBER F_GRUPPOINI 3
BEGIN
PROMPT 44 2 ""
END
NUMBER F_CONTOINI_CONTO 3
BEGIN
PROMPT 50 2 ""
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOINI GRUPPO
OUTPUT F_CONTOINI_CONTO CONTO
CHECKTYPE NORMAL
WARNING "Conto inesistente o mancante"
MESSAGE DIRTY,F_SOTTOCINI_CONTO
VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CONTO
GROUP 1
END
NUMBER F_CONTOINI_CLIENTE 3
BEGIN
PROMPT 50 2 ""
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CLIENTE
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOINI GRUPPO
OUTPUT F_CONTOINI_CLIENTE CONTO
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CLIENTE
WARNING "Conto inesistente o mancante"
MESSAGE DIRTY,F_SOTTOCINI_CLIENTE
MESSAGE COPY,F_CONTOINI_CONTO
GROUP 2
END
NUMBER F_CONTOINI_FORN 3
BEGIN
PROMPT 50 2 ""
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F")
INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_FORN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOINI GRUPPO
OUTPUT F_CONTOINI_FORN CONTO
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_SOTTOCINI_FORN
WARNING "Conto inesistente o mancante"
MESSAGE DIRTY,F_SOTTOCINI_FORN
MESSAGE COPY,F_CONTOINI_CONTO
GROUP 3
END
NUMBER F_SOTTOCINI_CONTO 6
BEGIN
PROMPT 58 2 ""
USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CONTO
INPUT SOTTOCONTO F_SOTTOCINI_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO
OUTPUT F_GRUPPOINI GRUPPO
OUTPUT F_CONTOINI_CONTO CONTO
OUTPUT F_DESCRINI_CONTO DESCR
CHECKTYPE NORMAL
GROUP 1
END
STRING F_DESCRINI_CONTO 50
BEGIN
PROMPT 1 3 "Descrizione "
USE LF_PCON KEY 2
CHECKTYPE NORMAL
INPUT DESCR F_DESCRINI_CONTO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCINI_CONTO
GROUP 1
END
NUMBER F_SOTTOCINI_CLIENTE 6
BEGIN
PROMPT 58 2 ""
USE LF_CLIFO
CHECKTYPE NORMAL
INPUT TIPOCF "C"
INPUT CODCF F_SOTTOCINI_CLIENTE
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
OUTPUT F_SOTTOCINI_CLIENTE CODCF
OUTPUT F_DESCRINI_CLIENTE RAGSOC
MESSAGE COPY,F_SOTTOCINI_CONTO
GROUP 2
END
STRING F_DESCRINI_CLIENTE 50
BEGIN
PROMPT 1 3 "Cliente "
FIELD LF_CLIFO->RAGSOC
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_DESCRINI_CLIENTE
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Codice" CODCF
COPY OUTPUT F_SOTTOCINI_CLIENTE
MESSAGE COPY,F_DESCRINI_CONTO
CHECKTYPE NORMAL
GROUP 2
END
NUMBER F_SOTTOCINI_FORN 6
BEGIN
PROMPT 58 2 ""
USE LF_CLIFO
CHECKTYPE NORMAL
INPUT TIPOCF "F"
INPUT CODCF F_SOTTOCINI_FORN
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
OUTPUT F_SOTTOCINI_FORN CODCF
OUTPUT F_DESCRINI_FORN RAGSOC
FLAGS "R"
GROUP 3
MESSAGE COPY,F_SOTTOCINI_CONTO
END
STRING F_DESCRINI_FORN 50
BEGIN
PROMPT 1 3 "Fornitore "
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
INPUT RAGSOC F_DESCRINI_FORN
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Codice" CODCF
COPY OUTPUT F_SOTTOCINI_FORN
MESSAGE COPY,F_DESCRINI_CONTO
CHECKTYPE NORMAL
GROUP 3
END
LIST F_TIPOCF_FINE 25
BEGIN
PROMPT 1 4 "Al conto "
ITEM " |Gruppo/conto/sottoconto"
MESSAGE HIDE,5@|HIDE,6@|RESET,5@|RESET,6@|SHOW,4@
ITEM "C|Clienti"
MESSAGE HIDE,4@|HIDE,6@|RESET,4@|RESET,6@|SHOW,5@
ITEM "F|Fornitori"
MESSAGE HIDE,4@|HIDE,5@|RESET,4@|RESET,5@|SHOW,6@
END
NUMBER F_GRUPPOFINE 3
BEGIN
PROMPT 44 4 ""
END
NUMBER F_CONTOFINE_CONTO 3
BEGIN
PROMPT 50 4 ""
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOFINE GRUPPO
OUTPUT F_CONTOFINE_CONTO CONTO
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO
WARNING "Conto inesistente o mancante"
MESSAGE DIRTY,F_SOTTOCFINE_CONTO
GROUP 4
END
NUMBER F_CONTOFINE_CLIENTE 3
BEGIN
PROMPT 50 4 ""
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CLIENTE
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOFINE GRUPPO
OUTPUT F_CONTOFINE_CLIENTE CONTO
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CLIENTE
WARNING "Conto inesistente o mancante"
MESSAGE DIRTY,F_SOTTOCFINE_CLIENTE
MESSAGE COPY,F_CONTOFINE_CONTO
GROUP 5
END
NUMBER F_CONTOFINE_FORN 3
BEGIN
PROMPT 50 4 ""
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F")
INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_FORN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOFINE GRUPPO
OUTPUT F_CONTOFINE_FORN CONTO
CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_FORN
WARNING "Conto inesistente o mancante"
MESSAGE DIRTY,F_SOTTOCFINE_FORN
MESSAGE COPY,F_CONTOFINE_CONTO
GROUP 6
END
NUMBER F_SOTTOCFINE_CONTO 6
BEGIN
PROMPT 58 4 ""
USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CONTO
INPUT SOTTOCONTO F_SOTTOCFINE_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_SOTTOCFINE_CONTO SOTTOCONTO
OUTPUT F_GRUPPOFINE GRUPPO
OUTPUT F_CONTOFINE_CONTO CONTO
OUTPUT F_DESCRFINE_CONTO DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto inesistente o mancante"
GROUP 4
END
STRING F_DESCRFINE_CONTO 50
BEGIN
PROMPT 1 5 "Descrizione "
USE LF_PCON KEY 2
CHECKTYPE NORMAL
INPUT DESCR F_DESCRINI_CONTO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCFINE_CONTO
GROUP 4
END
NUMBER F_SOTTOCFINE_CLIENTE 6
BEGIN
PROMPT 58 4 ""
USE LF_CLIFO
CHECKTYPE NORMAL
WARNING "Cliente inesistente o mancante"
INPUT TIPOCF "C"
INPUT CODCF F_SOTTOCFINE_CLIENTE
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
OUTPUT F_SOTTOCFINE_CLIENTE CODCF
OUTPUT F_DESCRFINE_CLIENTE RAGSOC
MESSAGE COPY,F_SOTTOCFINE_CONTO
GROUP 5
END
STRING F_DESCRFINE_CLIENTE 50
BEGIN
PROMPT 1 5 "Cliente "
FIELD LF_CLIFO->RAGSOC
CHECKTYPE NORMAL
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_DESCRFINE_CLIENTE
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Codice" CODCF
COPY OUTPUT F_SOTTOCFINE_CLIENTE
MESSAGE COPY,F_DESCRFINE_CONTO
GROUP 5
END
NUMBER F_SOTTOCFINE_FORN 6
BEGIN
PROMPT 58 4 ""
USE LF_CLIFO
CHECKTYPE NORMAL
WARNING "Fornitore inesistente o mancante"
INPUT TIPOCF "F"
INPUT CODCF F_SOTTOCFINE_FORN
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
OUTPUT F_SOTTOCFINE_FORN CODCF
OUTPUT F_DESCRFINE_FORN RAGSOC
MESSAGE COPY,F_SOTTOCFINE_CONTO
GROUP 6
END
STRING F_DESCRFINE_FORN 50
BEGIN
PROMPT 1 5 "Fornitore "
USE LF_CLIFO KEY 2
CHECKTYPE NORMAL
INPUT TIPOCF "F"
INPUT RAGSOC F_DESCRFINE_FORN
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Codice" CODCF
COPY OUTPUT F_SOTTOCFINE_FORN
MESSAGE COPY,F_DESCRFINE_CONTO
GROUP 6
END
DATE F_DATAINI
BEGIN
PROMPT 1 6 "Dalla data "
END
DATE F_DATAFINE
BEGIN
PROMPT 44 6 "Alla data "
END
BOOLEAN F_STAMPATOTIVA
BEGIN
PROMPT 1 7 "Stampa totali documenti IVA"
END
BOOLEAN F_STAMPAPROGRE
BEGIN
PROMPT 38 7 "Stampa progressivi attuali"
END
BOOLEAN F_STAMPAMOVPROV
BEGIN
PROMPT 1 8 "Stampa movimenti provvisori"
END
LIST F_STAMPANUM 15
BEGIN
PROMPT 1 9 "Stampa numerazione "
ITEM "1|Operazione"
ITEM "2|Riga giornale"
ITEM "3|Nessuna"
END
LIST F_TIPOSTAMPA 34
BEGIN
PROMPT 1 10 "Tipo stampa "
ITEM "1|Mastrini movimentati nel periodo"
ITEM "2|Mastrini con saldi diversi da 0"
ITEM "3|Completa"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
ENDMASK