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