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

   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 "Tipi di documento validi per la numerazione"
   END

   LIST F_TIPO 24
   BEGIN
     PROMPT 2 2 "Tipo dei documenti "
     FIELD I1
     ITEM "|Altro"
     ITEM "1|Bolla"
     ITEM "2|Fattura"
     ITEM "3|Ordine"
   END

   STRING F_TIPODOC1 4
   BEGIN
      PROMPT 2 4 ""
      FLAGS "U"
      USE %TIP SELECT I1==#F_TIPO
      INPUT CODTAB F_TIPODOC1
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC1 CODTAB
      OUTPUT F_DESDOC1 S0
      WARNING "Tipo documento errato"
      FIELD S2[1,4]
      CHECKTYPE NORMAL
   END

   STRING F_DESDOC1 50
   BEGIN
      PROMPT 12 4 ""
      USE %TIP KEY 2 SELECT I1==#F_TIPO
      INPUT S0 F_DESDOC1
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      COPY OUTPUT F_TIPODOC1
      WARNING "Tipo documento errato"
      CHECKTYPE NORMAL
   END

   STRING F_TIPODOC2 4
   BEGIN
      PROMPT 2 5 ""
      FLAGS "U"
      COPY USE F_TIPODOC1
      INPUT CODTAB F_TIPODOC2
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC2 CODTAB
      OUTPUT F_DESDOC2 S0
      WARNING "Tipo documento errato"
      FIELD S2[5,8]
      CHECKTYPE NORMAL
   END

   STRING F_DESDOC2 50
   BEGIN
      PROMPT 12 5 ""
      COPY USE F_DESDOC1
      INPUT S0 F_DESDOC2
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      COPY OUTPUT F_TIPODOC2
      WARNING "Tipo documento errato"
      CHECKTYPE NORMAL
   END

   STRING F_TIPODOC3 4
   BEGIN
      PROMPT 2 6 ""
      FLAGS "U"
      COPY USE F_TIPODOC1
      INPUT CODTAB F_TIPODOC3
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC3 CODTAB
      OUTPUT F_DESDOC3 S0
      WARNING "Tipo documento errato"
      FIELD S2[9,12]
      CHECKTYPE NORMAL
   END

   STRING F_DESDOC3 50
   BEGIN
      PROMPT 12 6 ""
      COPY USE F_DESDOC1
      INPUT S0 F_DESDOC3
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      COPY OUTPUT F_TIPODOC3
      WARNING "Tipo documento errato"
      CHECKTYPE NORMAL
   END

   STRING F_TIPODOC4 4
   BEGIN
      PROMPT 2 7 ""
      FLAGS "U"
      COPY USE F_TIPODOC1
      INPUT CODTAB F_TIPODOC4
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC4 CODTAB
      OUTPUT F_DESDOC4 S0
      WARNING "Tipo documento errato"
      FIELD S2[13,16]
      CHECKTYPE NORMAL
   END

   STRING F_DESDOC4 50
   BEGIN
      PROMPT 12 7 ""
      COPY USE F_DESDOC1
      INPUT S0 F_DESDOC4
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      COPY OUTPUT F_TIPODOC4
      WARNING "Tipo documento errato"
      CHECKTYPE NORMAL
   END

   STRING F_TIPODOC5 4
   BEGIN
      PROMPT 2 8 ""
      FLAGS "U"
      COPY USE F_TIPODOC1
      INPUT CODTAB F_TIPODOC5
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC5 CODTAB
      OUTPUT F_DESDOC5 S0
      WARNING "Tipo documento errato"
      FIELD S2[17,20]
      CHECKTYPE NORMAL
   END

   STRING F_DESDOC5 50
   BEGIN
      PROMPT 12 8 ""
      COPY USE F_DESDOC1
      INPUT S0 F_DESDOC5
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      COPY OUTPUT F_TIPODOC5
      WARNING "Tipo documento errato"
      CHECKTYPE NORMAL
   END

   STRING F_TIPODOC6 4
   BEGIN
      PROMPT 2 9 ""
      FLAGS "U"
      COPY USE F_TIPODOC1
      INPUT CODTAB F_TIPODOC6
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC6 CODTAB
      OUTPUT F_DESDOC6 S0
      WARNING "Tipo documento errato"
      FIELD S2[21,24]
      CHECKTYPE NORMAL
   END

   STRING F_DESDOC6 50
   BEGIN
      PROMPT 12 9 ""
      COPY USE F_DESDOC1
      INPUT S0 F_DESDOC6
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      COPY OUTPUT F_TIPODOC6
      WARNING "Tipo documento errato"
      CHECKTYPE NORMAL
   END

   STRING F_TIPODOC7 4
   BEGIN
      PROMPT 2 10 ""
      FLAGS "U"
      COPY USE F_TIPODOC1
      INPUT CODTAB F_TIPODOC7
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC7 CODTAB
      OUTPUT F_DESDOC7 S0
      WARNING "Tipo documento errato"
      FIELD S2[25,28]
      CHECKTYPE NORMAL
   END

   STRING F_DESDOC7 50
   BEGIN
      PROMPT 12 10 ""
      COPY USE F_DESDOC1
      INPUT S0 F_DESDOC7
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      COPY OUTPUT F_TIPODOC7
      WARNING "Tipo documento errato"
      CHECKTYPE NORMAL
   END

   STRING F_TIPODOC8 4
   BEGIN
      PROMPT 2 11 ""
      FLAGS "U"
      COPY USE F_TIPODOC1
      INPUT CODTAB F_TIPODOC8
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC8 CODTAB
      OUTPUT F_DESDOC8 S0
      WARNING "Tipo documento errato"
      FIELD S2[29,32]
      CHECKTYPE NORMAL
   END

   STRING F_DESDOC8 50
   BEGIN
      PROMPT 12 11 ""
      COPY USE F_DESDOC1
      INPUT S0 F_DESDOC8
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      COPY OUTPUT F_TIPODOC8
      WARNING "Tipo documento errato"
      CHECKTYPE NORMAL
   END

   STRING F_TIPODOC9 4
   BEGIN
      PROMPT 2 12 ""
      FLAGS "U"
      COPY USE F_TIPODOC1
      INPUT CODTAB F_TIPODOC9
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC9 CODTAB
      OUTPUT F_DESDOC9 S0
      WARNING "Tipo documento errato"
      FIELD S2[33,36]
      CHECKTYPE NORMAL
   END

   STRING F_DESDOC9 50
   BEGIN
      PROMPT 12 12 ""
      COPY USE F_DESDOC1
      INPUT S0 F_DESDOC9
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      COPY OUTPUT F_TIPODOC9
      WARNING "Tipo documento errato"
      CHECKTYPE NORMAL
   END

   STRING F_TIPODOC10 4
   BEGIN
      PROMPT 2 13 ""
      FLAGS "U"
      COPY USE F_TIPODOC1
      INPUT CODTAB F_TIPODOC10
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC10 CODTAB
      OUTPUT F_DESDOC10 S0
      WARNING "Tipo documento errato"
      FIELD S2[37,40]
      CHECKTYPE NORMAL
   END

   STRING F_DESDOC10 50
   BEGIN
      PROMPT 12 13 ""
      COPY USE F_DESDOC1
      INPUT S0 F_DESDOC10
      DISPLAY "Descrizione@50" S0
      DISPLAY "Codice" CODTAB
      COPY OUTPUT F_TIPODOC10
      WARNING "Tipo documento errato"
      CHECKTYPE NORMAL
   END

ENDMASK