USE %IIG
JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 16@ ALIAS 18 INTO CODANAGR=CODANAGR
JOIN 13 TO 18@ ALIAS 113 INTO COM==COMNASC
JOIN 13 TO 16@ ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 ALIAS 26 INTO TIPOA==S1[1,1] CODANAGR==S1[2,6]
JOIN 8 TO 26@ ALIAS 28 INTO CODANAGR==CODANAGR
JOIN 13 TO 28@ ALIAS 313 INTO COM==COMNASC
JOIN  7 TO 16@ ALIAS 17 INTO CODANAGR=CODANAGR
JOIN %BAN ALIAS 14 INTO CODTAB==S7
JOIN %BAN ALIAS 24 INTO CODTAB==S7+S8
JOIN 13 TO 17@ ALIAS 413 INTO COM==COMCOST
JOIN 13 TO 24@ ALIAS 513 INTO COM==S5
END
DESCRIPTION
BEGIN
  %IIG->* " "
  6->* "Anagrafica persone fisiche e giuridiche"
  8->* "Anagrafica persone fisiche"
  113@->* "Comuni"
  213@->* "Comuni"
  14@->* "BAN"
  24@->* "BAN"
  313@->* "Comuni"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Roman 17cpi"
  SIZE 12
  CARTATTERE "X"
  INIZIALE 5 2
  FINALE 133
END

SECTION BODY ODD 71

STRINGA 1
BEGIN
 KEY "Azienda di credito"
 PROMPT 72 6 ""
 FIELD 14@->S0
END

STRINGA 2
BEGIN
 KEY "Dipendenza"
 PROMPT 72 8 ""
 FIELD 24@->S0
END

STRINGA 3
BEGIN
 KEY "PROVINCIA Dipendenza"
 PROMPT 129 8 ""
 FIELD 513@->PROVCOM
END

GRUPPO 4
BEGIN
 KEY "DATI DICHIARANTE (ALIAS 16 e 18)"
END

LISTA 5
BEGIN
 KEY "Societa'"
 PROMPT 93 11 ""
 FIELD 6->TIPOA
 ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
 ITEM "G|X" MESSAGE ENABLE,2@|DISABLE,1@
END

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

STRINGA 7
BEGIN
 KEY "NOME"
 PROMPT 65 11 ""
 GROUP 1
 FIELD 16@->RAGSOC[31,0]
END

STRINGA 8
BEGIN
 KEY "RAGIONE SOCIALE"
 PROMPT 11 11 ""
 GROUP 2
 FIELD 16@->RAGSOC
END

DATA 9
BEGIN
 KEY "DATA DI NASCITA"
 PROMPT 99 11 ""
 GROUP 1
 PICTURE "##^  ##^ ^###"
 FIELD 18@->DATANASC
 FORMAT "1444-"
END

DATA 10
BEGIN
 KEY "DATA DI COSTITUZIONE"
 PROMPT 99 11 ""
 GROUP 2
 PICTURE "##^  ##^ ^###"
 FIELD 17@->DATACOST
 FORMAT "1444-"
END

STRINGA 11 
BEGIN
 KEY "SESSO (M o F)"
 PROMPT 122 11 ""
 GROUP 1
 FIELD 18@->SESSO
END

STRINGA 12
BEGIN
 KEY "STATO CIVILE" 
 PROMPT 130 11 ""
 GROUP 1
 FIELD 18@->STATCIV
END

STRINGA 13
BEGIN
 KEY "COMUNE (o Stato estero) DI NASCITA"
 PROMPT 11 13 ""
 GROUP 1
 FIELD 113@->DENCOM
END

STRINGA 14
BEGIN
 KEY "COMUNE (o Stato estero) DI COSTITUZIONE"
 PROMPT 11 13 ""
 GROUP 2
 FIELD 413@->DENCOM
END

STRINGA 15
BEGIN
 KEY "PROV. DI NASCITA (sigla)"
 PROMPT 74 13 ""
 GROUP 1
 FIELD 113@->PROVCOM
END

STRINGA 16
BEGIN
 KEY "PROV. DI COSTITUZIONE (sigla)"
 PROMPT 74 13 ""
 GROUP 2
 FIELD 413@->PROVCOM
END

STRINGA 17
BEGIN
 KEY "CODICE FISCALE"
 PROMPT 83 13 ""
 PICTURE "# # # # # # # # # # # # # # # #"
 FIELD 16@->COFI
END

STRINGA 18
BEGIN
 KEY "RESIDENTE IN: COMUNE"
 PROMPT 28 15 ""
 FIELD 213@->DENCOM
END

STRINGA 19
BEGIN
 KEY "RESIDENTE IN: PROV. (sigla)"
 PROMPT 74 15 ""
 FIELD 213@->PROVCOM
