campo-sirio/db/dbtbvar.uml

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

  PAGE "Tabella variabili" 0 2 0 0
 
   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