campo-sirio/ve/batbtri.uml

#include "batbtri.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 12
   BEGIN
      PROMPT 2 8 "Tipo        "
      ITEMS "M|Merce"
      ITEMS "S|Spese"
      ITEMS "C|Sconti"
      ITEMS "D|Descrizioni"
      FIELD S7
   END

END
ENDMASK