#include "tf0200a.h"

TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_RECALC 2 2
BEGIN
  PROMPT 1 1 "Elabora"
  PICTURE TOOL_CONVERT 
END

BUTTON DLG_EMAIL 2 2
BEGIN
  PROMPT 1 1 "Invia"
  PICTURE TOOL_EMAIL 
END

BUTTON DLG_NULL 2 2
BEGIN
  PROMPT -1 1 ""
  PICTURE 0
END

#include <relapbar.h>
ENDPAGE

PAGE "Impostazioni" 0 2 0 0

BOOLEAN F_DATA_COMP
BEGIN
	PROMPT 1 0 "@BElaborare per data competenza"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Codice     "
  FLAGS "FZD"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 20 1 ""
  USE LF_NDITTE KEY 2
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@60" RAGSOC
  DISPLAY "Codice" CODDITTA
  COPY OUTPUT F_CODDITTA
  CHECKTYPE REQUIRED
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  FIELD ANNO
  PROMPT 1 2 "Anno       "
  USE LF_IVALIQ
  SELECT GENERATA=="U"
  INPUT ANNO F_ANNO 
  INPUT MESE F_MESE
  INPUT TRIMESTRE F_TRIMESTRE
  DISPLAY "Anno Liquid.IVA" ANNO
  DiSPLAY "Mese" MESE
  DISPLAY "Trimestre" TRIMESTRE
  OUTPUT F_ANNO ANNO
  OUTPUT F_MESE MESE
  OUTPUT F_TRIMESTRE TRIMESTRE
  KEY 1
  CHECKTYPE REQUIRED
  FLAGS ""
  WARNING "Inserire un anno di liquidazione"
END

NUMBER F_MESE 2
BEGIN
	PROMPT 24 2 "Mese   "
	SHEET "  |Mese@30"
	INPUT F_MESE
	OUTPUT F_MESE
	ITEM "|"
	ITEM "1|Gennaio"
	ITEM "2|Febbraio"
	ITEM "3|Marzo"
	ITEM "4|Aprile"
	ITEM "5|Maggio"
	ITEM "6|Giugno"
	ITEM "7|Luglio"
	ITEM "8|Agosto"
	ITEM "9|Settembre"
	ITEM "10|Ottobre"
	ITEM "11|Novembre"
	ITEM "12|Dicembre"
	HELP "Mese dichiarazione, lasciare vuoto per inserirne uno nuovo"
	FLAGS ""
	KEY 1
	FIELD MESE
	CHECKTYPE REQUIRED
END

/* Parte di chiave nascosta */
LISTBOX F_GENERATA 1
BEGIN
	PROMPT 75 2 ""
	ITEM "U|U"
	KEY 1
	FIELD GENERATA
	FLAGS "GD"
END
/* *********************** */

NUMBER F_TRIMESTRE 2
BEGIN
	PROMPT 50 2 "Trimestre "
	SHEET "  |Trimestre@30"
	INPUT F_TRIMESTRE
	OUTPUT F_TRIMESTRE
	ITEM "|"
	ITEM "1|Primo"
	ITEM "2|Secondo"
	ITEM "3|Terzo"
	ITEM "4|Quarto"
	ITEM "5|Quinto"
	HELP "Trimestre dichiarazione, lasciare vuoto per inserirne uno nuovo"
	FLAGS ""
	FIELD TRIMESTRE
	CHECKTYPE REQUIRED
END

BOOLEAN F_SUBFORNITURE
BEGIN 
	PROMPT 1 3 "Subforniture"
	FIELD SUBFOR
	FLAGS ""
END

NUMBER F_EVECC 1
BEGIN
	PROMPT 24 3 "Eventi eccezionali   "
	FIELD EVECC
	FLAGS ""
ENDPAGE

NUMBER F_TOTOPATT 16 2
BEGIN
	PROMPT 1 4 "Totale op. attive VP2  "
	FIELD TOTOPATT
	FLAGS ""
END

BOOLEAN B_TOTOPATT
BEGIN
	PROMPT 45 4 ""
	FIELD BTOTOPATT
	FLAGS "D"
END

NUMBER F_TOTOPATTXC 16 2
BEGIN
	PROMPT 1 5 "Totale op. attive  x c."
	FIELD TOTOPATTXC
	FLAGS ""
