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

Patch level : 10.0 290

Browse Source 
Files correlati     :  
Commento            :

Gestione crediti compensabili


git-svn-id: svn://10.65.10.50/branches/R_10_00@23371 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
bonazzi 2016-10-11 06:39:49 +00:00
parent 3bb4c78df4
commit 3cb8c51173
11 changed files with 2176 additions and 2144 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/cg/cg4300.cpp
View File

@ -882,13 +882,9 @@ bool TLiquidazione_app::set_liquidazione()
m.set_handler(CG43_BUT_ANN, reset_button);
m.set_handler(CG43_CHK_FINAL, chk_final_handler);
m.set(CG43_FLD_ANNO, _year);
// stampa abilitata per default
m.set(CG43_CHK_STAMPA,"X");
_month = m.get_int(CG43_LST_MESE);
m.set(CG43_FLD_ANNO, _year);
m.set(CG43_LST_MESE, _month);
m.set(CG43_CHK_STAMPA,"X"); // stampa abilitata per default
m.set(CG43_RDB_VERS, _what);
const KEY k = m.run();

4
src/cg/cg4300a.uml
View File

@ -23,7 +23,7 @@ NUMBER CG43_FLD_ANNO 4
BEGIN
PROMPT 28 2 "Anno "
HELP "Anno per cui effettuare il calcolo"
FLAGS "Z"
FLAGS "P"
CHECKTYPE REQUIRED
END
@ -32,7 +32,7 @@ BEGIN
PROMPT 28 3 "Periodo "
HELP "Mese per cui effettuare il calcolo liquidazione"
ITEM "13|13a liquid."
FLAGS "AM"
FLAGS "MP"
END
LIST CG43_LST_TRIM 15

49
src/cg/cg4301.cpp
View File

