campo-sirio/ba/dissii.frm

// Distinte di versamento IRPEF/ILOR (PERSONE FISICHE)

USE %SII

JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 6 ALIAS 18 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)

JOIN 6 ALIAS 26 INTO TIPOA=S1[1,1] CODANAGR=S1[2,6]
JOIN 8 TO 6 ALIAS 28 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 313 INTO COM=COMNASC

JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC

END

SECTION BODY 0 66 0 0

STRINGA
BEGIN
 KEY "CONCESSIONE DI"
 PROMPT 40 5 ""
 FIELD 14@->S0
END

GRUPPO
BEGIN
  KEY "DATI DICHIARANTE"
END

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

STRINGA
BEGIN
 KEY "NOME"
 PROMPT 36 10 ""
 FIELD 16->RAGSOC[31,0]
END

DATA
BEGIN
 KEY "DATA DI NASCITA"
 PROMPT 56 10 ""
 PICTURE "# #~# #~~ # # #"
 FIELD 18->DATANASC
END

STRINGA
BEGIN
 KEY "SESSO (M o F)"
 PROMPT 69 12 ""
 FIELD 18->SESSO
END

STRINGA
BEGIN
 KEY "STATO CIVILE"
 PROMPT 74 12 ""
 FIELD 18->STATCIV
END

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

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

STRINGA
BEGIN
 KEY "CODICE FISCALE"
 PROMPT 46 12 ""
 FIELD 16->COFI
 PICTURE "# # # # # # # # # # # # # # #"
END

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

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

STRINGA
BEGIN
 KEY "RESIDENTE IN: VIA"
 PROMPT 46 14 ""
 FIELD 16->INDRES
END

STRINGA
BEGIN
 KEY "RESIDENTE IN: NUMERO CIVICO"
 PROMPT 72 14 ""
 FIELD 16->CIVRES
END   

GRUPPO
BEGIN
  KEY "DATI CONIUGE"
END

STRINGA
BEGIN
 KEY "COGNOME"
 PROMPT 5 17 ""
 FIELD 26->RAGSOC[1,30]
END

STRINGA
BEGIN
 KEY "NOME"
 PROMPT 36 17 ""
 FIELD 26->RAGSOC[31,0]
END

DATA
BEGIN
 KEY "DATA DI NASCITA"
 PROMPT 56 17 ""
 PICTURE "# #~# #~~ # # #"
 FIELD 28->DATANASC
END

STRINGA
BEGIN
 KEY "SESSO (M o F)"
 PROMPT 69 17 ""
 FIELD 28->SESSO
END

STRINGA
BEGIN
 KEY "STATO CIVILE"
 PROMPT 74 17 ""
 FIELD 28->STATCIV
END

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

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

STRINGA
BEGIN
 KEY "CODICE FISCALE"
 PROMPT 46 19 ""
 FIELD 26->COFI
 PICTURE "# # # # # # # # # # # # # # #"
END

NUMERO
BEGIN
 KEY "IRPEF Saldo: anno"
 PROMPT 25 24 ""
 FIELD I0
 PICTURE "~~# #"
END

NUMERO
BEGIN
 KEY "IRPEF Saldo: Imposta"
 PROMPT 32 24 ""
 FIELD R0
 MESSAGE COPY,10@
END

NUMERO
BEGIN
 KEY "IRPEF Saldo: Interessi"
 PROMPT 47 24 ""
 FIELD R7    
 MESSAGE ADD,10@
END

NUMERO
BEGIN
 KEY "IRPEF Saldo: Totale"
 PROMPT 62 24 ""
 GROUP 10
 MESSAGE COPY,20@
END

NUMERO
BEGIN
 KEY "IRPEF Acconto: anno"
 PROMPT 25 28 ""
 FIELD I1
 PICTURE "~~# #"
END

NUMERO
BEGIN
 KEY "IRPEF Acconto: Imposta"
 PROMPT 32 28 ""
 FIELD R1
 MESSAGE COPY,11@
