campo-sirio/ve/batbtip.uml

#include "batbtip.h"

TOOLBAR "" 0 20 60 2

   #include "toolbar.h"

ENDPAGE

PAGE "Tabella tipi di documento" -1 -1 60 14

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

   STRING F_CODTAB 4
   BEGIN
      PROMPT 2 2 "Cod. tipo docum. "
      FIELD CODTAB
      HELP "Codice tipo documento"
      USE %TIP
      CHECKTYPE REQUIRED
      INPUT CODTAB F_CODTAB
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_CODTAB CODTAB
      OUTPUT F_DESNUM S0
      KEY 1
      FLAG "UZ"
   END

   STRING F_DESNUM 50
   BEGIN
      PROMPT 2 4 "Descrizione      "
      FIELD S0
      HELP "Descrizione tipo documento"
      USE %TIP KEY 2
      CHECKTYPE REQUIRED
      INPUT S0 F_DESNUM
      DISPLAY "Descrizione@40" S0
      DISPLAY "Codice" CODTAB
      COPY OUTPUT F_CODTAB
      KEY 2
   END

   STRING F_PROFILO 8
   BEGIN
      PROMPT 2 8 "Profilo documento        "
      FIELD S4
      CHECKTYPE REQUIRED
   END

   STRING F_PSTAMPA 8
   BEGIN
      PROMPT 2 10 "Profilo stampa documento "
      FIELD S5
      CHECKTYPE REQUIRED
   END

ENDPAGE

ENDMASK