USE %DEL
JOIN %BAN ALIAS 2 INTO CODTAB==S7
JOIN %BAN ALIAS 1 INTO CODTAB==S7+S8
JOIN 13 TO 1@ ALIAS 11 INTO COM==S5
JOIN 9 INTO CODDITTA=CODTAB[1,5]
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 18 INTO CODANAGR=CODANAGR
JOIN 7 TO 6 INTO CODANAGR=CODANAGR
JOIN 13 TO 6 ALIAS 12 INTO COM==COMRF
JOIN 13 TO 8 ALIAS 13 INTO COM=COMNASC

END
DESCRIPTION
BEGIN
  %DEL->* "DEL"
  2@->* "BAN"
  1@->* "BAN"
  11@->* "Comuni"
  9->* "Ditte"
  6->* "Anagrafica persone fisiche e giuridiche"
  8->* "Anagrafica persone fisiche"
  7->* "Anagrafica persone giuridiche"
  12@->* "Comuni"
  13@->* "Comuni"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Roman 17cpi"
  SIZE 12
  CARATTERE "X"
  INIZIALE 1 1
END

SECTION BODY ODD 72

STRINGA 1
BEGIN
 KEY "Sede Azienda"
 PROMPT 54 9 ""
 FIELD 2@->S0
END

STRINGA 2
BEGIN
 KEY "Sede Filiale"
 PROMPT 54 11 ""
 FIELD 1@->S0
END

STRINGA 3
BEGIN
 KEY "Provincia Banca"
 PROMPT 129 11 ""
 FIELD 11@->PROVCOM
END

LISTA 4
BEGIN
 KEY "Tipo anagrafica"
 FIELD 6->TIPOA
 ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
 ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END

GRUPPO 5
BEGIN
 KEY "Persone fisiche"
 PROMPT 0 0 ""
 GROUP  1
END

LISTA 6
BEGIN
 KEY "Sesso"
 PROMPT 34 18 ""
 GROUP  1
 FIELD 18@->SESSO
 ITEM "M|X " MESSAGE SHOW,3@|HIDE,4@
 ITEM "F|   X" MESSAGE SHOW,4@|HIDE,3@
END

GRUPPO 7
BEGIN
 KEY "Sesso maschile"
 PROMPT 0 0 ""
 GROUP  3
END

STRINGA 8
BEGIN
 KEY "Il sottoscritto"
 PROMPT 10 13 "I                o"
 GROUP  1 3
END

GRUPPO 9
BEGIN
 KEY "Sesso Femminile"
 PROMPT 0 0 ""
 GROUP  4
END

STRINGA 10
BEGIN
 KEY "La sottoscritta"
 PROMPT 10 13 "  a              a"
 GROUP  1 4
END

STRINGA 11
BEGIN
 KEY "Cognome"
 PROMPT 9 16 ""
 GROUP  1
 FIELD 6->RAGSOC[1,30]
END

STRINGA 12
BEGIN
 KEY "Nome"
 PROMPT 77 16 ""
 GROUP  1
 FIELD 6->RAGSOC[31,-1]
END

NUMERO 13
BEGIN
 KEY "Giorno di nascita"
 PROMPT 9 19 ""
 GROUP  1
 PICTURE "@  @"
 FIELD 18@->DATANASC[1,2]
END

NUMERO 14
BEGIN
 KEY "Mese di nascita"
 PROMPT 16 19 ""
 GROUP  1
 PICTURE "@  @"
 FIELD 18@->DATANASC[4,5]
END

NUMERO 15
BEGIN
 KEY "Anno di nascita"
 PROMPT 23 19 ""
 GROUP  1
 PICTURE "@  @"
 FIELD 18@->DATANASC[9,10]
END

STRINGA 16
BEGIN
 KEY "Comune di nascita"
 PROMPT 50 19 ""
 GROUP  1
 FIELD 13@->DENCOM
END

STRINGA 17
BEGIN
 KEY "Provincia di nascita"
 PROMPT 130 19 ""
 GROUP  1
 PICTURE "#  #"
 FIELD 13@->PROVCOM
END

GRUPPO 18
BEGIN
 KEY "Persone giuridiche"
 PROMPT 0 0 ""
 GROUP  2
END

STRINGA 19
BEGIN
 KEY "Ragione Sociale"
 PROMPT 9 23 ""
 GROUP  2
 FIELD 6->RAGSOC
END

STRINGA 20
BEGIN
 KEY "Natura Giuridica"
 PROMPT 130 23 ""
 GROUP  2
 PICTURE "#  #"
 FIELD 7->NATGIU
END

STRINGA 21
BEGIN
 KEY "Via Indirizzo Fiscale"
 FLAGS "H"
 MESSAGE COPY,527
 FIELD 6->INDRF
 FIELD 6->INDRES
END

STRINGA 22
BEGIN
 KEY "Numero Civico Indirizzo Fiscale"
 FLAGS "H"
 MESSAGE APPEND,527
 FIELD 6->CIVRF
 FIELD 6->CIVRES
END

STRINGA 527 35
BEGIN
 KEY "Indirizzo Fiscale"
 PROMPT 9 27 ""
END

