TOOLBAR "" 0 20 60 2

   #include "toolbar.h"

ENDPAGE

#define F_CODICE      101
#define F_DESCR       102
#define F_PROFILO     103

PAGE "Tipo di riga" -1 -1 60 14

   STRING F_CODICE 2
   BEGIN
      PROMPT 2 2 "Codice      "
      FIELD CODTAB
      USE %TRI
      INPUT CODTAB F_CODICE
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_CODICE CODTAB
      OUTPUT F_DESCR S0
      CHECKTYPE REQUIRED
      KEY 1
   END

   STRING F_DESCR 30
   BEGIN
      PROMPT 2 4 "Descrizione "
      FIELD S0
      USE %TRI KEY 2
      INPUT S0 F_DESCR
      COPY DISPLAY F_CODICE
      COPY OUTPUT F_CODICE
      CHECKTYPE REQUIRED
      KEY 2
   END

   STRING f_PROFILO 8
   BEGIN
      PROMPT 2 6 "Profilo     "
      CHECKTYPE REQUIRED
      FIELD S4
   END

END
ENDMASK