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

Zerofilled l'anno di esercizio sulle tabelle dei registri e degli esercizi

Browse Source 
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 1994-09-13 16:41:23 +00:00
parent 5ca8379687
commit 1d414b2abc
9 changed files with 879 additions and 912 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ba/ba1100.cpp
View File

@ -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 ;
} }

274
ba/ba3300.cpp
View File

@ -3,21 +3,20 @@
#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 "ba3.h"
#include "ba3300.h" #include "ba3300.h"
class BA3300_application : public TPrintapp class BA3300_application : public TPrintapp
{ {
friend bool our_handler(TMask_field& field, KEY key); friend bool codice_handler(TMask_field& field, KEY key);
TMask* _msk; TMask* _msk;
TTable* _tab; //Tabella dei registri TTable* _tab; // Tabella dei registri
TString _cod_reg, _comulc, _ragsoc, _indulc, _civulc, _capulc, _com, _prov, _cofi, _paiv, _tipoa; TString _cod_reg, _comulc, _ragsoc, _indulc, _civulc, _capulc, _com, _prov, _cofi, _paiv, _tipoa;
long _cod_anno, _codice_ditta, _agg, _codanagr; long _codice_ditta, _agg, _codanagr;
int _num_pag, _pag_ini, _pag_fin; long _num_pag, _pag_ini, _pag_fin;
int _cod_anno;
bool _inizia_dopo; bool _inizia_dopo;
TLocalisamfile* _nditte; TLocalisamfile* _nditte;
TLocalisamfile* _anag; TLocalisamfile* _anag;
@ -29,7 +28,7 @@ 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 ();
@ -39,119 +38,107 @@ public:
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)
{ {
TString dep(CODTABLEN); 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;
}
_tab->curr().zero(); return REPEAT_PAGE;
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) void BA3300_application::set_page(int , int counter)
{ {
TString descr; reset_print();
int contatore;
reset_print(); const TString80 descr(decodifica_reg());
long contatore = _pag_ini + counter;
descr = decodifica_reg();
contatore = _pag_ini + counter;
if (counter == 0) if (counter == 0)
{ {
if (!_inizia_dopo) if (!_inizia_dopo)
{ {
reset_row(8); reset_row(8);
set_row(8, "@65gPag.@70g%d", (const char *) contatore); set_row(8, "@65gPag.@70g%ld", contatore);
} }
reset_row(1); reset_row(1);
reset_row(2); reset_row(2);
reset_row(3); reset_row(3);
reset_row(4); reset_row(4);
reset_row(5); reset_row(5);
reset_row(6); reset_row(6);
reset_row(7); reset_row(7);
set_row (1, "@50g%-50s", (const char*) descr); set_row (1, "@50g%-50s", (const char*) descr);
set_row (2, "@50g%-50s", (const char*)_ragsoc); set_row (2, "@50g%-50s", (const char*)_ragsoc);
set_row (3, "@50g%-35s", (const char*)_indulc); set_row (3, "@50g%-35s", (const char*)_indulc);
set_row (3, "@90g%10s", (const char*)_civulc); set_row (3, "@90g%-10s", (const char*)_civulc);
set_row (4, "@50g%5s", (const char*)_capulc); set_row (4, "@50g%5s", (const char*)_capulc);
set_row (4, "@60g%50s", (const char*) _com); set_row (4, "@60g%-50s", (const char*)_com);
set_row (4, "@115g%5s", (const char*)_prov); set_row (4, "@115g%5s", (const char*)_prov);
set_row (5, "@50g%16s", (const char*)_cofi); set_row (5, "@50g%16s", (const char*)_cofi);
set_row (6, "@50g%11s", (const char*)_paiv); set_row (6, "@50g%11s", (const char*)_paiv);
} }
else if (counter==_num_pag-1) else if (counter==_num_pag-1)
{ {
reset_row(1); reset_row(1);
reset_row(2); reset_row(2);
reset_row(3); reset_row(3);
reset_row(4); reset_row(4);
reset_row(5); reset_row(5);
reset_row(6); reset_row(6);
reset_row(7); reset_row(7);
reset_row(8); reset_row(8);
set_row (1, "@1gSocieta'@10g%-50s", (const char*) _ragsoc); set_row (1, "@1gSocieta'@10g%-50s", (const char*) _ragsoc);
set_row (1, "@62g%-29s", (const char*) _indulc); set_row (1, "@62g%-29s", (const char*) _indulc);
set_row (1, "@93g%-9s", (const char*) _civulc); set_row (1, "@93g%-9s", (const char*) _civulc);
set_row (1, "@103g%-5s", (const char*) _capulc); set_row (1, "@103g%-5s", (const char*) _capulc);
set_row (1, "@110g%-18s", (const char*) _com); set_row (1, "@110g%-18s", (const char*) _com);
set_row (1, "@130g%-3s", (const char*) _prov); set_row (1, "@130g%-3s", (const char*) _prov);
set_row (2, "@1g%-50s", (const char*) descr); set_row (2, "@1g%-50s", (const char*) descr);
set_row (2, "@52g%16s", (const char*) _cofi); set_row (2, "@52g%16s", (const char*) _cofi);
set_row (2, "@70g%11s", (const char*) _paiv); set_row (2, "@70g%11s", (const char*) _paiv);
set_row (4, "@50gN. ........ DI REPERTORIO"); set_row (4, "@50gN. ........ DI REPERTORIO");
set_row (5, "@50gIL PRESENTE LIBRO DELLA@75g%50s", (const char*) _ragsoc); set_row (5, "@50gIL PRESENTE LIBRO DELLA@75g%50s", (const char*) _ragsoc);
set_row (6, "@50g%-35s", (const char*) _indulc); set_row (6, "@50g%-35s", (const char*) _indulc);
set_row (6, "@88g%10s", (const char*) _civulc); set_row (6, "@88g%10s", (const char*) _civulc);
set_row (7, "@50g%5s", (const char*) _capulc); set_row (7, "@50g%5s", (const char*) _capulc);
set_row (7, "@58g%50s", (const char*) _com); set_row (7, "@58g%50s", (const char*) _com);
set_row (7, "@111g%5s", (const char*) _prov); set_row (7, "@111g%5s", (const char*) _prov);
set_row (8, "@120gPag.@125g%d", (const char*) contatore); set_row (8, "@120gPag.@125g%ld", contatore);
}
} else
{
else reset_row(1);
{ reset_row(2);
reset_row(3);
reset_row(1); reset_row(4);
reset_row(2); reset_row(5);
reset_row(3); reset_row(6);
reset_row(4); reset_row(7);
reset_row(5); reset_row(8);
reset_row(6); set_row (1, "@1gSocieta'@10g%-50s", (const char*) _ragsoc);
reset_row(7); set_row (1, "@62g%-29s", (const char*) _indulc);
reset_row(8); // set_row (1, "@93g%-9s", (const char*) _civulc);
set_row (1, "@1gSocieta'@10g%-50s", (const char*) _ragsoc); // set_row (1, "@103g%-5s", (const char*) _capulc);
set_row (1, "@62g%-29s", (const char*) _indulc); set_row (1, "@110g%-18s", (const char*) _com);
// set_row (1, "@93g%-9s", (const char*) _civulc); set_row (1, "@130g%-3s", (const char*) _prov);
// set_row (1, "@103g%-5s", (const char*) _capulc); set_row (2, "@1g%-50s", (const char*) descr);
set_row (1, "@110g%-18s", (const char*) _com); set_row (2, "@52g%16s", (const char*) _cofi);
set_row (1, "@130g%-3s", (const char*) _prov); set_row (2, "@70g%11s", (const char*) _paiv);
set_row (2, "@1g%-50s", (const char*) descr); set_row (3, "@85gPag.@90g%ld", contatore);
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() BA3300_application::BA3300_application()
@ -160,24 +147,21 @@ BA3300_application::BA3300_application()
bool BA3300_application::set_print(int) bool BA3300_application::set_print(int)
{ {
KEY tasto;
TString16 app;
KEY tasto; _nditte->setkey(1);
TString app(8); _codice_ditta = get_firm();
_nditte->curr().zero();
_nditte->curr().put(N_CODDITTA,_codice_ditta);
_nditte->setkey(1); _nditte->read();
_codice_ditta = get_firm(); app=_nditte->curr().get(N_CODDITTA);
_nditte->curr().zero();
_nditte->curr().put(N_CODDITTA,_codice_ditta);
_nditte->read();
app=_nditte->curr().get(N_CODDITTA);
_msk->set(F_CODDITTA,app); _msk->set(F_CODDITTA,app);
_ragsoc=_nditte->curr().get(N_RAGSOC); _ragsoc=_nditte->curr().get(N_RAGSOC);
_tipoa =_nditte->curr().get(N_TIPOA); _tipoa =_nditte->curr().get(N_TIPOA);
_codanagr =atol(_nditte->curr().get(N_CODANAGR)); _codanagr =atol(_nditte->curr().get(N_CODANAGR));
_msk->set(F_RAGSOC,_ragsoc); _msk->set(F_RAGSOC,_ragsoc);
_unloc->setkey(1); _unloc->setkey(1);
_unloc->curr().zero(); _unloc->curr().zero();
_unloc->curr().put(N_CODDITTA,app); _unloc->curr().put(N_CODDITTA,app);
@ -189,10 +173,9 @@ bool BA3300_application::set_print(int)
_msk->set(F_CIV,_civulc); _msk->set(F_CIV,_civulc);
_capulc=_unloc->curr().get(N_CAPULC); _capulc=_unloc->curr().get(N_CAPULC);
_msk->set(F_CAP,_capulc); _msk->set(F_CAP,_capulc);
_comulc=_unloc->curr().get(N_COMULC); _comulc=_unloc->curr().get(N_COMULC);
_msk->set(F_CODCOM,_comulc); _msk->set(F_CODCOM,_comulc);
_comuni->setkey(1); _comuni->setkey(1);
_comuni->curr().zero(); _comuni->curr().zero();
_comuni->curr().put(N_CODCOM,_comulc); _comuni->curr().put(N_CODCOM,_comulc);
@ -208,7 +191,7 @@ bool BA3300_application::set_print(int)
_anag->curr().put(N_CODANAGR,_codanagr); _anag->curr().put(N_CODANAGR,_codanagr);
_anag->read(); _anag->read();
_cofi=_anag->curr().get(N_COFI); _cofi=_anag->curr().get(N_COFI);
_msk->set(F_COFI,_cofi); _msk->set(F_COFI,_cofi);
_paiv=_anag->curr().get(N_PAIV); _paiv=_anag->curr().get(N_PAIV);
_msk->set(F_PAIV,_paiv); _msk->set(F_PAIV,_paiv);
@ -219,69 +202,53 @@ bool BA3300_application::set_print(int)
if (tasto == K_ENTER) if (tasto == K_ENTER)
{ {
_cod_reg = _msk->get(F_CODICE); _cod_reg = _msk->get(F_CODICE);
_cod_anno = atol(_msk->get(F_ANNO)); _cod_anno = _msk->get_int(F_ANNO);
_pag_ini = atoi(_msk->get(F_NPAGINI)); _pag_ini = _msk->get_long(F_NPAGINI);
_pag_fin = atoi(_msk->get(F_NPAGFI)); _pag_fin = _msk->get_long(F_NPAGFI);
_inizia_dopo = (bool)(_msk->get(F_PRIMO) == "X"); _inizia_dopo = _msk->get_bool(F_PRIMO);
_num_pag = (_pag_fin - _pag_ini) + 1; _num_pag = (_pag_fin - _pag_ini) + 1;
enable_print_menu(); enable_print_menu();
return TRUE; return TRUE;
}
} return FALSE;
else
return FALSE;
} }
static bool our_handler (TMask_field& field, KEY key) static bool codice_handler (TMask_field& field, KEY key)
{ {
TMask& m=field.mask();
TTable* t = ((BA3300_application *)MainApp())->_tab;
if (key == K_TAB) if (key == K_TAB)
{ {
if (field.dlg() == F_CODICE) const TEdit_field& e = (const TEdit_field&)field;
{ const TLocalisamfile* t = e.browse()->cursor()->file();
long num = atol(t->curr().get("I2")); const long num = t->get_long("I2");
field.mask().set(F_NPAGINI, num+1);
m.set(F_NPAGINI, num+1); field.mask().set(F_NPAGFI, 0L);
} }
}
return TRUE; return TRUE;
} }
const char* BA3300_application::decodifica_reg () const char* BA3300_application::decodifica_reg ()
{ {
TString dep(CODTABLEN); TString16 dep; dep.format("%04d%-3s", _cod_anno, (const char*)_cod_reg);
_tab->curr().zero();
dep << format ("%04d%-3s", _cod_anno, (const char*)_cod_reg);
_tab->curr().put("CODTAB", (const char*)dep); _tab->curr().put("CODTAB", (const char*)dep);
_tab->read(); _tab->read();
if (_tab->bad()) _tab->curr().zero(); if (_tab->bad()) _tab->curr().zero();
return _tab->curr().get ("S0"); return _tab->curr().get ("S0");
} }
void BA3300_application::user_create() void BA3300_application::user_create()
{ {
enable_print_menu(); enable_print_menu();
_nditte = new TLocalisamfile (LF_NDITTE); _nditte = new TLocalisamfile (LF_NDITTE);
_unloc = new TLocalisamfile (LF_UNLOC); _unloc = new TLocalisamfile (LF_UNLOC);
_comuni = new TLocalisamfile (LF_COMUNI); _comuni = new TLocalisamfile (LF_COMUNI);
_anag = new TLocalisamfile (LF_ANAG); _anag = new TLocalisamfile (LF_ANAG);
//_ftab = new TLocalisamfile (LF_TAB);
_tab = new TTable(TAB_REG); _tab = new TTable(TAB_REG);
_msk = new TMask ("ba3300a") ; _msk = new TMask ("ba3300a") ;
_msk->set_handler(F_CODICE, codice_handler);
_msk->set_handler(F_CODICE, our_handler);
add_cursor (NULL); add_cursor (NULL);
set_auto_ff (TRUE); set_auto_ff (TRUE);
@ -295,19 +262,12 @@ void BA3300_application::user_destroy() // releasev e arrmask
delete _comuni; delete _comuni;
delete _anag; delete _anag;
delete _tab; delete _tab;
//delete _ftab;
close(LF_TAB);
} }
int ba3300(int argc, char* argv[]) int ba3300(int argc, char* argv[])
{ {
BA3300_application a; BA3300_application a;
a.set_config_file ("pr2.stp");
a.run(argc, argv, "Stampa fogli libro bollato"); a.run(argc, argv, "Stampa fogli libro bollato");
return 0; return 0;
} }

92
ba/ba3300a.uml
View File

@ -1,4 +1,5 @@
#include "ba3300.h" #include "ba3300.h"
PAGE "" -1 -1 74 20 PAGE "" -1 -1 74 20
NUMBER F_ANNO 4 NUMBER F_ANNO 4
@ -9,19 +10,20 @@ BEGIN
INPUT CODTAB[5,7] F_CODICE INPUT CODTAB[5,7] F_CODICE
DISPLAY "Anno " CODTAB[1,4] DISPLAY "Anno " CODTAB[1,4]
DISPLAY "Codice Registro" CODTAB[5,7] DISPLAY "Codice Registro" 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_REGISTRO S0 OUTPUT F_REGISTRO S0
FLAGS "RZ" FLAGS "URZ"
CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
STRING F_CODDITTA 5 STRING F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 2 "Ditta " PROMPT 3 2 "Ditta "
FLAGS "DFR" FLAGS "DFR"
KEY 1 KEY 1
END END
@ -30,69 +32,73 @@ BEGIN
PROMPT 3 4 "Codice Registro " PROMPT 3 4 "Codice Registro "
FLAGS "U" FLAGS "U"
COPY ALL F_ANNO COPY ALL F_ANNO
CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
STRING F_REGISTRO 50 STRING F_REGISTRO 50
BEGIN BEGIN
PROMPT 3 6 "Registro " PROMPT 3 6 "Registro "
HELP "Indicare la descrizione del registro" HELP "Indicare la descrizione del registro"
USE REG KEY 2 USE REG KEY 2
INPUT S0 F_REGISTRO INPUT S0 F_REGISTRO
COPY DISPLAY F_ANNO DISPLAY "Descrizione@50" S0
COPY OUTPUT F_ANNO DISPLAY "Anno " CODTAB[1,4]
OUTPUT F_REGISTRO S0 DISPLAY "Codice Registro" CODTAB[5,7]
DISPLAY "Tipo" I0
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 3 7 "Ragione sociale " PROMPT 3 7 "Ragione sociale "
FLAGS "U" FLAGS "U"
// USE LF_NDITTE KEY 2 // USE LF_NDITTE KEY 2
// INPUT RAGSOC F_RAGSOC // INPUT RAGSOC F_RAGSOC
// DISPLAY "Ragione sociale @50" RAGSOC // DISPLAY "Ragione sociale @50" RAGSOC
// DISPLAY "Ditta" CODDITTA // DISPLAY "Ditta" CODDITTA
// OUTPUT F_RAGSOC RAGSOC // OUTPUT F_RAGSOC RAGSOC
// OUTPUT F_CODDITTA CODDITTA // OUTPUT F_CODDITTA CODDITTA
END END
STRING F_INDIRIZZO 35 STRING F_INDIRIZZO 35
BEGIN BEGIN
PROMPT 3 8 "Indirizzo " PROMPT 3 8 "Indirizzo "
// USE LF_UNLOC // USE LF_UNLOC
// CHECKTYPE NORMAL // CHECKTYPE NORMAL
// INPUT CODULC "1" // INPUT CODULC "1"
// INPUT CODDITTA F_CODDITTA // INPUT CODDITTA F_CODDITTA
// DISPLAY "Ditta" CODDITTA // DISPLAY "Ditta" CODDITTA
// DISPLAY "Indirizzo @35" INDULC // DISPLAY "Indirizzo @35" INDULC
// OUTPUT F_INDIRIZZO INDULC // OUTPUT F_INDIRIZZO INDULC
// OUTPUT F_CODDITTA CODDITTA // OUTPUT F_CODDITTA CODDITTA
// WARNING "Indirizzo assente" // WARNING "Indirizzo assente"
END END
STRING F_CIV 10 STRING F_CIV 10
BEGIN BEGIN
PROMPT 51 8 "N.civico " PROMPT 51 8 "N.civico "
END END
STRING F_CAP 5 STRING F_CAP 5
BEGIN BEGIN
PROMPT 3 9 "CAP " PROMPT 3 9 "CAP "
END END
STRING F_CODCOM 4 STRING F_CODCOM 4
BEGIN BEGIN
PROMPT 15 9 "Comune " PROMPT 15 9 "Comune "
END END
STRING F_COM 28 STRING F_COM 28
BEGIN BEGIN
PROMPT 29 9 "" PROMPT 29 9 ""
END END
STRING F_PROV 5 STRING F_PROV 5
BEGIN BEGIN
PROMPT 60 9 "Prov." PROMPT 60 9 "Prov."
END END
STRING F_COFI 16 STRING F_COFI 16
@ -124,9 +130,9 @@ END
NUMBER F_NPAGINI 6 NUMBER F_NPAGINI 6
BEGIN BEGIN
PROMPT 3 12 "Numero pagina iniziale " PROMPT 3 12 "Numero pagina iniziale "
FLAGS "R" FLAGS "RU"
NUM_EXPR {#THIS_FIELD >= 0} NUM_EXPR {#THIS_FIELD >= 0}
WARNING "Numero pagina iniziale errato. Deve essere >= 0" WARNING "Numero pagina iniziale errato: non puo' essere negativo"
END END
NUMBER F_NPAGFI 6 NUMBER F_NPAGFI 6
@ -134,7 +140,7 @@ BEGIN
PROMPT 3 13 "Numero pagina finale " PROMPT 3 13 "Numero pagina finale "
FLAGS "R" FLAGS "R"
NUM_EXPR {#THIS_FIELD >= #F_NPAGINI} NUM_EXPR {#THIS_FIELD >= #F_NPAGINI}
WARNING "Numero pagina finale errato. Deve essere >= di quello iniziale" WARNING "Numero pagina finale errato: deve essere maggiore o uguale a quello iniziale"
END END
BOOLEAN F_PRIMO BOOLEAN F_PRIMO
@ -156,21 +162,15 @@ BEGIN
FLAGS "R" FLAGS "R"
END END
BUTTON DLG_OK BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT 38 18 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT 50 18 "" PROMPT -22 -1 ""
END END
/*
BUTTON DLG_PGDN
BEGIN
PROMPT 65 18 ""
END
*/
ENDPAGE ENDPAGE

2
ba/ba4200b.uml
View File

@ -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

2
ba/ba4200c.uml
View File

@ -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
View File

@ -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;
} }

6
ba/ba6000a.uml
View File

@ -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

3
ba/batbesc.uml
View File

@ -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

26
ba/batbreg.uml
View File

@ -18,7 +18,7 @@ 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
@ -85,28 +85,28 @@ 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
@ -135,12 +135,12 @@ 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