diff --git a/ve/vetbnum.h b/ve/vetbnum.h
index 4284aa2a5..30f5f347a 100755
--- a/ve/vetbnum.h
+++ b/ve/vetbnum.h
@@ -1,36 +1,79 @@
-#define NUM_CODTAB         101
-#define NUM_DESNUM         102
-#define NUM_ULTNUM         103
-#define NUM_ULTNUMPROV     104
-#define NUM_PREFISSO       105
-#define NUM_SUFFISSO       106
-#define NUM_ULTDATA        107
-#define NUM_ANNO           108  
-#define NUM_TIPO           109
-#define NUM_NODATADOCTEST  110
+#define F_CODTAB         101
+#define F_DESNUM         102
+#define F_ULTNUM         103
+#define F_ULTNUMPROV     104
+#define F_PREFISSO       105
+#define F_SUFFISSO       106
+#define F_ULTDATA        107
+#define F_ANNO           108  
+#define F_TIPO           109
+#define F_NODATADOCTEST  110
+#define F_SAVEANDNEW     111
 
-#define NUM_DEFPRINTER     121
+#define F_TIPODOC1       210
+#define F_DESDOC1        211
+#define F_TIPODOC2       212
+#define F_DESDOC2        213
+#define F_TIPODOC3       214
+#define F_DESDOC3        215
+#define F_TIPODOC4       216
+#define F_DESDOC4        217
+#define F_TIPODOC5       218
+#define F_DESDOC5        219
+#define F_TIPODOC6       220
+#define F_DESDOC6        221
+#define F_TIPODOC7       222
+#define F_DESDOC7        223
+#define F_TIPODOC8       224
+#define F_DESDOC8        225
+#define F_TIPODOC9       226
+#define F_DESDOC9        227
+#define F_TIPODOC10      228
+#define F_DESDOC10       229
+#define F_TIPODOC11      230
+#define F_DESDOC11       231
+#define F_TIPODOC12      232
+#define F_DESDOC12       233
+#define F_TIPODOC13      234
+#define F_DESDOC13       235
+#define F_TIPODOC14      236
+#define F_DESDOC14       237
+#define F_TIPODOC15      238
+#define F_DESDOC15       239
+#define F_TIPODOC16      240
+#define F_DESDOC16       241
+#define F_TIPODOC17      242
+#define F_DESDOC17       243
+#define F_TIPODOC18      244
+#define F_DESDOC18       245
+#define F_TIPODOC19      246
+#define F_DESDOC19       247
+#define F_TIPODOC20      248
+#define F_DESDOC20       249
+#define F_TIPODOC21      250
+#define F_DESDOC21       251
+#define F_TIPODOC22      252
+#define F_DESDOC22       253
+#define F_TIPODOC23      254
+#define F_DESDOC23       255
+#define F_TIPODOC24      256
+#define F_DESDOC24       257
+#define F_TIPODOC25      258
+#define F_DESDOC25       259
+#define F_TIPODOC26      260
+#define F_DESDOC26       261
+#define F_TIPODOC27      262
+#define F_DESDOC27       263
+#define F_TIPODOC28      264
+#define F_DESDOC28       265
+#define F_TIPODOC29      266
+#define F_DESDOC29       267
+#define F_TIPODOC30      268
+#define F_DESDOC30       269
+
+#define F_NUMPROVV       270
+#define F_NUMAUTO        271
+#define F_ULTDATAPROV    272
+#define F_EMRI           273
+#define F_CNTES          274
 
-#define NUM_TIPODOC1       210
-#define NUM_DESDOC1        211
-#define NUM_TIPODOC2       212
-#define NUM_DESDOC2        213
-#define NUM_TIPODOC3       214
-#define NUM_DESDOC3        215
-#define NUM_TIPODOC4       216
-#define NUM_DESDOC4        217
-#define NUM_TIPODOC5       218
-#define NUM_DESDOC5        219
-#define NUM_TIPODOC6       220
-#define NUM_DESDOC6        221
-#define NUM_TIPODOC7       222
-#define NUM_DESDOC7        223
-#define NUM_TIPODOC8       224
-#define NUM_DESDOC8        225
-#define NUM_TIPODOC9       226
-#define NUM_DESDOC9        227
-#define NUM_TIPODOC10      228
-#define NUM_DESDOC10       229
-#define NUM_NUMPROVV       230
-#define NUM_NUMAUTO        231
-#define NUM_ULTDATAPROV    232
diff --git a/ve/vetbnum.uml b/ve/vetbnum.uml
index 3d7c61871..2be5f96e7 100755
--- a/ve/vetbnum.uml
+++ b/ve/vetbnum.uml
@@ -1,370 +1,948 @@
 #include "vetbnum.h"
 
-TOOLBAR "" 0 19 78 3
-#include "toolbar.h"
-ENDPAGE
+TOOLBAR "" 0 20 60 2
 
-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
+   #include "toolbar.h"
 
 ENDPAGE
 
-PAGE "Tipi documento validi" -1 -1 78 19
+PAGE "Numerazione documenti" -1 -1 60 14
 
-GROUPBOX DLG_NULL 70 15
-BEGIN
-  PROMPT 1 1 "Tipi di documento validi per la numerazione"
-END
+   GROUPBOX DLG_NULL 75 7
+   BEGIN
+      PROMPT 1 0 ""
+      FLAG "R"
+   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 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 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 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 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 F_PREFISSO 7
+   BEGIN
+      PROMPT 2 8 "Prefisso per la numerazione "
+      FIELD S6
+   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 F_SUFFISSO 7
+   BEGIN
+      PROMPT 2 9 "Suffisso per la numerazione "
+      FIELD S7
+   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
+   BOOLEAN F_NUMPROVV
+   BEGIN
+      PROMPT 2 10 "Utilizzo della numerazione provvisoria"
+      FIELD B0
+   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
+   BOOLEAN F_NUMAUTO
+   BEGIN
+      PROMPT 2 11 "Utilizzo della numerazione automatica"
+      FIELD B1
+   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
+   BOOLEAN F_NODATADOCTEST
+   BEGIN
+      PROMPT 2 12 "Nessun controllo sulla sequenza delle date dei documenti"
+      FIELD B2
+   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
+   BOOLEAN F_EMRI
+   BEGIN
+      PROMPT 2 13 "Fatture da emettere/ricevere"
+      FIELD B3
+   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
+   BOOLEAN F_SAVEANDNEW
+   BEGIN
+      PROMPT 2 14 "Rimani in inserimento dopo la registrazione"
+      FIELD B4
+   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
+   BOOLEAN F_CNTES
+   BEGIN
+      PROMPT 2 15 "Nessun controllo sull'esercizio"
+      FIELD B5
+   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
+ENDPAGE
 
-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
+PAGE "Tipi documento validi" -1 -1 60 14
 
-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
+   GROUPBOX DLG_NULL 70 15
+   BEGIN
+      PROMPT 1 1 "Tipi di documento validi per la numerazione"
+   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
+   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
+   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 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 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 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 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 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 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 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 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 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 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 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 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
+   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
+