Zerofilled l'anno di esercizio sulle tabelle dei registri e degli esercizi
Lancio automatico della conversione archivi (ba1) Correzione programma numerazione registri bollati Correzione ricerca per codice fiscale sulle maschere delle persone. git-svn-id: svn://10.65.10.50/trunk@227 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
5ca8379687
commit
1d414b2abc
@ -35,7 +35,7 @@ protected:
|
|||||||
virtual void print();
|
virtual void print();
|
||||||
|
|
||||||
public:
|
public:
|
||||||
BA1100_application() : _browse(NULL), _rec(NULL) {}
|
BA1100_application() : _browse(NULL), _rec(NULL), _mask(NULL) {}
|
||||||
|
|
||||||
};
|
};
|
||||||
|
|
||||||
@ -111,7 +111,6 @@ bool BA1100_application::create() // initvar e arrmask
|
|||||||
{
|
{
|
||||||
_mask = new TMask ("ba1100a");
|
_mask = new TMask ("ba1100a");
|
||||||
set_firm();
|
set_firm();
|
||||||
set_printer(new TPrinter());
|
|
||||||
_browse = new TDir_sheet ("Manutenzione file di sistema") ;
|
_browse = new TDir_sheet ("Manutenzione file di sistema") ;
|
||||||
_browse->add_button(DLG_INSFILE, "Inserisce", K_F4);
|
_browse->add_button(DLG_INSFILE, "Inserisce", K_F4);
|
||||||
_browse->add_button(DLG_CONVERT, "Converte", K_F7);
|
_browse->add_button(DLG_CONVERT, "Converte", K_F7);
|
||||||
@ -126,7 +125,7 @@ bool BA1100_application::destroy() // releasev e arrmask
|
|||||||
{
|
{
|
||||||
if (_firm) set_firm(_firm);
|
if (_firm) set_firm(_firm);
|
||||||
if (_browse != NULL) delete _browse;
|
if (_browse != NULL) delete _browse;
|
||||||
delete _mask;
|
if (_mask != NULL) delete _mask;
|
||||||
return TRUE ;
|
return TRUE ;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
618
ba/ba3300.cpp
618
ba/ba3300.cpp
@ -1,329 +1,289 @@
|
|||||||
#include <mask.h>
|
#include <mask.h>
|
||||||
#include <printapp.h>
|
#include <printapp.h>
|
||||||
#include <relation.h>
|
#include <relation.h>
|
||||||
#include <tabutil.h>
|
#include <tabutil.h>
|
||||||
#include <utility.h>
|
#include <utility.h>
|
||||||
#include <sort.h>
|
|
||||||
#include <lffiles.h>
|
#include "ba3.h"
|
||||||
|
#include "ba3300.h"
|
||||||
#include "ba3.h"
|
|
||||||
#include "ba3300.h"
|
class BA3300_application : public TPrintapp
|
||||||
|
{
|
||||||
class BA3300_application : public TPrintapp
|
friend bool codice_handler(TMask_field& field, KEY key);
|
||||||
{
|
|
||||||
friend bool our_handler(TMask_field& field, KEY key);
|
TMask* _msk;
|
||||||
|
TTable* _tab; // Tabella dei registri
|
||||||
TMask* _msk;
|
TString _cod_reg, _comulc, _ragsoc, _indulc, _civulc, _capulc, _com, _prov, _cofi, _paiv, _tipoa;
|
||||||
TTable* _tab; //Tabella dei registri
|
long _codice_ditta, _agg, _codanagr;
|
||||||
TString _cod_reg, _comulc, _ragsoc, _indulc, _civulc, _capulc, _com, _prov, _cofi, _paiv, _tipoa;
|
long _num_pag, _pag_ini, _pag_fin;
|
||||||
long _cod_anno, _codice_ditta, _agg, _codanagr;
|
int _cod_anno;
|
||||||
int _num_pag, _pag_ini, _pag_fin;
|
bool _inizia_dopo;
|
||||||
bool _inizia_dopo;
|
TLocalisamfile* _nditte;
|
||||||
TLocalisamfile* _nditte;
|
TLocalisamfile* _anag;
|
||||||
TLocalisamfile* _anag;
|
TLocalisamfile* _unloc;
|
||||||
TLocalisamfile* _unloc;
|
TLocalisamfile* _comuni;
|
||||||
TLocalisamfile* _comuni;
|
|
||||||
|
public:
|
||||||
public:
|
|
||||||
|
bool menu (MENU_TAG m) { return TPrintapp::menu(m) ; }
|
||||||
bool menu (MENU_TAG m) { return TPrintapp::menu(m) ; }
|
virtual void user_destroy();
|
||||||
virtual void user_destroy();
|
virtual void user_create() ;
|
||||||
virtual void user_create() ;
|
bool set_print(int);
|
||||||
bool set_print(int);
|
|
||||||
|
const char* decodifica_reg ();
|
||||||
const char* decodifica_reg ();
|
|
||||||
|
virtual void set_page (int, int);
|
||||||
virtual void set_page (int, int);
|
virtual print_action postprocess_page (int, int);
|
||||||
virtual print_action postprocess_page (int, int);
|
|
||||||
|
BA3300_application();
|
||||||
BA3300_application();
|
};
|
||||||
};
|
|
||||||
|
print_action BA3300_application::postprocess_page(int, int counter)
|
||||||
print_action BA3300_application::postprocess_page (int, int counter)
|
{
|
||||||
{
|
if (counter == _num_pag - 1)
|
||||||
if (counter == _num_pag - 1)
|
{
|
||||||
{
|
TString16 dep; dep.format("%04d%-3s", _cod_anno, (const char*)_cod_reg);
|
||||||
TString dep(CODTABLEN);
|
_tab->curr().put("CODTAB", (const char*)dep);
|
||||||
|
_tab->read();
|
||||||
_tab->curr().zero();
|
if (_tab->bad()) _tab->curr().zero();
|
||||||
dep << format ("%04d%-3s", _cod_anno, (const char*)_cod_reg);
|
_agg = _tab->curr().get_long("I2");
|
||||||
_tab->curr().put("CODTAB", (const char*)dep);
|
_agg = _agg + _num_pag;
|
||||||
_tab->read();
|
_tab->curr().put("I2", _agg);
|
||||||
if (_tab->bad()) _tab->curr().zero();
|
_tab->rewrite();
|
||||||
_agg = atol(_tab->curr().get("I2"));
|
return NEXT_PAGE;
|
||||||
_agg = _agg + _num_pag;
|
}
|
||||||
_tab->curr().put("I2", _agg);
|
|
||||||
_tab->rewrite();
|
return REPEAT_PAGE;
|
||||||
|
}
|
||||||
return NEXT_PAGE;
|
|
||||||
}
|
void BA3300_application::set_page(int , int counter)
|
||||||
else
|
{
|
||||||
return REPEAT_PAGE;
|
reset_print();
|
||||||
}
|
|
||||||
|
const TString80 descr(decodifica_reg());
|
||||||
void BA3300_application::set_page(int , int counter)
|
long contatore = _pag_ini + counter;
|
||||||
{
|
|
||||||
TString descr;
|
if (counter == 0)
|
||||||
int contatore;
|
{
|
||||||
|
if (!_inizia_dopo)
|
||||||
reset_print();
|
{
|
||||||
|
reset_row(8);
|
||||||
descr = decodifica_reg();
|
set_row(8, "@65gPag.@70g%ld", contatore);
|
||||||
contatore = _pag_ini + counter;
|
}
|
||||||
|
|
||||||
if (counter == 0)
|
reset_row(1);
|
||||||
{
|
reset_row(2);
|
||||||
|
reset_row(3);
|
||||||
if (!_inizia_dopo)
|
reset_row(4);
|
||||||
{
|
reset_row(5);
|
||||||
reset_row(8);
|
reset_row(6);
|
||||||
set_row(8, "@65gPag.@70g%d", (const char *) contatore);
|
reset_row(7);
|
||||||
}
|
|
||||||
|
set_row (1, "@50g%-50s", (const char*) descr);
|
||||||
reset_row(1);
|
set_row (2, "@50g%-50s", (const char*)_ragsoc);
|
||||||
reset_row(2);
|
set_row (3, "@50g%-35s", (const char*)_indulc);
|
||||||
reset_row(3);
|
set_row (3, "@90g%-10s", (const char*)_civulc);
|
||||||
reset_row(4);
|
set_row (4, "@50g%5s", (const char*)_capulc);
|
||||||
reset_row(5);
|
set_row (4, "@60g%-50s", (const char*)_com);
|
||||||
reset_row(6);
|
set_row (4, "@115g%5s", (const char*)_prov);
|
||||||
reset_row(7);
|
set_row (5, "@50g%16s", (const char*)_cofi);
|
||||||
|
set_row (6, "@50g%11s", (const char*)_paiv);
|
||||||
set_row (1, "@50g%-50s", (const char*) descr);
|
|
||||||
set_row (2, "@50g%-50s", (const char*)_ragsoc);
|
}
|
||||||
set_row (3, "@50g%-35s", (const char*)_indulc);
|
else if (counter==_num_pag-1)
|
||||||
set_row (3, "@90g%10s", (const char*)_civulc);
|
{
|
||||||
set_row (4, "@50g%5s", (const char*)_capulc);
|
reset_row(1);
|
||||||
set_row (4, "@60g%50s", (const char*) _com);
|
reset_row(2);
|
||||||
set_row (4, "@115g%5s", (const char*)_prov);
|
reset_row(3);
|
||||||
set_row (5, "@50g%16s", (const char*)_cofi);
|
reset_row(4);
|
||||||
set_row (6, "@50g%11s", (const char*)_paiv);
|
reset_row(5);
|
||||||
|
reset_row(6);
|
||||||
}
|
reset_row(7);
|
||||||
else if (counter==_num_pag-1)
|
reset_row(8);
|
||||||
{
|
set_row (1, "@1gSocieta'@10g%-50s", (const char*) _ragsoc);
|
||||||
reset_row(1);
|
set_row (1, "@62g%-29s", (const char*) _indulc);
|
||||||
reset_row(2);
|
set_row (1, "@93g%-9s", (const char*) _civulc);
|
||||||
reset_row(3);
|
set_row (1, "@103g%-5s", (const char*) _capulc);
|
||||||
reset_row(4);
|
set_row (1, "@110g%-18s", (const char*) _com);
|
||||||
reset_row(5);
|
set_row (1, "@130g%-3s", (const char*) _prov);
|
||||||
reset_row(6);
|
set_row (2, "@1g%-50s", (const char*) descr);
|
||||||
reset_row(7);
|
set_row (2, "@52g%16s", (const char*) _cofi);
|
||||||
reset_row(8);
|
set_row (2, "@70g%11s", (const char*) _paiv);
|
||||||
set_row (1, "@1gSocieta'@10g%-50s", (const char*) _ragsoc);
|
set_row (4, "@50gN. ........ DI REPERTORIO");
|
||||||
set_row (1, "@62g%-29s", (const char*) _indulc);
|
set_row (5, "@50gIL PRESENTE LIBRO DELLA@75g%50s", (const char*) _ragsoc);
|
||||||
set_row (1, "@93g%-9s", (const char*) _civulc);
|
set_row (6, "@50g%-35s", (const char*) _indulc);
|
||||||
set_row (1, "@103g%-5s", (const char*) _capulc);
|
set_row (6, "@88g%10s", (const char*) _civulc);
|
||||||
set_row (1, "@110g%-18s", (const char*) _com);
|
set_row (7, "@50g%5s", (const char*) _capulc);
|
||||||
set_row (1, "@130g%-3s", (const char*) _prov);
|
set_row (7, "@58g%50s", (const char*) _com);
|
||||||
set_row (2, "@1g%-50s", (const char*) descr);
|
set_row (7, "@111g%5s", (const char*) _prov);
|
||||||
set_row (2, "@52g%16s", (const char*) _cofi);
|
set_row (8, "@120gPag.@125g%ld", contatore);
|
||||||
set_row (2, "@70g%11s", (const char*) _paiv);
|
}
|
||||||
set_row (4, "@50gN. ........ DI REPERTORIO");
|
else
|
||||||
set_row (5, "@50gIL PRESENTE LIBRO DELLA@75g%50s", (const char*) _ragsoc);
|
{
|
||||||
set_row (6, "@50g%-35s", (const char*) _indulc);
|
reset_row(1);
|
||||||
set_row (6, "@88g%10s", (const char*) _civulc);
|
reset_row(2);
|
||||||
set_row (7, "@50g%5s", (const char*) _capulc);
|
reset_row(3);
|
||||||
set_row (7, "@58g%50s", (const char*) _com);
|
reset_row(4);
|
||||||
set_row (7, "@111g%5s", (const char*) _prov);
|
reset_row(5);
|
||||||
set_row (8, "@120gPag.@125g%d", (const char*) contatore);
|
reset_row(6);
|
||||||
|
reset_row(7);
|
||||||
}
|
reset_row(8);
|
||||||
|
set_row (1, "@1gSocieta'@10g%-50s", (const char*) _ragsoc);
|
||||||
else
|
set_row (1, "@62g%-29s", (const char*) _indulc);
|
||||||
{
|
// set_row (1, "@93g%-9s", (const char*) _civulc);
|
||||||
|
// set_row (1, "@103g%-5s", (const char*) _capulc);
|
||||||
reset_row(1);
|
set_row (1, "@110g%-18s", (const char*) _com);
|
||||||
reset_row(2);
|
set_row (1, "@130g%-3s", (const char*) _prov);
|
||||||
reset_row(3);
|
set_row (2, "@1g%-50s", (const char*) descr);
|
||||||
reset_row(4);
|
set_row (2, "@52g%16s", (const char*) _cofi);
|
||||||
reset_row(5);
|
set_row (2, "@70g%11s", (const char*) _paiv);
|
||||||
reset_row(6);
|
set_row (3, "@85gPag.@90g%ld", contatore);
|
||||||
reset_row(7);
|
}
|
||||||
reset_row(8);
|
}
|
||||||
set_row (1, "@1gSocieta'@10g%-50s", (const char*) _ragsoc);
|
|
||||||
set_row (1, "@62g%-29s", (const char*) _indulc);
|
BA3300_application::BA3300_application()
|
||||||
// set_row (1, "@93g%-9s", (const char*) _civulc);
|
{
|
||||||
// set_row (1, "@103g%-5s", (const char*) _capulc);
|
}
|
||||||
set_row (1, "@110g%-18s", (const char*) _com);
|
|
||||||
set_row (1, "@130g%-3s", (const char*) _prov);
|
bool BA3300_application::set_print(int)
|
||||||
set_row (2, "@1g%-50s", (const char*) descr);
|
{
|
||||||
set_row (2, "@52g%16s", (const char*) _cofi);
|
KEY tasto;
|
||||||
set_row (2, "@70g%11s", (const char*) _paiv);
|
TString16 app;
|
||||||
set_row (3, "@85gPag.@90g%d", (const char*) contatore);
|
|
||||||
}
|
_nditte->setkey(1);
|
||||||
|
_codice_ditta = get_firm();
|
||||||
}
|
_nditte->curr().zero();
|
||||||
|
_nditte->curr().put(N_CODDITTA,_codice_ditta);
|
||||||
BA3300_application::BA3300_application()
|
_nditte->read();
|
||||||
{
|
app=_nditte->curr().get(N_CODDITTA);
|
||||||
}
|
_msk->set(F_CODDITTA,app);
|
||||||
|
_ragsoc=_nditte->curr().get(N_RAGSOC);
|
||||||
bool BA3300_application::set_print(int)
|
_tipoa =_nditte->curr().get(N_TIPOA);
|
||||||
{
|
_codanagr =atol(_nditte->curr().get(N_CODANAGR));
|
||||||
|
_msk->set(F_RAGSOC,_ragsoc);
|
||||||
KEY tasto;
|
|
||||||
TString app(8);
|
_unloc->setkey(1);
|
||||||
|
_unloc->curr().zero();
|
||||||
|
_unloc->curr().put(N_CODDITTA,app);
|
||||||
_nditte->setkey(1);
|
_unloc->curr().put(N_CODULC,"1");
|
||||||
_codice_ditta = get_firm();
|
_unloc->read();
|
||||||
_nditte->curr().zero();
|
_indulc=_unloc->curr().get(N_INDULC);
|
||||||
_nditte->curr().put(N_CODDITTA,_codice_ditta);
|
_msk->set(F_INDIRIZZO,_indulc);
|
||||||
_nditte->read();
|
_civulc=_unloc->curr().get(N_CIVULC);
|
||||||
app=_nditte->curr().get(N_CODDITTA);
|
_msk->set(F_CIV,_civulc);
|
||||||
_msk->set(F_CODDITTA,app);
|
_capulc=_unloc->curr().get(N_CAPULC);
|
||||||
_ragsoc=_nditte->curr().get(N_RAGSOC);
|
_msk->set(F_CAP,_capulc);
|
||||||
_tipoa =_nditte->curr().get(N_TIPOA);
|
_comulc=_unloc->curr().get(N_COMULC);
|
||||||
_codanagr =atol(_nditte->curr().get(N_CODANAGR));
|
_msk->set(F_CODCOM,_comulc);
|
||||||
_msk->set(F_RAGSOC,_ragsoc);
|
|
||||||
|
_comuni->setkey(1);
|
||||||
|
_comuni->curr().zero();
|
||||||
_unloc->setkey(1);
|
_comuni->curr().put(N_CODCOM,_comulc);
|
||||||
_unloc->curr().zero();
|
_comuni->read();
|
||||||
_unloc->curr().put(N_CODDITTA,app);
|
_com=_comuni->curr().get(N_COM);
|
||||||
_unloc->curr().put(N_CODULC,"1");
|
_msk->set(F_COM,_com);
|
||||||
_unloc->read();
|
_prov=_comuni->curr().get(N_PROV);
|
||||||
_indulc=_unloc->curr().get(N_INDULC);
|
_msk->set(F_PROV,_prov);
|
||||||
_msk->set(F_INDIRIZZO,_indulc);
|
|
||||||
_civulc=_unloc->curr().get(N_CIVULC);
|
_anag->setkey(1);
|
||||||
_msk->set(F_CIV,_civulc);
|
_anag->curr().zero();
|
||||||
_capulc=_unloc->curr().get(N_CAPULC);
|
_anag->curr().put(N_TIPOA,_tipoa);
|
||||||
_msk->set(F_CAP,_capulc);
|
_anag->curr().put(N_CODANAGR,_codanagr);
|
||||||
_comulc=_unloc->curr().get(N_COMULC);
|
_anag->read();
|
||||||
_msk->set(F_CODCOM,_comulc);
|
_cofi=_anag->curr().get(N_COFI);
|
||||||
|
_msk->set(F_COFI,_cofi);
|
||||||
|
_paiv=_anag->curr().get(N_PAIV);
|
||||||
_comuni->setkey(1);
|
_msk->set(F_PAIV,_paiv);
|
||||||
_comuni->curr().zero();
|
|
||||||
_comuni->curr().put(N_CODCOM,_comulc);
|
_msk->set(F_LUNG,66);
|
||||||
_comuni->read();
|
|
||||||
_com=_comuni->curr().get(N_COM);
|
tasto = _msk->run();
|
||||||
_msk->set(F_COM,_com);
|
|
||||||
_prov=_comuni->curr().get(N_PROV);
|
if (tasto == K_ENTER)
|
||||||
_msk->set(F_PROV,_prov);
|
{
|
||||||
|
_cod_reg = _msk->get(F_CODICE);
|
||||||
_anag->setkey(1);
|
_cod_anno = _msk->get_int(F_ANNO);
|
||||||
_anag->curr().zero();
|
_pag_ini = _msk->get_long(F_NPAGINI);
|
||||||
_anag->curr().put(N_TIPOA,_tipoa);
|
_pag_fin = _msk->get_long(F_NPAGFI);
|
||||||
_anag->curr().put(N_CODANAGR,_codanagr);
|
_inizia_dopo = _msk->get_bool(F_PRIMO);
|
||||||
_anag->read();
|
_num_pag = (_pag_fin - _pag_ini) + 1;
|
||||||
_cofi=_anag->curr().get(N_COFI);
|
enable_print_menu();
|
||||||
_msk->set(F_COFI,_cofi);
|
return TRUE;
|
||||||
_paiv=_anag->curr().get(N_PAIV);
|
}
|
||||||
_msk->set(F_PAIV,_paiv);
|
|
||||||
|
return FALSE;
|
||||||
_msk->set(F_LUNG,66);
|
}
|
||||||
|
|
||||||
tasto = _msk->run();
|
static bool codice_handler (TMask_field& field, KEY key)
|
||||||
|
{
|
||||||
if (tasto == K_ENTER)
|
if (key == K_TAB)
|
||||||
{
|
{
|
||||||
_cod_reg = _msk->get(F_CODICE);
|
const TEdit_field& e = (const TEdit_field&)field;
|
||||||
_cod_anno = atol(_msk->get(F_ANNO));
|
const TLocalisamfile* t = e.browse()->cursor()->file();
|
||||||
_pag_ini = atoi(_msk->get(F_NPAGINI));
|
const long num = t->get_long("I2");
|
||||||
_pag_fin = atoi(_msk->get(F_NPAGFI));
|
field.mask().set(F_NPAGINI, num+1);
|
||||||
_inizia_dopo = (bool)(_msk->get(F_PRIMO) == "X");
|
field.mask().set(F_NPAGFI, 0L);
|
||||||
_num_pag = (_pag_fin - _pag_ini) + 1;
|
}
|
||||||
enable_print_menu();
|
return TRUE;
|
||||||
return TRUE;
|
}
|
||||||
|
|
||||||
}
|
const char* BA3300_application::decodifica_reg ()
|
||||||
else
|
{
|
||||||
return FALSE;
|
TString16 dep; dep.format("%04d%-3s", _cod_anno, (const char*)_cod_reg);
|
||||||
}
|
|
||||||
|
_tab->curr().put("CODTAB", (const char*)dep);
|
||||||
static bool our_handler (TMask_field& field, KEY key)
|
_tab->read();
|
||||||
{
|
if (_tab->bad()) _tab->curr().zero();
|
||||||
TMask& m=field.mask();
|
return _tab->curr().get ("S0");
|
||||||
|
}
|
||||||
TTable* t = ((BA3300_application *)MainApp())->_tab;
|
|
||||||
|
void BA3300_application::user_create()
|
||||||
if (key == K_TAB)
|
{
|
||||||
{
|
enable_print_menu();
|
||||||
if (field.dlg() == F_CODICE)
|
|
||||||
{
|
_nditte = new TLocalisamfile (LF_NDITTE);
|
||||||
long num = atol(t->curr().get("I2"));
|
_unloc = new TLocalisamfile (LF_UNLOC);
|
||||||
|
_comuni = new TLocalisamfile (LF_COMUNI);
|
||||||
m.set(F_NPAGINI, num+1);
|
_anag = new TLocalisamfile (LF_ANAG);
|
||||||
}
|
_tab = new TTable(TAB_REG);
|
||||||
}
|
|
||||||
return TRUE;
|
_msk = new TMask ("ba3300a") ;
|
||||||
}
|
_msk->set_handler(F_CODICE, codice_handler);
|
||||||
|
|
||||||
const char* BA3300_application::decodifica_reg ()
|
add_cursor (NULL);
|
||||||
{
|
set_auto_ff (TRUE);
|
||||||
TString dep(CODTABLEN);
|
}
|
||||||
|
|
||||||
_tab->curr().zero();
|
void BA3300_application::user_destroy() // releasev e arrmask
|
||||||
dep << format ("%04d%-3s", _cod_anno, (const char*)_cod_reg);
|
{
|
||||||
|
delete _msk;
|
||||||
_tab->curr().put("CODTAB", (const char*)dep);
|
delete _nditte;
|
||||||
_tab->read();
|
delete _unloc;
|
||||||
if (_tab->bad()) _tab->curr().zero();
|
delete _comuni;
|
||||||
return _tab->curr().get ("S0");
|
delete _anag;
|
||||||
}
|
delete _tab;
|
||||||
|
}
|
||||||
void BA3300_application::user_create()
|
|
||||||
{
|
int ba3300(int argc, char* argv[])
|
||||||
enable_print_menu();
|
{
|
||||||
|
BA3300_application a;
|
||||||
_nditte = new TLocalisamfile (LF_NDITTE);
|
a.run(argc, argv, "Stampa fogli libro bollato");
|
||||||
|
return 0;
|
||||||
_unloc = new TLocalisamfile (LF_UNLOC);
|
}
|
||||||
|
|
||||||
_comuni = new TLocalisamfile (LF_COMUNI);
|
|
||||||
|
|
||||||
_anag = new TLocalisamfile (LF_ANAG);
|
|
||||||
|
|
||||||
//_ftab = new TLocalisamfile (LF_TAB);
|
|
||||||
|
|
||||||
_tab = new TTable(TAB_REG);
|
|
||||||
|
|
||||||
_msk = new TMask ("ba3300a") ;
|
|
||||||
|
|
||||||
_msk->set_handler(F_CODICE, our_handler);
|
|
||||||
|
|
||||||
add_cursor (NULL);
|
|
||||||
set_auto_ff (TRUE);
|
|
||||||
}
|
|
||||||
|
|
||||||
void BA3300_application::user_destroy() // releasev e arrmask
|
|
||||||
{
|
|
||||||
delete _msk;
|
|
||||||
delete _nditte;
|
|
||||||
delete _unloc;
|
|
||||||
delete _comuni;
|
|
||||||
delete _anag;
|
|
||||||
delete _tab;
|
|
||||||
//delete _ftab;
|
|
||||||
close(LF_TAB);
|
|
||||||
}
|
|
||||||
|
|
||||||
int ba3300(int argc, char* argv[])
|
|
||||||
{
|
|
||||||
|
|
||||||
BA3300_application a;
|
|
||||||
|
|
||||||
a.set_config_file ("pr2.stp");
|
|
||||||
|
|
||||||
a.run(argc, argv, "Stampa fogli libro bollato");
|
|
||||||
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
378
ba/ba3300a.uml
378
ba/ba3300a.uml
@ -1,189 +1,189 @@
|
|||||||
#include "ba3300.h"
|
#include "ba3300.h"
|
||||||
PAGE "" -1 -1 74 20
|
|
||||||
|
PAGE "" -1 -1 74 20
|
||||||
NUMBER F_ANNO 4
|
|
||||||
BEGIN
|
NUMBER F_ANNO 4
|
||||||
PROMPT 3 3 "Anno Riferimento "
|
BEGIN
|
||||||
USE REG
|
PROMPT 3 3 "Anno Riferimento "
|
||||||
INPUT CODTAB[1,4] F_ANNO
|
USE REG
|
||||||
INPUT CODTAB[5,7] F_CODICE
|
INPUT CODTAB[1,4] F_ANNO
|
||||||
DISPLAY "Anno " CODTAB[1,4]
|
INPUT CODTAB[5,7] F_CODICE
|
||||||
DISPLAY "Codice Registro" CODTAB[5,7]
|
DISPLAY "Anno " CODTAB[1,4]
|
||||||
DISPLAY "Descrizione @50" S0
|
DISPLAY "Codice Registro" CODTAB[5,7]
|
||||||
DISPLAY "Tipo" I0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_ANNO CODTAB[1,4]
|
DISPLAY "Tipo" I0
|
||||||
OUTPUT F_CODICE CODTAB[5,7]
|
OUTPUT F_ANNO CODTAB[1,4]
|
||||||
OUTPUT F_REGISTRO S0
|
OUTPUT F_CODICE CODTAB[5,7]
|
||||||
FLAGS "RZ"
|
OUTPUT F_REGISTRO S0
|
||||||
KEY 1
|
FLAGS "URZ"
|
||||||
END
|
CHECKTYPE REQUIRED
|
||||||
|
KEY 1
|
||||||
STRING F_CODDITTA 5
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 3 2 "Ditta "
|
STRING F_CODDITTA 5
|
||||||
FLAGS "DFR"
|
BEGIN
|
||||||
KEY 1
|
PROMPT 3 2 "Ditta "
|
||||||
END
|
FLAGS "DFR"
|
||||||
|
KEY 1
|
||||||
STRING F_CODICE 3
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 3 4 "Codice Registro "
|
STRING F_CODICE 3
|
||||||
FLAGS "U"
|
BEGIN
|
||||||
COPY ALL F_ANNO
|
PROMPT 3 4 "Codice Registro "
|
||||||
KEY 1
|
FLAGS "U"
|
||||||
END
|
COPY ALL F_ANNO
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
STRING F_REGISTRO 50
|
KEY 1
|
||||||
BEGIN
|
END
|
||||||
PROMPT 3 6 "Registro "
|
|
||||||
HELP "Indicare la descrizione del registro"
|
STRING F_REGISTRO 50
|
||||||
USE REG KEY 2
|
BEGIN
|
||||||
INPUT S0 F_REGISTRO
|
PROMPT 3 6 "Registro "
|
||||||
COPY DISPLAY F_ANNO
|
HELP "Indicare la descrizione del registro"
|
||||||
COPY OUTPUT F_ANNO
|
USE REG KEY 2
|
||||||
OUTPUT F_REGISTRO S0
|
INPUT S0 F_REGISTRO
|
||||||
END
|
DISPLAY "Descrizione@50" S0
|
||||||
|
DISPLAY "Anno " CODTAB[1,4]
|
||||||
STRING F_RAGSOC 50
|
DISPLAY "Codice Registro" CODTAB[5,7]
|
||||||
BEGIN
|
DISPLAY "Tipo" I0
|
||||||
PROMPT 3 7 "Ragione sociale "
|
COPY OUTPUT F_CODICE
|
||||||
FLAGS "U"
|
CHECKTYPE REQUIRED
|
||||||
// USE LF_NDITTE KEY 2
|
END
|
||||||
// INPUT RAGSOC F_RAGSOC
|
|
||||||
// DISPLAY "Ragione sociale @50" RAGSOC
|
STRING F_RAGSOC 50
|
||||||
// DISPLAY "Ditta" CODDITTA
|
BEGIN
|
||||||
// OUTPUT F_RAGSOC RAGSOC
|
PROMPT 3 7 "Ragione sociale "
|
||||||
// OUTPUT F_CODDITTA CODDITTA
|
FLAGS "U"
|
||||||
END
|
// USE LF_NDITTE KEY 2
|
||||||
|
// INPUT RAGSOC F_RAGSOC
|
||||||
STRING F_INDIRIZZO 35
|
// DISPLAY "Ragione sociale @50" RAGSOC
|
||||||
BEGIN
|
// DISPLAY "Ditta" CODDITTA
|
||||||
PROMPT 3 8 "Indirizzo "
|
// OUTPUT F_RAGSOC RAGSOC
|
||||||
// USE LF_UNLOC
|
// OUTPUT F_CODDITTA CODDITTA
|
||||||
// CHECKTYPE NORMAL
|
END
|
||||||
// INPUT CODULC "1"
|
|
||||||
// INPUT CODDITTA F_CODDITTA
|
STRING F_INDIRIZZO 35
|
||||||
// DISPLAY "Ditta" CODDITTA
|
BEGIN
|
||||||
// DISPLAY "Indirizzo @35" INDULC
|
PROMPT 3 8 "Indirizzo "
|
||||||
// OUTPUT F_INDIRIZZO INDULC
|
// USE LF_UNLOC
|
||||||
// OUTPUT F_CODDITTA CODDITTA
|
// CHECKTYPE NORMAL
|
||||||
// WARNING "Indirizzo assente"
|
// INPUT CODULC "1"
|
||||||
END
|
// INPUT CODDITTA F_CODDITTA
|
||||||
|
// DISPLAY "Ditta" CODDITTA
|
||||||
STRING F_CIV 10
|
// DISPLAY "Indirizzo @35" INDULC
|
||||||
BEGIN
|
// OUTPUT F_INDIRIZZO INDULC
|
||||||
PROMPT 51 8 "N.civico "
|
// OUTPUT F_CODDITTA CODDITTA
|
||||||
END
|
// WARNING "Indirizzo assente"
|
||||||
|
END
|
||||||
STRING F_CAP 5
|
|
||||||
BEGIN
|
STRING F_CIV 10
|
||||||
PROMPT 3 9 "CAP "
|
BEGIN
|
||||||
END
|
PROMPT 51 8 "N.civico "
|
||||||
|
END
|
||||||
STRING F_CODCOM 4
|
|
||||||
BEGIN
|
STRING F_CAP 5
|
||||||
PROMPT 15 9 "Comune "
|
BEGIN
|
||||||
END
|
PROMPT 3 9 "CAP "
|
||||||
|
END
|
||||||
STRING F_COM 28
|
|
||||||
BEGIN
|
STRING F_CODCOM 4
|
||||||
PROMPT 29 9 ""
|
BEGIN
|
||||||
END
|
PROMPT 15 9 "Comune "
|
||||||
|
END
|
||||||
STRING F_PROV 5
|
|
||||||
BEGIN
|
STRING F_COM 28
|
||||||
PROMPT 60 9 "Prov."
|
BEGIN
|
||||||
END
|
PROMPT 29 9 ""
|
||||||
|
END
|
||||||
STRING F_COFI 16
|
|
||||||
BEGIN
|
STRING F_PROV 5
|
||||||
PROMPT 3 10 "Codice fiscale "
|
BEGIN
|
||||||
// USE LF_ANAG KEY 2
|
PROMPT 60 9 "Prov."
|
||||||
// INPUT RAGSOC F_RAGSOC
|
END
|
||||||
// DISPLAY "Tipo" TIPOA
|
|
||||||
// DISPLAY "Codice" CODANAGR
|
STRING F_COFI 16
|
||||||
// DISPLAY "Ragione sociale @50" RAGSOC
|
BEGIN
|
||||||
// OUTPUT F_RAGSOC RAGSOC
|
PROMPT 3 10 "Codice fiscale "
|
||||||
// OUTPUT F_COFI COFI
|
// USE LF_ANAG KEY 2
|
||||||
// OUTPUT F_PAIV PAIV
|
// INPUT RAGSOC F_RAGSOC
|
||||||
END
|
// DISPLAY "Tipo" TIPOA
|
||||||
|
// DISPLAY "Codice" CODANAGR
|
||||||
STRING F_PAIV 12
|
// DISPLAY "Ragione sociale @50" RAGSOC
|
||||||
BEGIN
|
// OUTPUT F_RAGSOC RAGSOC
|
||||||
PROMPT 44 10 "Partita I.V.A "
|
// OUTPUT F_COFI COFI
|
||||||
// USE LF_ANAG KEY 2
|
// OUTPUT F_PAIV PAIV
|
||||||
// INPUT RAGSOC F_RAGSOC
|
END
|
||||||
// DISPLAY "Tipo" TIPOA
|
|
||||||
// DISPLAY "Codice" CODANAGR
|
STRING F_PAIV 12
|
||||||
// DISPLAY "Ragione sociale @50" RAGSOC
|
BEGIN
|
||||||
// OUTPUT F_RAGSOC RAGSOC
|
PROMPT 44 10 "Partita I.V.A "
|
||||||
// OUTPUT F_COFI COFI
|
// USE LF_ANAG KEY 2
|
||||||
// OUTPUT F_PAIV PAIV
|
// INPUT RAGSOC F_RAGSOC
|
||||||
END
|
// DISPLAY "Tipo" TIPOA
|
||||||
|
// DISPLAY "Codice" CODANAGR
|
||||||
NUMBER F_NPAGINI 6
|
// DISPLAY "Ragione sociale @50" RAGSOC
|
||||||
BEGIN
|
// OUTPUT F_RAGSOC RAGSOC
|
||||||
PROMPT 3 12 "Numero pagina iniziale "
|
// OUTPUT F_COFI COFI
|
||||||
FLAGS "R"
|
// OUTPUT F_PAIV PAIV
|
||||||
NUM_EXPR {#THIS_FIELD >= 0}
|
END
|
||||||
WARNING "Numero pagina iniziale errato. Deve essere >= 0"
|
|
||||||
END
|
NUMBER F_NPAGINI 6
|
||||||
|
BEGIN
|
||||||
NUMBER F_NPAGFI 6
|
PROMPT 3 12 "Numero pagina iniziale "
|
||||||
BEGIN
|
FLAGS "RU"
|
||||||
PROMPT 3 13 "Numero pagina finale "
|
NUM_EXPR {#THIS_FIELD >= 0}
|
||||||
FLAGS "R"
|
WARNING "Numero pagina iniziale errato: non puo' essere negativo"
|
||||||
NUM_EXPR {#THIS_FIELD >= #F_NPAGINI}
|
END
|
||||||
WARNING "Numero pagina finale errato. Deve essere >= di quello iniziale"
|
|
||||||
END
|
NUMBER F_NPAGFI 6
|
||||||
|
BEGIN
|
||||||
BOOLEAN F_PRIMO
|
PROMPT 3 13 "Numero pagina finale "
|
||||||
BEGIN
|
FLAGS "R"
|
||||||
PROMPT 3 14 "Inizio numerazione dopo primo foglio "
|
NUM_EXPR {#THIS_FIELD >= #F_NPAGINI}
|
||||||
END
|
WARNING "Numero pagina finale errato: deve essere maggiore o uguale a quello iniziale"
|
||||||
|
END
|
||||||
LIST F_TIPOST 7
|
|
||||||
BEGIN
|
BOOLEAN F_PRIMO
|
||||||
PROMPT 3 15 "Tipo di stampa "
|
BEGIN
|
||||||
ITEM "0|132"
|
PROMPT 3 14 "Inizio numerazione dopo primo foglio "
|
||||||
ITEM "1|132 c."
|
END
|
||||||
ITEM "2|198"
|
|
||||||
END
|
LIST F_TIPOST 7
|
||||||
|
BEGIN
|
||||||
NUMBER F_LUNG 2
|
PROMPT 3 15 "Tipo di stampa "
|
||||||
BEGIN
|
ITEM "0|132"
|
||||||
PROMPT 3 16 "Numero di righe "
|
ITEM "1|132 c."
|
||||||
FLAGS "R"
|
ITEM "2|198"
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_OK
|
NUMBER F_LUNG 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 38 18 ""
|
PROMPT 3 16 "Numero di righe "
|
||||||
END
|
FLAGS "R"
|
||||||
|
END
|
||||||
BUTTON DLG_CANCEL
|
|
||||||
BEGIN
|
BUTTON DLG_OK 9 2
|
||||||
PROMPT 50 18 ""
|
BEGIN
|
||||||
END
|
PROMPT -12 -1 ""
|
||||||
/*
|
END
|
||||||
BUTTON DLG_PGDN
|
|
||||||
BEGIN
|
BUTTON DLG_QUIT 9 2
|
||||||
PROMPT 65 18 ""
|
BEGIN
|
||||||
END
|
PROMPT -22 -1 ""
|
||||||
*/
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -26,7 +26,7 @@ BEGIN
|
|||||||
PROMPT 0 0 ""
|
PROMPT 0 0 ""
|
||||||
FIELD LF_ANAG->TIPOA
|
FIELD LF_ANAG->TIPOA
|
||||||
FLAGS "HG"
|
FLAGS "HG"
|
||||||
KEY 1 2
|
KEY 1 2 3
|
||||||
ITEM "F|Fisica"
|
ITEM "F|Fisica"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|||||||
@ -24,7 +24,7 @@ PAGE "Anagrafica persone giuridiche" -1 -1 77 20
|
|||||||
FIELD LF_ANAG->TIPOA
|
FIELD LF_ANAG->TIPOA
|
||||||
ITEM "G|Giuridica"
|
ITEM "G|Giuridica"
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
KEY 1 2
|
KEY 1 2 3
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 76 4
|
GROUPBOX DLG_NULL 76 4
|
||||||
|
|||||||
15
ba/ba6.cpp
15
ba/ba6.cpp
@ -3,18 +3,21 @@
|
|||||||
|
|
||||||
#include "ba6.h"
|
#include "ba6.h"
|
||||||
|
|
||||||
#define usage "Errore - uso : %s -{0,1}"
|
#define usage "Errore - uso : %s -[0,1]"
|
||||||
|
|
||||||
int main(int argc,char** argv)
|
int main(int argc,char** argv)
|
||||||
{
|
{
|
||||||
const int r = (argc > 1) ? atoi(argv[1]) : -1;
|
const int r = (argc > 1) ? atoi(&argv[1][1]) : -1;
|
||||||
|
|
||||||
switch (r)
|
switch (r)
|
||||||
{
|
{
|
||||||
case 0:ba6100(argc,argv) ; break;
|
case 0:
|
||||||
case 1:ba6200(argc,argv) ; break;
|
ba6100(argc,argv) ; break;
|
||||||
default:error_box(usage, argv[0]) ; break;
|
case 1:
|
||||||
}
|
ba6200(argc,argv) ; break;
|
||||||
|
default:
|
||||||
|
error_box(usage, argv[0]) ; break;
|
||||||
|
}
|
||||||
return r < 0;
|
return r < 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
@ -74,14 +74,17 @@ TEXT DLG_NULL
|
|||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 5 "da Ragione Sociale"
|
PROMPT 34 5 "da Ragione Sociale"
|
||||||
END
|
END
|
||||||
|
|
||||||
TEXT DLG_NULL
|
TEXT DLG_NULL
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 7 "a Ragione Sociale"
|
PROMPT 34 7 "a Ragione Sociale"
|
||||||
END
|
END
|
||||||
|
|
||||||
TEXT DLG_NULL
|
TEXT DLG_NULL
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 2 "da Codice"
|
PROMPT 34 2 "da Codice"
|
||||||
END
|
END
|
||||||
|
|
||||||
TEXT DLG_NULL
|
TEXT DLG_NULL
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 48 2 "a Codice"
|
PROMPT 48 2 "a Codice"
|
||||||
@ -118,7 +121,8 @@ END
|
|||||||
STRING FLD_ANF_RAGSOCFR 29
|
STRING FLD_ANF_RAGSOCFR 29
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 34 6 ""
|
PROMPT 34 6 ""
|
||||||
USE LF_ANAG KEY 2 SELECT 'TIPOA=="F"'
|
USE LF_ANAG KEY 2
|
||||||
|
INPUT TIPOA "F"
|
||||||
INPUT RAGSOC FLD_ANF_RAGSOCFR
|
INPUT RAGSOC FLD_ANF_RAGSOCFR
|
||||||
DISPLAY "Codice" CODANAGR
|
DISPLAY "Codice" CODANAGR
|
||||||
DISPLAY "Codice Fiscale " COFI
|
DISPLAY "Codice Fiscale " COFI
|
||||||
|
|||||||
@ -1,4 +1,4 @@
|
|||||||
#include <batbesc.h>
|
#include "batbesc.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 20 0 2
|
TOOLBAR "" 0 20 0 2
|
||||||
|
|
||||||
@ -30,6 +30,7 @@ END
|
|||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 5 "Anno esercizio "
|
PROMPT 4 5 "Anno esercizio "
|
||||||
|
FLAGS "ZR"
|
||||||
FIELD LF_TAB->CODTAB
|
FIELD LF_TAB->CODTAB
|
||||||
KEY 1
|
KEY 1
|
||||||
USE ESC
|
USE ESC
|
||||||
|
|||||||
762
ba/batbreg.uml
762
ba/batbreg.uml
@ -1,381 +1,381 @@
|
|||||||
#include "ba3100.h"
|
#include "ba3100.h"
|
||||||
#include "batbreg.h"
|
#include "batbreg.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 20 0 2
|
TOOLBAR "" 0 20 0 2
|
||||||
|
|
||||||
#include <toolbar.h>
|
#include <toolbar.h>
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Registri" -1 -1 78 18
|
PAGE "Registri" -1 -1 78 18
|
||||||
|
|
||||||
NUMBER F_CODDITTA 5
|
NUMBER F_CODDITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "FRH"
|
FLAGS "FRH"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 1 "Anno "
|
PROMPT 4 1 "Anno "
|
||||||
FIELD CODTAB[1,4]
|
FIELD CODTAB[1,4]
|
||||||
FLAGS "AP"
|
FLAGS "ZAP"
|
||||||
KEY 1
|
KEY 1
|
||||||
GROUP 1
|
GROUP 1
|
||||||
USE REG
|
USE REG
|
||||||
INPUT CODTAB[1,4] F_ANNO
|
INPUT CODTAB[1,4] F_ANNO
|
||||||
INPUT CODTAB[5,7] F_CODICE
|
INPUT CODTAB[5,7] F_CODICE
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Codice" CODTAB[5,7]
|
DISPLAY "Codice" CODTAB[5,7]
|
||||||
DISPLAY "Descrizione @50" S0
|
DISPLAY "Descrizione @50" S0
|
||||||
DISPLAY "Tipo" I0
|
DISPLAY "Tipo" I0
|
||||||
OUTPUT F_ANNO CODTAB[1,4]
|
OUTPUT F_ANNO CODTAB[1,4]
|
||||||
OUTPUT F_CODICE CODTAB[5,7]
|
OUTPUT F_CODICE CODTAB[5,7]
|
||||||
OUTPUT F_DESCR S0
|
OUTPUT F_DESCR S0
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODICE 3
|
STRING F_CODICE 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 2 "Codice registro "
|
PROMPT 4 2 "Codice registro "
|
||||||
FIELD CODTAB[5,7]
|
FIELD CODTAB[5,7]
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
KEY 1
|
KEY 1
|
||||||
GROUP 1
|
GROUP 1
|
||||||
COPY USE F_ANNO
|
COPY USE F_ANNO
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Codice" CODTAB[5,7]
|
DISPLAY "Codice" CODTAB[5,7]
|
||||||
DISPLAY "Descrizione @50" S0
|
DISPLAY "Descrizione @50" S0
|
||||||
DISPLAY "Tipo" I0
|
DISPLAY "Tipo" I0
|
||||||
COPY OUTPUT F_ANNO
|
COPY OUTPUT F_ANNO
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESCR 50
|
STRING F_DESCR 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 3 "Descrizione "
|
PROMPT 4 3 "Descrizione "
|
||||||
FIELD S0
|
FIELD S0
|
||||||
KEY 2
|
KEY 2
|
||||||
GROUP 1
|
GROUP 1
|
||||||
USE REG KEY 2
|
USE REG KEY 2
|
||||||
INPUT S0 F_DESCR
|
INPUT S0 F_DESCR
|
||||||
DISPLAY "Descrizione @50" S0
|
DISPLAY "Descrizione @50" S0
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Codice" CODTAB[5,7]
|
DISPLAY "Codice" CODTAB[5,7]
|
||||||
DISPLAY "Tipo" I0
|
DISPLAY "Tipo" I0
|
||||||
COPY OUTPUT F_ANNO
|
COPY OUTPUT F_ANNO
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODLIB 2
|
STRING F_CODLIB 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 5 "Codice libro "
|
PROMPT 4 5 "Codice libro "
|
||||||
FIELD S7
|
FIELD S7
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
GROUP 1
|
GROUP 1
|
||||||
USE %ITL
|
USE %ITL
|
||||||
INPUT S0 F_DESCR
|
INPUT S0 F_DESCR
|
||||||
INPUT CODTAB F_CODLIB
|
INPUT CODTAB F_CODLIB
|
||||||
DISPLAY "Codice libro" CODTAB
|
DISPLAY "Codice libro" CODTAB
|
||||||
DISPLAY "Descrizione @50" S0
|
DISPLAY "Descrizione @50" S0
|
||||||
OUTPUT F_DESCR S0
|
OUTPUT F_DESCR S0
|
||||||
OUTPUT F_CODLIB CODTAB
|
OUTPUT F_CODLIB CODTAB
|
||||||
CHECHTYPE NORMAL
|
CHECHTYPE NORMAL
|
||||||
HELP "Inserire il codice del libro"
|
HELP "Inserire il codice del libro"
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_TIPO 26
|
LIST F_TIPO 26
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 30 5 "Tipo "
|
PROMPT 29 5 "Tipo "
|
||||||
FIELD I0
|
FIELD I0
|
||||||
FLAGS "G"
|
FLAGS "G"
|
||||||
GROUP 1 GR_MODIFY_PROTECTED
|
GROUP 1 GR_MODIFY_PROTECTED
|
||||||
ITEM "1|Vendite"
|
ITEM "1|Vendite"
|
||||||
MESSAGE HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,2@
|
MESSAGE HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,2@
|
||||||
ITEM "2|Acquisti"
|
ITEM "2|Acquisti"
|
||||||
MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,3@
|
MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,3@
|
||||||
ITEM "3|Libro IVA riepilogativo"
|
ITEM "3|Libro IVA riepilogativo"
|
||||||
MESSAGE HIDE,2@|HIDE,3@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,4@
|
MESSAGE HIDE,2@|HIDE,3@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,4@
|
||||||
ITEM "4|Libro Incassi e pagamenti"
|
ITEM "4|Libro Incassi e pagamenti"
|
||||||
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,5@
|
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,5@
|
||||||
ITEM "5|Libro Giornale"
|
ITEM "5|Libro Giornale"
|
||||||
MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,6@
|
MESSAGE HIDE,2@|HIDE,4@|HIDE,5@|HIDE,7@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,6@
|
||||||
ITEM "6|Libri Sociali"
|
ITEM "6|Libri Sociali"
|
||||||
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,7@
|
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,8@|HIDE,9@|HIDE,10@|SHOW,7@
|
||||||
ITEM "7|Libro Cespiti"
|
ITEM "7|Libro Cespiti"
|
||||||
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,9@|HIDE,10@|SHOW,8@
|
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,9@|HIDE,10@|SHOW,8@
|
||||||
ITEM "8|Libro Inventari"
|
ITEM "8|Libro Inventari"
|
||||||
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,10@|SHOW,9@
|
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,10@|SHOW,9@
|
||||||
ITEM "9|Libro delle Procedure"
|
ITEM "9|Libro delle Procedure"
|
||||||
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|SHOW,10@
|
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|SHOW,10@
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CONSPRESSO 40
|
STRING F_CONSPRESSO 40
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 7 "Conservato presso "
|
PROMPT 4 7 "Conservato presso "
|
||||||
FIELD S1
|
FIELD S1
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_ATTIVITA 5
|
STRING F_ATTIVITA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 9 "Codice attivita "
|
PROMPT 4 9 "Codice attivita "
|
||||||
FIELD REG->S8
|
FIELD REG->S8
|
||||||
FLAGS "URZ"
|
FLAGS "URZ"
|
||||||
GROUP 2 3 4
|
GROUP 2 3 4
|
||||||
USE LF_ATTIV
|
USE LF_ATTIV
|
||||||
INPUT CODDITTA F_CODDITTA SELECT
|
INPUT CODDITTA F_CODDITTA SELECT
|
||||||
INPUT CODATT F_ATTIVITA
|
INPUT CODATT F_ATTIVITA
|
||||||
DISPLAY "Codice" CODATT
|
DISPLAY "Codice" CODATT
|
||||||
DISPLAY "Descrizione@40" DESCR
|
DISPLAY "Descrizione@40" DESCR
|
||||||
OUTPUT F_ATTIVITA CODATT
|
OUTPUT F_ATTIVITA CODATT
|
||||||
HELP "Introdurre il codice dell' attivita'"
|
HELP "Introdurre il codice dell' attivita'"
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
WARNING "Attivita' non prevista per questa ditta"
|
WARNING "Attivita' non prevista per questa ditta"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODULC 3
|
NUMBER F_CODULC 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 35 9 "Unita' locale "
|
PROMPT 35 9 "Unita' locale "
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
GROUP 2 3 4 5 6 7 10
|
GROUP 2 3 4 5 6 7 10
|
||||||
FIELD I7
|
FIELD I7
|
||||||
USE LF_UNLOC
|
USE LF_UNLOC
|
||||||
JOIN LF_COMUNI TO LF_UNLOC KEY 1 INTO COM=COMULC
|
JOIN LF_COMUNI TO LF_UNLOC KEY 1 INTO COM=COMULC
|
||||||
INPUT CODDITTA F_CODDITTA SELECT
|
INPUT CODDITTA F_CODDITTA SELECT
|
||||||
INPUT CODULC F_CODULC
|
INPUT CODULC F_CODULC
|
||||||
DISPLAY "Codice" CODDITTA
|
DISPLAY "Codice" CODDITTA
|
||||||
DISPLAY "Un.Loc" CODULC
|
DISPLAY "Un.Loc" CODULC
|
||||||
DISPLAY "Localita'@50" LF_COMUNI->DENCOM
|
DISPLAY "Localita'@50" LF_COMUNI->DENCOM
|
||||||
DISPLAY "Indirizzo@35" INDULC
|
DISPLAY "Indirizzo@35" INDULC
|
||||||
DISPLAY "N.ro civico@35" CIVULC
|
DISPLAY "N.ro civico@35" CIVULC
|
||||||
OUTPUT F_CODULC CODULC
|
OUTPUT F_CODULC CODULC
|
||||||
HELP "Inserire il codice dell'unita' locale"
|
HELP "Inserire il codice dell'unita' locale"
|
||||||
WARNING "Unita' locale non prevista per questa ditta"
|
WARNING "Unita' locale non prevista per questa ditta"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PAGSTAMP 5
|
NUMBER F_PAGSTAMP 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 11 "Pagine stampate "
|
PROMPT 4 11 "Pagine stampate "
|
||||||
FIELD I1
|
FIELD I1
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PAGNUM 5
|
NUMBER F_PAGNUM 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 35 11 "Pagine numerate "
|
PROMPT 35 11 "Pagine numerate "
|
||||||
FIELD I2
|
FIELD I2
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAVID
|
DATE F_DATAVID
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 13 "Data vidimazione "
|
PROMPT 4 13 "Data vidimazione "
|
||||||
FIELD D0
|
FIELD D0
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATASCAD
|
DATE F_DATASCAD
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 35 13 "Data scadenza "
|
PROMPT 35 13 "Data scadenza "
|
||||||
FIELD D1
|
FIELD D1
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODLBU 3
|
STRING F_CODLBU 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 4 15 "Cod. libro unico "
|
PROMPT 4 15 "Cod. libro unico "
|
||||||
GROUP 2 3 4
|
GROUP 2 3 4
|
||||||
FIELD S6
|
FIELD S6
|
||||||
USE %LBU
|
USE %LBU
|
||||||
INPUT CODTAB[1,4] F_ANNO SELECT
|
INPUT CODTAB[1,4] F_ANNO SELECT
|
||||||
INPUT CODTAB[5,7] F_CODLBU
|
INPUT CODTAB[5,7] F_CODLBU
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Codice libro unico" CODTAB[5,7]
|
DISPLAY "Codice libro unico" CODTAB[5,7]
|
||||||
OUTPUT F_ANNO CODTAB[1,4]
|
OUTPUT F_ANNO CODTAB[1,4]
|
||||||
OUTPUT F_CODLBU CODTAB[5,7]
|
OUTPUT F_CODLBU CODTAB[5,7]
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
WARNING "Libro unico assente"
|
WARNING "Libro unico assente"
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Registri pag.2" -1 -1 78 18
|
PAGE "Registri pag.2" -1 -1 78 18
|
||||||
|
|
||||||
BOOLEAN F_STAMPA_COSTI_RICAVI
|
BOOLEAN F_STAMPA_COSTI_RICAVI
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Stampa costi/ricavi su libro cronologico "
|
PROMPT 2 2 "Stampa costi/ricavi su libro cronologico "
|
||||||
FIELD B2
|
FIELD B2
|
||||||
GROUP 5
|
GROUP 5
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_FREQUENZA_STAMPA 1 16
|
LIST F_FREQUENZA_STAMPA 1 16
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Stampa reg.riepilogativo "
|
PROMPT 2 2 "Stampa reg.riepilogativo "
|
||||||
FIELD S9
|
FIELD S9
|
||||||
GROUP 4
|
GROUP 4
|
||||||
ITEM "M|Mensile"
|
ITEM "M|Mensile"
|
||||||
ITEM "T|Trimestrale"
|
ITEM "T|Trimestrale"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_VENTIL
|
BOOLEAN F_VENTIL
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Attivita' con ventilazione"
|
PROMPT 2 2 "Attivita' con ventilazione"
|
||||||
FIELD B3
|
FIELD B3
|
||||||
GROUP 3
|
GROUP 3
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO
|
BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Stampa sullo stesso registro"
|
PROMPT 2 2 "Stampa sullo stesso registro"
|
||||||
FIELD B8
|
FIELD B8
|
||||||
GROUP 6
|
GROUP 6
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_REGSOSP
|
BOOLEAN F_REGSOSP
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Registro in sospensione "
|
PROMPT 2 4 "Registro in sospensione "
|
||||||
FIELD B1
|
FIELD B1
|
||||||
GROUP 2 3
|
GROUP 2 3
|
||||||
HELP "Indicare se il registro e' in sospensione d'imposta"
|
HELP "Indicare se il registro e' in sospensione d'imposta"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAMPA_CREDITO_ANNO_PREC
|
BOOLEAN F_STAMPA_CREDITO_ANNO_PREC
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 4 "Stampa credito anno precedente"
|
PROMPT 46 4 "Stampa credito anno precedente"
|
||||||
FIELD B4
|
FIELD B4
|
||||||
GROUP 3
|
GROUP 3
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_CORRISP
|
BOOLEAN F_CORRISP
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 4 "Registro corrispettivi"
|
PROMPT 46 4 "Registro corrispettivi"
|
||||||
FIELD B0
|
FIELD B0
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_TIPO_DESC_COSTI_RICAVI 1 10
|
LIST F_TIPO_DESC_COSTI_RICAVI 1 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Tipo descrizione costi/ricavi "
|
PROMPT 2 4 "Tipo descrizione costi/ricavi "
|
||||||
FIELD I3
|
FIELD I3
|
||||||
GROUP 5
|
GROUP 5
|
||||||
ITEM "1|Gruppo"
|
ITEM "1|Gruppo"
|
||||||
ITEM "2|Conto"
|
ITEM "2|Conto"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ULTIMO_NUM_RIGA_STAMPATO 7
|
NUMBER F_ULTIMO_NUM_RIGA_STAMPATO 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 44 4 "Ultimo numero riga stamp."
|
PROMPT 44 4 "Ultimo numero riga stamp."
|
||||||
FIELD I6
|
FIELD I6
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
GROUP 5 6
|
GROUP 5 6
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI
|
BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Stampa indirizzi completi"
|
PROMPT 2 6 "Stampa indirizzi completi"
|
||||||
FIELD B5
|
FIELD B5
|
||||||
GROUP 2 3
|
GROUP 2 3
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PROG_DARE 19
|
NUMBER F_PROG_DARE 19
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Progressivo dare "
|
PROMPT 2 6 "Progressivo dare "
|
||||||
FIELD R1
|
FIELD R1
|
||||||
PICTURE "."
|
PICTURE "."
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
GROUP 6
|
GROUP 6
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_TOT_INCASSI 19
|
NUMBER F_TOT_INCASSI 19
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Totale incassi "
|
PROMPT 2 6 "Totale incassi "
|
||||||
FIELD R0
|
FIELD R0
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
PICTURE "."
|
PICTURE "."
|
||||||
GROUP 5
|
GROUP 5
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAMPA_RIEPIL_SUL_REGISTRO
|
BOOLEAN F_STAMPA_RIEPIL_SUL_REGISTRO
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 6 "Stampa riepilogo liquidazione"
|
PROMPT 46 6 "Stampa riepilogo liquidazione"
|
||||||
FIELD B6
|
FIELD B6
|
||||||
GROUP 2 3
|
GROUP 2 3
|
||||||
HELP "Stampa riepilogo IVA delle aliquote utilizzate"
|
HELP "Stampa riepilogo IVA delle aliquote utilizzate"
|
||||||
MESSAGE FALSE ENABLE,F_STAMPA_LIQUIDAZIONE
|
MESSAGE FALSE ENABLE,F_STAMPA_LIQUIDAZIONE
|
||||||
MESSAGE TRUE DISABLE,F_STAMPA_LIQUIDAZIONE|"X",F_STAMPA_LIQUIDAZIONE
|
MESSAGE TRUE DISABLE,F_STAMPA_LIQUIDAZIONE|"X",F_STAMPA_LIQUIDAZIONE
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_TOT_PAGAMENTI 19
|
NUMBER F_TOT_PAGAMENTI 19
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 6 "Totale pagamenti "
|
PROMPT 42 6 "Totale pagamenti "
|
||||||
FIELD R1
|
FIELD R1
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
PICTURE "."
|
PICTURE "."
|
||||||
GROUP 5
|
GROUP 5
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAMPA_LIQUIDAZIONE
|
BOOLEAN F_STAMPA_LIQUIDAZIONE
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Stampa liquidazione"
|
PROMPT 2 8 "Stampa liquidazione"
|
||||||
FIELD B7
|
FIELD B7
|
||||||
GROUP 2 3 4
|
GROUP 2 3 4
|
||||||
HELP "Stampa a fine periodo la liquidazione"
|
HELP "Stampa a fine periodo la liquidazione"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PROG_AVERE 19
|
NUMBER F_PROG_AVERE 19
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Progressivo avere "
|
PROMPT 2 8 "Progressivo avere "
|
||||||
FIELD R2
|
FIELD R2
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
PICTURE "."
|
PICTURE "."
|
||||||
GROUP 6
|
GROUP 6
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_MESE_STAMPA_ULTIMA_LIQ 10
|
LIST F_MESE_STAMPA_ULTIMA_LIQ 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Mese stampa ultima liquidazione "
|
PROMPT 2 10 "Mese stampa ultima liquidazione "
|
||||||
FIELD I4
|
FIELD I4
|
||||||
FLAGS "M"
|
FLAGS "M"
|
||||||
ITEM "13|Annuale"
|
ITEM "13|Annuale"
|
||||||
GROUP 2 3 4
|
GROUP 2 3 4
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ULTIMO_NUM_PROT 7
|
NUMBER F_ULTIMO_NUM_PROT 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 "Ultimo numero di protocollo "
|
PROMPT 2 12 "Ultimo numero di protocollo "
|
||||||
FIELD I5
|
FIELD I5
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
GROUP 2 3
|
GROUP 2 3
|
||||||
HELP "Inserire ultimo numero di protocollo"
|
HELP "Inserire ultimo numero di protocollo"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAMPA_INTESTAZIONE
|
BOOLEAN F_STAMPA_INTESTAZIONE
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 12 "Stampa intestazione ditta"
|
PROMPT 46 12 "Stampa intestazione ditta"
|
||||||
FIELD B9
|
FIELD B9
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_ULTIMA_DATA_DI_REGISTR
|
DATE F_ULTIMA_DATA_DI_REGISTR
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 14 "Ultima data di registrazione "
|
PROMPT 2 14 "Ultima data di registrazione "
|
||||||
FIELD D2
|
FIELD D2
|
||||||
GROUP 2 3 5 6
|
GROUP 2 3 5 6
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_ULTIMA_DATA_DI_STAMPA
|
DATE F_ULTIMA_DATA_DI_STAMPA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 16 "Ultima data di stampa "
|
PROMPT 2 16 "Ultima data di stampa "
|
||||||
FIELD D3
|
FIELD D3
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user