campo-sirio/ve/vetbtri.uml

#include "vetbtri.h"
TOOLBAR "" 0 20 60 2

#include "toolbar.h"

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

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

   STRING F_CODICE 4
   BEGIN
      PROMPT 2 2 "Codice       "
      FIELD CODTAB
      FLAGS "U"
      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 50
   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

   LIST F_TPR 16
   BEGIN
      PROMPT 2 8 "Tipo         "
      ITEMS "M|<M>erce"
      ITEMS "S|<S>pese"
      ITEMS "P|<P>restazioni"
      ITEMS "R|Risorse"
      ITEMS "A|Attrezzature"
      ITEMS "C|S<c>onti"
      ITEMS "O|<O>maggi"
      ITEMS "D|<D>escrizioni"
      ITEMS "T|Re<T>tifiche" 
       FIELD S7
   END
   
BOOLEAN F_FORMFEED
BEGIN
  PROMPT 2 10  "Salto pagina dopo questo tipo"
  FIELD B0
END   

ENDPAGE
ENDMASK