#include "veuml.h"

TOOLBAR "" 0 20 60 2
#include "toolbar.h"
ENDPAGE

PAGE "Gestione documenti" 1 1 60 14

   GROUPBOX DLG_NULL 78 5
   BEGIN
      PROMPT 1 0 ""
   END

   STRING F_CODNUM 4
   BEGIN
      PROMPT 2 1 "Cod. num.    "
      FIELD CODNUM
      HELP "Codice numerazione"
      USE %NUM
      INPUT CODTAB F_CODNUM
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_CODNUM CODTAB
      OUTPUT F_DESNUM S0
      OUTPUT F_TIPIDOCS S2
      CHECKTYPE FORCED
      FLAG "UPA"
      WARNING "Numerazione assente"
      KEY 1
   END

   STRING F_DESNUM 50
   BEGIN
      PROMPT 25 1 ""
      HELP "Descrizione numerazione"
      USE %NUM KEY 2
      INPUT S0 F_DESNUM
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      COPY OUTPUT F_CODNUM
      KEY 2
   END

   STRING F_TIPODOC 4
   BEGIN
      PROMPT 2 2 "Tipo doc.    "
      FIELD TIPODOC
      HELP "Codice tipo documento"
      USE %TIP
      INPUT CODTAB F_TIPODOC
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC CODTAB
      OUTPUT F_DESTIPODOC S0
      CHECKTYPE FORCED
      FLAG "UP"
   END

   STRING F_DESTIPODOC 50
   BEGIN
      PROMPT 25 2 ""
      HELP "Descrizione tipo documento"
      USE %TIP KEY 2
      INPUT S0 F_DESTIPODOC
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      COPY OUTPUT F_TIPODOC
   END

   NUMBER F_NDOC 6
   BEGIN
      PROMPT 2 3 "Numero doc.  "
      FIELD NDOC
      USE LF_DOC
      INPUT ANNO F_ANNO SELECT
      INPUT PROVV F_PROVV SELECT
      INPUT CODNUM F_CODNUM SELECT
      INPUT NDOC F_NDOC
      DISPLAY "Num." CODNUM
      DISPLAY "Anno" ANNO
      DISPLAY "Provv" PROVV
      DISPLAY "Tipo" TIPODOC
      DISPLAY "N.Doc. " NDOC
      OUTPUT F_NDOC NDOC
      OUTPUT F_STATO STATO
      CHECKTYPE REQUIRED
      KEY 1
      FLAG "R"
   END

   LISTBOX F_PROVV 14
   BEGIN
      FIELD PROVV
      PROMPT 25 3 "Numerazione "
      ITEM "D|Definitiva "
      ITEM "P|Provvisoria"
      KEY 1
      FLAGS "P"
   END

   STRING F_STATO 1
   BEGIN
      PROMPT 57 3 "Stato  "
      FIELD STATO
      FLAG "D"
   END

   NUMBER F_ANNO 4
   BEGIN
      PROMPT 68 3 "Es. "
      FIELD ANNO
      CHECKTYPE REQUIRED
      FLAG "A"
      KEY 1
   END

   BOOLEAN F_ATTIVAANNO
   BEGIN
      PROMPT 2 6 "Attiva esercizio"
      MESSAGE TRUE ENABLE,F_ANNO
      MESSAGE FALSE DISABLE,F_ANNO
   END

   STRING F_TIPIDOCS 40
   BEGIN
      PROMPT 2 10 ""
      FLAG "H"
   END

ENDPAGE

ENDMASK