END

NUMERO
BEGIN
 KEY "IRPEF Acconto: Interessi"
 PROMPT 47 28 ""
 FIELD R8
 MESSAGE ADD,11@
END

NUMERO
BEGIN
 KEY "IRPEF Acconto: Totale"
 PROMPT 62 28 ""
 GROUP 11
 MESSAGE ADD,20@
END

NUMERO
BEGIN
 KEY "ILOR Saldo: anno"
 PROMPT 25 35 ""
 FIELD I2
 PICTURE "~~# #"
END

NUMERO
BEGIN
 KEY "ILOR Saldo dichiarante: Imposta"
 PROMPT 32 37 ""
 FIELD R2
 MESSAGE COPY,12@
END

NUMERO
BEGIN
 KEY "ILOR Saldo dichiarante: Interessi"
 PROMPT 47 37 ""
 FIELD R9
 MESSAGE ADD,12@
END

NUMERO
BEGIN
 KEY "ILOR Saldo dichiarante: Totale"
 PROMPT 62 37 ""
 GROUP 12
 MESSAGE ADD,20@
END

NUMERO
BEGIN
 KEY "ILOR Saldo coniuge: Imposta"
 PROMPT 32 39 ""
 FIELD R3
 MESSAGE COPY,13@
END

NUMERO
BEGIN
 KEY "ILOR Saldo coniuge: Interessi"
 PROMPT 47 39 ""
 FIELD R10
 MESSAGE ADD,13@
END

NUMERO
BEGIN
 KEY "ILOR Saldo coniuge: Totale"
 PROMPT 62 39 ""
 GROUP 13
 MESSAGE ADD,20@
END

NUMERO
BEGIN
 KEY "ILOR Acconto: anno"
 PROMPT 25 43 ""
 FIELD I3
 PICTURE "~~# #"
END

NUMERO
BEGIN
 KEY "ILOR Acconto dichiarante: Imposta"
 PROMPT 32 45 ""
 FIELD R4
 MESSAGE COPY,14@
END

NUMERO
BEGIN
 KEY "ILOR Acconto dichiarante: Interessi"
 PROMPT 47 45 ""
 FIELD R11
 MESSAGE ADD,14@
END

NUMERO
BEGIN
 KEY "ILOR Acconto dichiarante: Totale"
 PROMPT 62 45 ""
 GROUP 14
 MESSAGE ADD,20@
END

NUMERO
BEGIN
 KEY "ILOR Acconto coniuge: Imposta"
 PROMPT 32 47 ""
 FIELD R5
 MESSAGE COPY,15@
END

NUMERO
BEGIN
 KEY "ILOR Acconto coniuge: Interessi"
 PROMPT 47 47 ""
 FIELD R12
 MESSAGE ADD,15@
END

NUMERO
BEGIN
 KEY "ILOR Acconto coniuge: Totale"
 PROMPT 62 47 ""
 GROUP 15
 MESSAGE ADD,20@
END

NUMERO
BEGIN
 KEY "ILOR: TOTALE DA VERSARE"
 PROMPT 62 50 ""
 GROUP 20
END

STRINGA
BEGIN
  KEY "CODICE CONTRIBUENTE Dichiarante"
  PROMPT 2 54 "# # # # # # # # # # # # # # #"
  FIELD 16@->CODCONTR
END

STRINGA
BEGIN
  KEY "CODICE CONTRIBUENTE Coniuge"
  PROMPT 2 57 "# # # # # # # # # # # # # # #"
  FIELD 26@->CODCONTR
END


STRINGA
BEGIN
  KEY "CENTRO SERVIZI: Provincia e Denominazione"
  PROMPT 42 57 ""
  MESSAGE _CENSERoUFFIMP,16@,213@
END

DATA
BEGIN
 KEY "DATA: giorno - mese - anno"
 PROMPT 12 60 ""
 PICTURE "@ @~@ @~~~@ @"
 FIELD D0
END

END

END