813 lines
26 KiB
C++
Executable File
813 lines
26 KiB
C++
Executable File
#include <relapp.h>
|
||
#include <msksheet.h>
|
||
#include <sheet.h>
|
||
#include <utility.h>
|
||
#include <lffiles.h>
|
||
#include <effetti.h>
|
||
#include <reffetti.h>
|
||
#include <cession.h>
|
||
#include "ef0.h"
|
||
#include "ef0300.h"
|
||
#include "ef0301.h"
|
||
|
||
//Classe per la gestione di distinte (inserimento, modifica, cancellazione)
|
||
// e per la creazione automatica di distinte per importi.
|
||
class TVariazione_distinte: public TRelation_application
|
||
{
|
||
TMask *_msk, *_m2;
|
||
TDistinta *_distinta;
|
||
TRelation *_rel;
|
||
TLocalisamfile *_reff, *_cession, *_clifo;
|
||
protected:
|
||
virtual void init_query_mode(TMask&);
|
||
virtual void init_insert_mode(TMask&);
|
||
virtual void init_modify_mode(TMask&);
|
||
virtual const char* get_next_key();
|
||
virtual int read(TMask& m);
|
||
virtual int rewrite(const TMask& m);
|
||
virtual int write(const TMask& m);
|
||
virtual bool remove();
|
||
virtual TMask* get_mask(int mode) {return _msk;}
|
||
virtual bool changing_mask(int mode) {return FALSE;}
|
||
static bool codval_handler(TMask_field& f, KEY k);
|
||
static bool importo_handler(TMask_field& f, KEY k);
|
||
static bool imp_aut_handler(TMask_field& f, KEY k);
|
||
static bool impdist_notify(TSheet_field& s, int r, KEY key);
|
||
static bool imp_notify(TSheet_field& s, int r, KEY key);
|
||
static bool conferma_handler(TMask_field& f, KEY k);
|
||
static bool annulla_handler(TMask_field& f, KEY k);
|
||
static bool from_data_handler(TMask_field& f, KEY k);
|
||
static bool to_data_handler(TMask_field& f, KEY k);
|
||
static bool ordina_handler(TMask_field& f, KEY k);
|
||
static void calcola_totale();
|
||
static void calcola();
|
||
static void aggiungi();
|
||
static void carica_riba();
|
||
static void ord_data();
|
||
static void ord_fatt();
|
||
TSheet_field& righe_sheet() const;
|
||
TSheet_field& righe_sel_sheet() const;
|
||
bool cerca(long num);
|
||
bool user_create();
|
||
bool user_destroy();
|
||
void aggiorna();
|
||
void elimina();
|
||
TToken_string* common_f(const TMask& m);
|
||
public:
|
||
virtual TRelation* get_relation() const {return _rel;}
|
||
TVariazione_distinte() {};
|
||
virtual ~TVariazione_distinte() {};
|
||
};
|
||
|
||
inline TVariazione_distinte& app()
|
||
{
|
||
return (TVariazione_distinte&)main_app();
|
||
}
|
||
|
||
void TVariazione_distinte::init_query_mode(TMask&)
|
||
{
|
||
_msk->enable(F_NUMBER);
|
||
_msk->enable(F_TIPODIST);
|
||
_msk->reset(F_TOTIMP);
|
||
_msk->reset(F_TOTIMPVAL);
|
||
}
|
||
|
||
void TVariazione_distinte::init_insert_mode(TMask&)
|
||
{
|
||
_msk->reset(F_TOTIMP);
|
||
_msk->reset(F_TOTIMPVAL);
|
||
_msk->enable(F_TOTIMPVAL);
|
||
_msk->enable(F_CODVAL);
|
||
_msk->disable(F_NUMBER);
|
||
_msk->disable(F_TIPODIST);
|
||
}
|
||
|
||
void TVariazione_distinte::init_modify_mode(TMask&)
|
||
{
|
||
_msk->disable(F_NUMBER);
|
||
_msk->disable(F_TIPODIST);
|
||
}
|
||
|
||
//Ritorna il prossimo numero di distanta valido
|
||
const char* TVariazione_distinte::get_next_key()
|
||
{
|
||
long ndist = 1L;
|
||
TLocalisamfile& effetti = _rel->lfile();
|
||
effetti.zero();
|
||
effetti.put("NDIST",ndist);
|
||
effetti.setkey(4);
|
||
int err = effetti.read(_isgteq);
|
||
if ( (err == _iskeynotfound) || (err == _iseof) ) //se non esiste alcuna distinta:
|
||
{ // il numero sar<61> 1
|
||
err == NOERR;
|
||
return format("%d|%ld", F_NUMBER, ndist);
|
||
}
|
||
while (err == NOERR) //se esitono gi<67> delle distinte:
|
||
{ // le leggo tutte e ne prendo il
|
||
effetti.setkey(4); // numero, al verificarsi della fine file
|
||
err = effetti.next(); // ho l'ultimo numero utilizzato
|
||
long n = effetti.get_long("NDIST"); // incrementandolo avr<76> il numero che cercavo.
|
||
if (n > ndist)
|
||
ndist = n;
|
||
}
|
||
return format("%d|%ld",F_NUMBER,++ndist);
|
||
}
|
||
|
||
//Ritorna un riferimento allo sheet degli effetti (righe) nella distinta
|
||
TSheet_field& TVariazione_distinte::righe_sheet() const
|
||
{
|
||
TSheet_field& r_sheet = (TSheet_field&)_msk->field(F_SHEET_RIBA);
|
||
return r_sheet;
|
||
}
|
||
|
||
//Ritorna un riferimento allo sheet delle righe
|
||
TSheet_field& TVariazione_distinte::righe_sel_sheet() const
|
||
{
|
||
TSheet_field& r_sheet = (TSheet_field&)_m2->field(F_SHEET);
|
||
return r_sheet;
|
||
}
|
||
|
||
//Ritorna TRUE se trovo nel'array delle righe distinta l'effetto passato
|
||
bool TVariazione_distinte::cerca(long num)
|
||
{
|
||
bool trovato = FALSE;
|
||
int items = _distinta->items();
|
||
TArray& righedist = _distinta->righe();
|
||
for (int i = 0; i < items; i++)//ciclo sugli elementi dell'array
|
||
{ //se l'array <20> vuoto non trova nulla ed esce subito
|
||
TEffetto& eff = (TEffetto&)righedist[i];
|
||
long num_eff = eff.get_long("NPROGTR");
|
||
if (num_eff == num)
|
||
{
|
||
trovato = TRUE;
|
||
break;// esco quando ho gi<67> trovato l'effetto che cercavo
|
||
}
|
||
}
|
||
return trovato;
|
||
}
|
||
|
||
//Metodo che permette di scivere sull'array (in memoria) gli effetti presenti nello sheet
|
||
void TVariazione_distinte::aggiorna()
|
||
{
|
||
TSheet_field& shrighe = righe_sheet();
|
||
int items = shrighe.items();
|
||
for (int i = 0; i < items; i++)
|
||
{
|
||
TToken_string& row = shrighe.row(i);
|
||
row.restart();
|
||
long num = row.get_long(1);
|
||
if (!cerca(num))
|
||
{
|
||
TLocalisamfile eff(LF_EFFETTI);
|
||
TRectype rec = eff.curr();
|
||
eff.setkey(1);
|
||
rec.zero();
|
||
rec.put(EFF_NPROGTR, num);
|
||
int err = eff.read();
|
||
TEffetto* effetto= new TEffetto(rec);
|
||
TArray& righedist = _distinta->righe();
|
||
righedist.add(effetto);
|
||
}
|
||
}
|
||
}
|
||
|
||
//Metodo che permette di prendere i dati dalla maschera e metterli in una TToken_string
|
||
//che servir<69> per passare i dati alla write della distinta
|
||
TToken_string* TVariazione_distinte::common_f(const TMask& m)
|
||
{
|
||
char tipodist = m.get(F_TIPODIST)[0];
|
||
long ndist = m.get_long(F_NUMBER);
|
||
TDate datadist = (TDate)m.get(F_DATA);
|
||
long codabi = m.get_long(F_CODABIP);
|
||
long codcab = m.get_long(F_CODCABP);
|
||
m.autosave(*_rel);
|
||
TToken_string* datidist= new TToken_string;
|
||
datidist->cut(0);
|
||
datidist->add(tipodist);
|
||
datidist->add(ndist);
|
||
datidist->add(datadist);
|
||
datidist->add(codabi);
|
||
datidist->add(codcab);
|
||
return datidist;
|
||
}
|
||
|
||
int TVariazione_distinte::read(TMask& m)
|
||
{
|
||
m.autoload(*_rel);
|
||
int err = _rel->status();
|
||
if (err == NOERR)
|
||
{
|
||
err = _distinta->reset(); //resetto l'array che contiene gli effetti nella distinta
|
||
err = _distinta->read(_rel->curr());
|
||
if (err == NOERR)
|
||
{
|
||
TToken_string riga(80);
|
||
TSheet_field& shrighe = righe_sheet();
|
||
shrighe.reset();
|
||
int items = _distinta->items();
|
||
TArray& righedist = _distinta->righe();
|
||
for (int i = 0; i < items; i++) // carico tutti gli effetti della distinta nello sheet
|
||
{
|
||
TEffetto& eff = (TEffetto&)righedist[i];
|
||
riga.cut(0);
|
||
riga.add(' ');
|
||
riga.add(eff.get(EFF_NPROGTR));
|
||
riga.add(eff.get(EFF_DATASCAD));
|
||
long codcf = eff.get_long(EFF_CODCF); //prendo la ragione sociale del cliente
|
||
_clifo->zero(); //conoscendone il codice
|
||
_clifo->put("TIPOCF", 'C');
|
||
_clifo->put("CODCF", codcf);
|
||
if (_clifo->read() == NOERR) riga.add(_clifo->get("RAGSOC"));
|
||
if (eff.rows_r() == 1) //se l'effetto contiene solo una riga metto i
|
||
{ //riferimenti al documento ed al numero di rata
|
||
const TRectype& rec_r = eff.row_r(1);
|
||
riga.add(rec_r.get(REFF_NFATT));
|
||
riga.add(rec_r.get(REFF_DATAFATT));
|
||
riga.add(rec_r.get(REFF_NRATA));
|
||
}
|
||
else //se l'effetto contiene pi<70> di una riga non metto i
|
||
{ //riferimenti al documento ed al numero di rata
|
||
riga.add(("Varie"));
|
||
riga.add(("Varie"));
|
||
riga.add(("Varie"));
|
||
}
|
||
TString codval(3); //gestisco il controllo sulla presenza o meno di una valuta
|
||
codval = eff.get(EFF_CODVAL);
|
||
if (i == 0)
|
||
{
|
||
const bool condition = (codval.empty() || codval == "LIT");
|
||
m.enable(F_CODVAL, !condition);
|
||
m.enable(F_TOTIMPVAL, !condition);
|
||
if (!condition)
|
||
m.set(F_CODVAL, codval);
|
||
}
|
||
riga.add(codval);
|
||
riga.add(eff.get(EFF_IMPORTO));
|
||
riga.add(eff.get(EFF_IMPORTOVAL));
|
||
shrighe.row(i) = riga;
|
||
}
|
||
}
|
||
}
|
||
return err;
|
||
}
|
||
|
||
//Si prendono tutte le righe dello sheet e si controlla il primo campo se e' a true si distrugge
|
||
// la riga e si aggiorna il file.
|
||
// GLI EFFETTI PRESENTI NELLO SHEET DEVONO GIA ESSERE STATI REGISTRATI NEL FILE.
|
||
void TVariazione_distinte::elimina()
|
||
{
|
||
TEffetto eff;
|
||
TLocalisamfile file(LF_EFFETTI);
|
||
char tipodist = _msk->get(F_TIPODIST)[0];
|
||
long ndist = _msk->get_long(F_NUMBER);
|
||
TDistinta* distinta = app()._distinta;
|
||
TSheet_field& sf = (TSheet_field&)_msk->field(F_SHEET_RIBA);
|
||
bool condition = FALSE, deleted = FALSE;
|
||
TArray& righedist = distinta->righe();
|
||
for (int i = 0, k = i+1; i < sf.items(); i++, k++)//ciclo sugli elementi dello sheet
|
||
{
|
||
if (deleted) i--; //per posizionarsi correttamente sulla prima riga dello sheet
|
||
if (sf.items() == 1)
|
||
{
|
||
error_box("IMPOSSIBILE CANCELLARE: La distinta deve contenere almeno un effetto!");
|
||
break;
|
||
}
|
||
TToken_string& row = sf.row(i);
|
||
condition = *row.get(0) == 'X';
|
||
if (condition)
|
||
{
|
||
long num = row.get_long(1);
|
||
for (int j = 0; j < distinta->items(); j++)//ciclo sugli elementi dell'array
|
||
{
|
||
TEffetto& eff = (TEffetto&)righedist[j];
|
||
long num_eff = eff.get_long("NPROGTR");
|
||
if (num_eff == num)
|
||
{
|
||
righedist.destroy(j,TRUE);
|
||
break;
|
||
}
|
||
}
|
||
sf.destroy(i); deleted = TRUE;
|
||
eff.read(file, tipodist, ndist, k);
|
||
eff.zero("TIPODIST");
|
||
eff.zero("NDIST");
|
||
eff.zero("DATADIST");
|
||
eff.zero("NRIGADIST");
|
||
eff.zero("CODABIP");
|
||
eff.zero("CODCABP");
|
||
eff.rewrite(file);
|
||
}
|
||
else deleted = FALSE;
|
||
}
|
||
}
|
||
|
||
int TVariazione_distinte::rewrite(const TMask& m)
|
||
{
|
||
TSheet_field& sf = righe_sheet();
|
||
bool condition = FALSE;
|
||
for (int i = 0; i < sf.items(); i++)
|
||
{
|
||
TToken_string& row = sf.row(i);
|
||
if (condition = *row.get(0) == 'X') break;
|
||
}
|
||
if (condition)
|
||
if (yesno_box("Vuoi veramete eliminare gli effetti selezionati"))
|
||
elimina(); //elimino gli effetti nello sheet che sono selezionati con la "X"
|
||
int err = _distinta->reset(); //resetto l'array che contiene gli effetti nella distinta
|
||
char tipodist = m.get(F_TIPODIST)[0];
|
||
long ndist = m.get_long(F_NUMBER);
|
||
aggiorna();
|
||
err = _distinta->rewrite(common_f(m));
|
||
if (err == NOERR)
|
||
{ //riposiziono la relazione
|
||
_rel->lfile().setkey(4);
|
||
TRectype& curr = _rel->curr();
|
||
curr.put("TIPODIST", tipodist);
|
||
curr. put("NDIST", ndist);
|
||
curr. put("NRIGADIST", 1);
|
||
_rel->read();
|
||
}
|
||
return err;
|
||
}
|
||
|
||
int TVariazione_distinte::write(const TMask& m)
|
||
{
|
||
int err = _distinta->reset(); //resetto l'array che contiene gli effetti nella distinta
|
||
char tipodist = m.get(F_TIPODIST)[0];
|
||
long ndist = m.get_long(F_NUMBER);
|
||
aggiorna();
|
||
err = _distinta->write(TRUE, common_f(m));
|
||
if (err == NOERR)
|
||
{ //riposiziono la relazione
|
||
_rel->lfile().setkey(4);
|
||
TRectype& curr = _rel->curr();
|
||
curr.put("TIPODIST", tipodist);
|
||
curr. put("NDIST", ndist);
|
||
curr. put("NRIGADIST", 1);
|
||
_rel->read();
|
||
}
|
||
return err;
|
||
}
|
||
|
||
//Metodo che permette di eliminare una distinta, l'eliminazione consiste nell'andare a togliere
|
||
// dagli effetti i dati ad essa relativi.
|
||
bool TVariazione_distinte::remove()
|
||
{
|
||
TMask* m = app()._msk;
|
||
char tipodist = m->get(F_TIPODIST)[0];
|
||
long ndist = m->get_long(F_NUMBER);
|
||
int err = _distinta->remove(tipodist, ndist) == NOERR;
|
||
return err;
|
||
}
|
||
|
||
bool TVariazione_distinte::user_create()
|
||
{
|
||
_msk = new TMask("ef0300a");
|
||
_m2 = new TMask("ef0300c");
|
||
_rel = new TRelation(LF_EFFETTI);
|
||
_reff = new TLocalisamfile(LF_REFFETTI);
|
||
_cession = new TLocalisamfile(LF_CESS);
|
||
_clifo = new TLocalisamfile(LF_CLIFO);
|
||
_distinta = new TDistinta;
|
||
set_search_field(F_NUMBER); //setto il campo di ricerca della distinta
|
||
_msk->set_handler(F_CODVAL, codval_handler);
|
||
_msk->set_handler(F_IMP, importo_handler);
|
||
_m2->set_handler(F_TOTIMPDIST, imp_aut_handler);
|
||
_m2->set_handler(DLG_OK, conferma_handler);
|
||
_m2->set_handler(DLG_CANCEL, annulla_handler);
|
||
_m2->set_handler(F_DADATA, from_data_handler);
|
||
_m2->set_handler(F_ADATA, to_data_handler);
|
||
_m2->set_handler(F_TIPORD, ordina_handler);
|
||
righe_sheet().set_notify(impdist_notify);
|
||
righe_sel_sheet().set_notify(imp_notify);
|
||
return TRUE;
|
||
}
|
||
|
||
bool TVariazione_distinte::user_destroy()
|
||
{
|
||
delete _msk;
|
||
delete _m2;
|
||
delete _rel;
|
||
delete _reff;
|
||
delete _cession;
|
||
delete _clifo;
|
||
delete _distinta;
|
||
return TRUE;
|
||
}
|
||
|
||
//Permette di caricare lo sheet per la selezione delle riba da aggiungere alla distinta:
|
||
// vengono presi tutti gli effetti sul file LF_EFFETTI che non hanno ancora un riferimento ad
|
||
// una distinta
|
||
void TVariazione_distinte::carica_riba()
|
||
{
|
||
char tipodist = 0;
|
||
long ndist = 0;
|
||
long nrigadist = 0;
|
||
TEffetto eff;
|
||
TLocalisamfile f(LF_EFFETTI);
|
||
TLocalisamfile * clifo = app()._clifo;
|
||
TToken_string riga(80);
|
||
TMask* m2 = app()._m2;
|
||
m2->reset();
|
||
TSheet_field& sf = (TSheet_field&)m2->field(F_SHEET);
|
||
sf.reset();
|
||
int err, i = 0;
|
||
err = eff.read(f, tipodist, ndist, nrigadist);
|
||
while ( (err == NOERR) && (tipodist == 0) )
|
||
{ //carico tutti gli effetti che soddisfano alla condizione nello sheet
|
||
riga.cut(0);
|
||
riga.add(' ');
|
||
riga.add(eff.get(EFF_NPROGTR));
|
||
riga.add(eff.get(EFF_DATASCAD));
|
||
long codcf = eff.get_long(EFF_CODCF);
|
||
clifo->zero();
|
||
clifo->put("TIPOCF", 'C');
|
||
clifo->put("CODCF", codcf);
|
||
if (clifo->read() == NOERR) riga.add(clifo->get("RAGSOC"));
|
||
if (eff.rows_r() == 1) //se l'effetto contiene solo una riga metto i
|
||
{ //riferimenti al documento ed al numero di rata
|
||
const TRectype& rec_r = eff.row_r(1);
|
||
riga.add(rec_r.get(REFF_NFATT));
|
||
riga.add(rec_r.get(REFF_DATAFATT));
|
||
riga.add(rec_r.get(REFF_NRATA));
|
||
}
|
||
else //se l'effetto contiene pi<70> di una riga non metto i
|
||
{ //riferimenti al documento ed al numero di rata
|
||
riga.add(("Varie"));
|
||
riga.add(("Varie"));
|
||
riga.add(("Varie"));
|
||
}
|
||
riga.add(eff.get(EFF_CODVAL));
|
||
riga.add(eff.get(EFF_IMPORTO));
|
||
riga.add(eff.get(EFF_IMPORTOVAL));
|
||
sf.row(i) = riga;
|
||
i++;
|
||
f.setkey(4);
|
||
err = eff.next(f);
|
||
tipodist = eff.get("TIPODIST")[0];
|
||
}
|
||
}
|
||
|
||
//Handler che permette il controllo sulla abilitazione dei campi collegati
|
||
// al codice valuta
|
||
bool TVariazione_distinte::codval_handler(TMask_field& f, KEY k)
|
||
{
|
||
TMask &m = f.mask();
|
||
TString val(f.get());
|
||
if (f.to_check(k, TRUE))
|
||
{
|
||
const bool condition = (val == "LIT" || val.empty());
|
||
m.enable(F_TOTIMPVAL,!condition);
|
||
if (condition)
|
||
m.reset(F_TOTIMPVAL);
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
//Handler per gestire il caricamento degli effetti nella distinta in automatico
|
||
// relativamente ad un importo fissato (per la maschera princiapale)
|
||
bool TVariazione_distinte::importo_handler(TMask_field& f, KEY k)
|
||
{
|
||
TMask& m = f.mask();
|
||
TSheet_field& sf_riba = (TSheet_field&)m.field(F_SHEET_RIBA);
|
||
if (f.to_check(k, TRUE))
|
||
{
|
||
const int mode = m.mode();
|
||
if( mode == MODE_INS || mode == MODE_MOD )
|
||
{
|
||
TMask* m2 = app()._m2;
|
||
long imp_pres = m.get_long(F_TOTIMP);
|
||
long imp = m.get_long(F_IMP);
|
||
long impdist = imp - imp_pres;
|
||
if (impdist > 0)
|
||
{
|
||
app().begin_wait();
|
||
carica_riba();
|
||
app().end_wait();
|
||
m2->reset(F_TOTIMPDIST);
|
||
m2->reset(F_IMPSEL);
|
||
m2->set(F_TOTIMPDIST, impdist);
|
||
m2->run();
|
||
}
|
||
if (impdist < 0)
|
||
error_box("Il valore di presentazione non pu<70> superare l'importo della distinta");
|
||
}
|
||
}
|
||
sf_riba.force_update();
|
||
sf_riba.set_dirty();
|
||
return TRUE;
|
||
}
|
||
|
||
//Handler per gestire il caricamento degli effetti nella distinta in automatico
|
||
// relativamente ad un importo fissato (per la maschera secondaria)
|
||
bool TVariazione_distinte::imp_aut_handler(TMask_field& f, KEY k)
|
||
{
|
||
TMask& m2 = f.mask();
|
||
if (f.to_check(k, TRUE))
|
||
{
|
||
TMask* m = app()._msk;
|
||
TSheet_field& sf = (TSheet_field&)m2.field(F_SHEET);
|
||
TSheet_field& sf_riba = (TSheet_field&)m->field(F_SHEET_RIBA);
|
||
long impdist = m->get_long(F_IMP) - m->get_long(F_TOTIMP);
|
||
long tot_imp_dist = m2.get_long(F_TOTIMPDIST), impsel = 0;
|
||
if (tot_imp_dist != 0 && impdist != 0)
|
||
{
|
||
TString val = m->get(F_CODVAL);
|
||
int items = sf.items();
|
||
for(int i = 0; i < items; i++)
|
||
{
|
||
TToken_string& row = sf.row(i);
|
||
TString codval = row.get(7);
|
||
if (codval == " " || codval == "LIT")//se la valuta non appare o <20> lire
|
||
codval.trim(); //faccio in modo che vengano presi gli effetti con valuta inesistente
|
||
long imp = row.get_long(8);
|
||
if ((imp <= tot_imp_dist) && ((impsel+imp) <= tot_imp_dist))
|
||
{
|
||
if ((sf_riba.items() == 0) && (val.empty()|| val == "LIT"))//se non <20> stata specificata una valuta si prende quella del
|
||
{ //primo effetto che si carica nella distinta
|
||
m->set(F_CODVAL, codval);
|
||
val = m->get(F_CODVAL);
|
||
}
|
||
if (codval == val)
|
||
{
|
||
row.add('X',0);//seleziono l'effetto poich<63> soddisfa alle condizione richieste
|
||
impsel += imp;
|
||
}
|
||
}
|
||
if (impsel <= tot_imp_dist) continue;
|
||
else break;
|
||
}
|
||
sf.force_update();
|
||
calcola();
|
||
}
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
//Handler per gestire la pressione del bottone conferma della maschera per l'aggiunta delle
|
||
// riba (ef0300c)
|
||
bool TVariazione_distinte::conferma_handler(TMask_field& f, KEY k)
|
||
{
|
||
TMask* msk = app()._msk;
|
||
TSheet_field& sf_riba = (TSheet_field&)msk->field(F_SHEET_RIBA);
|
||
if (k==K_ENTER)
|
||
{
|
||
TMask& m = f.mask();
|
||
m.close();
|
||
TSheet_field& sf = (TSheet_field&)m.field(F_SHEET);
|
||
int items = sf.items();
|
||
bool condition = FALSE;
|
||
for (int i = 0; i < items; i++)
|
||
{
|
||
TToken_string& row = sf.row(i);
|
||
condition = *row.get(0)== 'X';
|
||
if (condition)
|
||
{
|
||
row[0] = ' ';
|
||
sf_riba.row(-1) = row;
|
||
}
|
||
}
|
||
}
|
||
sf_riba.force_update();
|
||
calcola_totale();
|
||
return TRUE;
|
||
}
|
||
|
||
//Handler per gestire la pressione del bottone annulla della maschera per l'aggiunta delle riba
|
||
// (ef0300c)
|
||
bool TVariazione_distinte::annulla_handler(TMask_field& f, KEY k)
|
||
{
|
||
TMask& m = f.mask();
|
||
m.close();
|
||
return TRUE;
|
||
}
|
||
|
||
//Handler per gestire la scelta per data
|
||
bool TVariazione_distinte::from_data_handler(TMask_field& f, KEY k)
|
||
{
|
||
if (k == K_TAB)
|
||
{
|
||
TMask& m = f.mask();
|
||
if (!f.get().empty())
|
||
{
|
||
bool deleted = FALSE;
|
||
TDate data = m.get_date(F_DADATA);
|
||
TSheet_field& sf = (TSheet_field&)m.field(F_SHEET);
|
||
for(int i = 0; i < sf.items(); i++)
|
||
{
|
||
if (deleted) i--;
|
||
TToken_string& row = sf.row(i);
|
||
TDate data_sh = (TDate)row.get(2);
|
||
if (data_sh < data)
|
||
{
|
||
sf.destroy(i);
|
||
deleted = TRUE;
|
||
}
|
||
else deleted = FALSE;
|
||
}
|
||
}
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
//Handler per gestire la scelta per data
|
||
bool TVariazione_distinte::to_data_handler(TMask_field& f, KEY k)
|
||
{
|
||
if (k == K_TAB)
|
||
{
|
||
TMask& m = f.mask();
|
||
if (!f.get().empty())
|
||
{
|
||
bool deleted = FALSE;
|
||
TDate data = m.get_date(F_ADATA);
|
||
TSheet_field& sf = (TSheet_field&)m.field(F_SHEET);
|
||
for(int i = 0; i < sf.items(); i++)
|
||
{
|
||
if (deleted) i--;
|
||
TToken_string& row = sf.row(i);
|
||
TDate data_sh = (TDate)row.get(2);
|
||
if (data_sh > data)
|
||
{
|
||
sf.destroy(i);
|
||
deleted = TRUE;
|
||
}
|
||
else deleted = FALSE;
|
||
}
|
||
}
|
||
}
|
||
return TRUE;
|
||
}
|
||
//COMPARE FUNCTION per l'ordinamento per data degli effetti presenti nello sheet
|
||
HIDDEN int confronta_data(const TObject** o1, const TObject** o2)
|
||
{
|
||
int val;
|
||
TToken_string* s1 = (TToken_string*) *o1;
|
||
TToken_string* s2 = (TToken_string*) *o2;
|
||
TDate data1 = s1->get(2);
|
||
TDate data2 = s2->get(2);
|
||
if (data1 == data2)
|
||
val = 0;
|
||
else
|
||
val = (data1 > data2) ? +1 : -1;
|
||
return val;
|
||
}
|
||
|
||
//Handler per gestire l'ordinamento per data degli effetti presenti nello sheet
|
||
void TVariazione_distinte::ord_data()
|
||
{
|
||
TMask* m = app()._m2;
|
||
TSheet_field& sf = (TSheet_field&)m->field(F_SHEET);
|
||
TArray& effetti = sf.rows_array();
|
||
app().begin_wait();
|
||
effetti.sort(confronta_data);
|
||
app().end_wait();
|
||
sf.force_update();
|
||
}
|
||
|
||
//COMPARE FUNCTION per l'ordinamento per numero e data fattura degli effetti presenti nello sheet
|
||
HIDDEN int confronta_fatt(const TObject** o1, const TObject** o2)
|
||
{
|
||
int val;
|
||
TToken_string* s1 = (TToken_string*) *o1;
|
||
TToken_string* s2 = (TToken_string*) *o2;
|
||
long num1 = s1->get_long(4);
|
||
long num2 = s2->get_long(4);
|
||
TDate data1 = s1->get(5);
|
||
TDate data2 = s2->get(5);
|
||
if (num1 != num2)
|
||
{
|
||
val = (num1 > num2) ? +1 : -1;
|
||
return val;
|
||
}
|
||
if (data1 == data2)
|
||
{
|
||
val = 0;
|
||
return val;
|
||
}
|
||
else
|
||
{
|
||
val = (data1 > data2) ? +1 : -1;
|
||
return val;
|
||
}
|
||
}
|
||
|
||
//Handler per gestire l'ordinamento per numero e data fattura degli effetti presenti nello sheet
|
||
void TVariazione_distinte::ord_fatt()
|
||
{
|
||
TMask* m = app()._m2;
|
||
TSheet_field& sf = (TSheet_field&)m->field(F_SHEET);
|
||
TArray& effetti = sf.rows_array();
|
||
app().begin_wait();
|
||
effetti.sort(confronta_fatt);
|
||
app().end_wait();
|
||
sf.force_update();
|
||
}
|
||
|
||
//Handler per gestire i diversi ordinamenti
|
||
bool TVariazione_distinte::ordina_handler(TMask_field& f, KEY k)
|
||
{
|
||
if (f.to_check(k, TRUE))
|
||
{
|
||
char ord = f.get()[0];
|
||
if (ord == 'S')//ordino gli effetti nello sheet per data
|
||
ord_data();
|
||
if (ord == 'F')
|
||
ord_fatt();//ordino gli effetti nello sheet per fattura
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
//Metodo che calcola i totali relativi alla distinta (totale in lire e totale in valuta(se presente))
|
||
void TVariazione_distinte::calcola_totale()
|
||
{
|
||
TMask* m = app()._msk;
|
||
TSheet_field& sf = (TSheet_field&)m->field(F_SHEET_RIBA);
|
||
int items = sf.items();
|
||
real imp, impval, impdist, impdistval;
|
||
for (int i = 0; i < items; i++)
|
||
{
|
||
TToken_string& row = sf.row(i);
|
||
bool condition = *row.get(0) == 'X';
|
||
if (condition)
|
||
{
|
||
imp = row.get(8);
|
||
impdist -= imp;
|
||
impval = row.get(9);
|
||
impdistval -= impval;
|
||
}
|
||
imp = row.get(8);
|
||
impdist += imp;
|
||
impval = row.get(9);
|
||
impdistval += impval;
|
||
}
|
||
m->set(F_TOTIMP, impdist);
|
||
m->set(F_TOTIMPVAL, impdistval);
|
||
m->set(F_IMP, impdist);
|
||
}
|
||
|
||
//Metodo che calcola i totali relativi alla selezione effetti per la distinta
|
||
void TVariazione_distinte::calcola()
|
||
{
|
||
TMask* m2 = app()._m2;
|
||
TMask* m = app()._msk;
|
||
TSheet_field& sf = (TSheet_field&)m2->field(F_SHEET);
|
||
int items = sf.items();
|
||
real imp, impsel;
|
||
long imp_pres = m->get_long(F_TOTIMP);
|
||
long importo = m->get_long(F_IMP);
|
||
long impdist = importo - imp_pres;
|
||
if (impdist == 0)
|
||
m2->set(F_TOTIMPDIST, importo);
|
||
for (int i = 0; i < items; i++)
|
||
{
|
||
TToken_string& row = sf.row(i);
|
||
bool condition = *row.get(0) == 'X';
|
||
if (condition)
|
||
{
|
||
imp = row.get(8);
|
||
impsel += imp;
|
||
m2->set(F_IMPSEL, impsel);
|
||
if (impdist == 0 && imp_pres == 0)
|
||
m2->set(F_TOTIMPDIST, impsel);
|
||
/*if (impdist != 0 && imp_pres != 0)
|
||
m2->set(F_TOTIMPDIST, imp_pres+impsel);*/
|
||
}
|
||
}
|
||
}
|
||
|
||
//Handler per il calcolo dei totali relativi alla selezione effetti per la distinta
|
||
bool TVariazione_distinte::imp_notify(TSheet_field& s, int r, KEY key)
|
||
{
|
||
if (s.to_check(key, TRUE))
|
||
calcola();
|
||
return TRUE;
|
||
}
|
||
|
||
//Metodo che permette di aggiungere effetti alla distinta caricandoli tra quelli non ancora assegnati
|
||
void TVariazione_distinte::aggiungi()
|
||
{
|
||
TMask* m2 = app()._m2;
|
||
app().begin_wait();
|
||
carica_riba();
|
||
app().end_wait();
|
||
m2->reset(F_TOTIMPDIST);
|
||
m2->reset(F_IMPSEL);
|
||
m2->run();
|
||
}
|
||
|
||
//Handler per il calcolo dei totali relativi alla distinta
|
||
bool TVariazione_distinte::impdist_notify(TSheet_field& s, int r, KEY key)
|
||
{
|
||
if (s.to_check(key, TRUE))
|
||
calcola_totale();
|
||
if (key == K_INS)
|
||
aggiungi();
|
||
return TRUE;
|
||
}
|
||
|
||
int ef0300(int argc, char* argv[])
|
||
{
|
||
TVariazione_distinte a ;
|
||
a.run(argc, argv, "Gestione Distinte");
|
||
return 0;
|
||
} |