Modifica alla stampa dei quadri C - D e aggiunta stampa quadro D1

git-svn-id: svn://10.65.10.50/trunk@3246 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale 1996-07-26 14:40:38 +00:00
parent 1ab2f7eb21
commit 1683aee3fd
6 changed files with 1477 additions and 436 deletions

Binary file not shown.

View File

@ -299,7 +299,7 @@ BEGIN
PROMPT 45 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14
FIELD 61->TOTALE
// FIELD 61->TOTALE
END
NUMBER 15
@ -308,7 +308,7 @@ BEGIN
PROMPT 60 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15
FIELD 61->CONTSSN
// FIELD 61->CONTSSN
END
NUMBER 16
@ -317,7 +317,7 @@ BEGIN
PROMPT 76 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->16
FIELD 61->SOMME
// FIELD 61->SOMME
END
NUMBER 17

View File

@ -7,8 +7,8 @@ JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 62 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 216@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 218@ ALIAS 413 INTO COM=COMRF(COMRES)
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
@ -36,71 +36,8 @@ BEGIN
FI 131
END
SECTION HEADER FIRST 28
SECTION HEADER FIRST 31
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 4 13 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 13 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 13 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 15 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 58 15 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 66 15 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 15 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 15 ""
FIELD 113@->PROVCOM
GROUP 1
END
LISTA 9
BEGIN
KEY "Tipo anagrafica"
@ -109,51 +46,114 @@ BEGIN
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 4 12 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 14 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 58 14 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 66 14 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 14 ""
FIELD 113@->PROVCOM
GROUP 1
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 17 ""
PROMPT 17 16 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 17 ""
PROMPT 59 16 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 66 17 ""
PROMPT 66 16 ""
FIELD 116@->INDRF
END
STRINGA 13
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 102 17 ""
PROMPT 102 16 ""
FIELD 116@->CIVRF
END
STRINGA 14
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 120 17 ""
PROMPT 120 16 ""
FIELD 116@->CAPRF
END
STRINGA 15
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 118 20 ""
PROMPT 118 19 ""
END
NUMBER 16
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 123 20 ""
PROMPT 123 22 ""
END
END
@ -171,22 +171,22 @@ END
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 2 ""
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 2 ""
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 81 2 ""
PROMPT 81 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
@ -194,7 +194,7 @@ END
STRING 102
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 54 2 ""
PROMPT 54 1 ""
FIELD 216@->RAGSOC
GROUP 2
END
@ -202,21 +202,21 @@ END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 2 ""
PROMPT 114 1 ""
FIELD 218@->DATANASC
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 129 2 ""
PROMPT 129 1 ""
FIELD 218@->SESSO
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 4 ""
PROMPT 10 3 ""
FIELD 313@->DENCOM
GROUP 1
END
@ -224,7 +224,7 @@ END
STRING 101
BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE"
PROMPT 10 4 ""
PROMPT 10 3 ""
FIELD 413@->DENCOM
GROUP 2
END
@ -232,7 +232,7 @@ END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 47 4 ""
PROMPT 47 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
@ -240,7 +240,7 @@ END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 53 4 ""
PROMPT 53 3 ""
FIELD 413@->DENCOM
GROUP 1
END
@ -248,165 +248,175 @@ END
STRING 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 88 4 ""
PROMPT 88 3 ""
FIELD 413@->PROVCOM
END
STRING 106
BEGIN
KEY "PROV. RESIDENZA GIURIDICHE"
PROMPT 61 4 ""
PROMPT 61 3 ""
FIELD 413@->PROVCOM
GROUP 2
END
STRING 10
STRING 108
BEGIN
KEY "VIA RES."
PROMPT 94 4 ""
PROMPT 94 3 ""
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,12|COPY,107
MESSAGE COPY,10|COPY,107
END
STRING 11
STRING 109
BEGIN
KEY "NUM.CIV"
PROMPT 93 4 ""
PROMPT 93 3 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,12|APPEND,107
MESSAGE APPEND,10|APPEND,107
END
STRING 12
STRING 10
BEGIN
KEY "VIA RES. + numcivres"
PROMPT 95 4 ""
PROMPT 95 3 ""
GROUP 1
END
STRING 107
BEGIN
KEY "VIA RES GIURIDICHE"
PROMPT 69 4 ""
PROMPT 69 3 ""
GROUP 2
END
STRING 11
BEGIN
KEY "FLAG DI NON RESIDENTE"
PROMPT 11 5 ""
FIELD 216@->SOGGNRES
END
STRING 12
BEGIN
KEY "STATO ESTERO DI RES."
PROMPT 16 5 ""
FIELD 24@->S0
END
STRING 13
BEGIN
KEY "CODICE STATO ESTERO DI RES."
PROMPT 75 5 ""
FIELD 216@->STATORES
END
STRING 14
BEGIN
KEY "FLAG DI NON RESIDENTE"
PROMPT 11 6 ""
FIELD 216@->SOGGNRES
KEY "CODICE FISCALE ESTERO"
PROMPT 89 5 ""
FIELD 216@->COFIEST
END
STRING 15
BEGIN
KEY "STATO ESTERO DI RES."
PROMPT 16 6 ""
FIELD 24@->S0
END
STRING 16
BEGIN
KEY "CODICE STATO ESTERO DI RES."
PROMPT 75 6 ""
FIELD 216@->STATORES
END
STRING 17
BEGIN
KEY "CODICE FISCALE ESTERO"
PROMPT 89 6 ""
FIELD 216@->COFIEST
END
STRING 18
BEGIN
KEY "DESCR. CAUSALE"
PROMPT 10 8 ""
PROMPT 10 7 ""
FIELD 14@->S0[1,20]
END
NUMBER 16
BEGIN
KEY "TOTALE"
PROMPT 36 7 ""
// FIELD 62->TOTALE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->16
END
NUMBER 17
BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 55 7 ""
// FIELD 62->SOMME
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
END
NUMBER 18
BEGIN
KEY "IMPONIBILE"
PROMPT 75 7 ""
// FIELD 62->IMPONIBILE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
END
STRING 19
BEGIN
KEY "TOTALE"
PROMPT 36 8 ""
FIELD 62->TOTALE
PICTURE "#########^^^"
END
STRING 20
BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 55 8 ""
FIELD 62->SOMME
PICTURE "#########^^^"
END
STRING 21
BEGIN
KEY "IMPONIBILE"
PROMPT 75 8 ""
FIELD 62->IMPONIBILE
PICTURE "#########^^^"
END
STRING 22
BEGIN
KEY "ALIQUOTA"
PROMPT 88 8 ""
PROMPT 88 7 ""
FIELD 62->PERC
PICTURE "###@@"
END
STRING 23
NUMBER 20
BEGIN
KEY "IMPORTO"
PROMPT 100 8 ""
FIELD 62->IMPORTO
PICTURE "#########^^^"
PROMPT 100 7 ""
// FIELD 62->IMPORTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->20
END
STRING 24
NUMBER 21
BEGIN
KEY "NETTO"
PROMPT 119 8 ""
FIELD 62->NETTO
PICTURE "#########^^^"
PROMPT 119 7 ""
// FIELD 62->NETTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->21
END
END
SECTION BODY EVEN 2
SECTION FOOTER LAST 1
NUMBER 1
NUMBER 16
BEGIN
KEY "TOTALE TOTALE"
PROMPT 36 1 ""
PROMPT 36 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 2
NUMBER 17
BEGIN
KEY "TOTALE SOMME NON SOGGETTE"
PROMPT 55 1 ""
PROMPT 55 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 3
NUMBER 18
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 75 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 4
NUMBER 20
BEGIN
KEY "TOTALE IMPORTO"
PROMPT 101 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 5
NUMBER 21
BEGIN
KEY "TOTALE NETTO"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END

