#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 "Estremi del documento"
   END

   STRING F_CODNUM 4
   BEGIN
      PROMPT 2 1 "Numerazione  "
      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
      CHECKTYPE FORCED
      FLAG "UPA"
      WARNING "Numerazione assente"
      KEY 1
   END

   STRING F_DESNUM 50
   BEGIN
      PROMPT 24 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         "
      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 24 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_ANNO 4
   BEGIN
      PROMPT 2 3 "Esercizio    "
      FIELD ANNO
      CHECKTYPE REQUIRED
      FLAG "AP"
      KEY 1
   END

   NUMBER F_NDOC 6
   BEGIN
      PROMPT 24 3 "Numero      "
      FIELD NDOC
      USE LF_DOC           
      JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF 
      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
      DISPLAY "Data\ndocumento" DATADOC
      DISPLAY "C/F" TIPOCF
      DISPLAY "Codice" CODCF
      DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
      OUTPUT F_NDOC NDOC
      OUTPUT F_STATO STATO
      OUTPUT F_TIPODOC TIPODOC
      CHECKTYPE REQUIRED
      KEY 1
      FLAG "R"
   END

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

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

ENDPAGE
ENDMASK