#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 FN_DESNUM S0
  KEY 1
  FLAG "UZ"
END

STRING FN_DESNUM 50
BEGIN
  PROMPT 2 4 "Descrizione      "
  FIELD S0
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  CHECKTYPE REQUIRED
  INPUT S0 FN_DESNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODTAB CODTAB
  OUTPUT FN_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,FN_CODNUM|CLEAR,FN_TIPODOC
	MESSAGE TRUE ENABLE,FN_CODNUM|DISABLE,FN_TIPODOC
	GROUP 1
  FIELD B8
	FLAGS "G"
END

STRING FN_CODNUM 4
BEGIN
 PROMPT 35 11 "Numerazione  "
 FIELD CODNUM
 HELP "Codice numerazione"
 USE %NUM
 INPUT CODTAB FN_CODNUM
 DISPLAY "Codice" CODTAB
 DISPLAY "Descrizione@50" S0
 OUTPUT FN_CODNUM CODTAB
 CHECKTYPE NORMAL
 FLAGS "UDG"
 WARNING "Numerazione assente"
 FIELD S8
 MESSAGE EMPTY CLEAR,FN_TIPODOC
 MESSAGE ENABLE,FN_TIPODOC
 GROUP 1
END

STRING FN_TIPODOC 4
BEGIN
 PROMPT 63 11 "Tipo "
 FIELD TIPODOC
 HELP "Codice tipo documento"
 USE %TIP
 INPUT CODTAB FN_TIPODOC
 DISPLAY "Codice" CODTAB
 DISPLAY "Descrizione@50" S0
 OUTPUT FN_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 "Rimanere 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_TIPONUM 24
   BEGIN
     PROMPT 2 2 "Tipo dei documenti "
     FIELD I1
     ITEM "|Altro"
       MESSAGE ENABLE,F_EMRI|HIDE,F_NOPA
     ITEM "1|Bolla"
       MESSAGE CLEAR,F_EMRI|HIDE,F_NOPA
     ITEM "2|Fattura"
       MESSAGE ENABLE,F_EMRI|SHOW,F_NOPA
     ITEM "3|Ordine"
       MESSAGE CLEAR,F_EMRI|HIDE,F_NOPA
	   ITEM "4|Scontrino" 
	     MESSAGE ENABLE,F_EMRI|HIDE,F_NOPA
     ITEM "5|Conferimento soci"
       MESSAGE CLEAR,F_EMRI|HIDE,F_NOPA
     ITEM "6|Prestazioni ai soci"
       MESSAGE CLEAR,F_EMRI|HIDE,F_NOPA
   END

   BOOLEAN F_NOPA
   BEGIN
     PROMPT 2 3 "Fattura provvisioria (non valida per P.A.)"
     FIELD B10
   END

   STRING F_TIPODOC1 4
   BEGIN
      PROMPT 2 4 ""
      FLAGS "U"
      USE %TIP SELECT I1==#F_TIPONUM
      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_TIPONUM
      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