Patch level : 12.0 360
Files correlati : li0.exe Commento : Modificata maschera li0400 per visualizzare le vecchie dichiarazioni git-svn-id: svn://10.65.10.50/branches/R_10_00@23671 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari
parent
bd30bfab6a
commit
d6bc661b30
@ -1,90 +1,108 @@
|
||||
#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);
|
||||
|
||||
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())
|
||||
enable(DLG_SAVEREC);
|
||||
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 (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_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());
|
||||
}
|
||||
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 DLG_SAVEREC:
|
||||
{
|
||||
#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);
|
||||
|
||||
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())
|
||||
enable(DLG_SAVEREC);
|
||||
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 (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_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());
|
||||
}
|
||||
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:
|
||||
switch(get_int(F_TIPOOP))
|
||||
{
|
||||
case 1:
|
||||
enable(DLG_SAVEREC);
|
||||
disable(F_DAL);
|
||||
break;
|
||||
case 2:
|
||||
enable(DLG_SAVEREC);
|
||||
enable(F_DAL);
|
||||
break;
|
||||
case 3:
|
||||
disable(DLG_SAVEREC);
|
||||
disable(F_DAL);
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
case DLG_SAVEREC:
|
||||
{
|
||||
// Salvo le informazioni nel cliente:
|
||||
TRectype cli = cache().get(LF_CFVEN, TString("C|")<< get_int(F_CODCLI));
|
||||
if(!cli.get("VSNRPROT").empty() && TDate(get(F_DAL)) <= TDate(TODAY))
|
||||
@ -93,141 +111,141 @@ bool TLetint_mask::on_field_event(TOperable_field& o, TField_event e, long jolly
|
||||
cli.put("VSDATAREG", get_date(F_VSDATA));
|
||||
cli.put("NSNPROT", get_int(F_NUMPROT));
|
||||
cli.put("NSDATAREG", get_date(F_DATAREG));
|
||||
cli.rewrite(TLocalisamfile(LF_CFVEN));
|
||||
break;
|
||||
}
|
||||
}
|
||||
default:
|
||||
break;
|
||||
}
|
||||
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")
|
||||
{
|
||||
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_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_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);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
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;
|
||||
}
|
||||
cli.rewrite(TLocalisamfile(LF_CFVEN));
|
||||
break;
|
||||
}
|
||||
}
|
||||
default:
|
||||
break;
|
||||
}
|
||||
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")
|
||||
{
|
||||
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_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_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);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
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;
|
||||
}
|
||||
|
||||
@ -224,6 +224,8 @@ BEGIN
|
||||
MESSAGE ENABLE,F_IMPORTO|CLEAR,1@
|
||||
ITEM "2|A concorrenza"
|
||||
MESSAGE ENABLE,F_IMPORTO|CLEAR,1@
|
||||
ITEM "3|Nel periodo"
|
||||
MESSAGE ENABLE,1@|CLEAR,F_IMPORTO
|
||||
FIELD TIPOOP
|
||||
END
|
||||
|
||||
@ -248,6 +250,14 @@ BEGIN
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_AL
|
||||
BEGIN
|
||||
PROMPT 42 18 "Data fine periodo "
|
||||
FIELD AL
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPATO
|
||||
BEGIN
|
||||
PROMPT 2 20 ""
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user