Corretto annullamento stampa etichette

Aggiunte nuove procedure di conversione speciale a bacnv
Corretto programma conversione archivi


git-svn-id: svn://10.65.10.50/trunk@1006 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-02-15 17:00:56 +00:00
parent 9bce813359
commit 8e70389266
11 changed files with 143 additions and 91 deletions

View File

@ -594,7 +594,8 @@ void TManutenzione_app::update()
update_dir(); update_dir();
convert_dir(); convert_dir();
TLocalisamfile ditte(LF_NDITTE); TSystemisamfile ditte(LF_NDITTE);
ditte.open();
for (ditte.first(); !ditte.eof(); ditte.next()) for (ditte.first(); !ditte.eof(); ditte.next())
{ {
@ -603,12 +604,16 @@ void TManutenzione_app::update()
if (prefhndl->exist(codditta)) if (prefhndl->exist(codditta))
{ {
ditte.close();
set_firm(codditta); set_firm(codditta);
update_dir(); update_dir();
convert_dir(); convert_dir();
ditte.open();
} }
ditte.readat(rec); ditte.readat(rec);
} }
ditte.close();
if (firm > 0) set_firm(firm); if (firm > 0) set_firm(firm);
else prefhndl->set(pref); else prefhndl->set(pref);

View File

@ -60,7 +60,7 @@ END
SPREADSHEET F_KEYS SPREADSHEET F_KEYS
BEGIN BEGIN
PROMPT 1 13 "" PROMPT 0 13 ""
ITEM "Espressione@60" ITEM "Espressione@60"
ITEM "Chiavi duplicate" ITEM "Chiavi duplicate"
END END
@ -121,9 +121,9 @@ END
NUMBER FLD_DEC 2 NUMBER FLD_DEC 2
BEGIN BEGIN
PROMPT 2 5 "Decimali " PROMPT 2 5 "Decimali "
FLAGS "R" FLAGS "UR"
HELP "Decimali del campo" HELP "Decimali del campo"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD+2<=#FLD_LEN)} NUM_EXPR {(#FLD_TIPO!=4)||(#THIS_FIELD+2<=#FLD_LEN)}
WARNING "Numero di decimali errato" WARNING "Numero di decimali errato"
END END

View File

@ -79,10 +79,12 @@ bool BA3200_application::set_print(int)
_cur->setregion (from, to); _cur->setregion (from, to);
set_background(); /*
if (_stampa_ca7) if (_stampa_ca7)
set_background("W1l{1 3 132 3}W1l{1 5 132 5}"); set_background("W1l{1 3 132 3}W1l{1 5 132 5}");
else set_background("W1l{1 3 132 3}W1l{1 6 132 6}"); else set_background("W1l{1 3 132 3}W1l{1 6 132 6}");
*/
set_headers();
return TRUE; return TRUE;
} }
return FALSE; return FALSE;
@ -205,10 +207,12 @@ void BA3200_application::set_headers()
if (riga_intesta) last_riga += riga_intesta; if (riga_intesta) last_riga += riga_intesta;
last_riga++; last_riga++;
//set_header (last_riga, (const char *)sep); //set_header (last_riga, (const char *)sep);
last_riga++;
sep.fill(' '); sep.fill(' ');
set_header (last_riga, (const char *)sep); set_header (last_riga, (const char *)sep);
set_background(format("W1l{1 3 %d 3}W1l{1 %d %d %d}", LungRiga, last_riga, LungRiga, last_riga));
} }
void BA3200_application::set_rows() void BA3200_application::set_rows()
@ -357,21 +361,16 @@ bool BA3200_application::user_create()
t.ltrim(1); t.ltrim(1);
_rptname << "batb" << t << ".rpt" ; _rptname << "batb" << t << ".rpt" ;
if (!fexist(_rptname))
return error_box("Impossibile aprire il file '%s'", (const char*)_rptname);
// Flag per la stampa tabella registri // Flag per la stampa tabella registri
_stampa_registri = (_tabname.upper() == "REG"); _tabname.upper();
_stampa_ca7 = (_tabname.upper() == "%CA7"); _stampa_registri = (_tabname == "REG");
_stampa_ca7 = (_tabname == "%CA7");
if (!fexist(_rptname))
fatal_box("Impossibile aprire il file '%s'", (const char*)_rptname);
_rel = new TRelation (_tabname); _rel = new TRelation (_tabname);
_cur = new TCursor (_rel); _cur = new TCursor (_rel);
t = _tabname;
if (t[0] == '%')
t.ltrim(1);
_maskname << "bast" << t; _maskname << "bast" << t;
_msk = new TMask (_maskname) ; _msk = new TMask (_maskname) ;

