Alessandro Bonazzi
394ace407c
Files correlati : li0.exe fp0.exe ve1.exe li0400a.msk Commento : modificato l'invio dellete lettee d'intento
270 lines
7.1 KiB
C++
Executable File
270 lines
7.1 KiB
C++
Executable File
#include <automask.h>
|
|
#include <defmask.h>
|
|
#include <relapp.h>
|
|
#include <tabutil.h>
|
|
#include "lilib01.h"
|
|
|
|
#include "li0.h"
|
|
#include "li0400a.h"
|
|
|
|
#include "letint.h"
|
|
|
|
//-------------------------------------------------------------------
|
|
// MASCHERA (li0400a)
|
|
//-------------------------------------------------------------------
|
|
class TLetint_mask : public TAutomask
|
|
{
|
|
protected:
|
|
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
|
virtual bool on_key(KEY k);
|
|
|
|
bool block;
|
|
bool keyforced;
|
|
|
|
public:
|
|
TDate ultima_stampa(int anno);
|
|
bool is_registro(int anno) { return ultima_stampa(anno) > botime;}
|
|
TLetint_mask();
|
|
};
|
|
|
|
|
|
bool TLetint_mask::on_key(KEY k)
|
|
{
|
|
if (k == K_SHIFT+K_F12 && (edit_mode() || insert_mode()))
|
|
{
|
|
keyforced = true;
|
|
enable(DLG_SAVEREC);
|
|
enable(F_NUMPROT);
|
|
enable(F_UTILIZZATO);
|
|
}
|
|
if (k == K_SHIFT+K_F11)
|
|
keyforced = false;
|
|
return TAutomask::on_key(k);
|
|
}
|
|
|
|
bool TLetint_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
|
{
|
|
switch (o.dlg())
|
|
{
|
|
case F_ANNO:
|
|
if (e == fe_modify || e == fe_init || e == fe_close)
|
|
{
|
|
if (!is_registro(atoi(o.get())))
|
|
return error_box(FR("Manca il registro dichiarazioni d'intento per l'anno %d"), atoi(o.get()));
|
|
}
|
|
case F_NUMPROT:
|
|
if (e == fe_close && query_mode())
|
|
{
|
|
const long numprot = get_long(F_NUMPROT);
|
|
if (!keyforced && numprot > 1)
|
|
{
|
|
const int anno = get_int(F_ANNO);
|
|
TLocalisamfile letint(LF_LETINT);
|
|
letint.put(LETINT_ANNO, anno);
|
|
letint.put(LETINT_NUMPROT, numprot - 1);
|
|
if (letint.read() != NOERR)
|
|
return error_box(TR("Il numero di protocollo deve essere progressivo!"));
|
|
}
|
|
}
|
|
break;
|
|
case F_PROTINTF:
|
|
if (e == fe_close && get_int(F_ANNO) > 2021 && (insert_mode() || edit_mode()))
|
|
{
|
|
if (!o.get().full())
|
|
return error_box(TR("Dal 2022 il protocollo di invio è obbligatorio"));
|
|
}
|
|
case F_DATAREG:
|
|
if (e == fe_close && insert_mode())
|
|
{
|
|
const long numprot = get_long(F_NUMPROT);
|
|
if (numprot > 1)
|
|
{
|
|
const int anno = get_int(F_ANNO);
|
|
TLocalisamfile letint(LF_LETINT);
|
|
letint.put(LETINT_ANNO, anno);
|
|
letint.put(LETINT_NUMPROT, numprot - 1);
|
|
if (letint.read() == NOERR)
|
|
{
|
|
const TDate& old_data = letint.get_date(LETINT_DATAREG);
|
|
if (get_date(F_DATAREG) < old_data)
|
|
return error_box(TR("La data di registrazione non puo' essere antecedente a %s"), (const char*)old_data.string());
|
|
}
|
|
else
|
|
{
|
|
TDate ultima = ultima_stampa(anno);
|
|
if (get_date(F_DATAREG) <= ultima)
|
|
return error_box(TR("La data di registrazione non puo' essere antecedente a %s"), (const char*)ultima.string());
|
|
}
|
|
}
|
|
}
|
|
else
|
|
if (e == fe_modify)
|
|
{
|
|
}
|
|
break;
|
|
case F_TIPOOP:
|
|
// Controlli
|
|
if (e == fe_close)
|
|
{
|
|
const int tipo_op = get_int(F_TIPOOP);
|
|
const TDate data = get_date(F_DAL);
|
|
|
|
if (!keyforced && tipo_op == 3 && data > TDate(01, 03, 2017) && get(F_TIPOES).blank())
|
|
return error_box(TR("Non può esistere una dichiarazione di intento di tipo \"Nel Periodo\"\ncon data posteriore al 01/03/2017!"));
|
|
}
|
|
else
|
|
if (e == fe_init || e == fe_modify) // Abilitazione date
|
|
{
|
|
const int tipo_op = get_int(F_TIPOOP);
|
|
|
|
enable(F_DAL, tipo_op != 1);
|
|
enable(F_AL, tipo_op == 3);
|
|
if (e == fe_modify)
|
|
{
|
|
if (tipo_op == 1)
|
|
reset(F_DAL);
|
|
if (tipo_op != 3)
|
|
reset(F_DAL);
|
|
}
|
|
}
|
|
}
|
|
return true;
|
|
}
|
|
|
|
TDate TLetint_mask::ultima_stampa(int anno)
|
|
{
|
|
TTable reg("REG");
|
|
TDate ultima_stampa = botime;
|
|
TString s; s.format("%0d", anno);
|
|
|
|
reg.put("CODTAB", s);
|
|
for (int err = reg.read(_isgteq); s == reg.get("CODTAB").left(4) && err == NOERR; err = reg.next())
|
|
if (reg.get_int("I0") == 10)
|
|
{
|
|
ultima_stampa = reg.get_date("D3");
|
|
if (!ultima_stampa.ok())
|
|
{
|
|
ultima_stampa.set_day(1);
|
|
ultima_stampa.set_month(1);
|
|
ultima_stampa.set_year(anno);
|
|
--ultima_stampa;
|
|
}
|
|
}
|
|
return ultima_stampa;
|
|
}
|
|
|
|
|
|
TLetint_mask::TLetint_mask() : TAutomask("li0400a"), block(false), keyforced(false)
|
|
{
|
|
first_focus(F_ANNO);
|
|
}
|
|
|
|
|
|
//--------------------------------------------------------------
|
|
// APPLICAZIONE
|
|
//--------------------------------------------------------------
|
|
class TLetint : public TRelation_application
|
|
{
|
|
TLetint_mask* _mask;
|
|
TRelation* _rel;
|
|
|
|
protected:
|
|
bool user_create();
|
|
bool user_destroy();
|
|
virtual TMask* get_mask(int mode) { return _mask; }
|
|
virtual bool changing_mask(int mode) { return false; }
|
|
virtual bool protected_record(TRectype &rec);
|
|
virtual void init_query_mode(TMask& m);
|
|
virtual void init_modify_mode(TMask& m);
|
|
|
|
virtual bool get_next_key(TToken_string& key);
|
|
|
|
public:
|
|
// @cmember Disabilita la verifica del modulo : essendo una anagrafica, va sempre abilitata
|
|
virtual bool check_autorization() const {return true;}
|
|
|
|
virtual TRelation* get_relation() const {return (TRelation*)_rel;}
|
|
};
|
|
|
|
|
|
bool TLetint::get_next_key(TToken_string& key)
|
|
{
|
|
TLocalisamfile& letint = _rel->lfile() ;
|
|
long numprot = 1L ;
|
|
const int anno(_mask->get_int(F_ANNO)) ;
|
|
|
|
if (!letint.empty())
|
|
{
|
|
letint.zero() ;
|
|
letint.setkey(1) ;
|
|
|
|
letint.put(LETINT_ANNO, anno);
|
|
letint.read(_isgteq);
|
|
if (letint.good()) //se e' tutto ok,si posiziona sull'ultimo record con l'anno selezionato
|
|
letint.last();
|
|
|
|
if (letint.good())
|
|
{
|
|
const int year(letint.get_int(LETINT_ANNO));
|
|
if (year == anno)
|
|
numprot += letint.get_long(LETINT_NUMPROT);
|
|
}
|
|
|
|
}
|
|
key.format("%d|%d|%d|%ld", F_ANNO, anno, F_NUMPROT, numprot);
|
|
return true;
|
|
}
|
|
|
|
|
|
bool TLetint::protected_record(TRectype& rec) //evita la cancellazione del record se STAMPATO
|
|
{
|
|
bool prot = TRelation_application::protected_record(rec);
|
|
if (!prot)
|
|
{
|
|
prot = rec.get_bool(LETINT_STAMPATO);
|
|
}
|
|
return prot;
|
|
}
|
|
|
|
void TLetint::init_query_mode(TMask& m) //evita la registrazione di un record modificato se STAMPATO
|
|
{
|
|
m.disable(F_UTILIZZATO);
|
|
}
|
|
|
|
void TLetint::init_modify_mode(TMask& m) //evita la registrazione di un record modificato se STAMPATO
|
|
{
|
|
const TRectype& rec = get_relation()->curr();
|
|
const bool stampato = rec.get_bool(LETINT_STAMPATO);
|
|
if (stampato)
|
|
{
|
|
m.disable(DLG_SAVEREC);
|
|
m.disable(DLG_DELREC);
|
|
TString msg = TR("Dichiarazione già stampata sul registro dell'esercizio ");
|
|
xvtil_statbar_set(msg);
|
|
}
|
|
m.disable(F_UTILIZZATO);
|
|
if (m.get(F_PROTDATA).blank() && m.get(F_PROTINTF).full())
|
|
m.set(F_PROTDATA, m.get(F_VSDATA));
|
|
}
|
|
|
|
|
|
bool TLetint::user_create()
|
|
{
|
|
_rel = new TRelation(LF_LETINT);
|
|
_mask = new TLetint_mask;
|
|
return true;
|
|
}
|
|
|
|
bool TLetint::user_destroy()
|
|
{
|
|
delete _mask;
|
|
return true;
|
|
}
|
|
|
|
int li0400(int argc, char* argv[])
|
|
{
|
|
TLetint a;
|
|
a.run(argc, argv, TR("Lettere d'intento"));
|
|
return 0;
|
|
}
|