#include "batbsta.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Stati" -1 -1 78 13

GROUPBOX DLG_NULL 75 5
BEGIN
 PROMPT 0 0 ""
 FLAGS "R"
END

NUMBER FLD_TABSTA_CODTAB 3
BEGIN
  PROMPT 1 1 "Codice        "
  FIELD CODTAB
  FLAGS "RZ"
  KEY 1
  USE %STA
  INPUT CODTAB FLD_TABSTA_CODTAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT FLD_TABSTA_CODTAB CODTAB
  OUTPUT FLD_TABSTA_S0 S0
  HELP "Codice dello stato"
  CHECKTYPE REQUIRED
END

STRING FLD_TABSTA_S0 50
BEGIN
  PROMPT 1 2 "Denominazione "
  FIELD S0
  KEY 2
  USE %STA KEY 2
  INPUT S0 FLD_TABSTA_S0
  DISPLAY "Denominazione@60" S0
  DISPLAY "Codice" CODTAB
  OUTPUT FLD_TABSTA_CODTAB CODTAB
  OUTPUT FLD_TABSTA_S0 S0
  HELP "Nome dello stato"
  CHECKTYPE REQUIRED
END

STRING FLD_TABSTA_S2 20
BEGIN
  PROMPT 1 3 "Nazionalità   "
  FIELD S2
  HELP "Nazionalità corrispondente a questo stato"
END

STRING FLD_TABSTA_S7 3
BEGIN
  PROMPT 1 5 "Valuta "
  FIELD S7
  FLAGS "U"
  USE %VAL
  CHECKTYPE NORMAL
  INPUT CODTAB FLD_TABSTA_S7
  DISPLAY "Codice" CODTAB
  DISPLAY "Valuta@50" S0
  OUTPUT FLD_TABSTA_S7 CODTAB
  OUTPUT FLD_TABSTA_S7_TABVAL_S0 S0
  HELP "Valuta corrente dello stato"
END

STRING FLD_TABSTA_S7_TABVAL_S0 50
BEGIN
  PROMPT 18 5 ""
  USE %VAL KEY 2
  CHECKTYPE NORMAL
  INPUT S0 FLD_TABSTA_S7_TABVAL_S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Valuta@50" S0
  OUTPUT FLD_TABSTA_S7 CODTAB
  OUTPUT FLD_TABSTA_S7_TABVAL_S0 S0
  HELP "Valuta corrente dello stato"
END

BOOLEAN FLD_BLACKLIST
BEGIN
  PROMPT 1 6 "Paese a fiscalità agevolata (Black List)"
  FIELD B0
END

BOOLEAN FLD_SANMARINO
BEGIN
  PROMPT 45 6 "San Marino"
  FIELD B1
END

GROUPBOX DLG_NULL 75 5
BEGIN
 PROMPT 0 7 "Codici"
 FLAGS "R"
END

NUMBER FLD_UNICO 3
BEGIN
  PROMPT 1 8 "UNICO              "
  FLAGS "Z"
  FIELD S8
  HELP "Codice stato da indicare sul modello UNICO e sullo Spesometro. Es. Svizzera=071"
END

NUMBER FLD_ISTAT 3
BEGIN
  PROMPT 1 9 "ISTAT              "
  FLAGS "Z"
  FIELD S9
  HELP "Codice ISTAT dello stato. Es. Svizzera=241 "
END

STRING FLD_ISO 2
BEGIN
  PROMPT 1 10 "ISO 3166-1 alpha-2 "
  USE %SCE
  INPUT CODTAB FLD_ISO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_ISO CODTAB
  CHECKTYPE NORMAL
  FIELD S10
  FLAGS "U"
  HELP "Codice ISO di 2 caratteri Es. IT, UK, DE"
END

ENDPAGE

ENDMASK