campo-sirio/m770/batbcaf.uml

#include "batbcaf.h"

TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE

PAGE "Tabella C.A.A." -1 -1 78 18

NUMBER F_CODCAAF 5
BEGIN
  PROMPT 4 1 "Codice CAA       "
  FIELD LF_TABCOM->CODTAB
  HELP "Inserire il codice CAA"
  USE %CAF
  CHECKTYPE REQUIRED
  INPUT CODTAB F_CODCAAF
  DISPLAY "Cod.CAA  " CODTAB
  DISPLAY "Denominazione@50" S0 
  DISPLAY "Codice fiscale@11" S1
  DISPLAY "N.iscr.albo" I1
  OUTPUT F_CODCAAF CODTAB
  KEY 1  
  FLAGS "RZ"
END

STRING F_DENOM 50
BEGIN
  PROMPT 4 3 "Denominazione    "
  FIELD LF_TABCOM->S0
  CHECKTYPE REQUIRED
END

STRING F_STATO 2
BEGIN
  PROMPT 18 4 ""
  FLAGS "H"
END

STRING F_CODFISC 11
BEGIN
  PROMPT 4 5 "Codice fiscale   "
  FIELD LF_TABCOM->S1
  CHECKTYPE REQUIRED
  WARNING "Manca il codice fiscale"
  VALIDATE PI_FUNC F_STATO
END

NUMBER F_ISCALBO 5
BEGIN
  PROMPT 4 7 "Codice iscrizione albo "
  FIELD LF_TABCOM->I1
  CHECKTYPE REQUIRED
  WARNING "Manca il codice iscrizione albo"
END

ENDPAGE
ENDMASK