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

Modifiche per IVA11'97: cambiato A14 in VA7.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@5679 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-12-01 16:14:48 +00:00
parent 674247f06e
commit 2c508021b5
3 changed files with 39 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
cg/cg0400.cpp
View File

@ -197,7 +197,7 @@ const char* TProgressivi_iva::desc_iva(const TString& cod)
if (cod == "{AF")
TMP = "Artt.17c3/74c1";
else if (cod == "{A14")
else if (cod == "{VA7")
TMP = "Art.40c5/6/8 a.i.";
else
{
@ -272,8 +272,8 @@ void TProgressivi_iva::look_pim()
TTable tabiva("%IVA");
TString80 codtab;
TString16 codatt,codiva,tipoiva,codreg;
TToken_string a14("",'!');
real imponibile, imposta,afi,afv,a14i,a14v;
TToken_string va7("",'!');
real imponibile, imposta,afi,afv,va7i,va7v;
real corr_item,*cp,aliquota;
bool is_key;
@ -281,7 +281,7 @@ void TProgressivi_iva::look_pim()
for (pim.first(); !pim.eof(); pim.next())
{
imponibile = imposta = afi = afv = a14i = a14v = ZERO;
imponibile = imposta = afi = afv = va7i = va7v = ZERO;
tiporec tipo;
codtab = pim.get("CODTAB");
@ -339,16 +339,16 @@ void TProgressivi_iva::look_pim()
imposta += pim.get_real("R6");
}
if (_mese == 13)
{ // Separa le autofatture non residenti(AF) e gli importi A14
{ // Separa le autofatture non residenti(AF) e gli importi VA7
afi = pim.get_real("R7");
afv = pim.get_real("R8");
a14 = pim.get("S0");
a14i = a14.get(0);
a14v = a14.get(1);
imponibile -= afi + a14i;
imposta -= afv + a14v;
va7 = pim.get("S0");
va7i = va7.get(0);
va7v = va7.get(1);
imponibile -= afi + va7i;
imposta -= afv + va7v;
_gen1_array.add_riga("{AF",afi,afv,ZERO,ZERO,ZERO,ZERO); // Mette '{' cosi' vengono stampati per ultimi
_gen1_array.add_riga("{A14",a14i,a14v,ZERO,ZERO,ZERO,ZERO);
_gen1_array.add_riga("{VA7",va7i,va7v,ZERO,ZERO,ZERO,ZERO);
}
if (_mese != 13)

38
cg/cg4301.cpp
View File

@ -663,7 +663,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
// speciale in liquidazione annuale
bool autodafe = tipodoc == "AF"; //Adesso il tipocr==4 non c'entra piu' un tubo
// vendite art. 40 c. 5/6/8 acq.intra., con trattamento
// speciale in liquidazione annuale (A14 in stampa)
// speciale in liquidazione annuale (VA7 in stampa)
bool art40 = (tipodoc != "AF" && tipoiva != "NS" && !rcs.get_bool("AUTOFATT") && rcs.get_bool("VALINTRA") && !intra);
// indica acquisti per rivendita; viene messo in B4 di PIM per
// indicare che e' soggetto al ricalcolo IVA (se voluto) in modo
@ -1055,8 +1055,8 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
/* i conturbanti art. 40 c. 5/6/8 a.i. */
TToken_string kr(_pim->get("S0"),'!');
real a14i(kr.get(0));
real a14v(kr.get(1));
real va7i(kr.get(0));
real va7v(kr.get(1));
/* le porche fatture in ritardo */
TToken_string fr(_pim->get("S1"),'!');
@ -1207,9 +1207,9 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
// Vengono piazzati in una TToken_string con separatore = a '!'.
// La TToken_string viene registrata in S0.
// La describe_pim() sommera' tutte le storie, scorporandoli
// dalle vendite e assegnandoli al codice A14 in caso di liq annuale.
a14i += imponibile;
a14v += imposta;
// dalle vendite e assegnandoli al codice VA7 in caso di liq annuale.
va7i += imponibile;
va7v += imposta;
}
if (corrisp && !true_corrisp)
@ -1243,9 +1243,9 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
_pim->put("B4", (_isricacq && was_riv) ? "X" : "");
_pim->put("S5", tipoiva);
// art 40 c. 5/6/8 per A14.
kr.add(a14i.string(), 0);
kr.add(a14v.string(), 1);
// art 40 c. 5/6/8 per VA7.
kr.add(va7i.string(), 0);
kr.add(va7v.string(), 1);
_pim->put("S0",kr);
@ -1817,7 +1817,7 @@ void TLiquidazione_app::iva11_set_arr_pim(const TString& codatt)
TToken_string tt("",'!');
tiporeg treg;
int tipocr,tipodet,tagr;
real aliq, imp, iva, lor, vtot, atot, ivav, ivaa, adf, adi, a14i, a14v;
real aliq, imp, iva, lor, vtot, atot, ivav, ivaa, adf, adi, va7i, va7v;
TString16 cur_att;
const bool is_key = _iva11_arr.is_key(codatt);
@ -1948,10 +1948,10 @@ void TLiquidazione_app::iva11_set_arr_pim(const TString& codatt)
}
tt = _pim->get("S0");
a14i = tt.get(0);
a14v = tt.get(1);
adf = imp - _pim->get_real("R7") - a14i + _pim->get_real("R5");
adi = iva - _pim->get_real("R8") - a14v + _pim->get_real("R6");
va7i = tt.get(0);
va7v = tt.get(1);
adf = imp - _pim->get_real("R7") - va7i + _pim->get_real("R5");
adi = iva - _pim->get_real("R8") - va7v + _pim->get_real("R6");
if (aliq == 4.00)
{
array.add(adf,TAB11_EC101);
@ -2665,9 +2665,9 @@ void TLiquidazione_app::recalc_annual(const char* att)
real volaff2 = 0.0;
real imp_ifs = 0.0;
real imp_af = 0.0;
real imp_a14 = 0.0;
real imp_va7 = 0.0;
TString16 codiva,reg,tiva;
TToken_string a14("",'!');
TToken_string va7("",'!');
int tipoatt = att[strlen(att) -1] - '0';
TString aaa(att);
@ -2705,9 +2705,9 @@ void TLiquidazione_app::recalc_annual(const char* att)
const bool simp = _reg->get_bool("B1");
imp_ifs = _pim->get_real("R0");
imp_af = _pim->get_real("R7");
a14 = _pim->get("S0");
imp_a14 = a14.get(0);
imp_ifs -= imp_af + imp_a14; // Toglie le autofatture e le op. A14
va7 = _pim->get("S0");
imp_va7 = va7.get(0);
imp_ifs -= imp_af + imp_va7; // Toglie le autofatture e le op. VA7
if ( // ESCLUSI:
strcmp(att,*_pim_codatt) != 0 ||

18
cg/cg4304.cpp
View File

@ -646,7 +646,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
if (!corrisp || (!cfv.is_zero() || !cfi.is_zero()))
{
real adf, adi; // autofatture non residenti art. 17
real a14i, a14v; // ammontare art 40 c. 5/6/8
real va7i, va7v; // ammontare art 40 c. 5/6/8
real vendi = corrisp ? cfi : _pim->get_real("R0");
real vendv = corrisp ? cfv : _pim->get_real("R1");
@ -656,21 +656,21 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
if (month == 13)
{
TToken_string kr(_pim->get("S0"),'!');
a14i = kr.get(0);
a14v = kr.get(1);
va7i = kr.get(0);
va7v = kr.get(1);
adf = _pim->get_real("R7");
adi = _pim->get_real("R8");
}
d->_r0 += vendi - adf - a14i;
d->_r1 += vendv - adi - a14v;
d->_r0 += vendi - adf - va7i;
d->_r1 += vendv - adi - va7v;
t0 += vendi /* - adf */;
t1 += vendv /* - adi */;
autodafe += adf;
autodafe_iva += adi;
art40 += a14i;
art40_iva += a14v;
art40 += va7i;
art40_iva += va7v;
}
}
if (isnew)
@ -720,7 +720,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
{
_DescrItem* ads = new _DescrItem(PIM_ROW);
ads->_s0 = ref;
ads->_s1 = "A14";
ads->_s1 = "VA7";
ads->_r0 = art40;
ads->_r1 = art40_iva;
if (isfirst)
@ -1333,7 +1333,7 @@ void TLiquidazione_app::set_pim(_DescrItem& d)
int rw = 1;
if (d._s1 == "AF") //Il dio sistema colpisce ancora, non va bene A35, ma AF...
d._s2 = "Artt.17c3/74c1"; // La descrizione non la metto uguale perche' cosi e' piu' fika
else if (d._s1 == "A14") // Sempre per merito del dio sistema ho dovuto aggiungere A14.
else if (d._s1 == "VA7") // Sempre per merito del dio sistema ho dovuto aggiungere VA7.
d._s2 = "Art.40c5/6/8 a.i.";
else if (d._s0 == "74TER")
rw++;