#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 ""
      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 9 "Suffisso per la numerazione "
      FIELD S7
   END

   BOOLEAN F_NUMPROVV
   BEGIN
      PROMPT 2 10 "Numerazione provvisoria"
			MESSAGE FALSE CLEAR,1@|CLEAR,2@
			MESSAGE TRUE ENABLE,1@
      FIELD B0
   END
   BOOLEAN F_DOCDEFDIV
   BEGIN
      PROMPT 2 11 "Documento definitivo diverso"
			MESSAGE FALSE CLEAR,2@
			MESSAGE TRUE ENABLE,2@
			GROUP 1
      FIELD B8
			FLAGS "DG"
   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
		 FLAG "UD"
		 WARNING "Numerazione assente"
		 FIELD S8
		 GROUP 2
	 END
	 STRING F_TIPODOC 4
	 BEGIN
		 PROMPT 55 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
		 FLAG "UD"
		 FIELD S9
		 GROUP 2
	 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
   
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