campo-sirio/src/ba/ba7500a.uml

#include <ba7500a.h>

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

PAGE "Aggiornamento Stati" -1 -1 78 13

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

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

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

SPREADSHEET F_STATI 75 15
BEGIN
  PROMPT 0 5 "Righe movimenti"
  ITEM "Codice@5F"
  ITEM "Denominazione@50"
  ITEM "Codice ISO@10"
  DEFAULT "*"  // Impedisce il salvataggio su profilo .ini
END

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 69 14

NUMBER A_CODICE 3
BEGIN
  PROMPT 1 0 "Codice"
  HELP "Codice interno per identificare lo stato"
END

STRING A_DENOMINAZIONE 50
BEGIN
  PROMPT 1 2 "Denominazione"
  HELP "Denominazione dello stato"
END

STRING A_ISO 2
BEGIN
  PROMPT 1 3 "Codice ISO"
  HELP "Codice ISO 3166-1 alpha-2 dello stato"
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE

ENDMASK