cg21cg.uml Aggiunta tabella centro di costo allo sheet contabile
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
parent
df7fbd6af0
commit
c31c8952d4
@ -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
|
||||
|
||||
268
cg/cg3200.cpp
268
cg/cg3200.cpp
@ -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;
|
||||
bool ok = TRUE;
|
||||
if (k == K_SPACE)
|
||||
ok = app().mask2sheet();
|
||||
return ok;
|
||||
}
|
||||
return 0;
|
||||
|
||||
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
|
||||
@ -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)
|
||||
@ -681,6 +686,7 @@ bool TMastrini_application::data_inizio(TMask_field& f, KEY k)
|
||||
if (data == botime)
|
||||
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");
|
||||
@ -689,7 +695,9 @@ bool TMastrini_application::data_inizio(TMask_field& f, KEY k)
|
||||
else
|
||||
app()._data_ini = data;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
if (anno == 0)
|
||||
{
|
||||
if (data == botime)
|
||||
@ -701,6 +709,7 @@ bool TMastrini_application::data_inizio(TMask_field& f, KEY k)
|
||||
app()._data_ini = data;
|
||||
}
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
@ -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;
|
||||
|
||||
// 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));
|
||||
|
||||
_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();
|
||||
_annomsk = _msk->get_int(F_ANNO);
|
||||
|
||||
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());
|
||||
|
||||
@ -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()
|
||||
@ -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;
|
||||
|
||||
71
cg/cg3200.h
71
cg/cg3200.h
@ -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_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_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_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
|
||||
|
||||
|
||||
503
cg/cg3200a.uml
503
cg/cg3200a.uml
@ -2,16 +2,20 @@
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
BUTTON DLG_PRINT 10 2
|
||||
|
||||
BUTTON DLG_PRINT 16 2
|
||||
BEGIN
|
||||
PROMPT -12 -11 "~Stampa"
|
||||
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
|
||||
@ -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
|
||||
Loading…
x
Reference in New Issue
Block a user