campo-sirio/ba/batbsta.uml

#include "batbsta.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.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 10
BEGIN
  PROMPT 2 11 "Nazionalita'  "
  FIELD S2
  HELP "Nazionalita' corrispondente a questo stato"
END

ENDPAGE

ENDMASK