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

Correzione ai progressivi IVA

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1220 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-04-07 14:51:46 +00:00
parent 569919c6a5
commit 5ffbe658ec
2 changed files with 25 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
cg/cg0400.cpp
View File

@ -384,6 +384,14 @@ void CG0400_application::cerca_i_pim()
impos += imposta;
}
break;
case acq_simp:
if (_tipoprog == 1) break;
if (_tipo_aliq == 7)
{
impo += imponibile;
impos += imposta;
}
break;
case acq_beni_riv:
if (_tipoprog == 1) break;
if (_tipo_attiv == 1)
@ -426,7 +434,7 @@ void CG0400_application::cerca_i_pim()
break;
case cess_amm:
if (_tipoprog == 2) break;
if (_livelloprog == 2) //Nel caso di vendite per attivita' il tipo costo/ricavo
if (_livelloprog == 2) //Nel caso di vendite per attivita' il tipo costo/ricavo
{ //viene forzato a 4 => cessione beni ammortizzabili
impo += imponibile;
impos += imposta;
@ -757,9 +765,13 @@ void CG0400_application::setta_intestazione()
set_header(r++, "Anno liquidazione %d", _annoiva);
if (_tipoprog == 1) //vendite
{
if (_sospmsk == 1)
set_header(r, "Vendite in genere");
else set_header(r, "Vendite in sospensione d'imposta");
if (_livelloprog == 1)
{
if (_sospmsk == 1)
set_header(r, "Vendite in genere");
else set_header(r, "Vendite in sospensione d'imposta");
}
else set_header(r, "Cessione beni da ammortizzare");
}
else //acquisti
{
@ -784,6 +796,9 @@ void CG0400_application::setta_intestazione()
case 6:
set_header(r, "Bolle doganali");
break;
case 7:
set_header(r, "Acquisti in sospensione d'imposta");
break;
default:
break;
}

12
cg/cg0400a.uml
View File

@ -28,7 +28,7 @@ END
NUMBER F_ANNO 4
BEGIN
PROMPT 3 3 "Anno liquidazione "
PROMPT 3 3 "Anno liquidazione "
HELP "Anno di cui si effettua la liquidazione"
FLAGS "A"
CHECKTYPE REQUIRED
@ -74,7 +74,7 @@ END
STRING F_CODIVA 4
BEGIN
PROMPT 3 10 "Codice IVA "
PROMPT 3 10 "Codice IVA "
HELP "Aliquota IVA da riepilogare"
FLAGS "U"
USE %IVA
@ -99,7 +99,7 @@ END
STRING F_ATTIVITA 5
BEGIN
PROMPT 3 10 "Codice attivita' "
PROMPT 3 10 "Codice attivita' "
HELP "Codice dell'attivita' di cui si vuole il riepilogo"
USE LF_ATTIV
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
@ -114,7 +114,7 @@ END
NUMBER F_TIPOTABEL 1
BEGIN
PROMPT 3 12 "Tipo tabella "
PROMPT 3 12 "Tipo tabella "
HELP "Tipo di tabella da visualizzare"
SHEET "Tipo|Descrizione@50"
ITEM "1|Acquisti beni per rivendita"
@ -128,7 +128,7 @@ END
NUMBER F_TIPOTABE 1
BEGIN
PROMPT 3 12 "Tipo tabella "
PROMPT 3 12 "Tipo tabella "
HELP "Tipo di tabella da visualizzare"
SHEET "Tipo|Descrizione@50"
ITEM "1|Acquisti in genere"
@ -137,7 +137,7 @@ BEGIN
ITEM "4|Acquisti indetraibili art. 19"
ITEM "5|Acquisti base di calcolo per la ventilazione"
ITEM "6|Bolle doganali"
// ITEM "7|Acquisti indetraibili per cambio regime"
ITEM "7|Acquisti in sospensione d'imposta"
INPUT F_TIPOTABE
OUTPUT F_TIPOTABE
END