#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 3 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 3 2 "Descrizione "
  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 3 3 "Tipo codice "
  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
  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
  ITEM "ES|Operazioni esenti"
  MESSAGE CLEAR,FLD_TABIVA_R0|CLEAR,FLD_TABIVA_I0
  MESSAGE ENABLE,FLD_TABIVA_I3|ENABLE,FLD_TABIVA_I4
  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
  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
  MESSAGE ENABLE,FLD_TABIVA_S6
END

STRING FLD_TABIVA_S6 4
BEGIN
  PROMPT 39 3 "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 3 4 "Aliquota    "
  FIELD R0
  FLAGS "R"
  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 4 "Perc.IVA teorica        "
  FIELD I0
  HELP "Inserire la percentuale teorica dell'imposta"
END

#ifdef COVER

NUMBER FLD_TABIVA_I1 1
BEGIN
  PROMPT 3 5 "Detraibilita' "
  SHEET "Codice|Tipo detraibilita'@75"
  INPUT FLD_TABIVA_I1
  ITEM " |Regime normale"
  ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
  ITEM "3|IVA indicata per passaggi interni al solo fine del calcolo di ventilazione"
  ITEM "9|IVA non detraibile per l'articolo 19"
  OUTPUT FLD_TABIVA_I1
  OUTPUT FLD_DETRAZIONE
  FIELD I1
END

STRING FLD_DETRAZIONE 80 52
BEGIN
  PROMPT 22 5 ""
  FLAGS "D"
END

#endif

GROUPBOX DLG_NULL 14 4
BEGIN
  PROMPT 3 6 "@bMod. 101/102"
END

BOOLEAN CHK_TABIVA_B0
BEGIN
  PROMPT 4 7 "Clienti"
  FIELD B0
END

BOOLEAN FLD_TABIVA_B1
BEGIN
  PROMPT 4 8 "Fornitori"
  FIELD B1
END

GROUPBOX DLG_NULL 48 4
BEGIN
  PROMPT 19 6 "@bAllegati Clienti/Fornitori"
END

LIST FLD_TABIVA_S7 1 43
BEGIN
  PROMPT 20 7 ""
  FIELD S7
  ITEM " |Non in allegato"
  ITEM "1|CL004001 - Imponibili"
  ITEM "2|CL005001 - Non imponibili"
  ITEM "3|CL006001 - Senza applicazione imposta"
  ITEM "4|CL007001 - IVA non esposta in fattura"
END

LIST FLD_TABIVA_S8 1 43
BEGIN
  PROMPT 20 8 ""
  FIELD S8
  ITEM " |Non in allegato"
  ITEM "1|FR004001 - Imponibili"
  ITEM "5|FR005001 - Imponibili+Imposta afferente"
  ITEM "2|FR006001 - Non imponibili"
  ITEM "3|FR007001 - Senza applicazione imposta"
  ITEM "4|FR008001 - IVA non esposta in fattura"
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 "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 "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 "16|Acquisti non soggetti all'imposta effettuati dai terremotati"
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 S4
  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

BOOLEAN FLD_SOSPESO_B2
BEGIN
  PROMPT 3 19 "Codice IVA sospeso"
  FIELD B2
END

ENDPAGE

ENDMASK