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:
parent
9bce813359
commit
8e70389266
@ -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);
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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) ;
|
||||||
|
@ -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;
|
||||||
}
|
}
|
||||||
|
@ -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)
|
||||||
|
|
||||||
|
@ -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;
|
||||||
|
|
||||||
|
64
ba/bacnv.cpp
64
ba/bacnv.cpp
@ -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;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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]
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user