#include <batb%sta.h>

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Stati esteri" -1 -1 78 13

STRING FLD_TABSTA_CODTAB 3
BEGIN
  PROMPT 3 1 "Codice        "
  FIELD %STA->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 "Inserire il codice dello stato"
  CHECKTYPE REQUIRED
END

STRING FLD_TABSTA_S0 50
BEGIN
  PROMPT 3 3 "Denominazione "
  FIELD %STA->S0
  KEY 2
  USE %STA KEY 2
  INPUT S0 FLD_TABSTA_S0
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT FLD_TABSTA_CODTAB CODTAB
  OUTPUT FLD_TABSTA_S0 S0
  HELP "Inserire il nome dello stato"
  CHECKTYPE REQUIRED
END

LIST CHK_TABSTA_S6 18
BEGIN
  PROMPT 3 5 "Stato CEE     "
  FIELD %STA->S6
  HELP "Indicare il codice ISO dello stato"
  ITEM "  |Italia o extra CEE"
  ITEM "BE|Belgio"
  ITEM "DE|Germania"
  ITEM "DK|Danimarca"
  ITEM "EL|Grecia"
  ITEM "ES|Spagna"
  ITEM "FR|Francia"
  ITEM "GB|Gran Bretagna"
  ITEM "IE|Irlanda"
  ITEM "IT|Italia"
  ITEM "LU|Lussemburgo"
  ITEM "NL|Olanda"
  ITEM "PT|Portogallo"
END

STRING FLD_TABSTA_S7 3
BEGIN
  PROMPT 3 7 "Valuta        "
  FIELD %STA->S7
  FLAGS "U"
  USE %VAL
	CHECKTYPE NORMAL
  INPUT CODTAB FLD_TABSTA_S7
  DISPLAY "Codice" CODTAB
  DISPLAY "Valuta                " S0
  OUTPUT FLD_TABSTA_S7 CODTAB
  OUTPUT FLD_TABSTA_S7_TABVAL_S0 S0
  HELP "Inserire la valuta corrente dello stato"
END

STRING FLD_TABSTA_S7_TABVAL_S0 50
BEGIN
  PROMPT 17 8 ""
  FLAGS "D"
END

STRING FLD_TABSTA_S2 10
BEGIN
  PROMPT 3 10 "Nazionalit…   "
  FIELD %STA->S2
  HELP "Inserire la nazionalit… corrispondente a questo stato"
END

ENDPAGE

ENDMASK