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

Cambiato Pagamento in TPagamento

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1057 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1995-03-01 15:44:02 +00:00
parent 098c897849
commit ba75ce1b8c
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ba/ba3700.cpp
View File

@ -15,7 +15,7 @@ class BA3700_application : public TRelation_application
{ {
TRelation* _rel; TRelation* _rel;
TMask* _msk; TMask* _msk;
Pagamento* _pag; TPagamento* _pag;
TSheet_field* _cs; TSheet_field* _cs;
int _mode; // Modo maschera corrente int _mode; // Modo maschera corrente
int _interv_rate; int _interv_rate;
@ -65,7 +65,7 @@ public:
// app-data per handlers // app-data per handlers
struct sht { struct sht {
TMask* _msk; TMask* _msk;
Pagamento* _pag; TPagamento* _pag;
TSheet_field* _sht; TSheet_field* _sht;
TArray* _rws; TArray* _rws;
} shuttle; } shuttle;
@ -111,7 +111,7 @@ int BA3700_application::read(TMask& m)
TString code(m.get(F_CODICE)); TString code(m.get(F_CODICE));
int ir = m.get_int(F_INT_RATE); if (ir == 0) ir = -1; int ir = m.get_int(F_INT_RATE); if (ir == 0) ir = -1;
shuttle._pag = _pag = new Pagamento(code); shuttle._pag = _pag = new TPagamento(code);
_pag->set_sheet(*_cs, ir); _pag->set_sheet(*_cs, ir);
if (_pag->n_rate() > 1) if (_pag->n_rate() > 1)
_interv_rate = _pag->scad_rata(_pag->n_rate() - 1); _interv_rate = _pag->scad_rata(_pag->n_rate() - 1);
@ -131,7 +131,7 @@ int BA3700_application::read(TMask& m)
void BA3700_application::init_insert_mode(TMask& m) void BA3700_application::init_insert_mode(TMask& m)
{ {
TString code(m.get(F_CODICE)); TString code(m.get(F_CODICE));
shuttle._pag = _pag = new Pagamento(code); shuttle._pag = _pag = new TPagamento(code);
_pag->set_sheet(*_cs); _pag->set_sheet(*_cs);
TArray* arr = new TArray; TArray* arr = new TArray;
if (shuttle._rws != NULL) delete shuttle._rws; if (shuttle._rws != NULL) delete shuttle._rws;
@ -159,7 +159,7 @@ bool BA3700_application::intervallo_rate(TMask_field& f, KEY k)
if (k != K_TAB) return TRUE; if (k != K_TAB) return TRUE;
sht* s = (sht*)get_app_data(); sht* s = (sht*)get_app_data();
Pagamento* pag = s->_pag; TPagamento* pag = s->_pag;
TSheet_field* shf = s->_sht; TSheet_field* shf = s->_sht;
TMask* msk = s->_msk; TMask* msk = s->_msk;
@ -183,7 +183,7 @@ bool BA3700_application::rate_differenziate(TMask_field& f, KEY k)
if (k != K_TAB) return TRUE; if (k != K_TAB) return TRUE;
sht* s = (sht*)get_app_data(); sht* s = (sht*)get_app_data();
Pagamento* pag = s->_pag; TPagamento* pag = s->_pag;
TSheet_field* shf = s->_sht; TSheet_field* shf = s->_sht;
TMask* msk = s->_msk; TMask* msk = s->_msk;
TArray* rws = s->_rws; TArray* rws = s->_rws;
@ -206,7 +206,7 @@ bool BA3700_application::tipo_prima_rata(TMask_field& f, KEY k)
if (k != K_TAB) return TRUE; if (k != K_TAB) return TRUE;
sht* s = (sht*)get_app_data(); sht* s = (sht*)get_app_data();
Pagamento* pag = s->_pag; TPagamento* pag = s->_pag;
TSheet_field* shf = s->_sht; TSheet_field* shf = s->_sht;
TMask* msk = s->_msk; TMask* msk = s->_msk;
TArray* rws = s->_rws; TArray* rws = s->_rws;
@ -231,7 +231,7 @@ bool BA3700_application::numero_rate(TMask_field& f, KEY k)
if (k != K_TAB) return TRUE; if (k != K_TAB) return TRUE;
sht* s = (sht*)get_app_data(); sht* s = (sht*)get_app_data();
Pagamento* pag = s->_pag; TPagamento* pag = s->_pag;
TSheet_field* shf = s->_sht; TSheet_field* shf = s->_sht;
TMask* msk = s->_msk; TMask* msk = s->_msk;
TArray* rws = s->_rws; TArray* rws = s->_rws;
@ -258,7 +258,7 @@ bool BA3700_application::mese_commerciale(TMask_field& f, KEY k)
// if (k != K_ENTER) return FALSE; // if (k != K_ENTER) return FALSE;
sht* s = (sht*)get_app_data(); sht* s = (sht*)get_app_data();
Pagamento* pag = s->_pag; TPagamento* pag = s->_pag;
TSheet_field* shf = s->_sht; TSheet_field* shf = s->_sht;
TMask* msk = s->_msk; TMask* msk = s->_msk;
TArray* rws = s->_rws; TArray* rws = s->_rws;
@ -285,7 +285,7 @@ bool BA3700_application::sheet_action(int r, KEY k)
word ahiahi = P_OK; word ahiahi = P_OK;
sht* s = (sht*)get_app_data(); sht* s = (sht*)get_app_data();
Pagamento* pag = s->_pag; TPagamento* pag = s->_pag;
TSheet_field* shf = s->_sht; TSheet_field* shf = s->_sht;
TMask* msk = s->_msk; TMask* msk = s->_msk;
TArray* rws = s->_rws; TArray* rws = s->_rws;