END

STRINGA 20
BEGIN
 KEY "CAMPO PER MESSAGGIO RESIDENZA"
 PROMPT -1 -1 ""
 FLAGS "H"
 FIELD 16@->INDRF
 MESSAGE EMPTY SHOW,18@|HIDE,17@
 MESSAGE SHOW,17@|HIDE,18@
END

STRINGA 21
BEGIN
 KEY "RESIDENTE IN: VIA (RF)"
 PROMPT 83 15 ""
 FIELD 16@->INDRF
 GROUP 17
END

STRINGA 22
BEGIN
 KEY "RESIDENTE IN: NUMERO CIVICO (RF)"
 PROMPT 131 15 ""
 FIELD 16@->CIVRF
 GROUP 17
END

STRINGA 23
BEGIN
 KEY "RESIDENTE IN: VIA (RES)"
 PROMPT 83 15 ""
 GROUP 18
 FLAGS "H"
 FIELD 16@->INDRES
END

STRINGA 24
BEGIN
 KEY "RESIDENTE IN: NUMERO CIVICO (RES)"
 PROMPT 131 15 ""
 GROUP 18
 FLAGS "H"
 FIELD 16@->CIVRES
END

GRUPPO 25
BEGIN
 KEY "DATI CONIUGE (ALIAS 26 e 28)"
END

STRINGA 26
BEGIN
 KEY "COGNOME"
 PROMPT 11 18 ""
 GROUP 1
 FIELD 26@->RAGSOC[1,30]
END

STRINGA 27
BEGIN
 KEY "NOME"
 PROMPT 65 18 ""
 GROUP 1
 FIELD 26@->RAGSOC[31,0]
END

DATA 28
BEGIN
 KEY "DATA DI NASCITA"
 PROMPT 108 18 ""
 GROUP 1
 PICTURE "##^  ##^ ^###"
 FIELD 28@->DATANASC
 FORMAT "1444-"
END

STRINGA 269
BEGIN
 KEY "SESSO (M o F)"
 PROMPT 130 18 ""
 GROUP 1
 FIELD 28@->SESSO
END

STRINGA 29
BEGIN
 KEY "COMUNE (o Stato estero) DI NASCITA"
 PROMPT 11 20 ""
 GROUP 1
 FIELD 313@->DENCOM
END

STRINGA 30
BEGIN
 KEY "PROV. DI NASCITA (sigla)"
 PROMPT 74 20 ""
 GROUP 1
 FIELD 313@->PROVCOM
END

STRINGA 31
BEGIN
 KEY "CODICE FISCALE"
 PROMPT 83 20 ""
 GROUP 1
 PICTURE "# # # # # # # # # # # # # # # #"
 FIELD 26@->COFI
END

NUMERO 32
BEGIN
 KEY "Campo per azzerare il gruppo delle X"
 MESSAGE SHOW,9@
END

NUMERO 33
BEGIN
 KEY "Campo per azzerare il totalizzatore"
 MESSAGE RESET,5@
END

NUMERO 34
BEGIN
 KEY "Anno di riferimento (saldo IRPEF)"
 PROMPT 64 24 ""
 PICTURE "#  #"
 FIELD I0
END

NUMERO 35
BEGIN
 KEY "Importo saldo IRPEF"
 PROMPT 87 24 ""
 MESSAGE ADD,5@
 PICTURE "###.###.###^^^"
 MESSAGE EMPTY HIDE,36
 FIELD R0
END

STRINGA 36
BEGIN
 KEY "X su SALDO-IRPEF"
 PROMPT 41 24 "X"
 GROUP 9
END

NUMERO 37
BEGIN
 KEY "Anno di riferimento (acconto IRPEF)"
 PROMPT 64 26 ""
 PICTURE "#  #"
 FIELD I1
END

NUMERO 38
BEGIN
 KEY "Importo acconto IRPEF"
 PROMPT 87 26 ""
 MESSAGE ADD,5@
 PICTURE "###.###.###^^^"
 MESSAGE EMPTY HIDE,39
 FIELD R1
END

STRINGA 39
BEGIN
 KEY "X su ACCONTO-IRPEF"
 PROMPT 41 26 "X"
 GROUP 9
END

NUMBER 40
BEGIN
 KEY "Anno di rif. (saldo ILOR dich.)"
 PROMPT 64 28 ""
 PICTURE "#  #"
 FIELD I2
END

NUMERO 41
BEGIN
 KEY "Importo saldo ILOR dichiarante"
 PROMPT 87 28 ""
 MESSAGE ADD,5@
 PICTURE "###.###.###^^^"
 MESSAGE EMPTY HIDE,42
 FIELD R2
