388 lines
9.1 KiB
C++
Executable File
388 lines
9.1 KiB
C++
Executable File
#include <execp.h>
|
|
#include <files.h>
|
|
#include <mailbox.h>
|
|
#include <prefix.h>
|
|
#include <relapp.h>
|
|
#include <tabutil.h>
|
|
#include <utility.h>
|
|
|
|
#include "ba4.h"
|
|
#include "ba4300.h"
|
|
|
|
#define FLD_UL1_CODDITTA 133
|
|
#define FLD_UL1_CODDITTA_NDITTE_RAGSOC 100
|
|
#define FLD_AT1_CODDITTA 102
|
|
#define FLD_AT1_CODDITTAH 198
|
|
#define FLD_AT1_PROGD_NDITTE_RAGSOC 105
|
|
#define FLD_SC1_CODDITTA 143
|
|
#define FLD_SC1_CODANAGRSOH 147
|
|
#define FLD_SC1_CODDITTA_NDITTE_RAGSOC 144
|
|
#define FLD_UL1_CODULC 125
|
|
|
|
const char* CODDITTA = "CODDITTA";
|
|
const char* CODATTPREV = "CODATTPREV";
|
|
const char* TIPOA = "TIPOA";
|
|
const char* CODANAGR = "CODANAGR";
|
|
|
|
const char* CODATT = "CODATT";
|
|
|
|
const char* COMRF = "COMRF";
|
|
const char* INDRF = "INDRF";
|
|
const char* CIVRF = "CIVRF";
|
|
const char* CAPRF = "CAPRF";
|
|
const char* COMRES = "COMRES";
|
|
const char* INDRES = "INDRES";
|
|
const char* CIVRES = "CIVRES";
|
|
const char* CAPRES = "CAPRES";
|
|
|
|
const char* CODULC = "CODULC";
|
|
const char* COMULC = "COMULC";
|
|
const char* INDULC = "INDULC";
|
|
const char* CIVULC = "CIVULC";
|
|
const char* CAPULC = "CAPULC";
|
|
const char* COMCCIAA = "COMCCIAA";
|
|
const char* COMTRIB = "COMTRIB";
|
|
|
|
#define TABATT "%ais"
|
|
#define CODTAB "CODTAB"
|
|
#define S0 "S0"
|
|
#define DESCR "DESCR"
|
|
|
|
class TDitte_application : public TRelation_application
|
|
{
|
|
TMask* _msk;
|
|
TRelation *_rel;
|
|
TLocalisamfile* _anag;
|
|
TLocalisamfile* _unloc;
|
|
TLocalisamfile* _attiv;
|
|
TLocalisamfile* _tabcom;
|
|
TString16 _oldattprev;
|
|
|
|
protected:
|
|
bool user_create() ;
|
|
bool user_destroy() ;
|
|
virtual TMask* get_mask(int) { return _msk;}
|
|
virtual bool changing_mask(int) { return FALSE;}
|
|
virtual void init_query_mode(TMask& m) ;
|
|
virtual void init_insert_mode(TMask& m) ;
|
|
void enable_reg(TMask& m) ;
|
|
virtual void init_modify_mode(TMask& m) ;
|
|
virtual bool protected_record(TRectype& rec) { return prefix().exist(rec.get_long("CODDITTA")); }
|
|
void set_att_prev(const TMask& m);
|
|
|
|
public:
|
|
TDitte_application();
|
|
virtual TRelation* get_relation() const { return _rel;}
|
|
virtual int rewrite(const TMask& m);
|
|
virtual int write(const TMask& m);
|
|
virtual ~TDitte_application() {}
|
|
};
|
|
|
|
bool ba4300_handler(TMask& m, KEY k)
|
|
|
|
{
|
|
TDitte_application& app = (TDitte_application&)main_app();
|
|
|
|
if (k == (K_SHIFT+K_F12) && m.mode() == MODE_MOD)
|
|
{
|
|
m.enable(FLD_GD1_TIPOA);
|
|
m.enable(FLD_GD1_CODANAGR);
|
|
m.enable(FLD_GD1_CODANAGR_ANAGR_RAGSOC);
|
|
return TRUE;
|
|
}
|
|
|
|
if (k != K_F5 && k != K_F6 && k != K_F7 && k != K_F8)
|
|
return TRUE;
|
|
if (m.mode() == MODE_MOD || m.mode() == MODE_INS)
|
|
{
|
|
if (m.mode() == MODE_INS)
|
|
{
|
|
if (!m.check_fields()) return FALSE;
|
|
if (app.write(m) != NOERR) return TRUE;
|
|
m.stop_run(K_ESC);
|
|
}
|
|
TString appname;
|
|
int fld = 0, fld1 = 0, fldbrowse = 0;
|
|
|
|
if (k == K_F5)
|
|
{
|
|
appname = "ba4 -3";
|
|
fld = FLD_UL1_CODDITTA;
|
|
fld1 = FLD_UL1_CODDITTA_NDITTE_RAGSOC;
|
|
fldbrowse = FLD_UL1_CODULC;
|
|
}
|
|
if (k == K_F6)
|
|
{
|
|
appname = "ba4 -4";
|
|
fld = FLD_AT1_CODDITTA;
|
|
fld1 = FLD_AT1_PROGD_NDITTE_RAGSOC;
|
|
fldbrowse = FLD_AT1_CODDITTAH;
|
|
}
|
|
if (k == K_F7)
|
|
{
|
|
appname = "ba4 -5";
|
|
fld = FLD_SC1_CODDITTA;
|
|
fld1 = FLD_SC1_CODDITTA_NDITTE_RAGSOC;
|
|
fldbrowse = FLD_SC1_CODANAGRSOH;
|
|
}
|
|
if (k == K_F8) { appname = "ba3 -0 reg"; fld = 0;fldbrowse = 0;}
|
|
if (appname.not_empty())
|
|
{
|
|
TString body(16);
|
|
|
|
if (fldbrowse)
|
|
body << fldbrowse << "|";
|
|
if (fld)
|
|
body << fld << "=" << m.get(FLD_GD1_CODDITTA) ;
|
|
if (fld1)
|
|
body << "|" << fld1 << "=" ;
|
|
if (fldbrowse || fld)
|
|
{
|
|
TMessage msg(cmd2name(appname), MSG_FS, (const char*) body);
|
|
|
|
TMailbox mb;
|
|
mb.send(msg);
|
|
}
|
|
TExternal_app a(appname);
|
|
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) main_app().set_firm(oldditta);
|
|
m.set_focus();
|
|
return FALSE;
|
|
}
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
TDitte_application::TDitte_application()
|
|
{}
|
|
|
|
|
|
bool TDitte_application::user_create() // initvar e arrmask
|
|
{
|
|
_msk = new TMask("ba4300a") ;
|
|
_msk->set_handler(ba4300_handler);
|
|
_rel = new TRelation(LF_NDITTE);
|
|
_anag = new TLocalisamfile(LF_ANAG);
|
|
_unloc = new TLocalisamfile(LF_UNLOC);
|
|
_attiv = new TLocalisamfile(LF_ATTIV);
|
|
_tabcom = new TLocalisamfile(LF_TABCOM);
|
|
set_search_field(FLD_GD1_CODDITTA);
|
|
if (argc() > 2)
|
|
{
|
|
get_mask(MODE_QUERY);
|
|
TString16 s("1|");
|
|
|
|
s << argv(2) << "|" << argv(2);
|
|
set_link(*_msk, s);
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
bool TDitte_application::user_destroy() // releasev e arrmask
|
|
{
|
|
delete _msk;
|
|
delete _rel;
|
|
delete _anag;
|
|
delete _unloc;
|
|
delete _attiv;
|
|
delete _tabcom;
|
|
return TRUE;
|
|
}
|
|
|
|
void TDitte_application::set_att_prev(const TMask& m)
|
|
{
|
|
const TString16 attprev(m.get(FLD_GD1_CODATTPREV));
|
|
|
|
if (_oldattprev == attprev)
|
|
return;
|
|
|
|
TRectype& ditte=_rel->curr();
|
|
TString codditta(ditte.get(CODDITTA)) ;
|
|
|
|
if (_oldattprev.not_empty())
|
|
{
|
|
_attiv->zero() ;
|
|
_attiv->put(CODDITTA, codditta) ;
|
|
_attiv->put(CODATT, _oldattprev);
|
|
if (_attiv->read(_isequal, _lock) == NOERR)
|
|
{
|
|
_attiv->put("ATTPREV", bool(FALSE));
|
|
if (_attiv->rewrite() != NOERR)
|
|
error_box("Non posso aggiornare l'attivita' prevalente precedente : errore n. %d", _attiv->status());
|
|
}
|
|
}
|
|
_attiv->zero() ;
|
|
_attiv->put(CODDITTA, codditta) ;
|
|
_attiv->put(CODATT, attprev) ;
|
|
|
|
const bool itwas = _attiv->read(_isequal, _lock) == NOERR;
|
|
if (!itwas)
|
|
{
|
|
_attiv->zero() ;
|
|
_attiv->put(CODDITTA, codditta) ;
|
|
_attiv->put(CODATT, attprev) ;
|
|
|
|
TTable tabatt = TTable(TABATT);
|
|
|
|
tabatt.zero();
|
|
tabatt.put(CODTAB, ditte.get(CODATTPREV)) ;
|
|
if (tabatt.read() == NOERR)
|
|
_attiv->put(DESCR, tabatt.get(S0)) ;
|
|
}
|
|
_attiv->put("ATTPREV", bool(TRUE)) ;
|
|
if (itwas)
|
|
{
|
|
if (_attiv->rewrite() != NOERR)
|
|
error_box("Non posso aggiornare l'attivita' prevalente : errore n. %d", _attiv->status());
|
|
}
|
|
else
|
|
{
|
|
if (_attiv->write() != NOERR)
|
|
error_box("Non posso creare l'attivita' prevalente : errore n. %d", _attiv->status());
|
|
}
|
|
}
|
|
|
|
int TDitte_application::write(const TMask& m)
|
|
{
|
|
const int err = TRelation_application::write(m);
|
|
if (err == NOERR)
|
|
{
|
|
TRectype& ditte=_rel->curr();
|
|
|
|
TString codditta(ditte.get(CODDITTA)) ;
|
|
|
|
set_att_prev(m);
|
|
|
|
_anag->zero() ;
|
|
_anag->put(TIPOA, ditte.get(TIPOA));
|
|
_anag->put(CODANAGR, ditte.get(CODANAGR));
|
|
_anag->read();
|
|
if (_anag->good())
|
|
{
|
|
_unloc->zero() ;
|
|
_unloc->put(CODDITTA, (const char*) codditta) ;
|
|
_unloc->put(CODULC, (int) 1) ;
|
|
TString s(_anag->get(COMRF));
|
|
if (s.empty())
|
|
{
|
|
_unloc->put(COMULC, _anag->get(COMRES));
|
|
_unloc->put(INDULC, _anag->get(INDRES));
|
|
_unloc->put(CIVULC, _anag->get(CIVRES));
|
|
_unloc->put(CAPULC, _anag->get(CAPRES));
|
|
_unloc->put(COMCCIAA, _anag->get(COMRES));
|
|
_unloc->put(COMTRIB, _anag->get(COMRES));
|
|
}
|
|
else
|
|
{
|
|
_unloc->put(COMULC, (const char*) s);
|
|
_unloc->put(INDULC, _anag->get(INDRF));
|
|
_unloc->put(CIVULC, _anag->get(CIVRF));
|
|
_unloc->put(CAPULC, _anag->get(CAPRF));
|
|
_unloc->put(COMCCIAA, (const char*) s);
|
|
_unloc->put(COMTRIB, (const char*) s);
|
|
}
|
|
_unloc->write();
|
|
}
|
|
}
|
|
return err;
|
|
}
|
|
|
|
int TDitte_application::rewrite(const TMask& m)
|
|
{
|
|
const int err = TRelation_application::rewrite(m);
|
|
if (err == NOERR)
|
|
set_att_prev(m);
|
|
return err;
|
|
}
|
|
|
|
void TDitte_application::init_query_mode(TMask& m)
|
|
{
|
|
if (filtered())
|
|
{
|
|
m.show(FLD_GD1_CODDITTAH);
|
|
m.show(FLD_GD1_RAGSOCH);
|
|
m.hide(FLD_GD1_CODDITTA);
|
|
m.hide(FLD_GD1_RAGSOC);
|
|
}
|
|
else
|
|
{
|
|
m.show(FLD_GD1_CODDITTA);
|
|
m.show(FLD_GD1_RAGSOC);
|
|
m.hide(FLD_GD1_CODDITTAH);
|
|
m.hide(FLD_GD1_RAGSOCH);
|
|
}
|
|
init_insert_mode(m);
|
|
}
|
|
|
|
void TDitte_application::init_insert_mode(TMask& m)
|
|
{
|
|
if (!filtered())
|
|
{
|
|
m.enable(FLD_GD1_TIPOA);
|
|
m.enable(FLD_GD1_CODANAGR);
|
|
m.enable(FLD_GD1_CODANAGR_ANAGR_RAGSOC);
|
|
m.show(FLD_GD1_CODDITTA);
|
|
m.show(FLD_GD1_RAGSOC);
|
|
m.hide(FLD_GD1_CODDITTAH);
|
|
m.hide(FLD_GD1_RAGSOCH);
|
|
}
|
|
else
|
|
{
|
|
m.show(FLD_GD1_CODDITTAH);
|
|
m.show(FLD_GD1_RAGSOCH);
|
|
m.hide(FLD_GD1_CODDITTA);
|
|
m.hide(FLD_GD1_RAGSOC);
|
|
}
|
|
m.disable(DLG_ATT);
|
|
m.disable(DLG_ULC);
|
|
m.disable(DLG_SOC);
|
|
m.disable(DLG_REG);
|
|
_oldattprev = "";
|
|
}
|
|
|
|
void TDitte_application::enable_reg(TMask& m)
|
|
|
|
{
|
|
const long codditta = m.get_long(FLD_GD1_CODDITTA);
|
|
|
|
m.enable(DLG_REG, codditta > 0 && prefix().exist(codditta));
|
|
}
|
|
|
|
void TDitte_application::init_modify_mode(TMask& m)
|
|
{
|
|
m.disable(FLD_GD1_TIPOA);
|
|
m.disable(FLD_GD1_CODANAGR);
|
|
m.disable(FLD_GD1_CODANAGR_ANAGR_RAGSOC);
|
|
if (filtered())
|
|
{
|
|
m.show(FLD_GD1_CODDITTAH);
|
|
m.show(FLD_GD1_RAGSOCH);
|
|
m.hide(FLD_GD1_RAGSOC);
|
|
m.hide(FLD_GD1_CODDITTA);
|
|
}
|
|
else
|
|
{
|
|
m.show(FLD_GD1_CODDITTA);
|
|
m.show(FLD_GD1_RAGSOC);
|
|
m.hide(FLD_GD1_CODDITTAH);
|
|
m.hide(FLD_GD1_RAGSOCH);
|
|
}
|
|
m.enable(DLG_ATT);
|
|
m.enable(DLG_ULC);
|
|
m.enable(DLG_SOC);
|
|
enable_reg(m);
|
|
_oldattprev = m.get(FLD_GD1_CODATTPREV);
|
|
}
|
|
|
|
int ba4300(int argc, char* argv[])
|
|
{
|
|
TDitte_application a ;
|
|
a.run(argc, argv, "Anagrafica Ditte");
|
|
return 0;
|
|
}
|
|
|