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

Modificato MainApp in main_app e aggiornati i vari TRelation::lfile()

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@273 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-09-21 11:18:23 +00:00
parent c71c0a1884
commit 53a4d0abbf
13 changed files with 4852 additions and 4846 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ba/ba1102.cpp
View File

@ -29,7 +29,7 @@ bool TEdit_file::browse(int logicnum, const char* name)
int len = curr.length(n);
if (curr.type(n) == _datefld) len = 10;
if (len > strlen(n)) head << '@' << len;
if (len > (int)strlen(n)) head << '@' << len;
}
KEY ch;
@ -65,7 +65,7 @@ bool TEdit_file::browse(int logicnum, const char* name)
pind->addstatus(1);
}
if (go) cursor.file()->remove();
if (go) cursor.file().remove();
sheet.uncheck(j);
}
}
@ -87,25 +87,25 @@ bool TEdit_file::browse(int logicnum, const char* name)
if (s != curr.key(1))
{
cursor.file()->write();
if (cursor.file()->good())
cursor.file().write();
if (cursor.file().good())
{
curr = svrec;
cursor.file()->remove();
cursor.file().remove();
}
}
else
cursor.file()->rewrite();
cursor.file().rewrite();
}
break;
case K_DEL: // delete record
if (yesno_box("Confermare la cancellazione del record"))
cursor.file()->remove();
cursor.file().remove();
break;
case K_INS: // insert new record
curr.zero();
if (edit_record(curr,FALSE) == K_ENTER)
cursor.file()->write();
cursor.file().write();
break;
}
sheet.force_update();

14
ba/ba3100.cpp
View File

@ -1,9 +1,9 @@
#include <relapp.h>
#include <stdtypes.h>
#include <lffiles.h>
#include <tabutil.h>
#include <execp.h>
#include <utility.h>
#include "ba3.h"
#include "ba3100.h"
#include "batbreg.h"
@ -22,7 +22,7 @@ class BA3100_application : public TRelation_application
bool user_create() ;
bool user_destroy() ;
virtual bool protected_record(TRectype& rec);
virtual bool protected_record(const TRectype& rec);
virtual TMask* get_mask( int mode) { return _msk;}
virtual bool changing_mask( int mode) { return FALSE;}
virtual TRelation* get_relation() const { return _rel;}
@ -89,22 +89,22 @@ void BA3100_application::init_modify_mode(TMask& m)
m.send_key(K_SHIFT + K_CTRL + 'd' + enable, -GR_RECORD_PROTECTED);
}
bool BA3100_application::protected_record(TRectype& rec)
bool BA3100_application::protected_record(const TRectype& rec)
{
bool prot = rec.get_bool(FPC);
if (!prot)
{
if (_tabname == "%IVD") // Impedisce la cancellazione di una classe se ha sottoclassi
{
const TRecnotype pos = _rel->lfile()->recno();
const TRecnotype pos = _rel->lfile().recno();
const TString cod(rec.get("CODTAB"));
const int err = _rel->lfile()->next();
const int err = _rel->lfile().next();
if (err == NOERR)
{
TString next(_rel->lfile()->get("CODTAB")); next.cut(cod.len());
TString next(_rel->lfile().get("CODTAB")); next.cut(cod.len());
prot = cod == next;
}
_rel->lfile()->readat(pos);
_rel->lfile().readat(pos);
}
}
return prot;

7
ba/ba3200.cpp
View File

@ -49,7 +49,7 @@ public:
bool BA3200_application::set_print(int)
{
TRectype from(_rel->lfile()->curr()); from.zero();
TRectype from(_rel->lfile().curr()); from.zero();
TRectype to (from);
if (_msk->run() == K_ENTER)
@ -297,8 +297,6 @@ void BA3200_application::user_create()
if (!fexist(_rptname))
fatal_box("Impossibile aprire il file '%s'", (const char*)_rptname);
// _tab = new TTable (_tabname);
_rel = new TRelation (_tabname);
_cur = new TCursor (_rel);
@ -308,7 +306,7 @@ void BA3200_application::user_create()
add_cursor (_cur);
add_file (_tabname);
_logicnum = _cur->file()->num();
_logicnum = _cur->file().num();
reset_print ();
@ -326,7 +324,6 @@ void BA3200_application::user_destroy()
delete _msk;
delete _cur;
delete _rel;
// delete _tab;
}
int ba3200(int argc, char* argv[])

4
ba/ba3300.cpp
View File

@ -219,8 +219,8 @@ 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");
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);
}

113
ba/ba3500.cpp
View File

