campo-sirio/ve/batbnum.uml

#include "batbnum.h"

TOOLBAR "" 0 20 60 2

   #include "toolbar.h"

ENDPAGE

PAGE "Numerazione documenti" -1 -1 60 14

   GROUPBOX DLG_NULL 84 4
   BEGIN
      PROMPT 1 1 ""
      // FLAG "R"
   END

   GROUPBOX DLG_NULL 84 13
   BEGIN
      PROMPT 1 5 ""
      // FLAG "R"
   END

   STRING F_CODTAB 4
   BEGIN
      PROMPT 2 2 "Codice numerazione              "
      FIELD CODTAB
      HELP "Codice numerazione"
      USE %NUM
      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 40
   BEGIN
      PROMPT 2 3 "Descrizione numerazione         "
      FIELD S0
      HELP "Descrizione numerazione"
      USE %NUM KEY 2
      CHECKTYPE REQUIRED
      INPUT S0 F_DESNUM
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_CODTAB CODTAB
      OUTPUT F_DESNUM S0
      KEY 2
   END

   NUMBER F_ULTNUM 6 0
   BEGIN
      PROMPT 2 6 "Numero ultimo documento emesso  "
      FIELD I0
      FLAG "R"
   END

   NUMBER F_ULTNUMPROV 6 0
   BEGIN
      PROMPT 2 7 "Numero ultimo documento creato  "
      FIELD I1
      FLAG "R"
   END

   DATE F_ULTDATA
   BEGIN
      PROMPT 2 9 "Data emissione ultimo documento "
      FIELD D0
   END

   STRING F_PREFISSO 7
   BEGIN
      PROMPT 2 11 "Prefisso numerazione            "
      FIELD S6
   END

   STRING F_SUFFISSO 7
   BEGIN
      PROMPT 2 12 "Suffisso numerazione            "
      FIELD S7
   END

   STRING F_ANNO 4
   BEGIN
      PROMPT 2 14 "Anno d'esercizio                "
      FIELD S8
      HELP "Anno d'esercizio               "
      USE ESC
      CHECKTYPE REQUIRED
      INPUT CODTAB F_ANNO
      DISPLAY "Anno d'esercizio"  CODTAB
      DISPLAY "Data inizio esercizio"  D0
      DISPLAY "Data fine esercizio"  D1
      OUTPUT F_ANNO CODTAB
   END

ENDPAGE

PAGE "Numerazioni documenti pag.2" -1 -1 60 14

   GROUPBOX DLG_NULL 64 15
   BEGIN
      PROMPT 1 1 ""
      // FLAG "R"
   END

        TEXT DLG_NULL
        BEGIN
           PROMPT 2 2 "Tipi di documento validi per la numerazione"
        END

   STRING F_TIPODOC1 4
   BEGIN
      PROMPT 2 4 ""
                USE %TIP
                INPUT CODTAB F_TIPODOC1
                DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC1 CODTAB
      OUTPUT F_DESDOC1 S0
      HELP "Tipo di documento 1"
      FIELD S2[1,4]
      CHECKTYPE NORMAL
   END

        STRING F_DESDOC1 40
        BEGIN
           PROMPT 12 4 ""
           FLAG "D"
        END

   STRING F_TIPODOC2 4
   BEGIN
      PROMPT 2 5 ""
                USE %TIP
                INPUT CODTAB F_TIPODOC2
                DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC2 CODTAB
      OUTPUT F_DESDOC2 S0
      HELP "Tipo di documento 2"
      FIELD S2[5,8]
      CHECKTYPE NORMAL
   END

        STRING F_DESDOC2 40
        BEGIN
           PROMPT 12 5 ""
           FLAG "D"
        END

   STRING F_TIPODOC3 4
   BEGIN
      PROMPT 2 6 ""
                USE %TIP
                INPUT CODTAB F_TIPODOC3
                DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC3 CODTAB
      OUTPUT F_DESDOC3 S0
      HELP "Tipo di documento 3"
      FIELD S2[9,12]
      CHECKTYPE NORMAL
   END

        STRING F_DESDOC3 40
        BEGIN
           PROMPT 12 6 ""
           FLAG "D"
        END

   STRING F_TIPODOC4 4
   BEGIN
      PROMPT 2 7 ""
                USE %TIP
                INPUT CODTAB F_TIPODOC4
                DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC4 CODTAB
      OUTPUT F_DESDOC4 S0
      HELP "Tipo di documento 4"
      FIELD S2[13,16]
      CHECKTYPE NORMAL
   END

        STRING F_DESDOC4 40
        BEGIN
           PROMPT 12 7 ""
           FLAG "D"
        END

   STRING F_TIPODOC5 4
   BEGIN
      PROMPT 2 8 ""
                USE %TIP
                INPUT CODTAB F_TIPODOC5
                DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC5 CODTAB
      OUTPUT F_DESDOC5 S0
      HELP "Tipo di documento 5"
      FIELD S2[17,20]
      CHECKTYPE NORMAL
   END

        STRING F_DESDOC5 40
        BEGIN
           PROMPT 12 8 ""
           FLAG "D"
        END

   STRING F_TIPODOC6 4
   BEGIN
      PROMPT 2 9 ""
                USE %TIP
                INPUT CODTAB F_TIPODOC6
                DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC6 CODTAB
      OUTPUT F_DESDOC6 S0
      HELP "Tipo di documento 6"
      FIELD S2[21,24]
      CHECKTYPE NORMAL
   END

        STRING F_DESDOC6 40
        BEGIN
           PROMPT 12 9 ""
           FLAG "D"
        END

   STRING F_TIPODOC7 4
   BEGIN
      PROMPT 2 10 ""
                USE %TIP
                INPUT CODTAB F_TIPODOC7
                DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC7 CODTAB
      OUTPUT F_DESDOC7 S0
      HELP "Tipo di documento 7"
      FIELD S2[25,28]
      CHECKTYPE NORMAL
   END

        STRING F_DESDOC7 40
        BEGIN
           PROMPT 12 10 ""
           FLAG "D"
        END

   STRING F_TIPODOC8 4
   BEGIN
      PROMPT 2 11 ""
                USE %TIP
                INPUT CODTAB F_TIPODOC8
                DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC8 CODTAB
      OUTPUT F_DESDOC8 S0
      HELP "Tipo di documento 8"
      FIELD S2[29,32]
      CHECKTYPE NORMAL
   END

        STRING F_DESDOC8 40
        BEGIN
           PROMPT 12 11 ""
           FLAG "D"
        END

   STRING F_TIPODOC9 4
   BEGIN
      PROMPT 2 12 ""
                USE %TIP
                INPUT CODTAB F_TIPODOC9
                DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC9 CODTAB
      OUTPUT F_DESDOC9 S0
      HELP "Tipo di documento 9"
      FIELD S2[32,36]
      CHECKTYPE NORMAL
   END

        STRING F_DESDOC9 40
        BEGIN
           PROMPT 12 12 ""
           FLAG "D"
        END

   STRING F_TIPODOC10 4
   BEGIN
      PROMPT 2 13 ""
                USE %TIP
                INPUT CODTAB F_TIPODOC10
                DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC10 CODTAB
      OUTPUT F_DESDOC10 S0
      HELP "Tipo di documento 10"
      FIELD S2[37,40]
      CHECKTYPE NORMAL
   END

        STRING F_DESDOC10 40
        BEGIN
           PROMPT 12 13 ""
           FLAG "D"
        END

ENDMASK