END

STRINGA 42
BEGIN
 KEY "X su SALDO-ILOR"
 PROMPT 41 28 "X"
 GROUP 9
END

NUMERO 43
BEGIN
 KEY "Anno di rif. (acconto ILOR dich.)"
 PROMPT 64 30 ""
 PICTURE "#  #"
 FIELD I3
END

NUMERO 44
BEGIN
 KEY "Importo acconto ILOR dichiarante"
 PROMPT 87 30 ""
 MESSAGE ADD,5@
 PICTURE "###.###.###^^^"
 MESSAGE EMPTY HIDE,45
 FIELD R3
END

STRINGA 45
BEGIN
 KEY "X su ACCONTO-ILOR"
 PROMPT 41 30 "X"
 GROUP 9
END

NUMERO 46
BEGIN
 KEY "Anno di rif. (saldo SSN dich.)"
 PROMPT 64 32 ""
 PICTURE "#  #"
 FIELD I4
END

NUMERO 47
BEGIN
 KEY "Importo saldo SSN dichiarante"
 PROMPT 87 32 ""
 MESSAGE ADD,5@
 PICTURE "###.###.###^^^"
 MESSAGE EMPTY HIDE,48
 FIELD R4
END

STRINGA 48
BEGIN
 KEY "X su SALDO-SSN"
 PROMPT 41 32 "X"
 GROUP 9
END

NUMERO 49
BEGIN
 KEY "Anno di rif. (acconto SSN dich.)"
 PROMPT 64 34 ""
 PICTURE "#  #"
 FIELD I5
END

NUMERO 50
BEGIN
 KEY "Importo acconto SSN dichiarante"
 PROMPT 87 34 ""
 MESSAGE ADD,5@
 PICTURE "###.###.###^^^"
 MESSAGE EMPTY HIDE,51
 FIELD R5
END

STRINGA 51
BEGIN
 KEY "X su ACCONTO-SSN"
 PROMPT 41 34 "X"
 GROUP 9
END

STRING 52
BEGIN
  KEY "Codice regione SSN dichiarante"
  PROMPT 112 33 ""
  PICTURE  "#  #"
  FIELD S6
END

NUMERO 53
BEGIN
 KEY "Anno di rif. (saldo ILOR coniuge)"
 PROMPT 64 36 ""
 PICTURE "#  #"
 FIELD I6
END

NUMERO 54
BEGIN
 KEY "Importo saldo ILOR coniuge"
 PROMPT 87 36 ""
 MESSAGE ADD,5@
 PICTURE "###.###.###^^^"
 MESSAGE EMPTY HIDE,55
 FIELD R6
END

STRINGA 55
BEGIN
 KEY "X su SALDO-ILOR (coniuge)"
 PROMPT 41 36 "X"
 GROUP 9
END

NUMERO 56
BEGIN
 KEY "Anno di rif. (acc. ILOR coniuge)"
 PROMPT 64 38 ""
 PICTURE "#  #"
 FIELD I7
END

NUMERO 57
BEGIN
 KEY "Importo acconto ILOR coniuge"
 PROMPT 87 38 ""
 MESSAGE ADD,5@
 PICTURE "###.###.###^^^"
 MESSAGE EMPTY HIDE,58
 FIELD R7
END

STRINGA 58
BEGIN
 KEY "X su ACCONTO-ILOR (coniuge)"
 PROMPT 41 38 "X"
 GROUP 9
END

NUMERO 59
BEGIN
 KEY "Anno di rif. (saldo SSN coniuge)"
 PROMPT 64 40 ""
 PICTURE "#  #"
 FIELD I8
END

NUMERO 60
BEGIN
 KEY "Importo saldo SSN coniuge"
 PROMPT 87 40 ""
 MESSAGE ADD,5@
 PICTURE "###.###.###^^^"
 MESSAGE EMPTY HIDE,61
 FIELD R8
END

STRINGA 61
BEGIN
 KEY "X su SALDO-SSN (coniuge)"
 PROMPT 41 40 "X"
 GROUP 9
END

NUMERO 62
BEGIN
 KEY "Anno di rif. (acc. SSN coniuge)"
 PROMPT 64 42 ""
 PICTURE "#  #"
 FIELD I9
END

NUMERO 63
BEGIN
 KEY "Importo acconto SSN coniuge"
 PROMPT 87 42 ""
 MESSAGE ADD,5@
 PICTURE "###.###.###^^^"
 MESSAGE EMPTY HIDE,64
 FIELD R9
END

STRINGA 64
BEGIN
 KEY "X su ACCONTO-SSN (coniuge)"
 PROMPT 41 42 "X"
 GROUP 9
END

