Corrette ed aggiunte deleghe per gli Automatici
git-svn-id: svn://10.65.10.50/trunk@1290 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
9e27cb419a
commit
ee6fd84c6b
370
ba/del.frm
370
ba/del.frm
@ -12,343 +12,343 @@ END
|
|||||||
SECTION BODY 0 66
|
SECTION BODY 0 66
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Sede Azienda"
|
KEY "Sede Azienda"
|
||||||
PROMPT 34 10 ""
|
PROMPT 34 10 ""
|
||||||
FIELD 1@->S0
|
FIELD 1@->S0
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Sede Filiale"
|
KEY "Sede Filiale"
|
||||||
PROMPT 34 12 ""
|
PROMPT 34 12 ""
|
||||||
FIELD 1@->S1
|
FIELD 1@->S1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Provicia Banca"
|
KEY "Provicia Banca"
|
||||||
PROMPT 73 12 ""
|
PROMPT 73 12 ""
|
||||||
FIELD 11@->PROVCOM
|
FIELD 11@->PROVCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTA
|
LISTA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Tipo anagrafica"
|
KEY "Tipo anagrafica"
|
||||||
FIELD 6->TIPOA
|
FIELD 6->TIPOA
|
||||||
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
|
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
|
||||||
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
||||||
END
|
END
|
||||||
|
|
||||||
GRUPPO
|
GRUPPO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Persone fisiche"
|
KEY "Persone fisiche"
|
||||||
PROMPT 0 0 ""
|
PROMPT 0 0 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTA
|
LISTA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Sesso"
|
KEY "Sesso"
|
||||||
PROMPT 19 20 "X X"
|
PROMPT 19 20 "X X"
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 8->SESSO
|
FIELD 8->SESSO
|
||||||
ITEM "M| " MESSAGE SHOW,3|HIDE,4
|
ITEM "M| " MESSAGE SHOW,3|HIDE,4
|
||||||
ITEM "F| " MESSAGE SHOW,4|HIDE,3
|
ITEM "F| " MESSAGE SHOW,4|HIDE,3
|
||||||
END
|
END
|
||||||
|
|
||||||
GRUPPO
|
GRUPPO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Sesso maschile"
|
KEY "Sesso maschile"
|
||||||
PROMPT 0 0 ""
|
PROMPT 0 0 ""
|
||||||
GROUP 3
|
GROUP 3
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Il sottoscritto"
|
KEY "Il sottoscritto"
|
||||||
PROMPT 2 14 "I o"
|
PROMPT 2 14 "I o"
|
||||||
GROUP 1 3
|
GROUP 1 3
|
||||||
END
|
END
|
||||||
|
|
||||||
GRUPPO
|
GRUPPO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Sesso Femminile"
|
KEY "Sesso Femminile"
|
||||||
PROMPT 0 0 ""
|
PROMPT 0 0 ""
|
||||||
GROUP 4
|
GROUP 4
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "La sottoscritta"
|
KEY "La sottoscritta"
|
||||||
PROMPT 2 14 " a a"
|
PROMPT 2 14 " a a"
|
||||||
GROUP 1 4
|
GROUP 1 4
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Cognome"
|
KEY "Cognome"
|
||||||
PROMPT 5 17 ""
|
PROMPT 5 17 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 6->RAGSOC[1,30]
|
FIELD 6->RAGSOC[1,30]
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Nome"
|
KEY "Nome"
|
||||||
PROMPT 35 17 ""
|
PROMPT 35 17 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 6->RAGSOC[31,-1]
|
FIELD 6->RAGSOC[31,-1]
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Giorno di nascita"
|
KEY "Giorno di nascita"
|
||||||
PROMPT 1 20 ""
|
PROMPT 1 20 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PICTURE "@ @"
|
PICTURE "@ @"
|
||||||
FIELD 8->DATANASC[1,2]
|
FIELD 8->DATANASC[1,2]
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Mese di nascita"
|
KEY "Mese di nascita"
|
||||||
PROMPT 5 20 ""
|
PROMPT 5 20 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PICTURE "@ @"
|
PICTURE "@ @"
|
||||||
FIELD 8->DATANASC[4,5]
|
FIELD 8->DATANASC[4,5]
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Anno di nascita"
|
KEY "Anno di nascita"
|
||||||
PROMPT 9 20 ""
|
PROMPT 9 20 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PICTURE "@ @"
|
PICTURE "@ @"
|
||||||
FIELD 8->DATANASC[9,10]
|
FIELD 8->DATANASC[9,10]
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Comune di nascita"
|
KEY "Comune di nascita"
|
||||||
PROMPT 30 20 ""
|
PROMPT 30 20 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 13@->DENCOM
|
FIELD 13@->DENCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Provincia di nascita"
|
KEY "Provincia di nascita"
|
||||||
PROMPT 78 20 ""
|
PROMPT 78 20 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 13@->PROVCOM
|
FIELD 13@->PROVCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
GRUPPO
|
GRUPPO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Persone giuridiche"
|
KEY "Persone giuridiche"
|
||||||
PROMPT 0 0 ""
|
PROMPT 0 0 ""
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Ragione Sociale"
|
KEY "Ragione Sociale"
|
||||||
PROMPT 3 24 ""
|
PROMPT 3 24 ""
|
||||||
GROUP 2
|
GROUP 2
|
||||||
FIELD 6->RAGSOC
|
FIELD 6->RAGSOC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Natura Giuridica"
|
KEY "Natura Giuridica"
|
||||||
PROMPT 77 24 ""
|
PROMPT 77 24 ""
|
||||||
GROUP 2
|
GROUP 2
|
||||||
FIELD 7->NATGIU
|
FIELD 7->NATGIU
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Via Indirizzo Fiscale"
|
KEY "Via Indirizzo Fiscale"
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
MESSAGE COPY,527
|
MESSAGE COPY,527
|
||||||
FIELD 6->INDRF
|
FIELD 6->INDRF
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Numero Civico Indirizzo Fiscale"
|
KEY "Numero Civico Indirizzo Fiscale"
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
MESSAGE APPEND,527
|
MESSAGE APPEND,527
|
||||||
FIELD 6->INDRF
|
FIELD 6->INDRF
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 527 35
|
STRINGA 527 35
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Indirizzo Fiscale"
|
KEY "Indirizzo Fiscale"
|
||||||
PROMPT 5 27 ""
|
PROMPT 5 27 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CAP fiscale"
|
KEY "CAP fiscale"
|
||||||
PROMPT 45 27 ""
|
PROMPT 45 27 ""
|
||||||
FIELD 6->CAPRF
|
FIELD 6->CAPRF
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Comune di residenza fiscale"
|
KEY "Comune di residenza fiscale"
|
||||||
PROMPT 56 27 ""
|
PROMPT 56 27 ""
|
||||||
FIELD 12@->DENCOM
|
FIELD 12@->DENCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Provincia di residenza fiscale"
|
KEY "Provincia di residenza fiscale"
|
||||||
PROMPT 75 27 ""
|
PROMPT 75 27 ""
|
||||||
FIELD 12@->PROVCOM
|
FIELD 12@->PROVCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Partita IVA"
|
KEY "Partita IVA"
|
||||||
PROMPT 12 30 ""
|
PROMPT 12 30 ""
|
||||||
PICTURE "# # # # # # # ~ ~ ~ #"
|
PICTURE "# # # # # # # ~ ~ ~ #"
|
||||||
FIELD 6->PAIV
|
FIELD 6->PAIV
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Codice fiscale"
|
KEY "Codice fiscale"
|
||||||
PROMPT 42 30 ""
|
PROMPT 42 30 ""
|
||||||
PICTURE "# # # # # # # # # # # # # # # #"
|
PICTURE "# # # # # # # # # # # # # # # #"
|
||||||
FIELD 6->COFI
|
FIELD 6->COFI
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Anno di versamento"
|
KEY "Anno di versamento"
|
||||||
PROMPT 40 35 ""
|
PROMPT 40 35 ""
|
||||||
PICTURE "~ ~ @ @"
|
PICTURE "~ ~ @ @"
|
||||||
FIELD CODTAB[6,9]
|
FIELD CODTAB[6,9]
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTA
|
LISTA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Periodo di versamento"
|
KEY "Periodo di versamento"
|
||||||
PROMPT 50 35 ""
|
PROMPT 50 35 ""
|
||||||
FIELD CODTAB[10,11]
|
FIELD CODTAB[10,11]
|
||||||
ITEM "01|Gennaio"
|
ITEM "01|Gennaio"
|
||||||
ITEM "02|Febbraio"
|
ITEM "02|Febbraio"
|
||||||
ITEM "03|Marzo"
|
ITEM "03|Marzo"
|
||||||
ITEM "04|Aprile"
|
ITEM "04|Aprile"
|
||||||
ITEM "05|Maggio"
|
ITEM "05|Maggio"
|
||||||
ITEM "06|Giugno"
|
ITEM "06|Giugno"
|
||||||
ITEM "07|Luglio"
|
ITEM "07|Luglio"
|
||||||
ITEM "08|Agosto"
|
ITEM "08|Agosto"
|
||||||
ITEM "09|Settembre"
|
ITEM "09|Settembre"
|
||||||
ITEM "10|Ottobre"
|
ITEM "10|Ottobre"
|
||||||
ITEM "11|Novembre"
|
ITEM "11|Novembre"
|
||||||
ITEM "12|Dicembre"
|
ITEM "12|Dicembre"
|
||||||
ITEM "13|Annuale"
|
ITEM "13|Annuale"
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTA
|
LISTA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "X sul mese"
|
KEY "X sul mese"
|
||||||
PROMPT 40 40 ""
|
PROMPT 40 40 ""
|
||||||
GROUP 6
|
GROUP 6
|
||||||
FIELD CODTAB[10,11]
|
FIELD CODTAB[10,11]
|
||||||
ITEM "01|X"
|
ITEM "01|X"
|
||||||
ITEM "02| X"
|
ITEM "02| X"
|
||||||
ITEM "03| X"
|
ITEM "03| X"
|
||||||
ITEM "04| X"
|
ITEM "04| X"
|
||||||
ITEM "05| X"
|
ITEM "05| X"
|
||||||
ITEM "06| X"
|
ITEM "06| X"
|
||||||
ITEM "07| X"
|
ITEM "07| X"
|
||||||
ITEM "08| X"
|
ITEM "08| X"
|
||||||
ITEM "09| X"
|
ITEM "09| X"
|
||||||
ITEM "10| X"
|
ITEM "10| X"
|
||||||
ITEM "11| X"
|
ITEM "11| X"
|
||||||
ITEM "12| X"
|
ITEM "12| X"
|
||||||
ITEM "13| X"
|
ITEM "13| X"
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTA
|
LISTA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "X sul trimestre"
|
KEY "X sul trimestre"
|
||||||
PROMPT 4 33 ""
|
PROMPT 4 33 ""
|
||||||
GROUP 6
|
GROUP 6
|
||||||
FIELD CODTAB[10,11]
|
FIELD CODTAB[10,11]
|
||||||
ITEM "01|X"
|
ITEM "01|X"
|
||||||
ITEM "02|X"
|
ITEM "02|X"
|
||||||
ITEM "03|X"
|
ITEM "03|X"
|
||||||
ITEM "04| X"
|
ITEM "04| X"
|
||||||
ITEM "05| X"
|
ITEM "05| X"
|
||||||
ITEM "06| X"
|
ITEM "06| X"
|
||||||
ITEM "07| X"
|
ITEM "07| X"
|
||||||
ITEM "08| X"
|
ITEM "08| X"
|
||||||
ITEM "09| X"
|
ITEM "09| X"
|
||||||
ITEM "10| X"
|
ITEM "10| X"
|
||||||
ITEM "11| X"
|
ITEM "11| X"
|
||||||
ITEM "12| X"
|
ITEM "12| X"
|
||||||
ITEM "13| X"
|
ITEM "13| X"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Importo in cifre"
|
KEY "Importo in cifre"
|
||||||
PROMPT 20 52 ""
|
PROMPT 20 52 ""
|
||||||
PICTURE "###.###.###~~~"
|
PICTURE "###.###.###~~~"
|
||||||
FIELD R0
|
FIELD R0
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Importo in lettere"
|
KEY "Importo in lettere"
|
||||||
PROMPT 40 52 ""
|
PROMPT 40 52 ""
|
||||||
PICTURE "LETTERE"
|
PICTURE "LETTERE"
|
||||||
FIELD R0
|
FIELD R0
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Giorno del versamento"
|
KEY "Giorno del versamento"
|
||||||
PROMPT 30 60 ""
|
PROMPT 30 60 ""
|
||||||
PICTURE "# #"
|
PICTURE "# #"
|
||||||
FIELD D0
|
FIELD D0
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Mese del versamento"
|
KEY "Mese del versamento"
|
||||||
PROMPT 34 60 ""
|
PROMPT 34 60 ""
|
||||||
PICTURE "# #"
|
PICTURE "# #"
|
||||||
FIELD D0
|
FIELD D0
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Anno del versamento"
|
KEY "Anno del versamento"
|
||||||
PROMPT 38 60 ""
|
PROMPT 38 60 ""
|
||||||
PICTURE "# #"
|
PICTURE "# #"
|
||||||
FIELD D0
|
FIELD D0
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Codice Azienda"
|
KEY "Codice Azienda"
|
||||||
PROMPT 60 62 ""
|
PROMPT 60 62 ""
|
||||||
PICTURE "@ @ @ @"
|
PICTURE "@ @ @ @"
|
||||||
FIELD S8
|
FIELD S8
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Codice Filiale"
|
KEY "Codice Filiale"
|
||||||
PROMPT 70 62 ""
|
PROMPT 70 62 ""
|
||||||
PICTURE "~ ~ @ @"
|
PICTURE "~ ~ @ @"
|
||||||
FIELD S8
|
FIELD S8
|
||||||
END
|
END
|
||||||
|
|
||||||
END
|
END
|
||||||
|
|||||||
@ -9,6 +9,8 @@ JOIN %BAN ALIAS 14 INTO CODTAB=S7
|
|||||||
JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
|
JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
|
||||||
JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
|
JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
|
||||||
|
|
||||||
|
END
|
||||||
|
|
||||||
SECTION BODY 0 66 0 0
|
SECTION BODY 0 66 0 0
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
|
|||||||
@ -9,6 +9,8 @@ JOIN %BAN ALIAS 14 INTO CODTAB=S7
|
|||||||
JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
|
JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
|
||||||
JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
|
JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
|
||||||
|
|
||||||
|
END
|
||||||
|
|
||||||
SECTION BODY 0 66 0 0
|
SECTION BODY 0 66 0 0
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
|
|||||||
@ -18,7 +18,7 @@ JOIN 13 TO 24@ ALIAS 413 INTO COM=S5
|
|||||||
JOIN %UCS TO 213@ ALIAS 34 INTO CODTAB=CENSER
|
JOIN %UCS TO 213@ ALIAS 34 INTO CODTAB=CENSER
|
||||||
JOIN 13 TO 34@ ALIAS 513 INTO COM=S6
|
JOIN 13 TO 34@ ALIAS 513 INTO COM=S6
|
||||||
|
|
||||||
|
END
|
||||||
|
|
||||||
SECTION BODY 0 66 0 0
|
SECTION BODY 0 66 0 0
|
||||||
|
|
||||||
|
|||||||
268
ba/dissd6.frm
Executable file
268
ba/dissd6.frm
Executable file
@ -0,0 +1,268 @@
|
|||||||
|
// Distinta di versamento: IRPEG/ILOR (PERSONE GIURIDICHE)
|
||||||
|
|
||||||
|
USE %SDI
|
||||||
|
JOIN %UCC ALIAS 14 INTO CODTAB=S9
|
||||||
|
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
|
||||||
|
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
|
||||||
|
JOIN 13 TO 6 INTO COM=COMRF(COMRES)
|
||||||
|
|
||||||
|
END
|
||||||
|
|
||||||
|
SECTION BODY 0 66 0 0
|
||||||
|
|
||||||
|
STRINGA
|
||||||
|
BEGIN
|
||||||
|
KEY "CONCESSIONE DI"
|
||||||
|
PROMPT 28 4 ""
|
||||||
|
FIELD 14@->S0
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA
|
||||||
|
BEGIN
|
||||||
|
KEY "DENOMINAZIONE"
|
||||||
|
PROMPT 2 10 ""
|
||||||
|
FIELD 6->RAGSOC
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA
|
||||||
|
BEGIN
|
||||||
|
KEY "CODICE FISCALE"
|
||||||
|
PROMPT 55 10 ""
|
||||||
|
FIELD 6->COFI
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA
|
||||||
|
BEGIN
|
||||||
|
KEY "DOMICILIO FISCALE: COMUNE"
|
||||||
|
PROMPT 16 12 ""
|
||||||
|
FIELD 213@->DENCOM
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA
|
||||||
|
BEGIN
|
||||||
|
KEY "DOMICILIO FISCALE: PROV. (sigla)"
|
||||||
|
PROMPT 36 12 ""
|
||||||
|
FIELD 213@->PROVCOM
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA
|
||||||
|
BEGIN
|
||||||
|
KEY "DOMICILIO FISCALE: VIA"
|
||||||
|
PROMPT 41 21 ""
|
||||||
|
FIELD 6->INDRF
|
||||||
|
FIELD 6->INDRES
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA
|
||||||
|
BEGIN
|
||||||
|
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
|
||||||
|
PROMPT 70 21 ""
|
||||||
|
FIELD 6->CIVRF
|
||||||
|
FIELD 6->CIVRES
|
||||||
|
END
|
||||||
|
|
||||||
|
|
||||||
|
GRUPPO
|
||||||
|
BEGIN
|
||||||
|
KEY "DISTINTA VERSAMENTO IRPEG"
|
||||||
|
PROMPT 0 0 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "IRPEG 2100 GRUPPO 4: DA ANNO"
|
||||||
|
PROMPT 20 18 ""
|
||||||
|
FIELD I0
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "IRPEG 2100 GRUPPO 4: AD ANNO"
|
||||||
|
PROMPT 27 18 ""
|
||||||
|
FIELD I1
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "IRPEG 2100 GRUPPO 4: IMPOSTA"
|
||||||
|
PROMPT 32 18 ""
|
||||||
|
MESSAGE COPY,1@
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R0
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "IRPEG 2100 GRUPPO 4: INTERESSI"
|
||||||
|
PROMPT 48 18 ""
|
||||||
|
MESSAGE ADD,1@
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R4
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "IRPEG 2100 GRUPPO 4: TOTALE"
|
||||||
|
PROMPT 62 18 ""
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
GROUP 1
|
||||||
|
MESSAGE COPY,5@
|
||||||
|
END
|
||||||
|
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "IRPEG 2110 GRUPPO 10: DA ANNO"
|
||||||
|
PROMPT 20 23 ""
|
||||||
|
FIELD I2
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "IRPEG 2110 GRUPPO 10: AD ANNO"
|
||||||
|
PROMPT 27 23 ""
|
||||||
|
FIELD I3
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "IRPEG 2110 GRUPPO 10: IMPOSTA"
|
||||||
|
PROMPT 32 23 ""
|
||||||
|
MESSAGE COPY,2@
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R1
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "IRPEG 2110 GRUPPO 10: INTERESSI"
|
||||||
|
PROMPT 48 23 ""
|
||||||
|
MESSAGE ADD,2@
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R5
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "IRPEG 2110 GRUPPO 10: TOTALE"
|
||||||
|
PROMPT 62 23 ""
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
GROUP 2
|
||||||
|
MESSAGE ADD,5@
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "ILOR 3000 GRUPPO 06: DA ANNO"
|
||||||
|
PROMPT 20 33 ""
|
||||||
|
FIELD I4
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "ILOR 3000 GRUPPO 06: AD ANNO"
|
||||||
|
PROMPT 27 33 ""
|
||||||
|
FIELD I5
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "ILOR 3000 GRUPPO 06: IMPOSTA"
|
||||||
|
PROMPT 32 33 ""
|
||||||
|
MESSAGE COPY,3@
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R2
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "ILOR 3000 GRUPPO 06: INTERESSI"
|
||||||
|
PROMPT 48 33 ""
|
||||||
|
MESSAGE ADD,3@
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R6
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "ILOR 3000 GRUPPO 06: TOTALE"
|
||||||
|
PROMPT 62 33 ""
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
GROUP 3
|
||||||
|
MESSAGE ADD,5@
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "ILOR 3110 GRUPPO 11: DA ANNO"
|
||||||
|
PROMPT 20 38 ""
|
||||||
|
FIELD I6
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "ILOR 3110 GRUPPO 11: AD ANNO"
|
||||||
|
PROMPT 27 38 ""
|
||||||
|
FIELD I7
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "ILOR 3110 GRUPPO 11: IMPOSTA"
|
||||||
|
PROMPT 32 38 ""
|
||||||
|
MESSAGE COPY,4@
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R3
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "ILOR 3110 GRUPPO 11: INTERESSI"
|
||||||
|
PROMPT 48 38 ""
|
||||||
|
MESSAGE ADD,4@
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R7
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "ILOR 3110 GRUPPO 11: TOTALE"
|
||||||
|
PROMPT 62 38 ""
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
GROUP 4
|
||||||
|
MESSAGE ADD,5@
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "TOTALE DA VERSARE"
|
||||||
|
PROMPT 62 44 ""
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
GROUP 5
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA
|
||||||
|
BEGIN
|
||||||
|
KEY "CODICE CONTRIBUENTE"
|
||||||
|
PROMPT 2 51 "# # # # # # # # # # # # # # #"
|
||||||
|
FIELD 6@->CODCONTR
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA
|
||||||
|
BEGIN
|
||||||
|
KEY "CENTRO SERVIZI: Provincia e Denominazione"
|
||||||
|
PROMPT 42 52 ""
|
||||||
|
MESSAGE _CENSERoUFFIMP,6@,13@
|
||||||
|
END
|
||||||
|
|
||||||
|
DATA
|
||||||
|
BEGIN
|
||||||
|
KEY "DATA: giorno - mese - anno"
|
||||||
|
PROMPT 12 56 ""
|
||||||
|
PICTURE "@@ ~ @@~~~@@"
|
||||||
|
FIELD D0
|
||||||
|
END
|
||||||
|
|
||||||
|
END
|
||||||
|
|
||||||
|
END
|
||||||
@ -7,7 +7,8 @@ JOIN 8 TO 6 INTO CODANAGR=CODANAGR
|
|||||||
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
|
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
|
||||||
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
||||||
|
|
||||||
|
END
|
||||||
|
|
||||||
SECTION BODY 0 66 0 0
|
SECTION BODY 0 66 0 0
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
|
|||||||
@ -7,6 +7,8 @@ JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
|
|||||||
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
||||||
JOIN %UCC ALIAS 14 INTO CODTAB=S9
|
JOIN %UCC ALIAS 14 INTO CODTAB=S9
|
||||||
|
|
||||||
|
END
|
||||||
|
|
||||||
SECTION BODY 0 66 0 0
|
SECTION BODY 0 66 0 0
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
|
|||||||
@ -13,6 +13,7 @@ JOIN 13 TO 8 ALIAS 313 INTO COM=COMNASC
|
|||||||
|
|
||||||
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
|
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
|
||||||
|
|
||||||
|
END
|
||||||
|
|
||||||
SECTION BODY 0 66 0 0
|
SECTION BODY 0 66 0 0
|
||||||
|
|
||||||
|
|||||||
300
ba/disskx.frm
Executable file
300
ba/disskx.frm
Executable file
@ -0,0 +1,300 @@
|
|||||||
|
// Distinte di versamento Quadro K 7xx
|
||||||
|
|
||||||
|
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 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
|
||||||
Loading…
x
Reference in New Issue
Block a user