campo-sirio/ve/vetbtri.uml

#include "vetbtri.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Tipo di riga" 0 0 0 0

   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
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      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