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,70 +36,7 @@ BEGIN
FI 131
END
SECTION HEADER FIRST 28
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
SECTION HEADER FIRST 31
LISTA 9
BEGIN
@ -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
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 102 17 ""
FIELD 116@->CIVRF
END
STRINGA 14
BEGIN
KEY "CAP"
PROMPT 120 17 ""
FIELD 116@->CAPRF
END
STRINGA 15
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 118 20 ""
KEY "NUM. CIVICO di RES."
PROMPT 102 16 ""
FIELD 116@->CIVRF
END
NUMBER 16
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 120 16 ""
FIELD 116@->CAPRF
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 118 19 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 123 20 ""
PROMPT 123 22 ""
END
END
@ -171,14 +171,14 @@ 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
@ -186,7 +186,7 @@ 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 ""
PICTURE "###.###.###^^^"
END
NUMBER 2
NUMBER 17
BEGIN
KEY "TOTALE SOMME NON SOGGETTE"
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.