campo-sirio/ba/batbiva.uml

#include "batbiva.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.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"
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

GROUPBOX DLG_NULL 40 4
BEGIN
  PROMPT 3 5 "Colonne per allegati imponibili"
END

GROUPBOX DLG_NULL 25 4
BEGIN
  PROMPT 44 5 "Indicatori mod. 101/102"
END

LIST FLD_TABIVA_S7 1 24
BEGIN
  PROMPT 4 6 "Clienti    "
  FIELD S7
  HELP "Inserire il numero della colonna degli allegati clienti relativa all'imposta"
  ITEM " |Non in allegato"
  ITEM "1|Imponibili"
  ITEM "3|Non imponibili"
END

LIST FLD_TABIVA_S8 1 24
BEGIN
  PROMPT 4 7 "Fornitori  "
  FIELD S8
  HELP "Inserire il numero della colonna degli allegati fornitori relativa all'imposta"
  ITEM " |Non in allegato"
  ITEM "1|Imponibili"
  ITEM "3|Senza applicaz.imposta"
  ITEM "4|Non imponibili"
END

BOOLEAN CHK_TABIVA_B0
BEGIN
  PROMPT 50 6 "Clienti"
  FIELD B0
  HELP "Indicare se il codice deve comparire nel modello 101"
END

BOOLEAN FLD_TABIVA_B1
BEGIN
  PROMPT 50 7 "Fornitori"
  FIELD B1
  HELP "Indicare se il codice deve comparire nel modello 102"
END

LIST FLD_TABIVA_I3 3 4
BEGIN
  PROMPT 3 10 "Riga vendite IVA11 per op.esenti e non imp.       "
  FIELD I3
  HELP "Indicare il codice riga per operazioni di vendita es. e non imp. del mod.101"
  ITEM " |No"
  ITEM "10|10"
  ITEM "23|23"
  ITEM "24|24"
  ITEM "25|24B"
  ITEM "1|B1"
  ITEM "2|B2"
  ITEM "3|B3"
  ITEM "26|26"
  ITEM "89|89"
  ITEM "50|E50"
  ITEM "51|E51"
END

LIST FLD_TABIVA_I4 3 4
BEGIN
  PROMPT 3 11 "Riga acquisti IVA11 per op.esenti e non imp.      "
  FIELD I4
  HELP "Indicare il n. di riga per operazioni di acquisto es. e non imp. del mod.101"
  ITEM "  |No"
  ITEM "1|01"
  ITEM "12|12"
  ITEM "13|13"
  ITEM "14|B14"
  ITEM "15|15"
END

LIST LST_TABIVA_S3 1 31
BEGIN
  PROMPT 3 12 "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 13 "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 14 "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 15 "Escluso dal calcolo rimborso per aliquota media"
  FIELD B4
  HELP "Indicare se il codice NON vale per il calcolo del rimborso per aliquota media"
END

BOOLEAN CHK_TABIVA_S9
BEGIN
  PROMPT 3 16 "Codice per calcolo rimborso infrannuale"
  FIELD B3
  HELP "Indicare se il codice vale per il calcolo del rimborso infrannuale"
END

BOOLEAN FLD_SOSPESO_B2
BEGIN
  PROMPT 3 17 "Codice IVA sospeso"
  FIELD B2
  HELP "Indicare se il codice iva e' sospeso"
END

ENDPAGE

ENDMASK