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

Sistemato calcolo dell' IVA

Browse Source 
(modificato il significato di TOTDOC)
(eliminato IMPONIBILE su documenti)
(eliminata IMPOSTA su documenti e righe)


git-svn-id: svn://10.65.10.50/trunk@4158 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-02-24 13:20:27 +00:00
parent 3847c7c331
commit 9e1cd3b496
3 changed files with 157 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ve/batbfrd.uml
View File

@ -58,7 +58,7 @@ STRING F_FORMULA 70 50
BEGIN BEGIN
PROMPT 2 11 "Formula " PROMPT 2 11 "Formula "
FIELD S1 FIELD S1
CHECKTYPE REQUIRED // CHECKTYPE REQUIRED
WARNING "La formula e' obbligatoria" WARNING "La formula e' obbligatoria"
FLAG "U" FLAG "U"
END END

229
ve/velib01.cpp
View File

@ -247,7 +247,7 @@ HIDDEN real curr_fc(1.0);
HIDDEN bool iva_handler( TMask_field& f, KEY key ) HIDDEN bool iva_handler( TMask_field& f, KEY key )
{ {
if (key == 0 || key == K_ENTER) if (key == 0 || (key == K_ENTER && f.get().empty()))
{ {
TDocumento_mask & mask = (TDocumento_mask &) f.mask().get_sheet()->mask(); TDocumento_mask & mask = (TDocumento_mask &) f.mask().get_sheet()->mask();
const TString16 codiva = mask.condv().clifo().get(LF_CFVEN, "ASSFIS"); const TString16 codiva = mask.condv().clifo().get(LF_CFVEN, "ASSFIS");
@ -445,7 +445,7 @@ HIDDEN bool sppr_handler( TMask_field& f, KEY key )
{ {
TMask& row_mask = f.mask(); TMask& row_mask = f.mask();
if (key == K_TAB && (f.focusdirty() || !row_mask.get(FR_DESCR).empty())) if (key == K_TAB && (f.focusdirty() || row_mask.get(FR_DESCR).empty()))
{ {
const int pos = row_mask.id2pos(FR_PREZZO); const int pos = row_mask.id2pos(FR_PREZZO);
@ -566,7 +566,7 @@ real iva(real imponibile, const TIVA & iva,int ndec)
return val; return val;
} }
real TDocumento::spese_incasso(real & imp, int ndec, bool netto) const real TDocumento::spese_incasso(real & imp, int ndec, TTipo_importo t) const
{ {
real imp_spese; real imp_spese;
real percentuale = get_real("PERCSPINC"); real percentuale = get_real("PERCSPINC");
@ -598,10 +598,8 @@ real TDocumento::spese_incasso(real & imp, int ndec, bool netto) const
if (cambio == ZERO) if (cambio == ZERO)
cambio = 1.0; cambio = 1.0;
imp_spese /= cambio; // if (netto == FALSE)
imp_spese.round(ndec); // {
if (netto == FALSE)
{
static TString16 codiva; static TString16 codiva;
static long firm = -1; static long firm = -1;
long new_firm = main_app().get_firm(); long new_firm = main_app().get_firm();
@ -613,13 +611,20 @@ real TDocumento::spese_incasso(real & imp, int ndec, bool netto) const
codiva = conf.get("SPINCODIVA", "ve"); codiva = conf.get("SPINCODIVA", "ve");
firm = new_firm; firm = new_firm;
} }
imp_spese += iva(imp_spese, TRiga_documento::iva(codiva), ndec); real iva_spese(iva(imp_spese, TRiga_documento::iva(codiva), ndec));
} // }
if (t == _lordo)
imp_spese += iva_spese;
else
if (t == _imposta)
imp_spese = iva_spese;
imp_spese /= cambio;
imp_spese.round(ndec);
} }
return imp_spese; return imp_spese;
} }
real TDocumento::bolli(real & imp, int ndec, bool netto) const real TDocumento::bolli(real & imp, int ndec, TTipo_importo t) const
{ {
real tot_bolli; real tot_bolli;
static TArray sca_bolli; static TArray sca_bolli;
@ -639,13 +644,15 @@ real TDocumento::bolli(real & imp, int ndec, bool netto) const
TPagamento & pag = ((TDocumento*)this)->pagamento(); TPagamento & pag = ((TDocumento*)this)->pagamento();
const int nrate = pag.n_rate(); const int nrate = pag.n_rate();
real old_bolli = -1.00; real old_bolli = -1.00;
real iva_bolli; real iva_bolli;
real imp_orig = imposta();
real sp_orig = spese();
for (int j = 0; j < 5 && tot_bolli != old_bolli; j++) for (int j = 0; j < 5 && tot_bolli != old_bolli; j++)
{ {
old_bolli = tot_bolli; old_bolli = tot_bolli + iva_bolli;
const real imposte = imposta() * cambio + iva_bolli; const real imposte = imp_orig * cambio + iva_bolli;
const real imp_spese = spese() * cambio + tot_bolli - iva_bolli; const real imp_spese = sp_orig * cambio + tot_bolli - iva_bolli;
const real imponibile = importo - imposte - imp_spese; const real imponibile = importo - imposte - imp_spese;
tot_bolli = ZERO; tot_bolli = ZERO;
@ -721,8 +728,8 @@ real TDocumento::bolli(real & imp, int ndec, bool netto) const
break; break;
} }
} }
if (netto == FALSE) // if (netto == FALSE)
{ // {
static TString16 codiva; static TString16 codiva;
static long firm = -1; static long firm = -1;
long new_firm = main_app().get_firm(); long new_firm = main_app().get_firm();
@ -735,10 +742,15 @@ real TDocumento::bolli(real & imp, int ndec, bool netto) const
firm = new_firm; firm = new_firm;
} }
iva_bolli = iva(tot_bolli, TRiga_documento::iva(codiva), ndec); iva_bolli = iva(tot_bolli, TRiga_documento::iva(codiva), ndec);
tot_bolli += iva_bolli; // tot_bolli += iva_bolli;
} // }
importo += (tot_bolli - old_bolli); importo += (tot_bolli + iva_bolli - old_bolli);
} }
if (t == _lordo)
tot_bolli += iva_bolli;
else
if (t == _imposta)
tot_bolli = iva_bolli;
tot_bolli /= cambio; tot_bolli /= cambio;
tot_bolli.round(ndec); tot_bolli.round(ndec);
} }
@ -750,7 +762,7 @@ real TDocumento::bolli(real & imp, int ndec, bool netto) const
// Formula generica // Formula generica
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
HIDDEN enum _formula {_somma, _bolli, _bolli_int, _spinc, _prezzo, _importo, _sconto, _iva, _provv, _tipo}; HIDDEN enum _formula {_somma, _bolli, _bolli_int, _spinc, _prezzo, _importo, _sconto, _iva, _provv, _tipo, _imponibili, _imposte};
TExpr_documento::TExpr_documento(const char* expression, TTypeexp type, TExpr_documento::TExpr_documento(const char* expression, TTypeexp type,
TDocumento * doc, TRiga_documento * row) TDocumento * doc, TRiga_documento * row)
@ -791,8 +803,14 @@ int TExpr_documento::parse_user_func(const char * name, int nparms) const
else else
if (strcmp(name, "TIPO") == 0) if (strcmp(name, "TIPO") == 0)
return nparms == 0 ? _tipo : -1; return nparms == 0 ? _tipo : -1;
else else
return -1; if (strcmp(name, "IMPONIBILI") == 0)
return nparms < 3 ? _imponibili : -1;
else
if (strcmp(name, "IMPOSTE") == 0)
return nparms < 3 ? _imposte : -1;
else
return -1;
} }
void TExpr_documento::evaluate_user_func(int index, int nparms, TEval_stack & stack, TTypeexp type) const void TExpr_documento::evaluate_user_func(int index, int nparms, TEval_stack & stack, TTypeexp type) const
@ -842,7 +860,7 @@ void TExpr_documento::evaluate_user_func(int index, int nparms, TEval_stack & st
real & r = stack.peek_real(); real & r = stack.peek_real();
if (_doc) if (_doc)
r = _doc->spese_incasso(r, ndec, netto); r = _doc->spese_incasso(r, ndec, netto ? _netto : _lordo);
else else
r = ZERO; r = ZERO;
} }
@ -862,7 +880,7 @@ void TExpr_documento::evaluate_user_func(int index, int nparms, TEval_stack & st
if (_doc) if (_doc)
{ {
r += _doc->spese_incasso(r, ndec); r += _doc->spese_incasso(r, ndec);
r = _doc->bolli(r, ndec, netto); r = _doc->bolli(r, ndec, netto ? _netto : _lordo);
} }
else else
r = ZERO; r = ZERO;
@ -965,7 +983,8 @@ void TExpr_documento::evaluate_user_func(int index, int nparms, TEval_stack & st
real & val = stack.peek_real(); real & val = stack.peek_real();
if (_row) if (_row)
val = _row->iva(ndec); // val = _row->iva(ndec);
val = _row->imposta();
else else
val = ZERO; val = ZERO;
} }
@ -997,6 +1016,36 @@ void TExpr_documento::evaluate_user_func(int index, int nparms, TEval_stack & st
s << _row->tipo().tipo(); s << _row->tipo().tipo();
stack.push(s); stack.push(s);
} }
break;
case _imponibili:
{
int ndec = _doc && _doc->in_valuta() ? 3 : 0;
bool spese = FALSE;
if (nparms > 1)
ndec = (int) stack.pop_real().integer();
if (nparms > 0)
spese = !stack.pop_real().is_zero();
else
stack.push(ZERO);
real & val = stack.peek_real();
val = _doc->imponibile(spese, ndec);
}
break;
case _imposte:
{
int ndec = _doc && _doc->in_valuta() ? 3 : 0;
bool spese = FALSE;
if (nparms > 1)
ndec = (int) stack.pop_real().integer();
if (nparms > 0)
spese = !stack.pop_real().is_zero();
else
stack.push(ZERO);
real & val = stack.peek_real();
val = _doc->imposta(spese, ndec);
}
break; break;
default: default:
TExpression::evaluate_user_func(index, nparms, stack, type); TExpression::evaluate_user_func(index, nparms, stack, type);
@ -1113,18 +1162,6 @@ void TTipo_documento::read_formule()
_formule = profile.get("CAMPICALC", "MAIN"); _formule = profile.get("CAMPICALC", "MAIN");
_formule.add(profile.get("CALCOLI", "MAIN")); _formule.add(profile.get("CALCOLI", "MAIN"));
_imponibile = profile.get("IMPONIBILE", "MAIN");
if (_imponibile.not_empty() && _formule.find(_imponibile) < 0)
{
error_box("Campo imponibile (%s) sconosciuto nel tipo documento %s", (const char *) _imponibile, (const char *) codice());
_imponibile.cut(0);
}
_imposta = profile.get("IMPOSTA", "MAIN");
if (_imposta.not_empty() && _formule.find(_imposta) < 0)
{
error_box("Campo imposta (%s) sconosciuto nel tipo documento %s", (const char *) _imposta, (const char *) codice());
_imposta.cut(0);
}
_totale = profile.get("TOTALE", "MAIN"); _totale = profile.get("TOTALE", "MAIN");
_totale_netto = "_"; _totale_netto = "_";
_totale_netto << _totale; _totale_netto << _totale;
@ -1223,13 +1260,7 @@ void TTipo_riga_documento::read_formule()
{ {
error_box("Campo imponibile (%s) sconosciuto nel tipo riga %s", (const char *) _imponibile, (const char *) codice()); error_box("Campo imponibile (%s) sconosciuto nel tipo riga %s", (const char *) _imponibile, (const char *) codice());
_imponibile.cut(0); _imponibile.cut(0);
} }
_imposta = profile.get("IMPOSTA", "MAIN");
if (_imposta.not_empty() && _formule.find(_imposta) < 0)
{
error_box("Campo imposta (%s) sconosciuto nel tipo riga %s", (const char *) _imposta, (const char *) codice());
_imposta.cut(0);
}
} }
TFormula_documento * TTipo_riga_documento::succ_formula(bool restart) TFormula_documento * TTipo_riga_documento::succ_formula(bool restart)
@ -1601,13 +1632,8 @@ real TRiga_documento::imponibile() const
} }
real TRiga_documento::imposta(bool round) const real TRiga_documento::imposta(bool round) const
{ {
const TString16 field(tipo().imposta()); return iva(round ? (doc().in_valuta() ? 3 : 0) : 20);
if (field.not_empty())
return get_real(field);
else
return iva(round ? (doc().in_valuta() ? 3 : 0) : 20);
} }
void TRiga_documento::dirty_fields(bool dirty_document) void TRiga_documento::dirty_fields(bool dirty_document)
@ -2154,15 +2180,32 @@ void TDocumento::set_fields(TAuto_variable_rectype & rec)
{ {
TString work_tot_doc(tot_doc); TString work_tot_doc(tot_doc);
work_tot_doc.insert("_"); work_tot_doc.insert("_");
TString netto_def(exp->string());
if (netto_def.find("IMPONIBILI") == -1)
{
if (netto_def.not_empty())
netto_def << "+";
netto_def << "IMPONIBILI()";
}
add_field(new TDocumento_variable_field(work_tot_doc, exp)); if (netto_def.find("IMPOSTE") == -1)
{
if (netto_def.not_empty())
netto_def << "+";
netto_def << "IMPOSTE()";
}
TExpr_documento * netto_exp = new TExpr_documento(netto_def, _numexpr, this);
add_field(new TDocumento_variable_field(work_tot_doc, netto_exp));
TExpr_documento * new_exp = new TExpr_documento( TExpr_documento * tot_exp = new TExpr_documento(
format("%s + _BOLLI(%s)", (const char *) work_tot_doc, format("%s + _BOLLI(%s)", (const char *) work_tot_doc,
(const char *) work_tot_doc), _numexpr, this); (const char *) work_tot_doc), _numexpr, this);
add_field(new TDocumento_variable_field(f->name(), new_exp)); add_field(new TDocumento_variable_field(f->name(), tot_exp));
} }
else else
add_field(new TDocumento_variable_field(f->name(), exp)); add_field(new TDocumento_variable_field(f->name(), exp));
@ -2172,36 +2215,64 @@ void TDocumento::set_fields(TAuto_variable_rectype & rec)
} }
} }
real TDocumento::imponibile() const real TDocumento::imponibile(bool spese, int ndec) const
{ {
const TString16 field(tipo().imponibile()); real val;
if (ndec > 99)
if (field.not_empty()) ndec = in_valuta() ? 3 : 0;
return get_real(field);
else
{
real val;
for (int i = rows(); i > 0; i--) for (int i = rows(); i > 0; i--)
val += ((TRiga_documento &) ((TDocumento *)this)->row(i)).imponibile(); val += ((TRiga_documento &) ((TDocumento *)this)->row(i)).imponibile();
return val; if (spese)
{
real tot_doc = val + imposta(FALSE, ndec);
val += spese_incasso(tot_doc, ndec, _netto);
tot_doc += spese_incasso(tot_doc, ndec);
val += bolli(tot_doc, ndec, _netto);
} }
val.round(ndec);
return val;
} }
real TDocumento::imposta() const real TDocumento::imposta(bool spese, int ndec) const
{ {
const TString16 field(tipo().imposta()); TAssoc_array ive;
if (field.not_empty()) if (ndec > 99)
return get_real(field); ndec = in_valuta() ? 3 : 0;
else
{ for (int i = rows(); i > 0; i--)
real val; {
TRiga_documento & r = ((TRiga_documento &) ((TDocumento *)this)->row(i));
for (int i = rows(); i > 0; i--) real iva(r.imposta(FALSE));
val += ((TRiga_documento &) ((TDocumento *)this)->row(i)).imposta(); const TString & cod_iva = r.get("CODIVA");
return val;
real * tot = (real *) ive.objptr(cod_iva);
if (tot == NULL)
ive.add(cod_iva, iva);
else
*tot += iva;
} }
real val;
ive.restart();
for (real * iva = (real *) ive.get(); iva != NULL; iva = (real *) ive.get())
{
if (*iva < ZERO)
iva->floor(ndec);
else
iva->ceil(ndec);
val += *iva;
}
if (spese)
{
real tot_doc = val + imponibile(FALSE, ndec);
val += spese_incasso(tot_doc, ndec, _imposta);
tot_doc += spese_incasso(tot_doc, ndec);
val += bolli(tot_doc, ndec, _imposta);
}
val.round(ndec);
return val;
} }
real TDocumento::totale_doc() const real TDocumento::totale_doc() const

10
ve/velib01.h
View File

@ -328,6 +328,8 @@ public:
virtual ~TRiga_documento() {} virtual ~TRiga_documento() {}
}; };
enum TTipo_importo { _lordo, _netto, _imposta };
class TDocumento : public TAuto_variable_rectype class TDocumento : public TAuto_variable_rectype
{ {
static TAssoc_array _tipi; static TAssoc_array _tipi;
@ -404,12 +406,12 @@ public:
void set_fields(TAuto_variable_rectype & rec); void set_fields(TAuto_variable_rectype & rec);
real spese_incasso(real & imp, int ndec, bool netto = FALSE) const ; real spese_incasso(real & imp, int ndec, TTipo_importo netto = _lordo) const ;
real bolli(real & imp, int ndec, bool netto = FALSE) const ; real bolli(real & imp, int ndec, TTipo_importo netto = _lordo) const ;
real descrizione() const; real descrizione() const;
real riferimento() const; real riferimento() const;
real imponibile() const; real imponibile(bool spese = FALSE, int ndec = 100) const;
real imposta() const; real imposta(bool spese = FALSE, int ndec = 100) const;
real totale_doc() const; real totale_doc() const;
real totale_netto() const; real totale_netto() const;
real basesconto() const; real basesconto() const;