campo-sirio/db/dbtbvar.uml

#include "dbtbvar.h"      
TOOLBAR "" 0 19 80 3 
#include <toolbar.h>
ENDPAGE
  PAGE "Tabella variabili" -1 -1 65 15
 
   GROUPBOX DLG_NULL 70 8
     BEGIN
       PROMPT 1 1 ""
     END
   STRING F_CODICE 20
     BEGIN
       PROMT 2 2  "Codice        "  
       FIELD CODTAB              
       KEY 1        
       USE VAR 
       INPUT CODTAB F_CODICE
       DISPLAY "Codice@20" CODTAB
       DISPLAY "Descrizione@50" S0
       OUTPUT F_CODICE CODTAB
       OUTPUT F_DESCR S0
       CHECKPOINT REQUIRED
       FLAG "U"
     END
   STRING F_DESCR 50
     BEGIN
       PROMPT 2 4 "Descrizione   "
       FIELD S0                    
       KEY 2 
       USE VAR KEY 2
       INPUT S0 F_DESCR
       DISPLAY "Descrizione@50" S0
       DISPLAY "Codice@20" CODTAB
       OUTPUT F_DESCR S0
       OUTPUT F_CODICE CODTAB
       CHECKTYPE REQUIRED
     END             
   LISTBOX F_VAR 10
     BEGIN
       PROMPT 2 6 "Tipo          "
       ITEM  "|stringa"
       ITEM "X|numerico"
       FIELD B0
     END
   ENDPAGE
   ENDMASK