campo-sirio/ba/batbiva.uml

#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
  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 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

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 "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 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

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

ENDPAGE

ENDMASK