END

BOOLEAN B_TOTOPATTXC
BEGIN
	PROMPT 45 5 ""
	FIELD BTOTOPATTX
	FLAGS "D"
END

NUMBER F_TOTOPPAS 16 2
BEGIN
	PROMPT 50 4 "Totale op. passive VP3 "
	FIELD TOTOPPAS
	FLAGS ""
END

BOOLEAN B_TOTOPPAS
BEGIN
	PROMPT 94 4 ""
	FIELD BTOTOPPAS
	FLAGS "D"
END

NUMBER F_TOTOPPASXC 16 2
BEGIN
	PROMPT 50 5 "Totale op. passive x c."
	FIELD TOTOPPASXC
	FLAGS ""
END

BOOLEAN B_TOTOPPASXC
BEGIN
	PROMPT 94 5 ""
	FIELD BTOTOPPASX
	FLAGS "D"
END

NUMBER F_IVAES 16 2
BEGIN
	PROMPT 1 6 "IVA esigibile VP4      "
	FIELD IVAES
	FLAGS ""
END

BOOLEAN B_IVAES
BEGIN
	PROMPT 45 6 ""
	FIELD BIVAES
	FLAGS "D"
END

NUMBER F_IVAESXC 16 2
BEGIN
	PROMPT 1 7 "IVA esigibile x c.     "
	FIELD IVAESXC
	FLAGS ""
END

BOOLEAN B_IVAESXC
BEGIN
	PROMPT 45 7 ""
	FIELD BIVAESXC
	FLAGS "D"
END

NUMBER F_IVAESDIFF 16 2
BEGIN
	PROMPT 1 8 "IVA esigibile diff     "
	FIELD IVAESDIFF
	FLAGS ""
END

BOOLEAN B_IVAESDIFF
BEGIN
	PROMPT 45 8 ""
	FIELD BIVAESDIFF
	FLAGS "D"
END

NUMBER F_IVADET 16 2
BEGIN
	PROMPT 50 6 "IVA detratta VP5       "
	FIELD IVADET
	FLAGS ""
END

BOOLEAN B_IVADET
BEGIN
	PROMPT 94 6 ""
	FIELD BIVADET
	FLAGS "D"
END

NUMBER F_IVADETXC 16 2
BEGIN
	PROMPT 50 7 "IVA detratta x c.      "
	FIELD IVADETXC
	FLAGS ""
END

BOOLEAN B_IVADETXC
BEGIN
	PROMPT 94 7 ""
	FIELD BIVADETXC
	FLAGS "D"
END

NUMBER F_IVADETDIFF 16 2
BEGIN
	PROMPT 50 8 "IVA detratta diff      "
	FIELD IVADETDIFF
	FLAGS ""
END

BOOLEAN B_IVADETDIFF
BEGIN
	PROMPT 94 8 ""
	FIELD BIVADETDIF
	FLAGS "D"
END

NUMBER F_IVADOV 16 2
BEGIN
	PROMPT 1 10 "IVA dovuta VP6.1       "
	FIELD IVADOV
	FLAGS ""
END

BOOLEAN B_IVADOV
BEGIN
	PROMPT 45 10 ""
	FIELD BIVADOV
	FLAGS "D"
END

NUMBER F_IVADOVC 16 2
BEGIN
	PROMPT 50 10 "o a credito VP6.2      "
	FIELD IVADOVC
	FLAGS ""
END

BOOLEAN B_IVADOVC
BEGIN
	PROMPT 94 10 ""
	FIELD BIVADOVC
	FLAGS "D"
END

NUMBER F_DEBPREC 16 2
BEGIN
	PROMPT 1 12 "Debito precedente VP7  "
	FIELD DEBPREC
	FLAGS ""
END

BOOLEAN B_DEBPREC
BEGIN
	PROMPT 45 12 ""
	FIELD BDEBPREC
	FLAGS "D"
END

NUMBER F_CREPREC 16 2
BEGIN
	PROMPT 50 12 "Credito precedente VP8 "
	FIELD CREPREC
	FLAGS ""
END

