campo-sirio/ce/cetbcat.uml

#define GR_SEARCH 29
#include "cetbcat.h"

TOOLBAR "" 0 -2 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Attivita' cespiti" -1 -1 60 6

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

NUMBER F_CODGR 2
BEGIN
  PROMPT 2 2 "Codice gruppo "
  FIELD CODTAB[1,2]
  FLAGS "Z"
  KEY 1
  USE %CGR
  INPUT CODTAB F_CODGR
  DISPLAY "Codice gruppo" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODGR CODTAB
  OUTPUT F_DESCRGR S0
  CHECKTYPE FORCED
  WARNING "Codice gruppo assente"
END

STRING F_DESCRGR 60 45
BEGIN
  PROMPT 22 2 ""
  FLAGS "D"
END

STRING F_CODSP 4
BEGIN
  PROMPT 2 4 "Codice specie "
  FIELD CODTAB[3,6]
  FLAGS "_"
  KEY 1
  USE %CAT
  INPUT CODTAB[1,2] F_CODGR
  INPUT CODTAB[3,6] F_CODSP
  DISPLAY "Codice gruppo " CODTAB[1,2]
  DISPLAY "Codice specie " CODTAB[3,6]
  DISPLAY "Descrizione @50" S0
  OUTPUT F_CODGR CODTAB[1,2]
  OUTPUT F_CODSP CODTAB[3,6]
  OUTPUT F_DESCRSP S0
  CHECKTYPE REQUIRED
  GROUP GR_SEARCH
END

STRING F_DESCRSP 60 50
BEGIN
  PROMPT 2 6 "Descrizione   "
  FIELD S0
  KEY 2
  USE %CAT KEY 2
  INPUT S0 F_DESCRSP
  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice gruppo" CODTAB[1,2]
  DISPLAY "Codice specie" CODTAB[3,6]
  COPY OUTPUT F_CODSP
  CHECKTYPE REQUIRED
END

BOOLEAN F_SUSPENDED
BEGIN
  PROMPT 2 10 "Sospeso"
  FIELD B0 
END
ENDPAGE
ENDMASK