Modifiche per IVA11'97: nuovi campi, nuove dizioni, nuove aliquote.

git-svn-id: svn://10.65.10.50/trunk@5672 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-11-28 14:57:21 +00:00
parent 8193f022ad
commit 42d7aab8fa
6 changed files with 173 additions and 20 deletions

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 == "{A13")
else if (cod == "{A14")
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 a13("",'!');
real imponibile, imposta,afi,afv,a13i,a13v;
TToken_string a14("",'!');
real imponibile, imposta,afi,afv,a14i,a14v;
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 = a13i = a13v = ZERO;
imponibile = imposta = afi = afv = a14i = a14v = 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 A13
{ // Separa le autofatture non residenti(AF) e gli importi A14
afi = pim.get_real("R7");
afv = pim.get_real("R8");
a13 = pim.get("S0");
a13i = a13.get(0);
a13v = a13.get(1);
imponibile -= afi + a13i;
imposta -= afv + a13v;
a14 = pim.get("S0");
a14i = a14.get(0);
a14v = a14.get(1);
imponibile -= afi + a14i;
imposta -= afv + a14v;
_gen1_array.add_riga("{AF",afi,afv,ZERO,ZERO,ZERO,ZERO); // Mette '{' cosi' vengono stampati per ultimi
_gen1_array.add_riga("{A13",a13i,a13v,ZERO,ZERO,ZERO,ZERO);
_gen1_array.add_riga("{A14",a14i,a14v,ZERO,ZERO,ZERO,ZERO);
}
if (_mese != 13)

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 a13i, a13v; // ammontare art 40 c. 5/6/8
real a14i, a14v; // 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"),'!');
a13i = kr.get(0);
a13v = kr.get(1);
a14i = kr.get(0);
a14v = kr.get(1);
adf = _pim->get_real("R7");
adi = _pim->get_real("R8");
}
d->_r0 += vendi - adf - a13i;
d->_r1 += vendv - adi - a13v;
d->_r0 += vendi - adf - a14i;
d->_r1 += vendv - adi - a14v;
t0 += vendi /* - adf */;
t1 += vendv /* - adi */;
autodafe += adf;
autodafe_iva += adi;
art40 += a13i;
art40_iva += a13v;
art40 += a14i;
art40_iva += a14v;
}
}
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 = "A13";
ads->_s1 = "A14";
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 == "A13") // Sempre per merito del dio sistema ho dovuto aggiungere A13.
else if (d._s1 == "A14") // Sempre per merito del dio sistema ho dovuto aggiungere A14.
d._s2 = "Art.40c5/6/8 a.i.";
else if (d._s0 == "74TER")
rw++;

3
cg/f103.dir Executable file
View File

@ -0,0 +1,3 @@
103
1
%tab1100a|0|0|1466|7|File trasferimento IVA11|||

103
cg/f103.trr Executable file
View File

@ -0,0 +1,103 @@
103
99
TADITT|1|5|0|
TACATT|1|5|0|
IMA01|4|15|2|
IMA02|4|15|2|
IMA03|4|15|2|
A35|4|15|2|
A35BIS|4|15|2|
A35TER|4|15|2|
B14|4|15|2|
XC101|4|15|2|
XC102|4|15|2|
XC103|4|15|2|
XC104|4|15|2|
XC105|4|15|2|
XC106|4|15|2|
XC107|4|15|2|
XC108|4|15|2|
XC109|4|15|2|
XC110|4|15|2|
XC111|4|15|2|
XC201|4|15|2|
XC202|4|15|2|
XC203|4|15|2|
XC204|4|15|2|
XC205|4|15|2|
XC206|4|15|2|
XC207|4|15|2|
XC208|4|15|2|
E52|4|15|2|
F76|4|15|2|
EC101|4|15|2|
EC102|4|15|2|
EC103|4|15|2|
EC104|4|15|2|
EC105|4|15|2|
EC106|4|15|2|
EC107|4|15|2|
EC108|4|15|2|
EC109|4|15|2|
EC110|4|15|2|
EC111|4|15|2|
EC112|4|15|2|
EC113|4|15|2|
EC114|4|15|2|
EC115|4|15|2|
EC116|4|15|2|
EC201|4|15|2|
EC202|4|15|2|
EC203|4|15|2|
EC204|4|15|2|
EC205|4|15|2|
IVVENR|4|15|2|
FC101|4|15|2|
FC102|4|15|2|
FC103|4|15|2|
FC104|4|15|2|
FC105|4|15|2|
FC106|4|15|2|
FC107|4|15|2|
FC108|4|15|2|
FC109|4|15|2|
FC110|4|15|2|
FC111|4|15|2|
FC112|4|15|2|
FC113|4|15|2|
FC114|4|15|2|
FC115|4|15|2|
FC116|4|15|2|
FC201|4|15|2|
FC202|4|15|2|
FC203|4|15|2|
FC204|4|15|2|
FC205|4|15|2|
FC206|4|15|2|
FC207|4|15|2|
FC208|4|15|2|
FC209|4|15|2|
FC210|4|15|2|
SBF01|4|15|2|
SBF02|4|15|2|
SBF03|4|15|2|
SBF04|4|15|2|
SBF05|4|15|2|
SBF06|4|15|2|
SBF07|4|15|2|
SBF08|4|15|2|
SBF09|4|15|2|
SBF10|4|15|2|
SBF11|4|15|2|
SBF12|4|15|2|
SBF13|4|15|2|
SBI01|4|15|2|
SBI02|4|15|2|
SBI03|4|15|2|
SBI04|4|15|2|
SBI05|4|15|2|
SBI06|4|15|2|
SBI07|4|15|2|
SBI08|4|15|2|
1
TADITT+TACATT|

3
cg/f104.dir Executable file
View File

@ -0,0 +1,3 @@
104
1
%tab1100b|0|0|581|7|File trasferimento IVA11 (bis)|||

44
cg/f104.trr Executable file
View File

@ -0,0 +1,44 @@
104
40
TADITT|1|5|0|
TACATT|1|5|0|
R1|4|15|2|
R2|4|15|2|
R3|4|15|2|
R4|4|15|2|
R5|4|15|2|
R6|4|15|2|
R9|4|15|2|
T1|4|15|2|
T1C|4|15|2|
T2|4|15|2|
T2C|4|15|2|
T3|4|15|2|
T3C|4|15|2|
T5|4|15|2|
T6|4|15|2|
G30I|4|15|2|
G30V|4|15|2|
G31I|4|15|2|
G31V|4|15|2|
ABME01|4|15|2|
ABME02|4|15|2|
ABME03|4|15|2|
ABME04|4|15|2|
ABVE01|4|15|2|
ABVE02|4|15|2|
ABVE03|4|15|2|
ABVE04|4|15|2|
AGME01|4|15|2|
AGME02|4|15|2|
AGME03|4|15|2|
AGME04|4|15|2|
AGVE01|4|15|2|
AGVE02|4|15|2|
AGVE03|4|15|2|
AGVE04|4|15|2|
RQA34|4|15|2|
L2|4|15|2|
L2BIS|4|15|2|
1
TADITT+TACATT|