db5acc1fba
DISTITCF => DISIVACF DISSKX => DISGEN DISSD6 => DISIRG DELSII => DELIRF DELSDI => DELIIRCF DISSDI => DISIIRCF DELSDR => DELRITCF DISSDR => DISRITCF BOLTITCF => BOLIVACF git-svn-id: svn://10.65.10.50/trunk@1639 c028cbd2-c16b-5b4b-a496-9718f37d4682
301 lines
3.8 KiB
Plaintext
Executable File
301 lines
3.8 KiB
Plaintext
Executable File
// Distinte di versamento Quadro K 7xx
|
|
|
|
USE %SKX
|
|
|
|
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 ALIAS 14 INTO CODTAB=S9
|
|
|
|
END
|
|
|
|
SECTION BODY 0 66 0 0
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CONCESSIONE DI"
|
|
PROMPT 40 5 ""
|
|
FIELD 14->S0
|
|
END
|
|
|
|
GRUPPO
|
|
BEGIN
|
|
KEY "DATI DICHIARANTE (ALIAS 16 e 18)"
|
|
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 (ALIAS 26 e 28)"
|
|
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 "PERIODO DI RIFERIMENTO 1"
|
|
PROMPT 43 25 ""
|
|
FIELD I0
|
|
PICTURE "# #"
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "PERIODO DI RIFERIMENTO 2"
|
|
PROMPT 53 25 ""
|
|
FIELD I1
|
|
PICTURE "# #"
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CODICE TRIBUTO"
|
|
PROMPT 5 29 ""
|
|
FIELD S2
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "GRUPPO"
|
|
PROMPT 16 29 ""
|
|
FIELD I2
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IMPORTO TRIBUTO"
|
|
PROMPT 27 29 ""
|
|
FIELD R0
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE COPY,1@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 44 29 ""
|
|
FIELD R1
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE ADD,1@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TOTALE (a)"
|
|
PROMPT 62 29 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE COPY,2@
|
|
GROUP 1
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CODICE TRIBUTO SOPRATASSA"
|
|
PROMPT 5 35 ""
|
|
FIELD S3
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "GRUPPO SOPRATASSA"
|
|
PROMPT 12 35 ""
|
|
FIELD I3
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IMPORTO (b)"
|
|
PROMPT 22 35 ""
|
|
FIELD R2
|
|
PICTURE "###.###.###.###^^^"
|
|
MESSAGE ADD,2@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TOTALE DA VERSARE (a+b)"
|
|
PROMPT 62 40 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
GROUP 2
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CODICE CONTRIBUENTE Dichiarante"
|
|
PROMPT 2 53 "# # # # # # # # # # # # # # #"
|
|
FIELD 16@->CODCONTR
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CODICE CONTRIBUENTE Coniuge"
|
|
PROMPT 2 56 "# # # # # # # # # # # # # # #"
|
|
FIELD 26@->CODCONTR
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CENTRO SERVIZI: Provincia e Denominazione"
|
|
PROMPT 42 56 ""
|
|
MESSAGE _CENSERoUFFIMP,16@,213@
|
|
END
|
|
|
|
DATA
|
|
BEGIN
|
|
KEY "DATA: giorno - mese - anno"
|
|
PROMPT 12 60 ""
|
|
PICTURE "@ @^@ @^^^@ @"
|
|
FIELD D0
|
|
END
|
|
|
|
END
|
|
|
|
END
|