campo-sirio/ba/disskx.frm
alex 7f745daeaa Sostituito ~ con ^
git-svn-id: svn://10.65.10.50/trunk@1419 c028cbd2-c16b-5b4b-a496-9718f37d4682
1995-05-31 14:12:47 +00:00

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