View File

@ -11,7 +11,7 @@
// ------- utils -------------------------------------------- // ------- utils --------------------------------------------
TRectype& BA6100_App::look_com(const char* cod) TRectype& TAnaprint_app::look_com(const char* cod)
{ {
_comuni->curr().zero(); _comuni->curr().zero();
if (*cod) if (*cod)
@ -24,8 +24,8 @@ TRectype& BA6100_App::look_com(const char* cod)
return _comuni->curr(); return _comuni->curr();
} }
const char* BA6100_App::look_tab(const char* tabname, const char* cod, const char* TAnaprint_app::look_tab(const char* tabname, const char* cod,
const char* fld) const char* fld)
{ {
if (*cod == 0) return ""; if (*cod == 0) return "";
TTable tab(tabname); TTable tab(tabname);
@ -38,7 +38,7 @@ const char* BA6100_App::look_tab(const char* tabname, const char* cod,
// link // link
void BA6100_App::process_link(int id, const char* txt) void TAnaprint_app::process_link(int id, const char* txt)
{ {
if (id == _ana_link) if (id == _ana_link)
{ {
@ -61,7 +61,7 @@ void BA6100_App::process_link(int id, const char* txt)
// ---- here we go ------------------------------------------------- // ---- here we go -------------------------------------------------
void BA6100_App::set_page(int file, int cnt) void TAnaprint_app::set_page(int file, int cnt)
{ {
switch(file) switch(file)
{ {
@ -101,7 +101,7 @@ void BA6100_App::set_page(int file, int cnt)
} }
bool BA6100_App::preprocess_page(int file, int counter) bool TAnaprint_app::preprocess_page(int file, int counter)
{ {
// non stampa la prima ditta se sta facendo l'elenco visto // non stampa la prima ditta se sta facendo l'elenco visto
// che la stampa a fianco dell'anagrafica // che la stampa a fianco dell'anagrafica
@ -137,7 +137,7 @@ bool mask_reset_fields(TMask_field& mf, KEY k)
if (k == K_SPACE) if (k == K_SPACE)
{ {
TMask& m = mf.mask(); TMask& m = mf.mask();
BA6100_App& a = (BA6100_App&)main_app(); TAnaprint_app& a = (TAnaprint_app&)main_app();
m.set(FLD_BA6B_INDROW, a._ind_row); m.set(FLD_BA6B_INDROW, a._ind_row);
m.set(FLD_BA6B_INDCOL, a._ind_col); m.set(FLD_BA6B_INDCOL, a._ind_col);
m.set(FLD_BA6B_PIVROW, a._piv_row); m.set(FLD_BA6B_PIVROW, a._piv_row);
@ -153,7 +153,7 @@ bool mask_reset_fields(TMask_field& mf, KEY k)
} }
void BA6100_App::preprocess_etichette() void TAnaprint_app::preprocess_etichette()
{ {
// everything goes into strings // everything goes into strings
_name = get_field(LF_ANAG,"RAGSOC"); _name = get_field(LF_ANAG,"RAGSOC");
@ -211,7 +211,7 @@ void BA6100_App::preprocess_etichette()
} }
void BA6100_App::init_print() void TAnaprint_app::init_print()
{ {
reset_print(); reset_print();
reset_files(); reset_files();
@ -258,7 +258,7 @@ void BA6100_App::init_print()
set_headers(); set_headers();
} }
bool BA6100_App::set_print(int) bool TAnaprint_app::set_print(int)
{ {
TMask mask("ba6100a.msk"); TMask mask("ba6100a.msk");
// set print type // set print type
@ -286,50 +286,51 @@ bool BA6100_App::set_print(int)
TMask mask2("ba6100b.msk"); TMask mask2("ba6100b.msk");
mask2.set_workfile("ba6100.set"); mask2.set_workfile("ba6100.set");
mask2.set_handler(BUT_BA6B_RESET, mask_reset_fields); mask2.set_handler(BUT_BA6B_RESET, mask_reset_fields);
if (fexist("ba6100b.set")) if (fexist("ba6100b.set"))
{ {
mask2.load(); mask2.load();
_ind_what = (in)atoi(mask2.get(RDB_BA6B_INDIR)); _ind_what = (in)mask2.get_int(RDB_BA6B_INDIR);
_ind_row = atoi(mask2.get(FLD_BA6B_INDROW)); _ind_row = mask2.get_int(FLD_BA6B_INDROW);
_piv_row = atoi(mask2.get(FLD_BA6B_PIVROW)); _piv_row = mask2.get_int(FLD_BA6B_PIVROW);
_cod_row = atoi(mask2.get(FLD_BA6B_CODROW)); _cod_row = mask2.get_int(FLD_BA6B_CODROW);
_rows_et = atoi(mask2.get(FLD_BA6B_TOTROW)); _rows_et = mask2.get_int(FLD_BA6B_TOTROW);
_ind_col = atoi(mask2.get(FLD_BA6B_INDCOL)); _ind_col = mask2.get_int(FLD_BA6B_INDCOL);
_piv_col = atoi(mask2.get(FLD_BA6B_PIVCOL)); _piv_col = mask2.get_int(FLD_BA6B_PIVCOL);
_cod_col = atoi(mask2.get(FLD_BA6B_CODCOL)); _cod_col = mask2.get_int(FLD_BA6B_CODCOL);
_cols_et = atoi(mask2.get(FLD_BA6B_TOTCOL)); _cols_et = mask2.get_int(FLD_BA6B_TOTCOL);
_is_piv = mask2.get(CHK_BA6B_PIVA) == "X"; _is_piv = mask2.get(CHK_BA6B_PIVA) == "X";
_is_cod = mask2.get(CHK_BA6B_CODICE) == "X"; _is_cod = mask2.get(CHK_BA6B_CODICE) == "X";
} }
else else
{ {
mask2.field(FLD_BA6B_INDROW).set(format("%d",_ind_row)); mask2.set(FLD_BA6B_INDROW,_ind_row);
mask2.field(FLD_BA6B_INDCOL).set(format("%d",_ind_col)); mask2.set(FLD_BA6B_INDCOL,_ind_col);
mask2.field(FLD_BA6B_PIVROW).set(format("%d",_piv_row)); mask2.set(FLD_BA6B_PIVROW,_piv_row);
mask2.field(FLD_BA6B_PIVCOL).set(format("%d",_piv_col)); mask2.set(FLD_BA6B_PIVCOL,_piv_col);
mask2.field(FLD_BA6B_CODROW).set(format("%d",_cod_row)); mask2.set(FLD_BA6B_CODROW,_cod_row);
mask2.field(FLD_BA6B_CODCOL).set(format("%d",_cod_col)); mask2.set(FLD_BA6B_CODCOL,_cod_col);
mask2.field(FLD_BA6B_TOTROW).set(format("%d",_rows_et)); mask2.set(FLD_BA6B_TOTROW,_rows_et);
mask2.field(FLD_BA6B_TOTCOL).set(format("%d",_cols_et)); mask2.set(FLD_BA6B_TOTCOL,_cols_et);
mask2.field(CHK_BA6B_PIVA).set(_is_piv ? "X" : " "); mask2.set(CHK_BA6B_PIVA,_is_piv ? "X" : " ");
mask2.field(CHK_BA6B_CODICE).set(_is_cod ?"X": " "); mask2.set(CHK_BA6B_CODICE,_is_cod ?"X": " ");
} }
mask2.run(); if (mask2.run() == K_ESC)
return FALSE;
_ind_what = (in)atoi(mask2.get(RDB_BA6B_INDIR)); _ind_what = (in)mask2.get_int(RDB_BA6B_INDIR);
_ind_row = atoi(mask2.get(FLD_BA6B_INDROW)); _ind_row = mask2.get_int(FLD_BA6B_INDROW);
_piv_row = atoi(mask2.get(FLD_BA6B_PIVROW)); _piv_row = mask2.get_int(FLD_BA6B_PIVROW);
_cod_row = atoi(mask2.get(FLD_BA6B_CODROW)); _cod_row = mask2.get_int(FLD_BA6B_CODROW);
_rows_et = atoi(mask2.get(FLD_BA6B_TOTROW)); _rows_et = mask2.get_int(FLD_BA6B_TOTROW);
_ind_col = atoi(mask2.get(FLD_BA6B_INDCOL)); _ind_col = mask2.get_int(FLD_BA6B_INDCOL);
_piv_col = atoi(mask2.get(FLD_BA6B_PIVCOL)); _piv_col = mask2.get_int(FLD_BA6B_PIVCOL);
_cod_col = atoi(mask2.get(FLD_BA6B_CODCOL)); _cod_col = mask2.get_int(FLD_BA6B_CODCOL);
_cols_et = atoi(mask2.get(FLD_BA6B_TOTCOL)); _cols_et = mask2.get_int(FLD_BA6B_TOTCOL);
_is_piv = mask2.get(CHK_BA6B_PIVA) == "X"; _is_piv = mask2.get(CHK_BA6B_PIVA) == "X";
_is_cod = mask2.get(CHK_BA6B_CODICE) == "X"; _is_cod = mask2.get(CHK_BA6B_CODICE) == "X";
@ -450,7 +451,7 @@ bool BA6100_App::set_print(int)
return TRUE; return TRUE;
} }
bool BA6100_App::user_create() bool TAnaprint_app::user_create()
{ {
TToken_string rxp(40); TToken_string rxp(40);
@ -542,7 +543,7 @@ bool BA6100_App::user_create()
return TRUE; return TRUE;
} }
bool BA6100_App::user_destroy() bool TAnaprint_app::user_destroy()
{ {
if (_rel_fis) delete _rel_fis; if (_rel_fis) delete _rel_fis;
if (_rel_giu) delete _rel_giu; if (_rel_giu) delete _rel_giu;
@ -556,7 +557,7 @@ bool BA6100_App::user_destroy()
int ba6100(int argc, char* argv[]) int ba6100(int argc, char* argv[])
{ {
BA6100_App app; TAnaprint_app app;
app.run(argc, argv, "Stampa Anagrafiche"); app.run(argc, argv, "Stampa Anagrafiche");
return 0; return 0;
} }

View File

@ -20,7 +20,7 @@ enum in { residenza = 1, domfisc = 2, corrispondenza = 3 };
bool mask_reset_fields(TMask_field& mf, KEY k); bool mask_reset_fields(TMask_field& mf, KEY k);
class BA6100_App : public TPrintapp class TAnaprint_app : public TPrintapp
{ {
friend bool mask_reset_fields(TMask_field& mf, KEY k); friend bool mask_reset_fields(TMask_field& mf, KEY k);
@ -86,7 +86,7 @@ public:
void init_print(); void init_print();
BA6100_App() : TPrintapp(), _cod(5), _cofi(30), _name(20), _surname(30), TAnaprint_app() : TPrintapp(), _cod(5), _cofi(30), _name(20), _surname(30),
_address(50), _cap(10), _prov(2), _com(50), _civ(5), _address(50), _cap(10), _prov(2), _com(50), _civ(5),
_stato(40), _phone(30) _stato(40), _phone(30)

View File

@ -8,7 +8,7 @@ static const char sep[] =
"-----------------------------------------------------------------" "-----------------------------------------------------------------"
"-----------------------------------------------------------------" ; "-----------------------------------------------------------------" ;
void BA6100_App::set_scheda_anagiu() void TAnaprint_app::set_scheda_anagiu()
{ {
set_row(1,"SCHEDA SOCIETA'"); set_row(1,"SCHEDA SOCIETA'");
set_row(2,""); set_row(2,"");
@ -172,7 +172,7 @@ void BA6100_App::set_scheda_anagiu()
set_row(i, ""); set_row(i, "");
} }
void BA6100_App::set_scheda_anafis() void TAnaprint_app::set_scheda_anafis()
{ {
set_row(1,"SCHEDA PERSONA FISICA"); set_row(1,"SCHEDA PERSONA FISICA");
set_row(2,""); set_row(2,"");
@ -335,7 +335,7 @@ void BA6100_App::set_scheda_anafis()
set_row(i, ""); set_row(i, "");
} }
void BA6100_App::set_scheda_ditta() void TAnaprint_app::set_scheda_ditta()
{ {
set_row(1,"@bSCHEDA DITTA @r@u@pn@r@20g@bDenominaz. sociale @r@u@s", set_row(1,"@bSCHEDA DITTA @r@u@pn@r@20g@bDenominaz. sociale @r@u@s",
FLD(LF_NDITTE,"CODDITTA","@@@@@"), FLD(LF_NDITTE,"CODDITTA","@@@@@"),
@ -380,7 +380,7 @@ void BA6100_App::set_scheda_ditta()
set_row(15,""); set_row(16,""); set_row(15,""); set_row(16,"");
} }
void BA6100_App::set_scheda_attiv() void TAnaprint_app::set_scheda_attiv()
{ {
TString dio = look_tab("%AIS",current_cursor()-> TString dio = look_tab("%AIS",current_cursor()->
curr(LF_ATTIV).get("CODATT"),"S0"); curr(LF_ATTIV).get("CODATT"),"S0");
@ -445,12 +445,12 @@ void BA6100_App::set_scheda_attiv()
set_row(17,""); set_row(18,""); set_row(17,""); set_row(18,"");
} }
void BA6100_App::set_scheda_registro() void TAnaprint_app::set_scheda_registro()
{ {
/* TBI */ /* TBI */
} }
void BA6100_App::set_scheda_unloc() void TAnaprint_app::set_scheda_unloc()
{ {
set_row(1,"@bUNITA' LOCALE@20gCodice @r@u@pn@r", set_row(1,"@bUNITA' LOCALE@20gCodice @r@u@pn@r",
FLD(LF_UNLOC,"CODULC","@@@")); FLD(LF_UNLOC,"CODULC","@@@"));
@ -499,7 +499,7 @@ void BA6100_App::set_scheda_unloc()
set_row(17,""); set_row(18,""); set_row(17,""); set_row(18,"");
} }
void BA6100_App::set_scheda_socio() void TAnaprint_app::set_scheda_socio()
{ {
int rw; int rw;
TString b1, b2, b3; TString b1, b2, b3;
@ -637,7 +637,7 @@ void BA6100_App::set_scheda_socio()
} }
void BA6100_App::set_rubriche() void TAnaprint_app::set_rubriche()
{ {
// preprocess_page will fill the vars // preprocess_page will fill the vars
set_row(2,"@32g@35S", FLD(LF_ANAG,"INDRES")); set_row(2,"@32g@35S", FLD(LF_ANAG,"INDRES"));
@ -666,7 +666,7 @@ void BA6100_App::set_rubriche()
void BA6100_App::set_elenco() void TAnaprint_app::set_elenco()
{ {
switch(_pr_what) switch(_pr_what)
{ {
@ -714,7 +714,7 @@ void BA6100_App::set_elenco()
set_row(2,""); set_row(2,"");
} }
void BA6100_App::set_schede() void TAnaprint_app::set_schede()
{ {
switch(_pr_what) switch(_pr_what)
{ {
@ -725,7 +725,7 @@ void BA6100_App::set_schede()
} }
void BA6100_App::set_headers() void TAnaprint_app::set_headers()
{ {
reset_header(); reset_header();
set_background(); set_background();
@ -801,7 +801,7 @@ void BA6100_App::set_headers()
} }
void BA6100_App::set_etichette() void TAnaprint_app::set_etichette()
{ {
int namerow = 0; int namerow = 0;

View File

@ -5,12 +5,13 @@
#include <mailbox.h> #include <mailbox.h>
#include <progind.h> #include <progind.h>
#include <prefix.h> #include <prefix.h>
#include <tabutil.h>
#include <urldefid.h> #include <urldefid.h>
#include <utility.h> #include <utility.h>
#include <rmov.h> #include <rmov.h>
#define usage "Errore - uso : bacnv 1 ditta" #define usage "Errore - uso : bacnv [1|2] ditta"
class TConversione_archivi : public TApplication class TConversione_archivi : public TApplication
{ {
@ -19,15 +20,17 @@ class TConversione_archivi : public TApplication
long _oldditta; long _oldditta;
int _error; int _error;
protected: protected: // TApplication
virtual bool create() ; virtual bool create() ;
virtual bool destroy() ; virtual bool destroy() ;
virtual bool menu(MENU_TAG); virtual bool menu(MENU_TAG);
public:
bool convert_rmov(TLocalisamfile & rmov, TArray & recs, int nrecs); bool convert_rmov(TLocalisamfile & rmov, TArray & recs, int nrecs);
void contropartita_rmov(); void contropartita_rmov();
public: void liala(const char* table);
TConversione_archivi() : _oldditta(0), _codditta(0), _error(0) {} TConversione_archivi() : _oldditta(0), _codditta(0), _error(0) {}
}; };
@ -79,12 +82,21 @@ bool TConversione_archivi::menu(MENU_TAG)
{ {
case 1: case 1:
contropartita_rmov(); break; contropartita_rmov(); break;
case 2:
liala("LIA");
liala("PLA");
break;
default: default:
break; break;
} }
return FALSE; return FALSE;
} }
///////////////////////////////////////////////////////////
// Cambia i movimenti contabili in modo che abbiano un
// conto di contropartita e non una riga di riferimento
///////////////////////////////////////////////////////////
bool TConversione_archivi::convert_rmov(TLocalisamfile & rmov, TArray & recs, int nrecs) bool TConversione_archivi::convert_rmov(TLocalisamfile & rmov, TArray & recs, int nrecs)
{ {
const TRecnotype pos = rmov.recno(); const TRecnotype pos = rmov.recno();
@ -131,7 +143,7 @@ void TConversione_archivi::contropartita_rmov()
int nrow = 0; int nrow = 0;
TProgind p(nitems ? nitems : 1, TProgind p(nitems ? nitems : 1,
format("Conversione righe di movimento della ditta %ld", get_firm()), format("Conversione righe di movimento della ditta %ld", get_firm()),
TRUE, TRUE, 70); FALSE, TRUE, 70);
for (rmov.first(); rmov.good(); rmov.next()) for (rmov.first(); rmov.good(); rmov.next())
{ {
p.addstatus(1); p.addstatus(1);
@ -152,23 +164,55 @@ void TConversione_archivi::contropartita_rmov()
return; return;
} }
HIDDEN void bacnv(int argc, char** argv)
{ ///////////////////////////////////////////////////////////
TConversione_archivi a ; // Passa le tabelle LIA e PLA a %LIA e %PLA
a.run(argc, argv, "Conversione archivi"); ///////////////////////////////////////////////////////////
void TConversione_archivi::liala(const char* table)
{
TString16 tab(table);
TTable lia(tab);
tab.insert("%", 0);
TTable cia(tab);
const long n = lia.items()+1;
TProgind p(n, format("Conversione tabella %s della ditta %ld", table, get_firm()), FALSE, TRUE, 70);
TString16 firm; firm.format("%05ld", get_firm());
TString16 codtab;
for (lia.first(); lia.good(); lia.next())
{
codtab = lia.get("CODTAB");
codtab.insert(firm, 0);
lia.put("CODTAB", codtab);
cia.write(lia.curr());
}
for (lia.first(); lia.good(); lia.next())
lia.remove();
} }
///////////////////////////////////////////////////////////
// Programma di conversione archivi speciale
///////////////////////////////////////////////////////////
int main(int argc,char** argv) int main(int argc,char** argv)
{ {
const int r = (argc > 1) ? atoi(argv[1]) : 0; const int r = (argc > 1) ? atoi(argv[1]) : 0;
if (r <= 0 || r > 1) if (r <= 0 || r > 2)
{ {
error_box(usage); error_box(usage);
return 100; return 100;
} }
bacnv(argc, argv); TConversione_archivi a ;
a.run(argc, argv, "Conversione archivi");
return 0; return 0;
} }

View File

@ -3,7 +3,7 @@ LF_COMUNI,COM==S5
[Headers] [Headers]
132 132
Tabella delle banche Tabella Banche
1|@2g%s|Codice ABI 1|@2g%s|Codice ABI
1|@14g%s|Codice CAB 1|@14g%s|Codice CAB
1|@26g%s|Istituto 1|@26g%s|Istituto

View File

@ -10,7 +10,7 @@ PAGE "Tabella Indici Libro Unico" -1 -1 71 20
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 1 1 "Anno esercizio " PROMPT 1 1 "Anno "
FLAGS "A" FLAGS "A"
FIELD ANNO FIELD ANNO
USE %LBU USE %LBU
@ -22,6 +22,7 @@ BEGIN
OUTPUT F_ANNO CODTAB[1,4] OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_CODLIB CODTAB[5,7] OUTPUT F_CODLIB CODTAB[5,7]
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
MESSAGE COPY,F_ANNOREG
KEY 1 KEY 1
END END
@ -57,8 +58,7 @@ NUMBER F_ANNOREG 4
BEGIN BEGIN
PROMPT 1 2 "Anno registrazione " PROMPT 1 2 "Anno registrazione "
FIELD ANNOREG FIELD ANNOREG
FLAGS "A" FLAGS "D"
CHECKTYPE REQUIRED
END END
LIST F_MESE 2 12 LIST F_MESE 2 12

View File

@ -4,5 +4,7 @@ F(4)=COD=CODTAB[1,3]|CODTAB=CODTAB[4,]
F(5)=COD=CODTAB[1,3]|CODTAB=CODTAB[4,] F(5)=COD=CODTAB[1,3]|CODTAB=CODTAB[4,]
[199404] [199404]
ACNV(24)=bacnv 1 ACNV(24)=bacnv 1
[199407]
ACNV(5)=bacnv 2
[EOF] [EOF]

View File

@ -139,7 +139,8 @@
15|Salvataggi|ba2 -1 15|Salvataggi|ba2 -1
16|Servizio| 16|Servizio|
16|Copia Archivi|cg4 -1 16|Copia Archivi|cg4 -1
16|Ripristino stampa registri|cg5 -4 16|Ripristino stampa registri|cg5 -4 reg
16|Ripristino indici libro unico|cg5 -4 inl
16|Ripristino liquidazione|cg5 -6 16|Ripristino liquidazione|cg5 -6
17|Modello 770|2 17|Modello 770|2
17|Manutenzione dichiarazioni|18|F,4 17|Manutenzione dichiarazioni|18|F,4