campo-sirio/m770/batbent.uml

#include "batbent.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Tabella enti previdenziali" -1 -1 78 18

NUMBER F_CODENTE 2
BEGIN
  PROMPT 4 1 "Codice Ente "
  FIELD LF_TABCOM->CODTAB
  HELP "Inserire il codice dell' ente"
  USE %ENT
  CHECKTYPE REQUIRED
  INPUT CODTAB F_CODENTE
  DISPLAY "Cod.Ente" CODTAB
  DISPLAY "Denominazione@60 " S0
  OUTPUT F_CODENTE CODTAB
  OUTPUT F_DESCR S0
  KEY 1  
  FLAGS "RZ"
END

STRING F_DESCR 60
BEGIN
  PROMPT 4 3 "Denominazione "
  FIELD LF_TABCOM->S0
  HELP "Inserire la descrizione dell' Ente"
  WARNING "Manca la denominazione"
  CHECKTYPE REQUIRED
END

ENDPAGE

ENDMASK