root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/ce/ce1200.cpp
alex 3a17a5a00e Patch level : XX.218 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Riportata la versione AGA patch 218 sul main trunk


git-svn-id: svn://10.65.10.50/trunk@10087 c028cbd2-c16b-5b4b-a496-9718f37d4682
2002-02-26 16:20:19 +00:00

533 lines
18 KiB
C++
Executable File
Raw Blame History

#include <defmask.h>
#include <recarray.h>
#include <relapp.h>
#include <sheet.h>
#include <utility.h>
#include "ce1.h"
#include "ce2101.h"
#include "celib.h"
#include "ce1201a.h"
#include "../cg/cglib01.h"
#include "movce.h"
#include "cespi.h"
#include "salce.h"
#include "ammce.h"
#include "movam.h"
#include "ammmv.h"
//-----------------------------------------------------------------------------------------------------------------------//
///////////////////////////////////////////////////////////
// Maschera di selezione
///////////////////////////////////////////////////////////
class TForce_mov_qmask : public TAutomask
{
int _staat, _ammoelim;
real _residuof, _residuoc, _difff, _diffc;
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
void on_search_event(TOperable_field& o);
int calcola_stato_attivita();
int calcola_ammo_eliminate();
public:
int stato_attivita() const { return _staat; }
int ammo_eliminate() const { return _ammoelim; }
real get_residuof() const { return _residuof; }
real get_residuoc() const { return _residuoc; }
real get_plusminusf() const { return _difff; }
real get_plusminusc() const { return _diffc; }
void calc_res_mov(TCespite& ces, const TRectype& movce, TRectype& ammmv);
TForce_mov_qmask();
};
int TForce_mov_qmask::calcola_stato_attivita()
{
const int ese = get_int(F_ESERCIZIO);
const int gru = get_int(F_GRUPPO);
const char* spe = get(F_SPECIE);
TString16 str;
str.format("%04d%02d%-4s", ese, gru, spe);
const TRectype& curr_ccb = cache().get("CCB", str);
if (curr_ccb.get_bool("B1")) // Bollato stampato
_staat = 1;
TDitta_cespiti& dc = ditta_cespiti();
dc.set_attivita(ese, gru, spe);
return _staat;
}
int TForce_mov_qmask::calcola_ammo_eliminate()
{
const int ese = get_int(F_ESERCIZIO);
TString16 str;
str.format("%04d", ese);
const TRectype& curr_cce = cache().get("CCE", str);
if (curr_cce.get_bool("B3")) //possibilitá ammortamenti su parti eliminate (si prosegue solo se TRUE)
_ammoelim = 1;
return _ammoelim;
}
void TForce_mov_qmask::calc_res_mov(TCespite& ces, const TRectype& movce, TRectype& ammmv)
{
// calcolo ammortamento sul cespite (per sit. fiscale(tpamm=1) o civilistica(tpamm=2))
const TDate dtmov = movce.get_date(MOVCE_DTMOV);
const int tpamm = ammmv.get_int(AMMMV_TPAMM);
ces.calc_amm(tpamm, dtmov);
TLocalisamfile f_ammmv (LF_AMMMV);
ammmv.read(f_ammmv); //il record di movam si rilegge in versione aggiornata dal calc_amm
const real impven = movce.get_real(MOVCE_IMPVEN);
real plus = ammmv.get_real(AMMMV_PLUS);
if (plus == ZERO)
plus = - ammmv.get_real(AMMMV_MINUS);
const real residuo = impven - plus;
// determinazione del residuo fiscale
if (tpamm == 1)
{
_residuof = residuo;
_difff = plus;
}
// determinazione del residuo civilistico
if (tpamm == 2)
{
_residuoc = residuo;
_diffc = plus;
}
}
bool TForce_mov_qmask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
{
case F_ESERCIZIO:
if (e == fe_close)
{
calcola_stato_attivita();
calcola_ammo_eliminate();
if (_ammoelim != 1)
return error_box("Non previsti ammortamenti sulle parti eliminate");
}
break;
case F_IDCESPITE:
if (e == fe_init || e == fe_modify) //seleziona il filtro da applicare alla maschera nel campo del movimento
{
const TString& ces = get(F_IDCESPITE);
const bool cesok = !real::is_null(ces);
TString filter;
filter << "(IDRET=\"\")&&(ANSI(DTMOV)>=ANSI(#" << F_INIZIO_ES
<< "))&&(ANSI(DTMOV)<=ANSI(#" << F_FINE_ES << "))";
if (cesok) // se viene selezionato un particolare cespite al filtro si aggiunge il suo codice
filter << "&&(IDCESPITE==\"" << ces << "\")";
TEdit_field& m = efield(F_IDMOV); // setta il filtro della ricerca sulla maschera
m.browse()->set_filter(filter);
}
if (e == fe_close)
{
if (stato_attivita() == 1)
warning_box("E' stato stampato il bollato dell'anno:\nnon sono permesse forzature");
if (ammo_eliminate() == 0)
warning_box("Non é previsto l'ammortamento sulle parti eliminate nell'esercizio selezionato");
}
break;
case F_IDMOV:
if (e == fe_close)
{
const TRectype& curr_movce = cache().get(LF_MOVCE, get(F_IDMOV)); //seleziona il cespite corrente in base al movimento
const TString16 idcespite = curr_movce.get(MOVCE_IDCESPITE); //selezionato nella maschera (qsto x poter lasciare idcespite vuoto)
TLocalisamfile salce(LF_SALCE); // controlla che esista il saldo iniziale nell'anno selezionato
salce.put(SALCE_IDCESPITE, idcespite);
salce.put(SALCE_CODES, get(F_ESERCIZIO));
salce.put(SALCE_TPSALDO, 1);
if (salce.read() != NOERR)
return error_box("Non esistono saldi per l'anno selezionato");
TLocalisamfile ammce(LF_AMMCE); // controlla che esista l'ammortamento iniziale nell'anno selezionato
ammce.put(AMMCE_IDCESPITE, idcespite);
ammce.put(AMMCE_CODES, get(F_ESERCIZIO));
ammce.put(AMMCE_TPSALDO, 1);
ammce.put(AMMCE_TPAMM, 1);
if (ammce.read() != NOERR)
return error_box("Non esistono ammortamenti per l'anno selezionato");
TCespite ces (idcespite); // controlla che la categoria del cespite sia ammortizzabile
const TRectype& categoria = ces.categoria();
bool non_ammortizzabile = categoria.get_bool("B0");
if (non_ammortizzabile)
return error_box("Ammortamenti non effettuabili perché la categoria del cespite non é ammortizzabile");
if (!curr_movce.empty())
{
const TRectype& curr_tmc = cache().get("%TMC", curr_movce.get(MOVCE_CODMOV));
if (!curr_tmc.get_bool("B4")) // non ammessi ammortamenti sul tipomov selezionato
return error_box("Non sono ammessi ammortamenti su questo tipo movimento");
if (!curr_tmc.get_int("I0") == 1) // non ammessi ammortamenti su movimenti di rettifica
return error_box("Non sono ammessi ammortamenti sulle rettifiche");
const TDate dtmov = curr_movce.get_date(MOVCE_DTMOV); // controlla che datamovimento sia inclusa nell'esercizio selezionato
const TDate dataini = get(F_INIZIO_ES);
const TDate datafine = get(F_FINE_ES);
if ( dtmov < dataini || dtmov > datafine)
return error_box("Il movimento selezionato non é di competenza dell'esercizio selezionato");
}
TLocalisamfile movam(LF_MOVAM); // controlla la consistenza dei movimenti fondi sui movimenti
movam.put(MOVAM_IDCESPITE, idcespite);
movam.put(MOVAM_IDMOV, get(F_IDMOV));
movam.put(MOVAM_TPAMM, 1);
if (movam.read() != NOERR)
return error_box("Movimenti dei fondi fiscali incoerenti per il movimento selezionato");
TRectype movam1 = movam.curr();
movam.put(MOVAM_IDCESPITE, idcespite);
movam.put(MOVAM_IDMOV, get(F_IDMOV));
movam.put(MOVAM_TPAMM, 2);
if (movam.read() != NOERR)
return error_box("Movimenti dei fondi civilistici incoerenti per il movimento selezionato");
TRectype movam2 = movam.curr();
TLocalisamfile ammmv(LF_AMMMV); // controlla la consistenza degli ammortamenti sui movimenti
ammmv.put(AMMMV_IDCESPITE, idcespite);
ammmv.put(AMMMV_IDMOV, get(F_IDMOV));
ammmv.put(AMMMV_TPAMM, 1);
if (ammmv.read() != NOERR)
return error_box("Ammortamenti fiscali sui movimenti incoerenti per il movimento selezionato");
calc_res_mov(ces, curr_movce, ammmv.curr()); //calcolo del residuo fiscale in uscita maschera di selezione
if (_residuof==ZERO)
return error_box("Impossibile forzare ammortamento perché non esiste residuo fiscale\nda ammortizzare per le parti eliminate del cespite");
ammmv.put(AMMMV_IDCESPITE, idcespite);
ammmv.put(AMMMV_IDMOV, get(F_IDMOV));
ammmv.put(AMMMV_TPAMM, 2);
if (ammmv.read() != NOERR)
return error_box("Ammortamenti civilistici sui movimenti incoerenti per il movimento selezionato");
calc_res_mov(ces, curr_movce, ammmv.curr()); //calcolo del residuo civilistico in uscita maschera di selezione
if (_residuoc==ZERO)
return error_box("Impossibile forzare ammortamento perché non esiste residuo civilistico\nda ammortizzare per le parti eliminate del cespite");
}
break;
default:
break;
}
return TRUE;
}
TForce_mov_qmask::TForce_mov_qmask() : TAutomask("ce1201a")
{
first_focus(F_IDMOV);
}
//-----------------------------------------------------------------------------------------------------------------------//
///////////////////////////////////////////////////////////
// Maschera di forzatura
///////////////////////////////////////////////////////////
class TForce_mov_fmask : public TAutomask
{
TTipo_cespite _tipo;
int _staat;
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
void set_stato_attivita(int sa) { _staat = sa; }
int stato_attivita() const { return _staat; }
void set_tipo_cespite(TTipo_cespite tc) { _tipo = tc; }
TTipo_cespite tipo_cespite() const { return _tipo; }
TForce_mov_fmask() : TAutomask("ce1201b") { }
};
bool TForce_mov_fmask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
{
case F_FORZATURA_Q_F: //gestione reset dei vari checkbox di forzatura
if (e==fe_modify && o.get()=="X" && get(F_FORZATURA_P_F)=="X")
reset(F_FORZATURA_P_F);
break;
case F_FORZATURA_P_F:
if (e==fe_modify && o.get()=="X" && get(F_FORZATURA_Q_F)=="X")
reset(F_FORZATURA_Q_F);
break;
case F_FORZATURA_Q_C:
if (e==fe_modify && o.get()=="X" && get(F_FORZATURA_P_C)=="X")
reset(F_FORZATURA_P_C);
break;
case F_FORZATURA_P_C:
if (e==fe_modify && o.get()=="X" && get(F_FORZATURA_Q_C)=="X")
reset(F_FORZATURA_Q_C);
break;
case F_AMMNOR_F: // controlla che residuof sia < della somma dei campi quota fiscali (al variare di
case F_AMMACC_F: // ognuno dei campi quota componenti, in modo che in caso di errore il campo sia
case F_AMMANT_F: // subito identificato
case F_QUOTE_PERSE:
case F_PRIVATO:
case F_QUOTE_PRIV:
if (e==fe_close||e==fe_modify)
{
real sumf = get_real(F_AMMNOR_F)+get_real(F_AMMACC_F)+get_real(F_AMMANT_F)+get_real(F_QUOTE_PERSE)+get_real(F_PRIVATO)+get_real(F_QUOTE_PRIV);
real maxresf = get_real(F_RIS_AMMNOR_F)+get_real(F_RIS_AMMACC_F)+get_real(F_RIS_AMMANT_F)+get_real(F_RIS_QUOTE_PERSE)+get_real(F_RIS_PRIVATO)+get_real(F_RIS_QUOTE_PRIV)+get_real(F_RESIDUO_F);
if (sumf > maxresf)
return error_box("Attenzione: l'ammortamento richiesto supera il residuo fiscale delle parti eliminate");
}
break;
case F_AMMNOR_C: // controlla che residuoc sia < della somma dei campi quota civilistici
case F_AMMACC_C:
case F_AMMANT_C:
if (e==fe_close||e==fe_modify)
{
real sumc = get_real(F_AMMNOR_C)+get_real(F_AMMACC_C)+get_real(F_AMMANT_C);
real maxresc = get_real(F_RIS_AMMNOR_C)+get_real(F_RIS_AMMACC_C)+get_real(F_RIS_AMMANT_C)+get_real(F_RESIDUO_C);
if (sumc > maxresc)
return error_box("Attenzione: l'ammortamento richiesto supera il residuo civilistico delle parti eliminate");
}
break;
default:
break;
}
return TRUE;
}
//-------------------------------------------------------------------------------------------------------------------------
///////////////////////////////////////////////////////////
// Applicazione principale
///////////////////////////////////////////////////////////
class TForza_amm_movce : public TRelation_application
{
TRelation* _rel;
TForce_mov_qmask* _qmask;
TForce_mov_fmask* _fmask;
private:
void update_amm(const TMask& m);
void update_plusminus();
void init_mask(TMask& m);
protected:
//inizializzazione dati utente
virtual bool user_create();
//distruzione dati utente
virtual bool user_destroy();
virtual bool changing_mask(int mode) { return TRUE; }
//richiede la maschera da usare
virtual TMask* get_mask(int mode);
//ritorna la relazione da modificare
virtual TRelation* get_relation() const { return _rel; }
virtual void init_query_mode(TMask& m);
virtual void init_insert_mode(TMask& m);
virtual void init_modify_mode(TMask& m);
virtual int write(const TMask& m);
virtual int rewrite(const TMask& m);
public:
TForza_amm_movce() { }
};
TMask* TForza_amm_movce::get_mask(int mode)
{
return mode == MODE_QUERY ? (TMask*)_qmask : (TMask*)_fmask;
}
void TForza_amm_movce::init_mask(TMask& m) //funzione per settare i dati ditta in ingresso
{
const int ese = _qmask->get_int(F_ESERCIZIO);
const int gru = _qmask->get_int(F_GRUPPO);
const char* spe = _qmask->get(F_SPECIE);
TDitta_cespiti& dc = ditta_cespiti();
dc.set_attivita(ese, gru, spe);
dc.init_mask(m);
const bool can_edit = !dc.bollato_stampato();
m.enable(DLG_SAVEREC, can_edit);
m.enable(DLG_DELREC, can_edit);
_fmask->set_stato_attivita(_qmask->stato_attivita()); //copia lo stato attivitá della precedente
TCespite ces(_fmask->get(F_IDCESPITE));
const TRectype& movce = get_relation()->curr();
TRectype ammmv1 = get_relation()->curr(-69);
_qmask->calc_res_mov(ces, movce, ammmv1); // ricalcola il residuo fiscale in forzatura
_fmask->set(F_RESIDUO_F, _qmask->get_residuof()); //prende il residuo fiscale del cespite calcolato in Qmask e lo mette in Fmask
_fmask->set(F_PLUSMINUS_F, _qmask->get_plusminusf());
TRectype ammmv2 = get_relation()->curr(-77);
_qmask->calc_res_mov(ces, movce, ammmv2); // ricalcola il residuo civilistico in forzatura
_fmask->set(F_RESIDUO_C, _qmask->get_residuoc()); //prende il residuo civilistico del cespite calcolato in Qmask e lo mette in Fmask
_fmask->set(F_PLUSMINUS_C, _qmask->get_plusminusc());
}
void TForza_amm_movce::init_query_mode(TMask& m)
{
ditta_cespiti().init_mask(m);
}
void TForza_amm_movce::init_insert_mode(TMask& m)
{
init_mask(m);
}
void TForza_amm_movce::init_modify_mode(TMask& m)
{
init_mask(m);
const bool accendiforzatura=_fmask->stato_attivita()!=1;
m.enable(F_FORZATURA_Q_F, accendiforzatura); //abilita i checks della forzatura quando il bollato NON é stampato
m.enable(F_FORZATURA_P_F, accendiforzatura);
m.enable(F_FORZATURA_Q_C, accendiforzatura);
m.enable(F_FORZATURA_P_C, accendiforzatura);
if (accendiforzatura) //se lo stato attivitá lascia liberi di forzare, controlla se il tipocespite fa altrettanto...
{
TCespite ces(m.get(F_IDCESPITE));
const TRectype& cac = ces.categoria();
switch (ces.tipo())
{
case tc_immateriale: //controllo sull'immaterialitá del cespite....
if (cac.get_int("I1")!=0)
{
m.disable(F_FORZATURA_P_F);
m.disable(F_FORZATURA_P_C);
}
break;
case tc_pluriennale: //...e quindi sulla pluriennalitá
if (cac.get_int("I2")==3)
{
m.disable(F_FORZATURA_P_F);
m.disable(F_FORZATURA_P_C);
}
break;
default:
break;
}
}
// aggiornamento della colonna dei valori risultanti
m.set(F_RIS_AMMNOR_F, m.get_real(F_AMMNOR_F));
m.set(F_RIS_AMMACC_F, m.get_real(F_AMMACC_F));
m.set(F_RIS_AMMANT_F, m.get_real(F_AMMANT_F));
m.set(F_RIS_QUOTE_PERSE, m.get_real(F_QUOTE_PERSE));
m.set(F_RIS_PRIVATO, m.get_real(F_PRIVATO));
m.set(F_RIS_QUOTE_PRIV, m.get_real(F_QUOTE_PRIV));
m.set(F_RIS_AMMNOR_C, m.get_real(F_AMMNOR_C));
m.set(F_RIS_AMMACC_C, m.get_real(F_AMMACC_C));
m.set(F_RIS_AMMANT_C, m.get_real(F_AMMANT_C));
}
// funzione per il ricalcolo degli ammortamenti dopo la forzatura
void TForza_amm_movce::update_amm(const TMask& m)
{
const TString16 idces = m.get(F_IDCESPITE);
TCespite ces(idces);
TDate dtmov = m.get_date(F_DTMOV);
ces.calc_amm(1, dtmov);
ces.calc_amm(2, dtmov);
}
//funzione per l'aggiornamento dei campi plus-minusvalenza sul file AMMMV
void TForza_amm_movce::update_plusminus()
{
TRectype& amm1 = _rel->curr(-69);
TRectype& amm2 = _rel->curr(-77);
const real& difff = _qmask->get_plusminusf();
amm1.put(AMMMV_MINUS, difff<ZERO ? -difff : ZERO);
amm1.put(AMMMV_PLUS, difff>ZERO ? difff : ZERO);
const real& diffc = _qmask->get_plusminusc();
amm2.put(AMMMV_MINUS, diffc<ZERO ? -diffc : ZERO);
amm2.put(AMMMV_PLUS, diffc>ZERO ? diffc : ZERO);
}
//funzione per il ricalcolo automatico dei valori degli ammortamenti dopo la forzatura (in caso di prima forzatura)
int TForza_amm_movce::write(const TMask& m)
{
update_plusminus();
int err = TRelation_application::write(m);
if (err==NOERR)
update_amm(m);
return err;
}
//funzione per il ricalcolo automatico dei valori degli ammortamenti dopo la forzatura
int TForza_amm_movce::rewrite(const TMask& m)
{
update_plusminus();
int err = TRelation_application::rewrite(m);
if (err==NOERR)
update_amm(m);
return err;
}
bool TForza_amm_movce::user_create()
{
open_files(LF_TAB, LF_TABCOM, LF_CESPI, LF_AMMCE, LF_MOVCE, LF_MOVAM, LF_AMMMV, LF_SALCE, 0);
_rel = new TRelation(LF_MOVCE); // relazione principale su MOVCE
TString expr69;
expr69 << "IDCESPITE==IDCESPITE|IDMOV==IDMOV|TPAMM==1";
_rel->add(LF_AMMMV, expr69, 1, 0, 69); // prima relazione su AMMMV (alias 69): TPAMM=1
_rel->write_enable(-69);
_rel->add(LF_MOVAM, expr69, 1, 0, 691); // prima relazione su MOVAM (alias 691): TPAMM=1
TString expr77;
expr77 << "IDCESPITE==IDCESPITE|IDMOV==IDMOV|TPAMM==2";
_rel->add(LF_AMMMV, expr77, 1, 0, 77); // seconda relazione su AMMMV (alias 77): TPAMM=2
_rel->write_enable(-77);
_rel->add(LF_MOVAM, expr77, 1, 0, 771); // seconda relazione su MOVAM (alias 771): TPAMM=2
_qmask = new TForce_mov_qmask;
_fmask = new TForce_mov_fmask;
return TRUE;
}
bool TForza_amm_movce::user_destroy()
{
delete _fmask;
delete _qmask;
delete _rel;
return TRUE;
}
int ce1200(int argc, char* argv[])
{
TForza_amm_movce fm;
fm.run(argc, argv, "Forzatura ammortamento sui movimenti");
return 0;
}
Reference in New Issue View Git Blame Copy Permalink