campo-sirio/ve/ve0100a.uml

#include "veuml.h"

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

PAGE "Estremi del documento" 1 1 60 14

   GROUPBOX DLG_NULL 78 6
   BEGIN
      PROMPT 1 0 "Estremi del documento"
   END

   LISTBOX F_PROVV 14
   BEGIN
      FIELD PROVV
      PROMPT 46 3 "Tipo "
      ITEM "D|Definitiva "
      ITEM "P|Provvisoria"
      KEY 1 2
      FLAGS "P"
   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 2
   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
   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
      NUM_EXPR #F_ANNO>0
      FLAG "AP"
      KEY 1 2
      WARNING "Inserire un anno valido"
   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 PROVV F_PROVV SELECT
      INPUT ANNO F_ANNO 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 "Stato@R" STATO
      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 2
      FLAG "R"
   END

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

   LIST F_TIPOCF 1 12
   BEGIN
      PROMPT 2 4 "Tipo " 
    ITEM "C|Cliente"
    ITEM "F|Fornitore"
    KEY 2
   END

   NUMBER F_CODCF 6
   BEGIN
    PROMPT 24 4 "Codice      " 
    USE LF_DOC KEY 2 SELECT CODNUM==#F_CODNUM
    JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
    INPUT TIPOCF F_TIPOCF SELECT
    INPUT CODCF F_CODCF
    INPUT PROVV F_PROVV
    INPUT ANNO F_ANNO
    DISPLAY "C/F" TIPOCF
    DISPLAY "Codice" CODCF
    DISPLAY "Num." CODNUM
    DISPLAY "Anno" ANNO
    DISPLAY "Provv" PROVV
    DISPLAY "Tipo" TIPODOC
    DISPLAY "N.Doc. " NDOC
    DISPLAY "Data\ndocumento" DATADOC
    DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
    COPY OUTPUT F_NDOC
    OUTPUT F_CODCF CODCF
    CHECKTYPE NORMAL
    KEY 2
   END
   
   STRING F_NUMDOCRIF 7
   BEGIN
     PROMPT 46 4 "Riferimento "
     FLAGS "B"
   END

ENDPAGE

ENDMASK