#include "batbsta.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 "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 "Nome dello stato"
  CHECKTYPE REQUIRED
END

STRING FLD_TABSTA_S7 3
BEGIN
  PROMPT 3 5 "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 "Valuta corrente dello stato"
END

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

STRING FLD_TABSTA_S2 10
BEGIN
  PROMPT 3 9 "Nazionalita'  "
  FIELD %STA->S2
  HELP "Nazionalita' corrispondente a questo stato"
END

ENDPAGE

ENDMASK