339 lines
8.9 KiB
Plaintext
Executable File
339 lines
8.9 KiB
Plaintext
Executable File
#include "batbiva.h"
|
||
|
||
TOOLBAR "topbar" 0 0 0 2
|
||
#include <relapbar.h>
|
||
ENDPAGE
|
||
|
||
PAGE "Codici IVA" -1 -1 78 19
|
||
|
||
STRING FLD_TABIVA_CODTAB 4
|
||
BEGIN
|
||
PROMPT 2 1 "Codice "
|
||
FIELD CODTAB
|
||
KEY 1
|
||
USE %IVA
|
||
FLAGS "U"
|
||
INPUT CODTAB FLD_TABIVA_CODTAB
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
DISPLAY "Tipo" S1
|
||
DISPLAY "%@5" R0
|
||
DISPLAY "Vent." S6
|
||
DISPLAY "Sospeso" B2
|
||
OUTPUT FLD_TABIVA_CODTAB CODTAB
|
||
OUTPUT FLD_TABIVA_S0 S0
|
||
HELP "Inserire il codice IVA"
|
||
CHECKTYPE REQUIRED
|
||
VALIDATE ZEROFILL_FUNC 2
|
||
END
|
||
|
||
STRING FLD_TABIVA_S0 50
|
||
BEGIN
|
||
PROMPT 25 1 ""
|
||
FIELD S0
|
||
KEY 2
|
||
USE %IVA KEY 2
|
||
INPUT S0 FLD_TABIVA_S0
|
||
DISPLAY "Descrizione@50" S0
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Tipo" S1
|
||
DISPLAY "%@5" R0
|
||
DISPLAY "Vent." S6
|
||
DISPLAY "Sospeso" B2
|
||
COPY OUTPUT FLD_TABIVA_CODTAB
|
||
HELP "Inserire la descrizione del codice IVA"
|
||
CHECKTYPE REQUIRED
|
||
WARNING "Manca la descrizione"
|
||
END
|
||
|
||
LIST LST_TABIVA_S1 2 20
|
||
BEGIN
|
||
PROMPT 2 2 "Tipo "
|
||
FIELD S1
|
||
HELP "Indicare il tipo di codice IVA"
|
||
ITEM " |Regime IVA normale"
|
||
MESSAGE ENABLE,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
|
||
MESSAGE CLEAR,FLD_TABIVA_I3|CLEAR,FLD_TABIVA_I4|HIDE,CHK_TABIVA_B5
|
||
MESSAGE ENABLE,FLD_TABIVA_S6
|
||
ITEM "VE|Ricavi da ventilare"
|
||
MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0|CLEAR,FLD_TABIVA_I3
|
||
MESSAGE CLEAR,FLD_TABIVA_I4|CLEAR,FLD_TABIVA_S6|HIDE,CHK_TABIVA_B5
|
||
ITEM "ES|Operazioni esenti"
|
||
MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
|
||
MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4|SHOW,CHK_TABIVA_B5
|
||
MESSAGE ENABLE,FLD_TABIVA_S6
|
||
ITEM "NI|Non imponibili"
|
||
MESSAGE CLEAR,FLD_TABIVA_R0|ENABLE,FLD_TABIVA_I0
|
||
MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4|SHOW,CHK_TABIVA_B5
|
||
MESSAGE ENABLE,FLD_TABIVA_S6
|
||
ITEM "NS|Non soggetti"
|
||
MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
|
||
MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4|SHOW,CHK_TABIVA_B5
|
||
MESSAGE ENABLE,FLD_TABIVA_S6
|
||
END
|
||
|
||
STRING FLD_TABIVA_S6 4
|
||
BEGIN
|
||
PROMPT 39 2 "C.IVA a cui ventilare "
|
||
FLAGS "U"
|
||
FIELD S6
|
||
COPY USE FLD_TABIVA_CODTAB
|
||
INPUT CODTAB FLD_TABIVA_S6
|
||
COPY DISPLAY FLD_TABIVA_CODTAB
|
||
OUTPUT FLD_TABIVA_S6 CODTAB
|
||
CHECKTYPE NORMAL
|
||
VALIDATE ZEROFILL_FUNC 2
|
||
HELP "Inserire il codice iva a cui ventilare l'imposta"
|
||
ADD NONE
|
||
END
|
||
|
||
NUMBER FLD_TABIVA_R0 6 2
|
||
BEGIN
|
||
PROMPT 2 3 "Aliquota "
|
||
FIELD R0
|
||
HELP "Inserire la percentuale di imposta"
|
||
WARNING "Deve essere specificato almeno uno dei campi seguenti: aliquota, tipo, codice a cui ventilare"
|
||
VALIDATE ONEREQ_FUNC 3 FLD_TABIVA_R0 FLD_TABIVA_S6 LST_TABIVA_S1
|
||
END
|
||
|
||
NUMBER FLD_TABIVA_I0 2
|
||
BEGIN
|
||
PROMPT 39 3 "Perc.IVA teorica "
|
||
FIELD I0
|
||
HELP "Inserire la percentuale teorica dell'imposta"
|
||
END
|
||
|
||
NUMBER FLD_TABIVA_I1 4
|
||
BEGIN
|
||
PROMPT 2 4 "Tipo CEE "
|
||
FIELD I1
|
||
FLAGS "UZ"
|
||
USE %TIC
|
||
INPUT CODTAB FLD_TABIVA_I1
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
DISPLAY "Sospeso@C" B2
|
||
OUTPUT FLD_TABIVA_I1 CODTAB
|
||
OUTPUT FLD_DESCR_I1 S0
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING FLD_DESCR_I1 50
|
||
BEGIN
|
||
PROMPT 25 4 ""
|
||
USE %TIC KEY 2
|
||
INPUT S0 FLD_DESCR_I1
|
||
DISPLAY "Descrizione@50" S0
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Sospeso@C" B2
|
||
COPY OUTPUT FLD_TABIVA_I1
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING FLD_INDET_S4 1
|
||
BEGIN
|
||
PROMPT 2 5 "Codice indetraibilit<69> "
|
||
USE %DET
|
||
INPUT CODTAB FLD_INDET_S4
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Tipo" I0
|
||
DISPLAY "Percentuale@R" R0
|
||
DISPLAY "Descrizione@50" S0
|
||
OUTPUT FLD_INDET_S4 CODTAB
|
||
CHECKTYPE NORMAL
|
||
FIELD S4
|
||
END
|
||
|
||
BOOLEAN CHK_TABIVA_B5
|
||
BEGIN
|
||
PROMPT 30 5 "Escluso dal calcolo dei bolli sufatture esenti"
|
||
FIELD B5
|
||
END
|
||
|
||
GROUPBOX DLG_NULL 78 4
|
||
BEGIN
|
||
PROMPT 1 6 "@bComunicazione operazioni rilevanti ai fini dell'IVA (Spesometro)"
|
||
END
|
||
|
||
LIST FLD_TABIVA_S7 1 35
|
||
BEGIN
|
||
PROMPT 2 7 "Cessioni "
|
||
FIELD S7
|
||
ITEM " |Non rilevante"
|
||
ITEM "1|1 - Imponibile"
|
||
ITEM "2|2 - Non imponibile"
|
||
ITEM "3|3 - Esente"
|
||
ITEM "4|4 - IVA non esposta in fattura"
|
||
ITEM "5|5 - Imponibile con IVA a Margine"
|
||
END
|
||
|
||
LIST FLD_TABIVA_S8 1 35
|
||
BEGIN
|
||
PROMPT 2 8 "Acquisti "
|
||
FIELD S8
|
||
ITEM " |Non rilevante"
|
||
ITEM "1|1 - Imponibile"
|
||
ITEM "2|2 - Non imponibile"
|
||
ITEM "3|3 - Esente"
|
||
ITEM "4|4 - IVA non esposta in fattura"
|
||
ITEM "5|5 - Imponibile con IVA a Margine"
|
||
END
|
||
|
||
STRING FLD_TABIVA_I3 3
|
||
BEGIN
|
||
PROMPT 3 10 "Riga vendite IVA11 per op.esenti e non imp. "
|
||
FIELD S2
|
||
HELP "Indicare il codice riga per operazioni di vendita es. e non imp. del mod.101"
|
||
SHEET "Riga@4|Descrizione@70"
|
||
INPUT FLD_TABIVA_I3
|
||
OUTPUT FLD_TABIVA_I3
|
||
ITEM " |Nessuno"
|
||
ITEM "20|Operazioni non imponibili (comma 1, artt.8, 8bis e 9)"
|
||
ITEM "21|Operazioni non imponibili a seguito di dich. d'intento"
|
||
ITEM "22|Altre operazioni non imponibili"
|
||
ITEM "24|Operazioni non soggette (art. 74 comma 7)"
|
||
ITEM "25|Op. non sogg. effettuate nei confronti di terremotati"
|
||
ITEM "31|Cessione di rottami e altri materiali di recupero"
|
||
ITEM "32|Cessioni di oro e argento"
|
||
ITEM "33|Subappalto in edilizia"
|
||
ITEM "34|Cessione di fabbricati"
|
||
ITEM "35|Cessione di telefoni cellulari"
|
||
ITEM "36|Cessione di microprocessori"
|
||
ITEM "37|Prestazioni comparto edile e settori connessi"
|
||
ITEM "38|Operazioni settore energetico"
|
||
ITEM "B1|Ammontare op. es. escluse da nr. 1 a 9 e 11 art. 10"
|
||
ITEM "B2|Ammontare op. es. di cui al nr. 11 art. 10"
|
||
ITEM "B3|Ammontare op. es. di cui ai nr. 1 a 9 art. 10"
|
||
ITEM "B4|Ammontare op. es. di cui all'art 10 nr. 27 quinquies"
|
||
ITEM "B5|Ammontare op. es. di cui al nr. 18 e 19 art. 10"
|
||
ITEM "B6|Operazioni non sogg.di cui all'art.7 - 7 septies"
|
||
ITEM "G7A|Cessioni intracomunitarie non imponibili"
|
||
ITEM "G7B|Prestazioni di servizi non soggette all'imposta"
|
||
END
|
||
|
||
STRING FLD_TABIVA_I4 3
|
||
BEGIN
|
||
PROMPT 3 11 "Riga acquisti IVA11 per op.esenti e non imp. "
|
||
FIELD S9
|
||
SHEET "Riga|Descrizione@60"
|
||
INPUT FLD_TABIVA_I4
|
||
OUTPUT FLD_TABIVA_I4
|
||
ITEM " |Nessuno"
|
||
ITEM "12|Acquisti non imponibili (comma 2, artt8, 8bis e 9)"
|
||
ITEM "13|Altri acquisti non imponibili"
|
||
ITEM "14|Acquisti esenti"
|
||
ITEM "15|Acquisti non soggetti (art. 74 comma 7)"
|
||
ITEM "15A|Regime fiscale di vantaggio (art.27 commi 1 e 2) DL.98/2011"
|
||
ITEM "15B|Regime forfetario (art.1 commi da 54 a 89) legge n.190/2014 (campo 2)"
|
||
ITEM "16|Acquisti non soggetti all'imposta effettuati dai terremotati"
|
||
ITEM "17|Detrazione parziale dell'imposta (art.1 comma 109) legge n.311/2004"
|
||
ITEM "18|Acquisti effettuati da contribuenti che svolgono esclusivamente operazioni esenti"
|
||
ITEM "19A|Ammontare complessivo degli acquisti con IVA esigibile in anni successivi"
|
||
ITEM "19B|Ammontare complessivo degli acquisti effettuati in regime IVA per cassa"
|
||
END
|
||
|
||
STRING FLD_TABIVA_S10 4
|
||
BEGIN
|
||
PROMPT 3 12 "Operazioni attive in comunicazione annuale dati IVA "
|
||
FIELD S10
|
||
FLAGS "U"
|
||
SHEET "Riga|Descrizione@60"
|
||
INPUT FLD_TABIVA_S10
|
||
ITEM "|Nessuna"
|
||
ITEM "CD11|Totale operazioni attive (al netto dell'IVA)"
|
||
ITEM "CD12|Operazioni non imponibili"
|
||
ITEM "CD13|Operazioni esenti"
|
||
ITEM "CD14|Cessioni intracomunitarie di beni"
|
||
OUTPUT FLD_TABIVA_S10
|
||
END
|
||
|
||
STRING FLD_TABIVA_S11 4
|
||
BEGIN
|
||
PROMPT 3 13 "Operazioni passive in comunicazione annuale dati IVA "
|
||
FIELD S11
|
||
FLAGS "U"
|
||
SHEET "Riga|Descrizione@60"
|
||
INPUT FLD_TABIVA_S11
|
||
ITEM "|Nessuna"
|
||
ITEM "CD21|Totale operazioni passive (al netto dell'IVA)"
|
||
ITEM "CD22|Operazioni non imponibili"
|
||
ITEM "CD23|Operazioni esenti"
|
||
ITEM "CD24|Acquisti intracomunitari di beni"
|
||
ITEM "CD31|Importazioni di oro industriale ed argento puro senza pagamento dell'IVA in dogana"
|
||
ITEM "CD33|Rottami e altri materiali di recupero"
|
||
OUTPUT FLD_TABIVA_S11
|
||
END
|
||
|
||
LIST LST_TABIVA_S3 1 31
|
||
BEGIN
|
||
PROMPT 3 14 "Gestione plafond "
|
||
FIELD S3
|
||
HELP "Indicare il tipo di gestione di plafond"
|
||
ITEM " |Regime normale"
|
||
ITEM "1|Oper. relative art.8"
|
||
ITEM "2|Oper. relative art.8bis"
|
||
ITEM "3|Oper. relative art.9"
|
||
END
|
||
|
||
LIST LST_TABIVA_S4 1 43
|
||
BEGIN
|
||
PROMPT 3 15 "Regime agricolo "
|
||
FIELD I4
|
||
HELP "Indicare il tipo di gestione per regime agricolo"
|
||
ITEM " |Regime normale"
|
||
ITEM "1|Vendite regime agricolo"
|
||
ITEM "2|Vendite accessorie/Acquisti non agricoli"
|
||
ITEM "3|Acquisti ad uso promiscuo"
|
||
END
|
||
|
||
LIST LST_TABIVA_S5 1 31
|
||
BEGIN
|
||
PROMPT 3 16 "Ag. viaggio/turismo "
|
||
FIELD S5
|
||
HELP "Indicare il tipo di gestione per agenzie viaggio/turismo"
|
||
ITEM " |Regime normale"
|
||
ITEM "1|Operazioni interno CEE"
|
||
ITEM "2|Operazioni fuori CEE"
|
||
ITEM "3|Vendite miste CEE"
|
||
ITEM "4|Acquisti misti parte CEE"
|
||
ITEM "5|Acquisti misti parte fuori CEE"
|
||
END
|
||
|
||
BOOLEAN CHK_TABIVA_B4
|
||
BEGIN
|
||
PROMPT 3 17 "Escluso dal calcolo rimborso per aliquota media"
|
||
FIELD B4
|
||
END
|
||
|
||
BOOLEAN CHK_TABIVA_S9
|
||
BEGIN
|
||
PROMPT 3 18 "Codice per calcolo rimborso infrannuale"
|
||
FIELD B3
|
||
END
|
||
|
||
LIST FLD_NATURA 2 40
|
||
BEGIN
|
||
PROMPT 3 19 "Natura: "
|
||
FIELD S12
|
||
HELP "Indicare la natura del codice IVA per le fatture PA/TF"
|
||
ITEM "|IVA ordinaria"
|
||
ITEM "N1|N1 - IVA esclusa ex art 15"
|
||
ITEM "N2|N2 - IVA non soggetta"
|
||
ITEM "N3|N3 - IVA non imponibile"
|
||
ITEM "N4|N4 - IVA esente"
|
||
ITEM "N5|N5 - IVA in regime del margine"
|
||
ITEM "N6|N6 - IVA in reverse charge"
|
||
ITEM "N7|N7 - IVA assolta in altro stato U3"
|
||
END
|
||
|
||
BOOLEAN FLD_SOSPESO_B2
|
||
BEGIN
|
||
PROMPT 3 21 "Codice IVA sospeso"
|
||
FIELD B2
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
ENDMASK
|
||
|