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

Corretta la famosa palla del codice iva a cui ventilare (MI0539)

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1003 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-02-15 10:43:04 +00:00
parent 348530163b
commit 88c4f0ce3c
8 changed files with 135 additions and 122 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cg/cg4300.cpp
View File

@ -81,7 +81,7 @@ bool TLiquidazione_app::user_create()
_month = subj.get_int(1);
ditta = subj.get_long(2);
char rcl = *(subj.get(3));
recalc_only = rcl == 'C';
_recalc_only = rcl == 'C';
_is_visliq = rcl == 'V';
_isregis = (rcl == 'l' || rcl == 'L'); // stampa per registri
_isfinal = rcl == 'l'; // se l minuscolo, definitivo

3
cg/cg4300.h
View File

@ -91,6 +91,7 @@ public: // non e' bello, ma non e' bello neanche dover fare un
real _aliquota; // aliquota iva
real _totale; // totale acquisti
TString _codiva; // codice iva
TString _other; // codice iva a cui ventilare
_VentItem() : _imposta(0.0), _totale(0.0) {}
virtual ~_VentItem() {}
};
@ -389,7 +390,7 @@ public:
// minchia di puro suino
void add_vendite (int month, const char* codreg, int tipodet, real& r);
void add_ventilation (real iva, real sum, const char* codiva);
void add_ventilation (real iva, real sum, const char* codiva, const char* other);
void add_corrisp (int month, const char* codreg, real& r, real& p,
int tipodet, const char * codiva);

4
cg/cg4302.cpp
View File

@ -78,7 +78,8 @@ bool TLiquidazione_app::is_date_ok(TDate& d, int month)
}
void TLiquidazione_app::add_ventilation(real iva, real howmuch, const char* codiva)
void TLiquidazione_app::add_ventilation(real iva, real howmuch,
const char* codiva, const char* other)
{
_VentItem* vi = NULL;
for (int i = 0; i < _vent_arr.items(); i++)
@ -92,6 +93,7 @@ void TLiquidazione_app::add_ventilation(real iva, real howmuch, const char* cod
_vent_arr.add(vi = new _VentItem);
vi->_aliquota = iva;
vi->_codiva = codiva;
vi->_other = other;
}
vi->_totale += howmuch;
}

3
cg/cg4303.cpp
View File

@ -171,7 +171,7 @@ void TLiquidazione_app::recalc_ventilation(int month, const char* codatt)
look_iva(other);
perc = _iva->get_real("R0");
}
add_ventilation(perc / CENTO, lurd, *_pim_codiva);
add_ventilation(perc / CENTO, lurd, *_pim_codiva, other);
}
}
}
@ -229,6 +229,7 @@ void TLiquidazione_app::recalc_ventilation(int month, const char* codatt)
imposta += _pim->get_real("R1");
_pim->put("R0", imponibile);
_pim->put("R1", imposta);
_pim->put("S4", vv->_other);
// segnale per comodita'
_pim->put("B1","X");
_pim->rewrite();

14
cg/cg4304.cpp
View File

@ -334,7 +334,15 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
TString tipoiva = _iva->get("S1");
int tipodet = atoi(*_pim_tipodet);
TString codiva((const char*)(*_pim_codiva));
TString other = _pim->get("S4");
// ACHTUNG! Corrispettivi da ventileer possono ventilare
// ad un altro codiva; in tal caso si scrive quello
if (corrisp && !other.empty())
{
look_iva(other);
codiva = other;
}
// se e' corrispettivo da ventilare non
// scrivo un cannolo ripieno visto che e' stato ventilato
if (tipomov == vendita && tipoiva == "VE") continue;
@ -361,9 +369,9 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
d = (_DescrItem*)&_descr_arr[i];
if (d->_flags == PIM_ROW &&
d->_s0 == ref &&
d->_s1 == (const char*)*_pim_codiva)
d->_s1 == codiva)
break;
if (d->_s1 > (const char*)*_pim_codiva)
if (d->_s1 > codiva)
{
isnew = TRUE;
_DescrItem* dd = new _DescrItem(PIM_ROW);
@ -440,7 +448,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
if (isnew)
{
d->_s0 = ref;
d->_s1 = *_pim_codiva;
d->_s1 = codiva;
// flag per stampare l'intestazione colonne
}
}

7
cg/classpim.cpp
View File

@ -73,7 +73,7 @@ bool classify_pim(TRectype& pimr, real& imp, real& iva, tiporec& t)
}
found = !imp.is_zero() || !iva.is_zero();
break;
case acq_beni_riv:
case base_ventilazione:
found = (tipomov == 2 && tipodet != 9 && tipocr == 1);
found &= (tipoiva != "NS" && tipoiva != "NI" && tipoiva != "ES");
found &= (ricl ? TRUE : tipodet == 3);
@ -84,8 +84,9 @@ bool classify_pim(TRectype& pimr, real& imp, real& iva, tiporec& t)
}
found &= !imp.is_zero() || !iva.is_zero();
break;
case base_ventilazione:
found = (tipomov == 2 && tipodet != 9 && (tipocr == 1 || tipocr == 5));
case acq_beni_riv:
found = (tipomov == 2 && tipodet != 9 &&
(tipocr == 1 || (tipocr == 5 && tipodet == 3)));
found &= tipoiva != "NS" && tipoiva != "NI" && tipoiva != "ES";
found &= (ricl ? TRUE : tipodet == 3);
if (found)