@ -113,23 +113,24 @@ TMask* BA3500_application::get_mask(int mode)
void BA3500_application::read_tabinl(TMask& m)
{
long paginilib,pagfinlib,codditta,paginiut,pagfinut,annoreg;
int mesereg;
long paginilib,pagfinlib,codditta,paginiut,pagfinut;
int mesereg,annoreg;
TString codvidim,codreg;
bool stampa_bol = FALSE;
bool pagine_ann = FALSE;
bool ok = FALSE;
// TTable* tab_inl = (TTable*)_rel->lfile(TAB_INL);
TTable* tab_inl = (TTable*)_rel->lfile(-ALIAS);
long numrig, anno;
TTable& tab_inl = (TTable&)_rel->lfile(-ALIAS);
long numrig;
int anno;
TString codlib;
anno = atol(m.get(F_ANNO));
anno = m.get_int(F_ANNO);
codlib = m.get(F_CODLIB);
_rel->update();
_righe_gia_presenti = new TRighe_gia_presenti(tab_inl->items());
_righe_gia_presenti = new TRighe_gia_presenti(tab_inl.items());
_righe_gia_presenti->reset();
// int lognum = name2log(TAB_INL); //trasformo il nome della tab in un logicnum
@ -138,19 +139,19 @@ void BA3500_application::read_tabinl(TMask& m)
while (ok)
{
TRecfield num (tab_inl->curr(),"CODTAB",7,12);
TRecfield num (tab_inl.curr(),"CODTAB",7,12);
numrig = long(num);
annoreg = tab_inl->get_long("I0");
mesereg = tab_inl->get_int ("I1");
paginilib = tab_inl->get_long("I2");
pagfinlib = tab_inl->get_long("I3");
codditta = tab_inl->get_long("I4");
codreg = tab_inl->get("S0");
paginiut = tab_inl->get_long("I5");
pagfinut = tab_inl->get_long("I6");
codvidim = tab_inl->get("S1");
stampa_bol = tab_inl->get_bool("B0");
pagine_ann = tab_inl->get_bool("B1");
annoreg = tab_inl.get_int("I0");
mesereg = tab_inl.get_int ("I1");
paginilib = tab_inl.get_long("I2");
pagfinlib = tab_inl.get_long("I3");
codditta = tab_inl.get_long("I4");
codreg = tab_inl.get("S0");
paginiut = tab_inl.get_long("I5");
pagfinut = tab_inl.get_long("I6");
codvidim = tab_inl.get("S1");
stampa_bol = tab_inl.get_bool("B0");
pagine_ann = tab_inl.get_bool("B1");
_righe_tabinl.add_riga(annoreg,mesereg,paginilib,pagfinlib,codditta,codreg,paginiut,pagfinut,codvidim,stampa_bol,pagine_ann);
_righe_gia_presenti->set(numrig);
@ -224,7 +225,7 @@ int BA3500_application::rewrite(const TMask& m)
{
long items;
// TTable *tab_inl = (TTable*)_rel->lfile(TAB_INL);
TTable *tab_inl = (TTable*)_rel->lfile(-ALIAS);
TTable& tab_inl = (TTable&)_rel->lfile(-ALIAS);
int anno = m.get_int(F_ANNO);
TString cod_lib = m.get(F_CODLIB);
@ -242,25 +243,25 @@ int BA3500_application::rewrite(const TMask& m)
long year = atol(riga.get(0));
if (year != 0)
{
tab_inl->put ("CODTAB", codtab);
tab_inl->put ("I0", year);
tab_inl->put ("I1", riga.get());
tab_inl->put ("I2", riga.get());
tab_inl->put ("I3", riga.get());
tab_inl->put ("I4", riga.get());
tab_inl->put ("S0", riga.get());
tab_inl->put ("I5", riga.get());
tab_inl->put ("I6", riga.get());
tab_inl->put ("S1", riga.get());
tab_inl->put ("B0", riga.get());
tab_inl->put ("B1", riga.get());
tab_inl.put ("CODTAB", codtab);
tab_inl.put ("I0", year);
tab_inl.put ("I1", riga.get());
tab_inl.put ("I2", riga.get());
tab_inl.put ("I3", riga.get());
tab_inl.put ("I4", riga.get());
tab_inl.put ("S0", riga.get());
tab_inl.put ("I5", riga.get());
tab_inl.put ("I6", riga.get());
tab_inl.put ("S1", riga.get());
tab_inl.put ("B0", riga.get());
tab_inl.put ("B1", riga.get());
if (_righe_gia_presenti->IS_IN(i))
{
tab_inl->rewrite();
tab_inl.rewrite();
_righe_gia_presenti->togli(i);
}
else
tab_inl->write();
tab_inl.write();
}
}
return _rel->rewrite();
@ -270,7 +271,7 @@ int BA3500_application::write(const TMask& m)
{
long items;
// TTable *tab_inl = (TTable*)_rel->lfile(TAB_INL);
TTable *tab_inl = (TTable*)_rel->lfile(-ALIAS);
TTable& tab_inl = (TTable&)_rel->lfile(-ALIAS);
int anno = m.get_int(F_ANNO);
TString cod_lib = m.get(F_CODLIB);
@ -281,7 +282,7 @@ int BA3500_application::write(const TMask& m)
items = cs.items();
tab_inl->zero();
tab_inl.zero();
for (int i = 0; i < items; i++)
{
@ -290,19 +291,19 @@ int BA3500_application::write(const TMask& m)
long year = atol(riga.get(0));
if (year != 0)
{
tab_inl->put ("CODTAB", codtab);
tab_inl->put ("I0", year);
tab_inl->put ("I1", riga.get());
tab_inl->put ("I2", riga.get());
tab_inl->put ("I3", riga.get());
tab_inl->put ("I4", riga.get());
tab_inl->put ("S0", riga.get());
tab_inl->put ("I5", riga.get());
tab_inl->put ("I6", riga.get());
tab_inl->put ("S1", riga.get());
tab_inl->put ("B0", riga.get());
tab_inl->put ("B1", riga.get());
tab_inl->write();
tab_inl.put ("CODTAB", codtab);
tab_inl.put ("I0", year);
tab_inl.put ("I1", riga.get());
tab_inl.put ("I2", riga.get());
tab_inl.put ("I3", riga.get());
tab_inl.put ("I4", riga.get());
tab_inl.put ("S0", riga.get());
tab_inl.put ("I5", riga.get());
tab_inl.put ("I6", riga.get());
tab_inl.put ("S1", riga.get());
tab_inl.put ("B0", riga.get());
tab_inl.put ("B1", riga.get());
tab_inl.write();
}
}
return _rel->write();
@ -322,9 +323,9 @@ bool BA3500_application::remove()
int BA3500_application::cancella(long items)
{
TTable *tab_inl = (TTable*)_rel->lfile(-ALIAS);
TRecfield an (_rel->lfile(-ALIAS)->curr(),"CODTAB",0,3);
TRecfield cl (_rel->lfile(-ALIAS)->curr(),"CODTAB",4,6);
TTable& tab_inl = (TTable&)_rel->lfile(-ALIAS);
TRecfield an(tab_inl.curr(),"CODTAB",0,3);
TRecfield cl(tab_inl.curr(),"CODTAB",4,6);
long anno;
TString codlib, dep;
@ -332,15 +333,15 @@ int BA3500_application::cancella(long items)
codlib = (const char*)cl;
for (long i = 0; i < items; i++)
{
tab_inl->zero();
tab_inl.zero();
dep = format ("%04d", anno);
dep << format ("%-3s" , (const char*) codlib);
dep << format ("%6d" , i);
tab_inl->put("CODTAB", dep);
if (tab_inl->read(_isequal, _lock) == NOERR)
tab_inl->remove();
tab_inl.put("CODTAB", dep);
if (tab_inl.read(_isequal, _lock) == NOERR)
tab_inl.remove();
}
return tab_inl->status();
return tab_inl.status();
}
/*********

68
ba/ba3700.cpp
View File

@ -107,19 +107,19 @@ TMask* BA3700_application::get_mask(int mode)
void BA3700_application::togli_dal_file(const TString& cod_pag)
{
long i;
TTable* tab_rpg = (TTable*)_rel->lfile(-ALIAS);
TTable& tab_rpg = (TTable&)_rel->lfile(-ALIAS);
long last = _righe_gia_presenti.last_one();
long start = _righe_gia_presenti.first_one();
TString dep;
TString16 dep;
for (i=start; i<=last; i++)
{
if (_righe_gia_presenti[i])
{
tab_rpg->zero();
tab_rpg.zero();
dep.format ("%-4s%3d", (const char*) cod_pag, i);
tab_rpg->put("CODTAB", dep);
tab_rpg->remove();
tab_rpg.put("CODTAB", dep);
tab_rpg.remove();
}
}
}
@ -130,7 +130,7 @@ void BA3700_application::read_tabrpg(TMask& m)
TString tipo_pagamento;
TString percentuale, cod_pag, ult_class;
bool ok = FALSE;
TTable* tab_rpg = (TTable*)_rel->lfile(-ALIAS);
TTable& tab_rpg = (TTable&)_rel->lfile(-ALIAS);
long numrig;
int i = 0;
@ -146,12 +146,12 @@ void BA3700_application::read_tabrpg(TMask& m)
while (ok)
{
TRecfield num (tab_rpg->curr(),"CODTAB",4,6);
TRecfield num (tab_rpg.curr(),"CODTAB",4,6);
numrig = long(num);
numero_giorni = tab_rpg->get_long("I0");
percentuale = tab_rpg->get ("R0");
tipo_pagamento = tab_rpg->get ("S0");
ult_class = tab_rpg->get ("S1");
numero_giorni = tab_rpg.get_long("I0");
percentuale = tab_rpg.get ("R0");
tipo_pagamento = tab_rpg.get ("S0");
ult_class = tab_rpg.get ("S1");
if (i == 0) //Sono sulla prima rata
num_giorni_prima_rata = numero_giorni;
@ -779,7 +779,7 @@ bool BA3700_application::riga_sheet(int r, KEY k)
int BA3700_application::rewrite(const TMask& m)
{
long items;
TTable *tab_rpg = (TTable*)_rel->lfile(-ALIAS);
TTable& tab_rpg = (TTable&)_rel->lfile(-ALIAS);
TString dep;
TString cod_pag = m.get(F_CODICE);
@ -797,23 +797,23 @@ int BA3700_application::rewrite(const TMask& m)
long numero_giorni = atol(riga.get(0));
if (numero_giorni != 0)
{
tab_rpg->put ("CODTAB", codtab);
tab_rpg->put ("I0", numero_giorni);
tab_rpg->put ("R0", riga.get());
tab_rpg.put ("CODTAB", codtab);
tab_rpg.put ("I0", numero_giorni);
tab_rpg.put ("R0", riga.get());
dep = riga.get();
if (dep != "")
tab_rpg->put ("S0", dep);
tab_rpg.put ("S0", dep);
dep = riga.get();
if (dep != "")
tab_rpg->put ("S1", dep);
tab_rpg.put ("S1", dep);
if (_righe_gia_presenti[i])
{
tab_rpg->rewrite();
tab_rpg.rewrite();
_righe_gia_presenti.reset(i);
}
else
tab_rpg->write();
tab_rpg.write();
}
}
togli_dal_file(cod_pag);
@ -823,7 +823,7 @@ int BA3700_application::rewrite(const TMask& m)
int BA3700_application::write(const TMask& m)
{
long items;
TTable *tab_rpg = (TTable*)_rel->lfile(-ALIAS);
TTable& tab_rpg = (TTable&)_rel->lfile(-ALIAS);
TString dep;
TString cod_pag = m.get(F_CODICE);
@ -834,7 +834,7 @@ int BA3700_application::write(const TMask& m)
items = cs.items();
tab_rpg->zero();
tab_rpg.zero();
for (int i = 0; i < items; i++)
{
@ -843,16 +843,16 @@ int BA3700_application::write(const TMask& m)
long numero_giorni = atol(riga.get(0));
if (numero_giorni != 0)
{
tab_rpg->put ("CODTAB", codtab);
tab_rpg->put ("I0", numero_giorni);
tab_rpg->put ("R0", riga.get());
tab_rpg.put ("CODTAB", codtab);
tab_rpg.put ("I0", numero_giorni);
tab_rpg.put ("R0", riga.get());
dep = riga.get();
if (dep != "")
tab_rpg->put ("S0", dep);
tab_rpg.put ("S0", dep);
dep = riga.get();
if (dep != "")
tab_rpg->put ("S1", dep);
tab_rpg->write();
tab_rpg.put ("S1", dep);
tab_rpg.write();
}
}
return _rel->write();
@ -868,22 +868,22 @@ bool BA3700_application::remove()
int BA3700_application::cancella(long items)
{
TTable* tab_rpg = (TTable*)_rel->lfile(-ALIAS);
TRecfield an (tab_rpg->curr(),"CODTAB",0,3);
TTable& tab_rpg = (TTable&)_rel->lfile(-ALIAS);
TRecfield an (tab_rpg.curr(),"CODTAB",0,3);
TString cod_pag,dep;
cod_pag = (const char*)(an);
for (long i = 0; i < items; i++)
{
tab_rpg->zero();
tab_rpg.zero();
dep = format ("%-4s", (const char*) cod_pag);
dep << format ("%3d" , i);
tab_rpg->put("CODTAB", dep);
if (tab_rpg->read(_isequal, _lock) == NOERR)
tab_rpg->remove();
tab_rpg.put("CODTAB", dep);
if (tab_rpg.read(_isequal, _lock) == NOERR)
tab_rpg.remove();
}
return tab_rpg->status();
return tab_rpg.status();
}
int BA3700_application::read(TMask& m)

56
ba/ba4200.cpp
View File

@ -88,16 +88,16 @@ bool BA4200_application::ba4200_handler(TMask& m, KEY k)
TMessage msg(cmd2name(cmd), MSG_FS, (const char*) body);
TMailbox mb;
mb.send(msg);
TLocalisamfile* d = app.get_relation()->lfile();
TLocalisamfile& d = app.get_relation()->lfile();
d->setkey(1);
d->zero();
d->put(N_TIPOA, app.ana_fis() ? "F" : "G");
d->put(N_CODANAGR, m.get(FLD_CODANAGR));
d->read(_isequal, _unlock) ;
d.setkey(1);
d.zero();
d.put(N_TIPOA, app.ana_fis() ? "F" : "G");
d.put(N_CODANAGR, m.get(FLD_CODANAGR));
d.read(_isequal, _unlock) ;
TExternal_app a(cmd);
a.run();
d->read(_iscurr, _lock) ;
d.read(_iscurr, _lock) ;
m.set_focus();
return FALSE;
}
@ -112,7 +112,7 @@ void BA4200_application::init_query_mode(TMask& m)
const char* BA4200_application::get_next_key()
{
TLocalisamfile& anag = *get_relation()->lfile() ;
TLocalisamfile& anag = get_relation()->lfile() ;
long cod_anagr = 1;
if (!anag.empty() )
@ -201,7 +201,7 @@ bool gest_uff_imp_nr(TMask_field& f, KEY key)
uff_imp.read() ;
if ( uff_imp.good() )
{
const bool giuridica = ((BA4200_application*)MainApp())->ana_giu();
const bool giuridica = ((BA4200_application*)main_app())->ana_giu();
const TFixed_string codcom(uff_imp.get(N_COMUNE));
const char* com = msk.get(giuridica ? FLD_AG1_COMRF : FLD_AF2_COMRF);
if (*com)
@ -230,7 +230,7 @@ bool gest_uff_imp(TMask_field& f, KEY key)
TString cod_sta, cod_com;
TMask& msk = f.mask() ;
const short dlg = f.dlg();
const bool giuridica = ((BA4200_application*)MainApp())->ana_giu();
const bool giuridica = ((BA4200_application&)main_app()).ana_giu();
if ( giuridica )
{
@ -284,20 +284,20 @@ bool gest_uff_imp(TMask_field& f, KEY key)
bool no_dup_fis(TMask_field& f, KEY key)
{
if (f.mask().query_mode() || !f.to_check(key)) return TRUE;
BA4200_application* app = (BA4200_application*) MainApp();
TLocalisamfile& anag = *app->get_relation()->lfile(LF_ANAG) ;
BA4200_application& app = (BA4200_application&)main_app();
TLocalisamfile& anag = app.get_relation()->lfile(LF_ANAG) ;
const TString16 cofi(f.get());
if ( cofi.not_empty() )
{
anag.zero() ;
anag.put(N_TIPOA, app->tip_ana());
anag.put(N_TIPOA, app.tip_ana());
anag.put(N_COFI, cofi ) ;
anag.setkey(3) ;
anag.read() ;
anag.setkey(1) ;
const char t = anag.get_char(N_TIPOA), t1 = app->tip_ana();
const TString16 s = anag.get(N_CODANAGR), s1 = app->cod_ana();
const char t = anag.get_char(N_TIPOA), t1 = app.tip_ana();
const TString16 s = anag.get(N_CODANAGR), s1 = app.cod_ana();
if (anag.good() && (t1 != t || s1 != s))
{
@ -313,21 +313,21 @@ bool gest_iva(TMask_field& f, KEY key , short fd_sta ,short fd_iva )
{
if (f.mask().query_mode() || !f.to_check(key)) return TRUE;
BA4200_application* app = (BA4200_application*) MainApp();
TLocalisamfile& anag = *app->get_relation()->lfile(LF_ANAG) ;
BA4200_application& app = (BA4200_application&)main_app();
TLocalisamfile& anag = app.get_relation()->lfile(LF_ANAG) ;
TMask& msk = f.mask() ;
if ( f.get().not_empty() && !anag.empty() )
{
anag.zero() ;
anag.put(N_TIPOA, app->tip_ana());
anag.put(N_TIPOA, app.tip_ana());
anag.put(N_STATOPAIV, msk.get(fd_sta) ) ;
anag.put(N_PAIV, msk.get(fd_iva) ) ;
anag.setkey(4) ;
anag.read() ;
anag.setkey(1) ;
const char t = anag.get_char(N_TIPOA), t1 = app->tip_ana();
const TFixed_string s(anag.get(N_CODANAGR)), s1(app->cod_ana());
const char t = anag.get_char(N_TIPOA), t1 = app.tip_ana();
const TFixed_string s(anag.get(N_CODANAGR)), s1(app.cod_ana());
if (anag.good() && (t1 != t || s1 != s))
{
f.error_box("Partita iva gia' definita per il codice : %c/%s",
@ -441,17 +441,17 @@ void BA4200_application::manual_save(const TMask& m)
{
TRelation *r = get_relation();
TLocalisamfile& anag = *r->lfile(LF_ANAG) ;
TLocalisamfile& anag = r->lfile(LF_ANAG) ;
if (ana_fis())
{
TLocalisamfile& anafis = *r->lfile(LF_ANAGFIS) ;
TLocalisamfile& anafis = r->lfile(LF_ANAGFIS) ;
anafis.put(N_CODANAGR, _cod_ana);
}
else
{
TLocalisamfile& anagiu = *r->lfile(LF_ANAGGIU) ;
TLocalisamfile& anagiu = r->lfile(LF_ANAGGIU) ;
anagiu.put(N_CODANAGR, _cod_ana);
}
@ -464,7 +464,7 @@ int BA4200_application::read(TMask& m)
{
const TRelation *r = get_relation();
m.autoload(r);
_cod_ana = r->lfile()->get(N_CODANAGR);
_cod_ana = r->lfile().get(N_CODANAGR);
return NOERR;
}
@ -474,7 +474,7 @@ int BA4200_application::write(const TMask& m)
TRelation *r = get_relation();
r->zero();
m.autosave(r);
set_cod_ana(r->lfile()->get(N_CODANAGR));
set_cod_ana(r->lfile().get(N_CODANAGR));
manual_save(m);
return r->write();
}
@ -496,6 +496,10 @@ int ba4200(int argc, char* argv[])
if (argc > 2 && toupper(*argv[2]) == 'G') ta = 'G';
BA4200_application a(ta);
a.run(argc, argv, "Anagrafica persone fisiche e giuridiche");
TString80 titolo("Anagrafica Persone ");
titolo << (ta == 'F' ? "Fisiche" : "Giuridiche");
a.run(argc, argv, titolo);
return 0;
}

35
ba/ba4300.cpp
View File

@ -88,11 +88,11 @@ bool ba4300_handler(TMask& m, KEY k)
return TRUE;
if (m.mode() == MODE_MOD || m.mode() == MODE_INS)
{
BA4300_application* app = (BA4300_application*) MainApp();
BA4300_application& app = (BA4300_application&)main_app();
if (m.mode() == MODE_INS)
{
if (!m.check_fields()) return FALSE;
if (app->write(m) != NOERR) return TRUE;
if (app.write(m) != NOERR) return TRUE;
m.stop_run(K_ESC);
}
TString appname;
@ -123,7 +123,7 @@ bool ba4300_handler(TMask& m, KEY k)
if (appname.not_empty())
{
TString body(16);
TLocalisamfile* d = app->get_relation()->lfile();
TLocalisamfile& d = app.get_relation()->lfile();
#if XVT_OS == XVT_OS_WIN
if (k != K_F8) appname.insert("a", 3);
@ -141,16 +141,16 @@ bool ba4300_handler(TMask& m, KEY k)
TMailbox mb;
mb.send(msg);
}
d->setkey(1);
d->zero();
d->put("CODDITTA", m.get(FLD_GD1_CODDITTA));
d->read(_isequal, _unlock) ;
d.setkey(1);
d.zero();
d.put("CODDITTA", m.get(FLD_GD1_CODDITTA));
d.read(_isequal, _unlock) ;
TExternal_app a(appname);
long oldditta = prefhndl->get_codditta();
if (k == K_F8) prefhndl->set_codditta(atol(m.get(FLD_GD1_CODDITTA)), TRUE);
const long oldditta = main_app().get_firm();
if (k == K_F8) main_app().set_firm(m.get_long(FLD_GD1_CODDITTA));
a.run();
if (k == K_F8) prefhndl->set_codditta(oldditta, TRUE);
d->read(_iscurr, _lock) ;
if (k == K_F8) main_app().set_firm(oldditta);
d.read(_iscurr, _lock) ;
m.set_focus();
return FALSE;
}
@ -181,15 +181,15 @@ bool BA4300_application::build_firm_data(long codditta, bool flagcom)
#else
if (mkdir(ndir) == -1)
#endif
return error_box("non posso creare il direttorio della ditta %ld (%s)",
return error_box("Impossibile creare il direttorio della ditta %ld (%s)",
codditta, (const char*) ndir);
if (!fexist(s1))
if (!fcopy(ntrrec, s1))
return error_box("non posso copiare il file %s della ditta %ld",
return error_box("Impossibile copiare il file %s della ditta %ld",
ntrrec, codditta);
if (!fexist(s2))
if (!fcopy(nd, s2))
return error_box("non posso copiare il file %s della ditta %ld",
return error_box("Impossibile copiare il file %s della ditta %ld",
nd, codditta);
set_cursor(TASK_WIN, CURSOR_WAIT);
@ -238,10 +238,10 @@ bool BA4300_application::build_firm_data(long codditta, bool flagcom)
TSystemisamfile f(i);
f.build(30); // cambiare
BA4300_application* app = (BA4300_application*) MainApp();
BA4300_application& app = (BA4300_application&) main_app();
for (int j = 0 ; j < 99 ; j++)
{
if (app->has_module(j))
if (app.has_module(j))
{
const TString s(format("std/f%04d%02d.txt", i, j));
if (fexist(s)) f.load(s);
@ -416,9 +416,8 @@ void BA4300_application::init_modify_mode(TMask& m)
int ba4300(int argc, char* argv[])
{
BA4300_application a ;
a.run(argc, argv, "Anagrafica Ditta");
a.run(argc, argv, "Anagrafica Ditte");
return 0;
}

17
ba/ba6100.cpp
View File

@ -2,12 +2,12 @@
// Stampa anagrafiche
// Control code
// ***********************************************************************
#include "ba6100.h"
#include <progind.h>
#include <mailbox.h>
#include <execp.h>
#include "ba6100.h"
// ------- utils --------------------------------------------
@ -360,7 +360,6 @@ bool BA6100_App::set_print(int)
_inclditte = (bool)(mask.get(CHK_BA6_INCLDI) == "X");
TString cod_from(5), cod_to(5);
TLocalisamfile* fl;
switch(_pr_what)
{
@ -382,9 +381,9 @@ bool BA6100_App::set_print(int)
: FLD_ANG_RAGSOCTO);
}
{
fl = current_cursor()->file(LF_ANAG);
TRectype tr1(fl->curr());
TRectype tr2(fl->curr());
TLocalisamfile& fl = current_cursor()->file(LF_ANAG);
TRectype tr1(fl.curr());
TRectype tr2(fl.curr());
tr1.zero(); tr2.zero();
tr1.put("TIPOA", _pr_what == anafis ? "F" : "G");
tr2.put("TIPOA", _pr_what == anafis ? "F" : "G");
@ -424,9 +423,9 @@ bool BA6100_App::set_print(int)
}
if (!cod_from.empty() || !cod_to.empty())
{
fl = current_cursor()->file(LF_NDITTE);
TRectype tr1(fl->curr());
TRectype tr2(fl->curr());
TLocalisamfile& fl = current_cursor()->file(LF_NDITTE);
TRectype tr1(fl.curr());
TRectype tr2(fl.curr());
tr1.zero(); tr2.zero();
if (_sort == 1)
{

84
ba/ba6101.cpp
View File

@ -278,23 +278,23 @@ void BA6100_App::set_scheda_anafis()
// cerca coniuge
com = current_cursor()->curr(LF_ANAGFIS).get("CODCONIUGE");
TLocalisamfile* af = current_cursor()->file(LF_ANAG);
TRecnotype last = af->recno();
int k = af->getkey();
TLocalisamfile& af = current_cursor()->file(LF_ANAG);
TRecnotype last = af.recno();
int k = af.getkey();
if (!com.empty())
{
af->curr().zero();
af->setkey(1);
af->put("CODANAGR",com);
af->put("TIPOA","F");
af->read();
af.curr().zero();
af.setkey(1);
af.put("CODANAGR",com);
af.put("TIPOA","F");
af.read();
}
a = af->get("RAGSOC");
a = af.get("RAGSOC");
if (!com.empty())
{
af->setkey(k);
af->readat(last);
af.setkey(k);
af.readat(last);
b = a.sub(30); a = a.left(20);
}
else { a = ""; b = ""; }
@ -407,22 +407,22 @@ void BA6100_App::set_scheda_attiv()
// cerca depositario
TString com = get_field(LF_ATTIV,"CODANGRDS");
TString a = get_field(LF_ATTIV,"TIPOADS");
TLocalisamfile* af = current_cursor()->file(LF_ANAG);
TRecnotype last = af->recno();
af->curr().zero();
int k = af->getkey();
af->setkey(1);
af->curr().put("CODANAGR",com);
af->curr().put("TIPOA",a);
TLocalisamfile& af = current_cursor()->file(LF_ANAG);
TRecnotype last = af.recno();
af.curr().zero();
int k = af.getkey();
af.setkey(1);
af.curr().put("CODANAGR",com);
af.curr().put("TIPOA",a);
TString b = af->curr().get("RAGSOC");
com = af->curr().get("INDRF");
if (com.empty()) com = af->curr().get("INDRES");
TString c = af->curr().get("COMRF");
if (c.empty) c = af->curr().get("COMRES");
TString b = af.curr().get("RAGSOC");
com = af.curr().get("INDRF");
if (com.empty()) com = af.curr().get("INDRES");
TString c = af.curr().get("COMRF");
if (c.empty) c = af.curr().get("COMRES");
TRectype& cm = look_com(a);
af->readat(last);
af->setkey(k);
af.readat(last);
af.setkey(k);
set_row(10,"Depositario@20gCodice @pn (%s): %s",
FLD(LF_ATTIV,"CODANGRDS"),
@ -504,26 +504,26 @@ void BA6100_App::set_scheda_socio()
int rw;
TString b1, b2, b3;
TLocalisamfile* ana = current_cursor()->file(LF_ANAG);
TLocalisamfile* soc = current_cursor()->file(LF_SOCI);
TRecnotype rno = ana->recno();
int k = ana->getkey();
TLocalisamfile& ana = current_cursor()->file(LF_ANAG);
TLocalisamfile& soc = current_cursor()->file(LF_SOCI);
TRecnotype rno = ana.recno();
int k = ana.getkey();
ana->zero();
ana->put("TIPOA",soc->get("TIPOASOC"));
ana->put("CODANAGR",soc->get("CODANAGRSO"));
ana->read();
ana.zero();
ana.put("TIPOA",soc.get("TIPOASOC"));
ana.put("CODANAGR",soc.get("CODANAGRSO"));
ana.read();
TString codconiuge = "";
if (soc->get("TIPOASOC") == "F")
{
TLocalisamfile* anaf;
if (soc.get("TIPOASOC") == "F")
{
TRecnotype rn = 0; int kk = 1;
if (_pr_what == anafis)
{
anaf = current_cursor()->file(LF_ANAGFIS);
anaf = &current_cursor()->file(LF_ANAGFIS);
rn = anaf->recno();
kk = anaf->getkey();
}
@ -534,7 +534,7 @@ void BA6100_App::set_scheda_socio()
}
anaf->zero();
anaf->put("CODANAGR",soc->get("CODANAGRSO"));
anaf->put("CODANAGR",soc.get("CODANAGRSO"));
anaf->read();
TRectype& com = look_com(anaf->get("COMNASC"));
@ -580,7 +580,7 @@ void BA6100_App::set_scheda_socio()
}
set_row(rw,"");
TRectype& com = look_com(ana->get("COMRES"));
TRectype& com = look_com(ana.get("COMRES"));
b1 = com.get("DENCOM");
b2 = com.get("PROVCOM");
@ -594,7 +594,7 @@ void BA6100_App::set_scheda_socio()
set_row(rw+3,"");
TString car = look_tab("%CRS",soc->get("CODCAR"));
TString car = look_tab("%CRS",soc.get("CODCAR"));
set_row(rw+4,"Carica@20gCod. @pN@30g%s@62gScadenza @lD",
FLD(LF_SOCI,"CODCAR","@@"),
@ -632,8 +632,8 @@ void BA6100_App::set_scheda_socio()
FLD(LF_SOCI,"DATAAGG"));
set_row(rw+13,""); set_row(rw+14,"");
ana->setkey(k);
ana->readat(rno);
ana.setkey(k);
ana.readat(rno);
}

13
ba/ba6200.cpp
View File

@ -148,7 +148,6 @@ BA6200_application::BA6200_application()
bool BA6200_application::set_print(int)
{
KEY tasto;
TLocalisamfile* fl;
TString statoini,statofine,codiceini,codicefine,denomini,denomfine;
tasto = _msk->run();
@ -170,9 +169,9 @@ bool BA6200_application::set_print(int)
add_file(LF_COMUNI);
select_cursor(_cur1);
fl = current_cursor()->file(LF_COMUNI);
TRectype da (fl->curr());
TRectype a (fl->curr());
TLocalisamfile& fl = current_cursor()->file(LF_COMUNI);
TRectype da (fl.curr());
TRectype a (fl.curr());
da.zero();
a.zero();
@ -196,9 +195,9 @@ bool BA6200_application::set_print(int)
reset_files();
add_file(LF_COMUNI);
fl = current_cursor()->file(LF_COMUNI);
TRectype da (fl->curr());
TRectype a (fl->curr());
TLocalisamfile& fl = current_cursor()->file(LF_COMUNI);
TRectype da (fl.curr());
TRectype a (fl.curr());
da.zero();
a.zero();

45
ba/bast%ivd.uml
View File

@ -1,12 +1,17 @@
#include "ba3200.h"
PAGE "Stampa Tabella IV direttiva CEE" -1 -1 69 8
PAGE "Stampa Tabella IV direttiva CEE" -1 -1 68 9
GROUPBOX DLG_NULL 66 3
BEGIN
PROMPT 1 1 "@bDa codice"
END
STRING F_INIZIO1 1
BEGIN
PROMPT 2 1 "Da sezione "
PROMPT 2 2 "Sezione "
FLAGS "U"
HELP "Inserire il codice d'inizio "
HELP "Codice da cui iniziare la stampa"
FIELD CODTAB[1,1]
USE %IVD
INPUT CODTAB[1,1] F_INIZIO1
@ -27,9 +32,8 @@ END
STRING F_INIZIO2 1
BEGIN
PROMPT 17 1 "Da lettera "
PROMPT 17 2 "Lettera "
FLAGS "U"
HELP "Inserire il codice d'inizio "
FIELD CODTAB[2,2]
COPY ALL F_INIZIO1
GROUP 1
@ -37,9 +41,8 @@ END
NUMBER F_INIZIO3 8 4
BEGIN
PROMPT 32 1 "Da classe "
PROMPT 31 2 "Classe "
FLAGS "UM"
HELP "Inserire il codice d'inizio "
FIELD CODTAB[3,6]
COPY ALL F_INIZIO1
GROUP 1
@ -47,18 +50,22 @@ END
NUMBER F_INIZIO4 2
BEGIN
PROMPT 53 1 "Da numero "
PROMPT 52 2 "Numero "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
FIELD CODTAB[7,8]
COPY ALL F_INIZIO1
GROUP 1
END
GROUPBOX DLG_NULL 66 3
BEGIN
PROMPT 1 4 "@bA Codice"
END
STRING F_FINE1 1
BEGIN
PROMPT 2 3 "A sezione "
HELP "Inserire il codice di fine "
PROMPT 2 5 "Sezione "
HELP "Codice finale da stampare"
FIELD CODTAB[1,1]
FLAGS "U"
COPY USE F_INIZIO1
@ -76,19 +83,17 @@ END
STRING F_FINE2 1
BEGIN
PROMPT 17 3 "A lettera "
PROMPT 17 5 "Lettera "
FLAGS "U"
COPY ALL F_FINE1
HELP "Inserire il codice di fine "
FIELD CODTAB[2,2]
GROUP 2
END
NUMBER F_FINE3 8 4
BEGIN
PROMPT 32 3 "A classe "
PROMPT 31 5 "Classe "
FLAGS "UM"
HELP "Inserire il codice di fine "
FIELD CODTAB[3,6]
COPY ALL F_FINE1
GROUP 2
@ -96,20 +101,20 @@ END
NUMBER F_FINE4 2
BEGIN
PROMPT 53 3 "A numero "
PROMPT 52 5 "Numero "
FLAGS "RZ"
HELP "Inserire il codice di fine "
FIELD CODTAB[7,8]
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_OK 8 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 "~Stampa"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 8 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

14
ba/prassi.mnu
View File

@ -1,6 +1,8 @@
0|Menu Principale|
0|Anagrafiche|1
0|Contabilita'|4
0|Terreni e fabbricati|tefa -t
0|Modello 740|.\740 -t
0|Manutenzione|ba1
1|Gestione Anagrafiche|1
1|Persone fisiche|ba4 -1 F
@ -50,7 +52,7 @@
4|IVA|10
4|Parametri di studio|cg5 -0
4|Gestione Libro Unico|14
5|Tabelle studio|
5|Tabelle studio|1
5|Tipi documento|ba3 -0 %tpd
5|Cond. di pagamento|ba3 -0 %cpg
5|Descrizioni aggiuntive|ba3 -0 %dpn
@ -62,7 +64,7 @@
5|IV direttiva CEE|ba3 -0 %ivd
5|Valute|ba3 -0 %val
5|Lingue|ba3 -0 %lng
6|Stampa tabelle studio|
6|Stampa tabelle studio|3
6|Cond. di pagamento|ba3 -1 %cpg
6|Descrizioni aggiuntive|ba3 -1 %dpn
6|Codici IVA|ba3 -1 %iva
@ -73,7 +75,7 @@
6|IV direttiva CEE|ba3 -1 %ivd
6|Valute|ba3 -1 %val
6|Lingue|ba3 -1 %lng
7|Tabelle ditta|
7|Tabelle ditta|2
7|Parametri ditta|cg5 -1
7|Registri|ba3 -0 reg
7|Piano dei conti|cg0 -0
@ -105,14 +107,14 @@
10|Stampa registri|cg4 -3
10|Progressivi allegati|cg0 -2
10|Stampa allegati|cg3 -2
11|Tabelle ministeriali|
11|Tabelle ministeriali|1
11|Comuni|ba4 -0
11|Uffici concessioni|ba3 -0 %ucc
11|Uffici imposte dirette|ba3 -0 %uid
11|Uffici IVA|ba3 -0 %uiv
11|Uffici registro|ba3 -0 %ure
11|Centri servizio|ba3 -0 %ucs
12|Stampa tabelle ministeriali|
12|Stampa tabelle ministeriali|3
12|Comuni|ba6 -1
12|Uffici concessioni|ba3 -1 %ucc
12|Uffici imposte dirette|ba3 -1 %uid
@ -123,7 +125,7 @@
13|Tabelle ditta|7
13|Stampa tabelle ditta|8
13|Prima nota|9
14|Gestione Libro Unico
14|Gestione Libro Unico|1
14|Tabella Libro Unico|ba3 -4
14|Tabella Vidimazioni|ba3 -0 %vid
14|Stampa Indici Libro Unico|ba3 -5