BOOLEAN B_CREPREC
BEGIN
	PROMPT 94 12 ""
	FIELD BCREPREC
	FLAGS "D"
END

NUMBER F_INTLIQTRI 16 2
BEGIN
	PROMPT 1 13 "Int. liq. trim. VP12   "
	FIELD INTLIQTRI
	FLAGS ""
END

BOOLEAN B_INTLIQTRI
BEGIN
	PROMPT 45 13 ""
	FIELD BINTLIQTRI
	FLAGS "D"
END

NUMBER F_CREAPREC 16 2
BEGIN
	PROMPT 50 13 "Credito anno prec. VP9 "
	FIELD CREAPREC
	FLAGS ""
END

BOOLEAN B_CREAPREC
BEGIN
	PROMPT 94 13 ""
	FIELD BCREAPREC
	FLAGS "D"
END

NUMBER F_ACCDOV 16 2
BEGIN
	PROMPT 1 14 "Acconto dovuto VP13    "
	FIELD ACCDOV
	FLAGS ""
END

BOOLEAN B_ACCDOV
BEGIN
	PROMPT 45 14 ""
	FIELD BACCDOV
	FLAGS "D"
END

NUMBER F_VEAUE 16 2
BEGIN
	PROMPT 50 14 "Versamenti auto UE VP10"
	FIELD VEAUE
	FLAGS ""
END

BOOLEAN B_VEAUE
BEGIN
	PROMPT 94 14 ""
	FIELD BVEAUE
	FLAGS "D"
END

NUMBER F_CREIMP 16 2
BEGIN
	PROMPT 50 15 "Crediti di imp. VP11   "
	FIELD CREIMP
	FLAGS ""
END

BOOLEAN B_CREIMP
BEGIN
	PROMPT 94 15 ""
	FIELD BCREIMP
	FLAGS "D"
END

NUMBER F_RETTIFICHE 16 2
BEGIN
	PROMPT 1 16 "Rettifiche             "
	FIELD RETTIFICHE
	FLAGS ""
END

BOOLEAN B_RETTIFICHE
BEGIN
	PROMPT 45 16 ""
	FIELD BRETTIFICH
	FLAGS "D"
END

NUMBER F_VARIMP 16 2
BEGIN
	PROMPT 50 16 "Variazioni d'imposta   "
	FIELD VARIMP
	FLAGS ""
END

BOOLEAN B_VARIMP
BEGIN
	PROMPT 94 16 ""
	FIELD BVARIMP
	FLAGS "D"
END

NUMBER F_RIMBORSI 16 2
BEGIN
	PROMPT 1 17 "Rimborsi               "
	FIELD RIMBORSI
	FLAGS ""
END

BOOLEAN B_RIMBORSI
BEGIN
	PROMPT 45 17 ""
	FIELD BRIMBORSI
	FLAGS "D"
END

NUMBER F_CRESPEC 16 2
BEGIN
	PROMPT 50 17 "Crediti speciali       "
	FIELD CRESPEC
	FLAGS ""
END

BOOLEAN B_CRESPEC
BEGIN
	PROMPT 94 17 ""
	FIELD BCRESPEC
	FLAGS "D"
END

NUMBER F_IVAVER 16 2
BEGIN
	PROMPT 1 19 "IVA da versare VP14.1  "
	FIELD IVAVER
	FLAGS ""
END

BOOLEAN B_IVAVER
BEGIN
	PROMPT 45 19 ""
	FIELD BIVAVER
	FLAGS "D"
END

NUMBER F_IVAVERC 16 2
BEGIN
	PROMPT 50 19 "o a credito VP14.2     "
	FIELD IVAVERC
	FLAGS ""
END

BOOLEAN B_IVAVERC
BEGIN
	PROMPT 94 19 ""
	FIELD BIVAVERC
	FLAGS "D"
END

/* Campi non visualizzati ma che vengono salvati lo stesso! */

NUMBER F_IMPNOVER 18 3
BEGIN
	PROMPT 50 19 "Imposta non versata"
	FIELD IMPNOVER
	FLAGS "H"
END

NUMBER F_VEREFF 18 3
BEGIN
	PROMPT 50 19 "Versamenti effettuati"
	FIELD VEREFF
	FLAGS "H"
END

ENDMASK