b43d12ee46
Files correlati : ve0.exe vetbnum.msk Ricompilazione Demo : [ ] Commento : Corretta selezione tipo documento per numerazione definitiva di documenti provvisori git-svn-id: svn://10.65.10.50/trunk@19107 c028cbd2-c16b-5b4b-a496-9718f37d4682
1031 lines
21 KiB
Plaintext
Executable File
1031 lines
21 KiB
Plaintext
Executable File
#include "vetbnum.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
|
|
#include <relapbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Numerazione documenti" 0 0 0 0
|
|
|
|
GROUPBOX DLG_NULL 75 7
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "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 9 "Suffisso per la numerazione "
|
|
FIELD S7
|
|
END
|
|
|
|
BOOLEAN F_NUMPROVV
|
|
BEGIN
|
|
PROMPT 2 10 "Numerazione provvisoria"
|
|
MESSAGE FALSE HIDE,1@
|
|
MESSAGE TRUE SHOW,1@
|
|
FIELD B0
|
|
END
|
|
|
|
BOOLEAN F_DOCDEFDIV
|
|
BEGIN
|
|
PROMPT 2 11 "Documento definitivo diverso"
|
|
MESSAGE FALSE CLEAR,F_CODNUM|CLEAR,F_TIPODOC
|
|
MESSAGE TRUE ENABLE,F_CODNUM|DISABLE,F_TIPODOC
|
|
GROUP 1
|
|
FIELD B8
|
|
FLAGS "G"
|
|
END
|
|
|
|
STRING F_CODNUM 4
|
|
BEGIN
|
|
PROMPT 35 11 "Numerazione "
|
|
FIELD CODNUM
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUM
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUM CODTAB
|
|
CHECKTYPE NORMAL
|
|
FLAGS "UDG"
|
|
WARNING "Numerazione assente"
|
|
FIELD S8
|
|
MESSAGE EMPTY CLEAR,F_TIPODOC
|
|
MESSAGE ENABLE,F_TIPODOC
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_TIPODOC 4
|
|
BEGIN
|
|
PROMPT 63 11 "Tipo "
|
|
FIELD TIPODOC
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPODOC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC CODTAB
|
|
CHECKTYPE NORMAL
|
|
FLAGS "UD"
|
|
FIELD S9
|
|
GROUP 1
|
|
END
|
|
|
|
BOOLEAN F_NUMAUTO
|
|
BEGIN
|
|
PROMPT 2 12 "Utilizzo della numerazione automatica"
|
|
FIELD B1
|
|
END
|
|
|
|
BOOLEAN F_NODATADOCTEST
|
|
BEGIN
|
|
PROMPT 2 13 "Nessun controllo sulla sequenza delle date dei documenti"
|
|
FIELD B2
|
|
END
|
|
|
|
BOOLEAN F_EMRI
|
|
BEGIN
|
|
PROMPT 2 14 "Fatture da emettere/ricevere"
|
|
FIELD B3
|
|
END
|
|
|
|
BOOLEAN F_SAVEANDNEW
|
|
BEGIN
|
|
PROMPT 2 15 "Rimani in inserimento dopo la registrazione"
|
|
FIELD B4
|
|
END
|
|
|
|
BOOLEAN F_CNTES
|
|
BEGIN
|
|
PROMPT 2 16 "Nessun controllo sull'esercizio"
|
|
FIELD B5
|
|
END
|
|
|
|
BOOLEAN F_AUTOREOPEN
|
|
BEGIN
|
|
PROMPT 2 17 "Riapertura automatica"
|
|
FIELD B7
|
|
END
|
|
|
|
BOOLEAN F_ARCHIVE
|
|
BEGIN
|
|
PROMPT 2 18 "Archiviazione automatica dei documenti stampati in definitiva"
|
|
FIELD B6
|
|
END
|
|
|
|
BOOLEAN F_SPMSP
|
|
BEGIN
|
|
PROMPT 2 19 "Numerazione speciale per MSP"
|
|
FIELD B9
|
|
END
|
|
|
|
LIST F_REVLEN 1 8
|
|
BEGIN
|
|
PROMPT 2 20 "Cifre riservate alle revisioni (Preventivi) "
|
|
ITEM "0|Nessuna"
|
|
ITEM "1|1 Cifra"
|
|
ITEM "2|2 Cifre"
|
|
ITEM "3|3 Cifre"
|
|
FIELD I0
|
|
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"
|
|
MESSAGE ENABLE,F_EMRI
|
|
ITEM "1|Bolla"
|
|
MESSAGE CLEAR,F_EMRI
|
|
ITEM "2|Fattura"
|
|
MESSAGE ENABLE,F_EMRI
|
|
ITEM "3|Ordine"
|
|
MESSAGE CLEAR,F_EMRI
|
|
ITEM "4|Scontrino"
|
|
MESSAGE ENABLE,F_EMRI
|
|
ITEM "5|Conferimento soci"
|
|
MESSAGE CLEAR,F_EMRI
|
|
ITEM "6|Prestazioni ai soci"
|
|
MESSAGE CLEAR,F_EMRI
|
|
|
|
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
|
|
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
|
|
|
|
STRING F_TIPODOC11 4
|
|
BEGIN
|
|
PROMPT 2 4 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC11
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC11 CODTAB
|
|
OUTPUT F_DESDOC11 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S2[41,44]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC11 50
|
|
BEGIN
|
|
PROMPT 12 4 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC11
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC11
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC12 4
|
|
BEGIN
|
|
PROMPT 2 5 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC12
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC12 CODTAB
|
|
OUTPUT F_DESDOC12 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S2[45,48]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC12 50
|
|
BEGIN
|
|
PROMPT 12 5 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC12
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC12
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC13 4
|
|
BEGIN
|
|
PROMPT 2 6 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC13
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC13 CODTAB
|
|
OUTPUT F_DESDOC13 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S2[49,52]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC13 50
|
|
BEGIN
|
|
PROMPT 12 6 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC13
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC13
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC14 4
|
|
BEGIN
|
|
PROMPT 2 7 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC14
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC14 CODTAB
|
|
OUTPUT F_DESDOC14 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S2[53,56]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC14 50
|
|
BEGIN
|
|
PROMPT 12 7 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC14
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC14
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC15 4
|
|
BEGIN
|
|
PROMPT 2 8 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC15
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC15 CODTAB
|
|
OUTPUT F_DESDOC15 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S2[57,60]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC15 50
|
|
BEGIN
|
|
PROMPT 12 8 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC15
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC15
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC16 4
|
|
BEGIN
|
|
PROMPT 2 9 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC16
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC16 CODTAB
|
|
OUTPUT F_DESDOC16 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S2[61,64]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC16 50
|
|
BEGIN
|
|
PROMPT 12 9 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC16
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC16
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC17 4
|
|
BEGIN
|
|
PROMPT 2 10 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC17
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC17 CODTAB
|
|
OUTPUT F_DESDOC17 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S2[65,68]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC17 50
|
|
BEGIN
|
|
PROMPT 12 10 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC17
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC17
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC18 4
|
|
BEGIN
|
|
PROMPT 2 11 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC18
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC18 CODTAB
|
|
OUTPUT F_DESDOC18 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S3[1,4]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC18 50
|
|
BEGIN
|
|
PROMPT 12 11 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC18
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC18
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC19 4
|
|
BEGIN
|
|
PROMPT 2 12 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC19
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC19 CODTAB
|
|
OUTPUT F_DESDOC19 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S3[5,8]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC19 50
|
|
BEGIN
|
|
PROMPT 12 12 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC19
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC19
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC20 4
|
|
BEGIN
|
|
PROMPT 2 13 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC20
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC20 CODTAB
|
|
OUTPUT F_DESDOC20 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S3[9,12]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC20 50
|
|
BEGIN
|
|
PROMPT 12 13 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC20
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC20
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
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
|
|
|
|
STRING F_TIPODOC21 4
|
|
BEGIN
|
|
PROMPT 2 4 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC21
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC21 CODTAB
|
|
OUTPUT F_DESDOC21 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S3[13,16]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC21 50
|
|
BEGIN
|
|
PROMPT 12 4 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC21
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC21
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC22 4
|
|
BEGIN
|
|
PROMPT 2 5 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC22
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC22 CODTAB
|
|
OUTPUT F_DESDOC22 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S3[17,20]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC22 50
|
|
BEGIN
|
|
PROMPT 12 5 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC22
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC22
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC23 4
|
|
BEGIN
|
|
PROMPT 2 6 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC23
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC23 CODTAB
|
|
OUTPUT F_DESDOC23 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S3[21,24]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC23 50
|
|
BEGIN
|
|
PROMPT 12 6 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC23
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC23
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC24 4
|
|
BEGIN
|
|
PROMPT 2 7 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC24
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC24 CODTAB
|
|
OUTPUT F_DESDOC24 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S3[25,28]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC24 50
|
|
BEGIN
|
|
PROMPT 12 7 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC24
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC24
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC25 4
|
|
BEGIN
|
|
PROMPT 2 8 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC25
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC25 CODTAB
|
|
OUTPUT F_DESDOC25 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S3[29,32]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC25 50
|
|
BEGIN
|
|
PROMPT 12 8 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC25
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC25
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC26 4
|
|
BEGIN
|
|
PROMPT 2 9 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC26
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC26 CODTAB
|
|
OUTPUT F_DESDOC26 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S3[33,36]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC26 50
|
|
BEGIN
|
|
PROMPT 12 9 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC26
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC26
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC27 4
|
|
BEGIN
|
|
PROMPT 2 10 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC27
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC27 CODTAB
|
|
OUTPUT F_DESDOC27 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S3[37,40]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC27 50
|
|
BEGIN
|
|
PROMPT 12 10 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC27
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC27
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC28 4
|
|
BEGIN
|
|
PROMPT 2 11 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC28
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC28 CODTAB
|
|
OUTPUT F_DESDOC28 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S3[41,44]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC28 50
|
|
BEGIN
|
|
PROMPT 12 11 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC28
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC28
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC29 4
|
|
BEGIN
|
|
PROMPT 2 12 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC29
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC29 CODTAB
|
|
OUTPUT F_DESDOC29 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S3[45,48]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC29 50
|
|
BEGIN
|
|
PROMPT 12 12 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC29
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC9
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_TIPODOC30 4
|
|
BEGIN
|
|
PROMPT 2 13 ""
|
|
FLAGS "U"
|
|
COPY USE F_TIPODOC1
|
|
INPUT CODTAB F_TIPODOC30
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC30 CODTAB
|
|
OUTPUT F_DESDOC30 S0
|
|
WARNING "Tipo documento errato"
|
|
FIELD S3[49,52]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESDOC30 50
|
|
BEGIN
|
|
PROMPT 12 13 ""
|
|
COPY USE F_DESDOC1
|
|
INPUT S0 F_DESDOC30
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC30
|
|
WARNING "Tipo documento errato"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|