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; impos += imposta;
} }
break; break;
case acq_simp:
if (_tipoprog == 1) break;
if (_tipo_aliq == 7)
{
impo += imponibile;
impos += imposta;
}
break;
case acq_beni_riv: case acq_beni_riv:
if (_tipoprog == 1) break; if (_tipoprog == 1) break;
if (_tipo_attiv == 1) if (_tipo_attiv == 1)
@ -426,7 +434,7 @@ void CG0400_application::cerca_i_pim()
break; break;
case cess_amm: case cess_amm:
if (_tipoprog == 2) break; 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 { //viene forzato a 4 => cessione beni ammortizzabili
impo += imponibile; impo += imponibile;
impos += imposta; impos += imposta;
@ -757,9 +765,13 @@ void CG0400_application::setta_intestazione()
set_header(r++, "Anno liquidazione %d", _annoiva); set_header(r++, "Anno liquidazione %d", _annoiva);
if (_tipoprog == 1) //vendite if (_tipoprog == 1) //vendite
{ {
if (_sospmsk == 1) if (_livelloprog == 1)
set_header(r, "Vendite in genere"); {
else set_header(r, "Vendite in sospensione d'imposta"); 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 else //acquisti
{ {
@ -784,6 +796,9 @@ void CG0400_application::setta_intestazione()
case 6: case 6:
set_header(r, "Bolle doganali"); set_header(r, "Bolle doganali");
break; break;
case 7:
set_header(r, "Acquisti in sospensione d'imposta");
break;
default: default:
break; break;
} }

12
cg/cg0400a.uml
View File

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