@ -3534,6 +3534,7 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
const TRectype & lia = get_lia();
const bool credito_compensabile = (lia.get("S9") == "CM");
const bool gestione_manuale_credito_compensabile = lia.get_bool("B6");
real risultato = ZERO;
@ -3595,13 +3596,11 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
real credito_utilizzabile_inizio_anno = ZERO;
real credito_utilizzato_inizio_anno = ZERO;
real credito_utilizzato_iva = ZERO;
if (credito_compensabile)
{
credito_utilizzato_inizio_anno = lia.get_real("R15");
credito_utilizzabile_inizio_anno = lia.get_real("R0") - credito_utilizzato_inizio_anno;
if (credito_utilizzabile_inizio_anno < ZERO)
credito_utilizzabile_inizio_anno = ZERO;
}
credito_utilizzato_inizio_anno = lia.get_real("R15");
credito_utilizzabile_inizio_anno = lia.get_real("R0") - credito_utilizzato_inizio_anno;
if (credito_utilizzabile_inizio_anno < ZERO)
credito_utilizzabile_inizio_anno = ZERO;
TLocalisamfile& attiv = _nditte->lfile(LF_ATTIV);
FOR_EACH_TOKEN (atts, tmpatt)
@ -3868,15 +3867,12 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
} // end ciclo su attivita'
real credito_utilizzabile = ZERO;
const bool utilizza_credito_autorizzato = lia.get_bool("B6");
real credito_autorizzato_F24;
if (month < 13) // va bene anche se differita sommando deltam (che e' 0 normalmente)
{
// toglie credito precedente
cred_prec = credito_prec(month+deltam);
risultato -= cred_prec;
res_cred += cred_prec;
cred_prec = credito_prec(month+deltam);
// vedi se c'era un debito precedente per debiti < 50.000
debt_precd = debt_prec(month+deltam);
risultato += debt_precd;
@ -3894,13 +3890,11 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
credito_utilizzabile = credito_utilizzabile_inizio_anno;
credito_utilizzabile -= credito_utilizzato(month + deltam);
if (utilizza_credito_autorizzato)
credito_utilizzabile += credito_autorizzato(month + deltam);
credito_utilizzabile += credito_autorizzato(month + deltam);
credito_utilizzabile -= cred_util_F24;
credito_autorizzato_F24 = lim.get_real("R20");
if (utilizza_credito_autorizzato)
credito_utilizzabile += credito_autorizzato_F24;
credito_utilizzabile += credito_autorizzato_F24;
// risultato += credito_autorizzato_F24;
// res_debt += credito_autorizzato_F24;
@ -3908,12 +3902,19 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
credito_utilizzabile = ZERO;
if (risul > ZERO)
{
credito_utilizzato_iva = min(risul, credito_utilizzabile);
if (gestione_manuale_credito_compensabile)
credito_utilizzato_iva = lim.get_real("R15");
else
credito_utilizzato_iva = min(risul, credito_utilizzabile);
res_cred += credito_utilizzato_iva;
risultato -= credito_utilizzato_iva;
}
}
else
{
risultato -= cred_prec;
res_cred += cred_prec;
}
}
else
{
@ -4244,7 +4245,12 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
round_imposta(fdiff_iva_acq);
round_imposta(fdiffinc_iva_acq);
res_cred = iva_acq + versamenti + vers_int + cred_prec - cred_trasf + acc_dec + credito_utilizzato_iva + crediti_speciali + fdiffinc_iva_acq;
res_cred = iva_acq + versamenti + vers_int - cred_trasf + acc_dec + crediti_speciali + fdiffinc_iva_acq;
if (credito_compensabile && credito_utilizzabile_inizio_anno > ZERO &&
(_freqviva == "M" || is_trim(month + deltam)))
res_cred += credito_utilizzato_iva;
else
res_cred += cred_prec;
res_debt = iva_vend + rimborsi + debt_precd + imposta_non_versata + fdiffinc_iva + credito_autorizzato_F24;
/* Obsolescenza pura nel 2014
@ -4294,7 +4300,12 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
real ivi = lim.get("R14"); round_imposta(ivi);
lim.put("R14", ivi);
lim.put("R15", credito_utilizzato_iva);
const TRectype & lia = get_lia();
const bool gestione_manuale_credito_compensabile = lia.get_bool("B6");
if (!gestione_manuale_credito_compensabile)
lim.put("R15", credito_utilizzato_iva);
if (month == 13)
{

7
src/cg/cg4302.cpp
View File

@ -871,12 +871,7 @@ real TLiquidazione_app::credito_prec(int month)
const bool credito_compensabile = (lia.get("S9") == "CM");
c = lia.get_real("R0");
if (credito_compensabile)
{
const real cred_util = lia.get_real("R15");
c -= cred_util;
}
c -= lia.get_real("R15");
if (c < ZERO)
c = ZERO;
}

8
src/cg/cg4304.cpp
View File

@ -2526,7 +2526,6 @@ void TLiquidazione_app::set_grand_2000(_DescrItem& d, int &rw)
if (rettifiche < ZERO) rett_cred =-rettifiche;
const TRectype & lia = get_lia();
const bool utilizza_credito_autorizzato = lia.get_bool("B6");
const bool credito_compensabile = lia.get("S9") == "CM";
@ -2566,14 +2565,16 @@ void TLiquidazione_app::set_grand_2000(_DescrItem& d, int &rw)
print_importo(rw++, TR("Variazioni d'imposta"), variazioni_imposta, _is_visliq);
print_importo(rw++, TR("Imposta non versata"), imposta_non_versata, _is_visliq);
real cre_deb_per;
if (debt_prec > ZERO)
{
set_row(rw++,FR("@11gDebito da liquidazione precedente@75g%r"), &debt_prec);
set_row(rw++,FR("%s@11gRimborsi%s@75g%r"), _is_visliq ? "$[r]" : "", _is_visliq ? "$[n]" : "", &rimborso);
}
else
{
cre_deb_per = risultato + crediti_speciali + acc_dec + vers_int;
if (cred_prec > ZERO)
set_row(rw++,FR("@11gCredito da liquidazione precedente@58g%r"), &cred_prec);
@ -2587,10 +2588,9 @@ void TLiquidazione_app::set_grand_2000(_DescrItem& d, int &rw)
if (cred_prec > ZERO)
set_row(rw++,FR("@11gCredito utilizzabile@58g%r"), &cred_prec);
if (_month < 13)
set_row(rw++, FR("@11gCredito IVA compensabile detratto@58g%r"), &credito_utilizzato_IVA);
set_row(rw++, FR("@11gCredito IVA compensabile detratto@75g%r"), &credito_utilizzato_IVA);
}
real cre_deb_per = risultato + crediti_speciali + acc_dec + vers_int;
if (_month == 13) cre_deb_per += versamenti;
print_importo(rw++, TR("IVA dovuta o a credito per il periodo"), cre_deb_per);

2
src/cg/cg5300a.h
View File

@ -16,7 +16,7 @@
#define F_GESIC 216
#define F_ICDAL 217
#define F_ICAL 218
#define F_UTILAUT 219
#define F_GESMANCRED 219
#define F_ROUNDLIQ 221
#define F_ROUNDDIC 222

10
src/cg/cg5300a.uml
View File

@ -112,6 +112,12 @@ BEGIN
MODULE IC
END
BOOLEAN F_GESMANCRED
BEGIN
PROMPT 4 8 "Gestione manuale del credito compensabile in IVA"
FIELD B6
END
DATA F_ICDAL
BEGIN
PROMPT 40 7 "Dal "
@ -146,9 +152,9 @@ LISTBOX F_UTCR_IVA 2 34
BEGIN
PROMPT 4 12 "Utilizzo credito IVA "
ITEM " |Utilizzato solo in IVA"
MESSAGE CLEAR,F_CRED_RES
MESSAGE CLEAR,F_GESMANCRED
ITEM "CM|Compensabile con altre imposte"
MESSAGE ENABLE,F_CRED_RES
MESSAGE ENABLE,F_GESMANCRED
FIELD S9
END

43
src/cg/cg5500.cpp
View File

@ -414,9 +414,7 @@ bool Visliq_app::sel_mese_sh1 (TMask_field& f, KEY k)
{
if (sm.is_running()) sm.stop_run(K_ENTER);
app().vis_one(month);
const bool compensabile = app()._lia->get("S9") == "CM";
if (compensabile)
app().read_general(m);
app().read_general(m);
}
app().set_liq_rows(sh);
@ -464,7 +462,7 @@ bool Visliq_app::enable_date(TMask_field& f, KEY k)
bool Visliq_app::check_date(TMask_field& f, KEY k)
{
if (k == K_TAB && (f.focusdirty()|| !f.mask().is_running()))
if (k == K_TAB && f.dirty())
{
const TDate d(f.get());
const int row = f.mask().get_sheet()->selected();
@ -605,21 +603,16 @@ bool Visliq_app::vis_all()
TMask& shm = sh.sheet_mask();
if (compensabile)
for (int id = 103; shm.id2pos(id) > 0; id++)
{
/*
TMask_field& f = shm.field(id);
{
const bool gestione_manuale = _lia->get_bool("B6");
sh.enable_column(107, gestione_manuale);
if ((f.in_group(11) && true) || (f.in_group(12) && !true))
{
f.hide();
sh.delete_column(id);
}
*/
if ((id >= 107 && id <= 110) || id == 112)
for (int id = 108; shm.id2pos(id) > 0; id++)
{
if ((id > 107 && id <= 110) || id == 112)
sh.enable_column(id, true);
}
}
// fill the mask in
read_general(*_mask);
@ -1039,8 +1032,8 @@ void Visliq_app::recalc_liq_data(TViswin* vsw, real& rimb, real& rett, real& ver
real credito_utilizzato_iva = ZERO;
const bool compensabile = _lia->get("S9") == "CM";
const bool gestione_manuale_credito_compensabile = _lia->get_bool("B6");
// if ((_year >= 2000) && look_lia() && compensabile)
if (look_lia() && compensabile)
{
real credito_utilizzabile_inizio_anno = _lia->get_real("R0") - _lia->get_real("R15");
@ -1056,7 +1049,12 @@ void Visliq_app::recalc_liq_data(TViswin* vsw, real& rimb, real& rett, real& ver
credito_utilizzabile -= credito_utilizzato(year, month);
if (credito_utilizzabile < ZERO) credito_utilizzabile = ZERO;
if (month < 13)
credito_utilizzato_iva = min(risul, credito_utilizzabile);
{
if (gestione_manuale_credito_compensabile)
credito_utilizzato_iva = cui;
else
credito_utilizzato_iva = min(risul, credito_utilizzabile);
}
else
credito_utilizzato_iva = credito_utilizzabile;
round_imposta(credito_utilizzato_iva);
@ -1097,7 +1095,8 @@ void Visliq_app::recalc_liq_data(TViswin* vsw, real& rimb, real& rett, real& ver
_lim->put("R12", riscr);
_lim->put("R13", risdb);
_lim->put("R14", intr);
_lim->put("R15", credito_utilizzato_iva);
if (!gestione_manuale_credito_compensabile)
_lim->put("R15", credito_utilizzato_iva);
_lim->put("R16", credito_utilizzato_F24);
_lim->put("R17", varimp);
@ -1726,6 +1725,7 @@ void Visliq_app::write_general(TMask& m)
TSheet_field& sh = m.sfield(F_VISLIQ1);
TSheet_field& sv = m.sfield(F_VISLIQ2);
const bool compensabile = _lia->get("S9") == "CM";
const bool gestione_manuale = _lia->get_bool("B6");
real rstart = m.get_real(F_CREDPREC);
real rutil = m.get_real(F_CREDUTILIN);
@ -1785,6 +1785,7 @@ void Visliq_app::write_general(TMask& m)
real nrimb(tt_ln.get(3));
real overs(tt_vo.get(5));
real nvers(tt_vn.get(5));
real crcode(tt_ln.get(6));
real crf24(tt_ln.get(7));
real autf24(tt_ln.get(8));
TDate dautf24(tt_ln.get(9));
@ -1973,13 +1974,15 @@ void Visliq_app::write_general(TMask& m)
_lim->put("R12", risc);
_lim->put("R13", risd);
if (intt.sign() > 0) // interessi
if (intt > ZERO) // interessi
{
real intr = risl * intt / real(100.0);
if (_year >= 2000)
round_imposta(intr);
_lim->put("R14",intr);
}
if (gestione_manuale)
_lim->put("R15", crcode);
_lim->put("R16", crf24);
_lim->put("R20", autf24);

5
src/cg/cg5500b.uml
View File

@ -56,7 +56,7 @@ END
CURRENCY F_CREDUTILIN 15
BEGIN
PROMPT 1 6 "Credito utilizzato a inizio anno "
PROMPT 1 6 "Credito utilizzato a Gennaio "
END
SPREADSHEET F_VISLIQ1 -2 -1
@ -97,7 +97,7 @@ BEGIN
FLAGS "D"
END
SPREADSHEET F_VISLIQ2 76
SPREADSHEET F_VISLIQ2 -2 -1
BEGIN
PROMPT 1 5 "Versamenti"
ITEM "Mese@15"
@ -106,7 +106,6 @@ BEGIN
ITEM "CAB@5"
ITEM "Conc.@5"
ITEM "Versamenti@15"
// ITEM "D/C"
END
ENDPAGE

36
src/cg/cg5500c.uml
View File

@ -31,7 +31,7 @@ END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 2 "Codice ditta "
PROMPT 2 2 "Codice "
FLAGS "FRD"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
@ -41,16 +41,21 @@ END
STRING F_RAGSOC 50
BEGIN
PROMPT 22 2 ""
PROMPT 16 2 ""
FLAGS "D"
END
CURRENCY F_CREDPREC 15
BEGIN
PROMPT 1 4 "Credito compensabile inizio anno "
PROMPT 1 5 "Credito inizio anno "
END
SPREADSHEET F_VISLIQ1 78 5
CURRENCY F_CREDUTILIN 15
BEGIN
PROMPT 1 6 "Credito utilizzato a Gennaio "
END
SSPREADSHEET F_VISLIQ1 -2 5
BEGIN
PROMPT 1 7 "Liquidazione"
ITEM "Mese@10"
@ -61,11 +66,13 @@ BEGIN
ITEM "D/C@3"
ITEM "Credito\nutilizzato IVA@15"
ITEM "Credito\nutilizzato F24@15"
ITEM "Credito anno in corso\nautorizzato F24@20"
ITEM "Data autorizzazione@20"
ITEM "Credito IVA\nresiduo@15"
ITEM "Descrizione@35"
END
SPREADSHEET F_VISLIQ2 78 5
SPREADSHEET F_VISLIQ2 -2 5
BEGIN
PROMPT 1 13 "Versamenti"
ITEM "Mese@10"
@ -74,7 +81,6 @@ BEGIN
ITEM "CAB@5"
ITEM "Conc.@5"
ITEM "Versamenti@15"
// ITEM "D/C"
END
ENDPAGE
@ -139,13 +145,29 @@ BEGIN
END
CURRENCY 109 15
BEGIN
PROMPT 1 7 "Credito autorizzato F24 anno in corso "
GROUP 12
FLAGS "D"
END
DATE 110
BEGIN
PROMPT 1 8 "Data di autorizzazione "
GROUP 12
CHECTYPE REQUIRED
WARNING "La data è obbligatoria"
FLAGS "D"
END
CURRENCY 111 15
BEGIN
PROMPT 1 5 "Credito IVA residuo "
FLAGS "D"
GROUP 12
END
STRING 110 50 35
STRING 112 50 35
BEGIN
PROMPT 1 6 "Descr. "
GROUP 12

40
src/cg/cg5500d.uml
View File

@ -60,7 +60,7 @@ BEGIN
ITEM "13|Annuale"
END
BROWSEFILE F_VISFLQ -3 12
BROWSEFILE F_VISFLQ -3 14
BEGIN
PROMPT 0 4 ""
END
@ -69,7 +69,7 @@ END
CURRENCY F_RIMBORSO 15
BEGIN
PROMPT 2 17 "Rimborsi : "
PROMPT 2 21 "Rimborsi : "
GROUP 1
FLAGS "H"
END
@ -78,14 +78,14 @@ END
CURRENCY F_RETTIFICA 15
BEGIN
PROMPT 2 17 "Importo rettif. "
PROMPT 2 21 "Importo rettif. "
GROUP 2
FLAGS "H"
END
LIST F_DEBCRE 7
BEGIN
PROMPT 35 17 " a "
PROMPT 35 21 " a "
GROUP 2
ITEM "D|Debito"
ITEM "C|Credito"
@ -94,14 +94,14 @@ END
STRING F_DESCR1 60
BEGIN
PROMPT 2 18 "Descrizione "
PROMPT 2 22 "Descrizione "
GROUP 2
FLAGS "H"
END
STRING F_DESCR2 60
BEGIN
PROMPT 2 19 " "
PROMPT 2 23 " "
GROUP 2
FLAGS "H"
END
@ -120,21 +120,21 @@ END
DATE F_DELDATE
BEGIN
PROMPT 3 17 "Data "
PROMPT 3 21 "Data "
GROUP 4
FLAGS "H"
END
CURRENCY F_DELIMP 15
BEGIN
PROMPT 26 17 "Importo versato "
PROMPT 26 21 "Importo versato "
GROUP 4
FLAGS "RH"
END
NUMBER F_DELABI 5
BEGIN
PROMPT 3 18 "Codice ABI "
PROMPT 3 22 "Codice ABI "
HELP "Codice ABI banca di appoggio"
FIELD S7
FLAGS "RZH"
@ -154,7 +154,7 @@ END
NUMBER F_DELCAB 5
BEGIN
PROMPT 26 18 "Codice CAB "
PROMPT 26 22 "Codice CAB "
HELP "Codice CAB banca di appoggio"
FIELD S8
FLAGS "RZH"
@ -176,7 +176,7 @@ END
NUMBER F_DELCON 3
BEGIN
PROMPT 51 18 "Concessione "
PROMPT 51 22 "Concessione "
HELP "Codice Concessione del Comune di residenza fiscale"
FLAGS "RZH"
USE %UCC
@ -193,7 +193,7 @@ END
STRING F_DESCR3 60
BEGIN
PROMPT 2 18 "Descrizione "
PROMPT 2 23 "Descrizione "
GROUP 5
FLAGS "H"
END
@ -202,7 +202,7 @@ END
CURRENCY F_VARIMP 15
BEGIN
PROMPT 2 17 "Variazioni d'imposta "
PROMPT 2 21 "Variazioni d'imposta "
PICTURE "."
GROUP 6
FLAGS "H"
@ -210,7 +210,7 @@ END
LIST F_VARIMP_DC 7
BEGIN
PROMPT 40 17 "a "
PROMPT 40 21 "a "
GROUP 6
ITEM "D|Debito"
ITEM "C|Credito"
@ -221,7 +221,7 @@ END
CURRENCY F_IMPNONVER 15
BEGIN
PROMPT 2 17 "Imposta non versata "
PROMPT 2 21 "Imposta non versata "
PICTURE "."
GROUP 7
FLAGS "H"
@ -231,7 +231,7 @@ END
CURRENCY F_CREDSPEC 15
BEGIN
PROMPT 2 17 "Crediti speciali : "
PROMPT 2 21 "Crediti speciali : "
GROUP 8
FLAGS "H"
PICTURE "."
@ -241,7 +241,7 @@ END
CURRENCY F_CREDUTIL 15
BEGIN
PROMPT 2 17 "Credito IVA compensabile detratto in F24 : "
PROMPT 2 21 "Credito IVA compensabile detratto in F24 : "
GROUP 9
FLAGS "H"
PICTURE "."
@ -251,7 +251,7 @@ END
CURRENCY F_CREDAUT 15
BEGIN
PROMPT 2 17 "Credito IVA autorizzato in F24 : "
PROMPT 2 21 "Credito IVA autorizzato in F24 : "
GROUP 10
FLAGS "H"
PICTURE "."
@ -259,14 +259,14 @@ END
DATE F_DATAAUT
BEGIN
PROMPT 50 17 "il "
PROMPT 50 21 "il "
GROUP 10
FLAGS "H"
END
STRING F_DESCR4 60
BEGIN
PROMPT 2 18 "Descrizione "
PROMPT 2 22 "Descrizione "
GROUP 10
FLAGS "H"
END