campo-sirio/ba/deliig.frm

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=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 %BAN ALIAS 14 INTO CODTAB=S7
JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
JOIN %UCS TO 213@ ALIAS 34 INTO CODTAB==UFFCSERV
JOIN %UID TO 213@ ALIAS 44 INTO CODTAB==UFFIIDD1

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 "Courier New"
  SIZE 7
END

SECTION BODY ODD 72

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

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

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

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

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

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

LISTA 
BEGIN
 KEY "Societa'"
 PROMPT 93 11 ""
 FIELD 6->TIPOA
 ITEM "F|" 
 ITEM "G|X" 
END

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

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

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

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

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

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

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

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

STRINGA 
BEGIN
 KEY "RESIDENTE IN: VIA"
 PROMPT 83 15 ""
 FIELD 16@->INDRES
END

STRINGA 
BEGIN
 KEY "RESIDENTE IN: NUMERO CIVICO"
 PROMPT 131 15 ""
 FIELD 16@->CIVRES
END

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

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

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

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

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

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

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

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

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

NUMERO 
BEGIN
 KEY "Importo saldo IRPEF"
 PROMPT 87 24 ""
 MESSAGE ADD,1@
 PICTURE "###.###.###^^^"
 FIELD R0
END

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

NUMERO 
BEGIN
 KEY "Importo acconto IRPEF"
 PROMPT 87 26 ""
 MESSAGE ADD,1@
 PICTURE "###.###.###^^^"
 FIELD R1
END

NUMBER 
BEGIN
 KEY "Anno di riferimento (saldo ILOR dichiarante)"
 PROMPT 64 28 ""
 PICTURE "#  #"
 FIELD I2
END

NUMERO 
BEGIN
 KEY "Importo saldo ILOR dichiarante"
 PROMPT 87 28 ""
 MESSAGE ADD,1@
 PICTURE "###.###.###^^^"
 FIELD R2
END

NUMERO 
BEGIN
 KEY "Anno di riferimento (acconto ILOR dichiarante)"
 PROMPT 64 30 ""
 PICTURE "#  #"
 FIELD I3
END

NUMERO 
BEGIN
 KEY "Importo acconto ILOR dichiarante"
 PROMPT 87 30 ""
 MESSAGE ADD,1@
 PICTURE "###.###.###^^^"
 FIELD R3
END

NUMERO 
BEGIN
 KEY "Anno di riferimento (saldo SSN dichiarante)"
 PROMPT 64 32 ""
 PICTURE "#  #"
 FIELD I4
END

NUMERO 
BEGIN
 KEY "Importo saldo SSN dichiarante"
 PROMPT 87 32 ""
 MESSAGE ADD,1@
 PICTURE "###.###.###^^^"
 FIELD R4
END

NUMERO 
BEGIN
 KEY "Anno di riferimento (acconto SSN dichiarante)"
 PROMPT 64 34 ""
 PICTURE "#  #"
 FIELD I5
END

NUMERO 
BEGIN
 KEY "Importo acconto SSN dichiarante"
 PROMPT 87 34 ""
 MESSAGE ADD,1@
 PICTURE "###.###.###^^^"
 FIELD R5
END

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

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

NUMERO 
BEGIN
 KEY "Importo saldo ILOR coniuge"
 PROMPT 87 36 ""
 MESSAGE ADD,1@
 PICTURE "###.###.###^^^"
 FIELD R6
END

NUMERO 
BEGIN
 KEY "Anno di riferimento (acconto ILOR coniuge)"
 PROMPT 64 38 ""
 PICTURE "#  #"
 FIELD I7
END

NUMERO 
BEGIN
 KEY "Importo acconto ILOR coniuge"
 PROMPT 87 38 ""
 MESSAGE ADD,1@
 PICTURE "###.###.###^^^"
 FIELD R7
END

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

NUMERO 
BEGIN
 KEY "Importo saldo SSN coniuge"
 PROMPT 87 40 ""
 MESSAGE ADD,1@
 PICTURE "###.###.###^^^"
 FIELD R8
END

NUMERO 
BEGIN
 KEY "Anno di riferimento (acconto SSN coniuge)"
 PROMPT 64 42 ""
 PICTURE "#  #"
 FIELD I9
END

NUMERO 
BEGIN
 KEY "Importo acconto SSN coniuge"
 PROMPT 87 42 ""
 MESSAGE ADD,1@
 PICTURE "###.###.###^^^"
 FIELD R9
END

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

STRINGA
BEGIN
  KEY "Centro di servizio o Ufficio imposte dirette"
  PROMPT 61 44 ""
  PICTURE "#  #  #"
  FIELD 213@->UFFCSERV
  FIELD 213@->UFFIIDD1
END

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

END

END