STRINGA 24
BEGIN
 KEY "CAP fiscale"
 PROMPT 76 27 ""
 PICTURE "#  #   #   #  #"
 FIELD 6->CAPRF
 FIELD 6->CAPRES
END

STRINGA 25
BEGIN
 KEY "Comune di residenza fiscale"
 PROMPT 96 27 ""
 FIELD 12@->DENCOM
END

STRINGA 26
BEGIN
 KEY "Provincia di residenza fiscale"
 PROMPT 130 27 ""
 PICTURE "#  #"
 FIELD 12@->PROVCOM
END

STRINGA 27
BEGIN
 KEY "Partita IVA"
 PROMPT 28 32 ""
 PICTURE "#   #  #   #  #   #  #  #   #  #   #"
 FIELD 6->PAIV
END

STRINGA 28
BEGIN
 KEY "Codice fiscale (P.IVA Persone giuridiche)"
 PROMPT 81 32 ""
 GROUP  2
 PICTURE "#   #  #   #   #  #  #   #  #  #   #"
 FIELD 6->COFI
END

STRINGA 29
BEGIN
 KEY "Codice fiscale (Persone fisiche)"
 PROMPT 81 32 ""
 GROUP  1
 PICTURE "#   #  #   #   #  #  #   #  #  #   #   #   #  #   #  #"
 FIELD 6->COFI
END

STRINGA 45
BEGIN
 KEY "Anno di versamento"
 PROMPT 80 39 ""
 PICTURE "^ ^ @  @"
 FIELD CODTAB[6,9]
END

LISTA 30
BEGIN
 KEY "Periodo di versamento"
 PROMPT 114 39 ""
 FIELD CODTAB[10,11]
 ITEM "01|Gennaio"
 ITEM "02|Febbraio"
 ITEM "03|Marzo"
 ITEM "04|Aprile"
 ITEM "05|Maggio"
 ITEM "06|Giugno"
 ITEM "07|Luglio"
 ITEM "08|Agosto"
 ITEM "09|Settembre"
 ITEM "10|Ottobre"
 ITEM "11|Novembre"
 ITEM "12|Dicembre"
 ITEM "13|Annuale"
END

LISTA 31
BEGIN
 KEY "X sul mese"
 PROMPT 68 45 ""
 GROUP  6
 FIELD S6
 ITEM "6001|X"
 ITEM "6002|     X"
 ITEM "6003|          X"
 ITEM "6004|               X"
 ITEM "6005|                    X"
 ITEM "6006|                         X"
 ITEM "6007|                              X"
 ITEM "6008|                                   X"
 ITEM "6009|                                        X"
 ITEM "6010|                                             X"
 ITEM "6011|                                                  X"
 ITEM "6012|                                                       X"
 ITEM "6013|                                                            X"
 ITEM "6031|"
 ITEM "6032|"
 ITEM "6033|"
 ITEM "6099|"
 ITEM "6034|"
END

LISTA 32
BEGIN
 KEY "X sul trimestre"
 PROMPT 13 45 ""
 GROUP  6
 FIELD S6
 ITEM "6031|X"
 ITEM "6032|      X"
 ITEM "6033|           X"
 ITEM "6099|                X"
 ITEM "6034|                     X"
 ITEM "6001|"
 ITEM "6002|"
 ITEM "6003|"
 ITEM "6004|"
 ITEM "6005|"
 ITEM "6006|"
 ITEM "6007|"
 ITEM "6008|"
 ITEM "6009|"
 ITEM "6010|"
 ITEM "6011|"
 ITEM "6012|"
 ITEM "6013|"
END

NUMERO 33
BEGIN
 KEY "Importo in cifre"
 PROMPT 33 50 ""
 PICTURE "###.###.###^^^"
 FIELD R0
END

NUMERO 34
BEGIN
 KEY "Importo in lettere"
 PROMPT 64 50 ""
 PICTURE "LETTERE"
 FIELD R0
END

DATA 36
BEGIN
 KEY "Data del versamento"
 PROMPT 89 57 ""
 PICTURE "@  @^  @  @^  @  @"
 FIELD D0
 FORMAT "1442-"
END

STRINGA 38
BEGIN
 KEY "Codice Azienda"
 PROMPT 114 57 ""
 PICTURE "@ @ @ @"
 FIELD S7[2,5]
END

STRINGA 39
BEGIN
 KEY "Codice Dipendenza"
 PROMPT 128 57 ""
 PICTURE "@ @ @ @"
 FIELD S8[2,5]
END

STRINGA 40 40 1
BEGIN
 KEY "Testo Fisso (1)"
 PROMPT 0 0 ""
END
 
STRINGA 41 40 1 
BEGIN
 KEY "Testo Fisso (2)"
 PROMPT 0 0 ""
END
 
STRINGA 42 40 1 
BEGIN
 KEY "Testo Fisso (3)"
 PROMPT 0 0 ""
END
 
STRINGA 43 40 1 
BEGIN
 KEY "Testo Fisso (4)"
 PROMPT 0 0 ""
END
 
STRINGA 44 40 1 
BEGIN
 KEY "Testo Fisso (5)"
 PROMPT 0 0 ""
END
 
END

END