STRING 65
BEGIN
  KEY "Codice regione SSN coniuge"
  PROMPT 112 41 ""
  PICTURE  "#  #"
  FIELD S9
END

STRINGA 66
BEGIN
  KEY "Centro di serv. o Uff. imp. dir."
  PROMPT 61 44 ""
  PICTURE "#  #  #"
  FIELD 213@->UFFCSERV
END

STRING 67
BEGIN
 KEY "Intestatario tributo (1)"
 PROMPT 34 49 ""
 FIELD S2[5,5]
END

STRING 68
BEGIN
 KEY "Codice tributo (1)"
 PROMPT 42 49 ""
 FIELD S2[1,4]
END

STRING 69
BEGIN
 KEY "Codice regione tributo (1)"
 PROMPT 112 49 ""
 PICTURE  "#  #"
 FIELD S2[6,7]
END

NUMERO 70
BEGIN
 KEY "Anno di riferimento tributo (1)"
 PROMPT 64 49 ""
 PICTURE "#  #"
 FIELD I10
END

NUMERO 71
BEGIN
 KEY "Importo tributo (1)"
 PROMPT 87 49 ""
 MESSAGE ADD,5@
 PICTURE "###.###.###^^^"
 FIELD R10
END

STRING 72
BEGIN
 KEY "Intestatario tributo (2)"
 PROMPT 34 51 ""
 FIELD S3[5,5]
END

STRING 73
BEGIN
 KEY "Codice tributo (2)"
 PROMPT 42 51 ""
 FIELD S3[1,4]
END

STRING 74
BEGIN
 KEY "Codice regione tributo (2)"
 PROMPT 112 51 ""
 PICTURE  "#  #"
 FIELD S3[6,7]
END

NUMERO 75
BEGIN
 KEY "Anno di riferimento tributo (2)"
 PROMPT 64 51 ""
 PICTURE "#  #"
 FIELD I11
END

NUMERO 76
BEGIN
 KEY "Importo tributo (2)"
 PROMPT 87 51 ""
 MESSAGE ADD,5@
 PICTURE "###.###.###^^^"
 FIELD R11
END

STRING 77
BEGIN
 KEY "Intestatario tributo (3)"
 PROMPT 34 53 ""
 FIELD S4[5,5]
END

STRING 78
BEGIN
 KEY "Codice tributo (3)"
 PROMPT 42 53 ""
 FIELD S4[1,4]
END

STRING 79
BEGIN
 KEY "Codice regione tributo (3)"
 PROMPT 112 53 ""
 PICTURE  "#  #"
 FIELD S4[6,7]
END

NUMERO 80
BEGIN
 KEY "Anno di riferimento tributo (3)"
 PROMPT 64 53 ""
 PICTURE "#  #"
 FIELD I12
END

NUMERO 81
BEGIN
 KEY "Importo tributo (3)"
 PROMPT 87 53 ""
 MESSAGE ADD,5@
 PICTURE "###.###.###^^^"
 FIELD R12
END

STRING 82
BEGIN
 KEY "Intestatario tributo (4)"
 PROMPT 34 55 ""
 FIELD S5[5,5]
END

STRING 83
BEGIN
 KEY "Codice tributo (4)"
 PROMPT 42 55 ""
 FIELD S5[1,4]
END

STRING 84
BEGIN
 KEY "Codice regione tributo (4)"
 PROMPT 112 55 ""
 PICTURE  "#  #"
 FIELD S5[6,7]
END

NUMERO 85
BEGIN
 KEY "Anno di riferimento tributo (4)"
 PROMPT 64 55 ""
 PICTURE "#  #"
 FIELD I13
END

NUMERO 86
BEGIN
 KEY "Importo tributo (4)"
 PROMPT 87 55 ""
 MESSAGE ADD,5@
 PICTURE "###.###.###^^^"
 FIELD R13
END

NUMERO 87
BEGIN
 KEY "TOTALE (in cifre)"
 PROMPT 87 58 ""
 GROUP  5
 PICTURE "###.###.###^^^"
END

NUMERO 88
BEGIN
 KEY "TOTALE (in lettere)"
 PROMPT 20 61 ""
 GROUP  5
 PICTURE "LETTERE"
END

DATA 89
BEGIN
 KEY "DATA: giorno - mese - anno"
 PROMPT 81 66 ""
 PICTURE "@  @^  @  @^^^@  @"
 FIELD D0
 FORMAT "1444-"
END

STRINGA 90
BEGIN
 KEY "CODICE AZIENDA"
 PROMPT 102 66 ""
 FIELD S7
END

STRINGA 91
BEGIN
 KEY "CODICE DIPENDENZA"
 PROMPT 120 66 ""
 FIELD S8
END

END

END