campo-sirio/ve/vetbnum.uml

#include "vetbnum.h"

TOOLBAR "" 0 19 78 3
#include "toolbar.h"
ENDPAGE

PAGE "Numerazione documenti" -1 -1 78 19

GROUPBOX DLG_NULL 75 7
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

STRING NUM_CODTAB 4
BEGIN
  PROMPT 2 2 "Codice      "
  FIELD CODTAB
  USE %NUM
  CHECKTYPE REQUIRED
  INPUT CODTAB NUM_CODTAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT NUM_CODTAB CODTAB
  OUTPUT NUM_DESNUM S0
  KEY 1
  FLAGS "UZ"
END

STRING NUM_DESNUM 50
BEGIN
  PROMPT 2 4 "Descrizione "
  FIELD S0
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  CHECKTYPE REQUIRED
  INPUT S0 NUM_DESNUM
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  OUTPUT NUM_CODTAB CODTAB
  OUTPUT NUM_DESNUM S0
  KEY 2
END

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

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

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

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

BOOLEAN NUM_NODATADOCTEST
BEGIN
  PROMPT 2 16 "Nessun controllo sulla sequenza delle date dei documenti"
  FIELD B2
END

STRING NUM_DEFPRINTER 60
BEGIN
  PROMPT 2 18 "Usa stampante "
  FLAGS "B"
END

ENDPAGE

PAGE "Tipi documento validi" -1 -1 78 19

GROUPBOX DLG_NULL 70 15
BEGIN
  PROMPT 1 1 "Tipi di documento validi per la numerazione"
END

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

STRING NUM_DESDOC9 50
BEGIN
  PROMPT 12 12 ""
  COPY USE NUM_DESDOC1
  INPUT S0 NUM_DESDOC9
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT NUM_TIPODOC9
  WARNING "Tipo documento errato"
  CHECKTYPE NORMAL
END

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

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

ENDMASK