campo-sirio/ba/batbsta.uml

#include "batbsta.h"

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

PAGE "Stati" -1 -1 78 13

GROUPBOX DLG_NULL 75 7
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

NUMBER FLD_TABSTA_CODTAB 3
BEGIN
  PROMPT 2 2 "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 2 4 "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_S7 3
BEGIN
  PROMPT 2 8 "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 24 8 ""
  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

STRING FLD_TABSTA_S2 20
BEGIN
  PROMPT 2 11 "Nazionalit<69>   "
  FIELD S2
  HELP "Nazionalit<69> corrispondente a questo stato"
END

BOOLEAN FLD_BLACKLIST
BEGIN
  PROMPT 2 13 "Paese a fiscalit<69> agevolata (Black List)"
  FIELD B0
END

BOOLEAN FLD_SANMARINO
BEGIN
  PROMPT 2 14 "San Marino"
  FIELD B1
END

NUMBER FLD_UNICO 3
BEGIN
  PROMPT 51 13 "Codice 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 51 14 "Codice ISTAT "
  FLAGS "Z"
  FIELD S9
  HELP "Codice ISTAT dello stato. Es. Svizzera=241 "
END

ENDPAGE

ENDMASK