View File

@ -36,7 +36,7 @@ BEGIN
FI 131
END
SECTION HEADER FIRST 27
SECTION HEADER FIRST 29
LISTA 9
BEGIN
@ -188,7 +188,7 @@ END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 2 ""
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
@ -196,7 +196,7 @@ END
STRING 3
BEGIN
KEY "NOME"
PROMPT 81 2 ""
PROMPT 80 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
@ -204,7 +204,7 @@ END
STRING 101
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 54 2 ""
PROMPT 54 1 ""
FIELD 216@->RAGSOC
GROUP 2
END
@ -212,7 +212,7 @@ END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 2 ""
PROMPT 112 1 ""
FIELD 218@->DATANASC
GROUP 1
END
@ -220,7 +220,7 @@ END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 129 2 ""
PROMPT 126 1 ""
FIELD 218@->SESSO
GROUP 1
END
@ -228,7 +228,7 @@ END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 4 ""
PROMPT 10 3 ""
FIELD 313@->DENCOM
GROUP 1
END
@ -236,7 +236,7 @@ END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 47 4 ""
PROMPT 46 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
@ -244,7 +244,7 @@ END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 53 4 ""
PROMPT 53 3 ""
FIELD 413@->DENCOM
GROUP 1
END
@ -252,7 +252,7 @@ END
STRING 102
BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE"
PROMPT 10 4 ""
PROMPT 10 3 ""
FIELD 413@->DENCOM
GROUP 2
END
@ -260,7 +260,7 @@ END
STRING 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 88 4 ""
PROMPT 87 3 ""
FIELD 413@->PROVCOM
GROUP 1
END
@ -268,7 +268,7 @@ END
STRING 103
BEGIN
KEY "PROVINCIA DI RESIDENZA GIURIDICHE"
PROMPT 88 4 ""
PROMPT 51 3 ""
FIELD 413@->PROVCOM
GROUP 2
END
@ -276,7 +276,7 @@ END
STRING 105
BEGIN
KEY "VIA RESIDENZA"
PROMPT 94 4 ""
PROMPT 94 3 ""
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,10|COPY,104
@ -285,7 +285,7 @@ END
STRING 106
BEGIN
KEY "NUMERO CIVICO"
PROMPT 93 4 ""
PROMPT 93 3 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10|APPEND,104
@ -294,29 +294,29 @@ END
STRING 10
BEGIN
KEY "VIA + NUMERO CIVICO RESIDENZA"
PROMPT 95 4 ""
PROMPT 95 3 ""
GROUP 1
END
STRING 104
BEGIN
KEY "VIA + NUMERO CIVICO RESIDENZA GIURIDICHE"
PROMPT 69 4 ""
PROMPT 75 3 ""
GROUP 2
END
STRING 11
BEGIN
KEY "CAUSALE DEL QUADRO D1"
PROMPT 10 8 ""
PROMPT 12 5 ""
FIELD 14@->S3
END
NUMBER 12
BEGIN
KEY "TOTALE"
PROMPT 36 8 ""
FIELD 63->TOTALE
PROMPT 19 5 ""
// FIELD 63->TOTALE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->12
END
@ -324,8 +324,8 @@ END
NUMBER 13
BEGIN
KEY "QUOTA PROVVIGIONI"
PROMPT 55 8 ""
FIELD 63->QUOTAPRO
PROMPT 36 5 ""
// FIELD 63->QUOTAPRO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->13
END
@ -333,8 +333,8 @@ END
NUMBER 14
BEGIN
KEY "SPESE ANTICIPATE"
PROMPT 65 8 ""
FIELD 63->SPESEANT
PROMPT 53 5 ""
// FIELD 63->SPESEANT
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14
END
@ -342,16 +342,16 @@ END
NUMBER 15
BEGIN
KEY "IMPONIBILE"
PROMPT 75 8 ""
FIELD 63->IMPONIBILE
PROMPT 70 5 ""
// FIELD 63->IMPONIBILE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15
END
NUMBER 16
STRING 16
BEGIN
KEY "ALIQUOTA"
PROMPT 88 8 ""
PROMPT 87 5 ""
FIELD 63->PERC
PICTURE "###@@"
END
@ -359,8 +359,8 @@ END
NUMBER 17
BEGIN
KEY "IMPORTO"
PROMPT 100 8 ""
FIELD 63->IMPORTO
PROMPT 99 5 ""
// FIELD 63->IMPORTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
END
@ -368,50 +368,56 @@ END
NUMBER 18
BEGIN
KEY "NETTO"
PROMPT 119 8 ""
FIELD 63->NETTO
PROMPT 115 5 ""
// FIELD 63->NETTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
END
END
SECTION BODY EVEN 2
SECTION FOOTER LAST 2
NUMBER 12
BEGIN
KEY "TOTALE TOTALE"
PROMPT 36 1 ""
PROMPT 19 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 13
BEGIN
KEY "TOTALE QUOTA PROVVIGIONI"
PROMPT 55 1 ""
PROMPT 36 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 14
BEGIN
KEY "TOTALE SPESE ANTICIPATE"
PROMPT 75 1 ""
PROMPT 53 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 75 1 ""
PROMPT 70 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN
KEY "TOTALE IMPORTO"
PROMPT 101 1 ""
PROMPT 99 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE NETTO"
PROMPT 120 1 ""
PROMPT 115 1 ""
PICTURE "###.###.###^^^"
END
END

File diff suppressed because it is too large Load Diff

Binary file not shown.