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 75 7
   BEGIN
      PROMPT 1 0 ""
      FLAG "R"
   END

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

   STRING F_CODTAB 4
   BEGIN
      PROMPT 2 2 "Cod. 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 50
   BEGIN
      PROMPT 2 4 "Descrizione      "
      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

   STRING F_PREFISSO 7
   BEGIN
      PROMPT 2 8 "Prefisso per la numerazione "
      FIELD S6
   END

   STRING F_SUFFISSO 7
   BEGIN
      PROMPT 2 10 "Suffisso per la numerazione "
      FIELD S7
   END

   BOOLEAN F_NUMPROVV
   BEGIN
      PROMPT 2 12 "Utilizzo della numerazione provvisoria"
      FIELD B0
   END

   BOOLEAN F_NUMAUTO
   BEGIN
      PROMPT 2 14 "Utilizzo della numerazione automatica"
      FIELD B1
   END

ENDPAGE

PAGE "Tipi documento validi" -1 -1 60 14

   GROUPBOX DLG_NULL 70 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 ""
      FLAGS "U"
      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 50
   BEGIN
      PROMPT 12 4 ""
      USE %TIP KEY 2
      INPUT S0 F_DESDOC1
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      OUTPUT F_TIPODOC1 CODTAB
      OUTPUT F_DESDOC1 S0
      HELP "Tipo di documento 1"
      CHECKTYPE NORMAL
   END

   STRING F_TIPODOC2 4
   BEGIN
      PROMPT 2 6 ""
      FLAGS "U"
      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 50
   BEGIN
      PROMPT 12 6 ""
      USE %TIP KEY 2
      INPUT S0 F_DESDOC2
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      OUTPUT F_TIPODOC2 CODTAB
      OUTPUT F_DESDOC2 S0
      HELP "Tipo di documento 2"
      CHECKTYPE NORMAL
   END

   STRING F_TIPODOC3 4
   BEGIN
      PROMPT 2 8 ""
      FLAGS "U"
      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 50
   BEGIN
      PROMPT 12 8 ""
      USE %TIP KEY 2
      INPUT S0 F_DESDOC3
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      OUTPUT F_TIPODOC3 CODTAB
      OUTPUT F_DESDOC3 S0
      HELP "Tipo di documento 3"
      CHECKTYPE NORMAL
   END

   STRING F_TIPODOC4 4
   BEGIN
      PROMPT 2 10 ""
      FLAGS "U"
      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 50
   BEGIN
      PROMPT 12 10 ""
      USE %TIP KEY 2
      INPUT S0 F_DESDOC4
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      OUTPUT F_TIPODOC4 CODTAB
      OUTPUT F_DESDOC4 S0
      HELP "Tipo di documento 4"
      CHECKTYPE NORMAL
   END

   STRING F_TIPODOC5 4
   BEGIN
      PROMPT 2 12 ""
      FLAGS "U"
      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 50
   BEGIN
      PROMPT 12 12 ""
      USE %TIP KEY 2
      INPUT S0 F_DESDOC5
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      OUTPUT F_TIPODOC5 CODTAB
      OUTPUT F_DESDOC5 S0
      HELP "Tipo di documento 5"
      CHECKTYPE NORMAL
   END

ENDMASK