Aggiunto form DELIIG.FRM che sostituisce DELIRF, DELILO e DELGEN.
Modificato il file in STD. git-svn-id: svn://10.65.10.50/trunk@1949 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo
parent
c607855533
commit
22593a46fd
607
ba/deliig.frm
Executable file
607
ba/deliig.frm
Executable file
@ -0,0 +1,607 @@
|
||||
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
|
||||
Loading…
x
Reference in New Issue
Block a user