root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzione errori

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3641 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale 1996-09-23 07:17:54 +00:00
parent 35cab21772
commit 32d69eef40
9 changed files with 6663 additions and 2613 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
m770/77qc.frm
View File

@ -8,7 +8,7 @@ JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 61 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 61 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES) JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END END
@ -129,6 +129,7 @@ BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 67 14 "" PROMPT 67 14 ""
FIELD 116@->INDRF FIELD 116@->INDRF
FIELD 116@->INDRES
FLAGS "H" FLAGS "H"
MESSAGE COPY,17 MESSAGE COPY,17
END END
@ -138,6 +139,7 @@ BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 103 14 "" PROMPT 103 14 ""
FIELD 116@->CIVRF FIELD 116@->CIVRF
FIELD 116@->CIVRES
FLAGS "H" FLAGS "H"
MESSAGE APPEND,17 MESSAGE APPEND,17
END END
@ -153,6 +155,7 @@ BEGIN
KEY "CAP" KEY "CAP"
PROMPT 124 14 "" PROMPT 124 14 ""
FIELD 116@->CAPRF FIELD 116@->CAPRF
FIELD 116@->CAPRES
END END
STRINGA 13 STRINGA 13

89
m770/77qd.frm
View File

@ -8,7 +8,8 @@ JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 62 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 62 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES) JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END END
@ -128,6 +129,7 @@ BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 66 16 "" PROMPT 66 16 ""
FIELD 116@->INDRF FIELD 116@->INDRF
FIELD 116@->INDRES
END END
STRINGA 15 STRINGA 15
@ -135,13 +137,15 @@ BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 102 16 "" PROMPT 102 16 ""
FIELD 116@->CIVRF FIELD 116@->CIVRF
FIELD 116@->CIVRES
END END
STRINGA 16 STRINGA 16
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 120 16 "" PROMPT 122 16 ""
FIELD 116@->CAPRF FIELD 116@->CAPRF
FIELD 116@->CAPRES
END END
STRINGA 13 STRINGA 13
@ -164,8 +168,8 @@ LISTA 100
BEGIN BEGIN
KEY "Tipo anagrafica" KEY "Tipo anagrafica"
FIELD 216@->TIPOA FIELD 216@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@ ITEM "F| " MESSAGE SHOW,1@|HIDE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@ ITEM "G| " MESSAGE SHOW,2@|HIDE,1@
END END
STRINGA 1 STRINGA 1
@ -221,14 +225,6 @@ BEGIN
GROUP 1 GROUP 1
END END
STRING 101
BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE"
PROMPT 10 3 ""
FIELD 413@->DENCOM
GROUP 2
END
STRING 7 STRING 7
BEGIN BEGIN
KEY "PROV DI NASCITA" KEY "PROV DI NASCITA"
@ -239,7 +235,7 @@ END
STRING 8 STRING 8
BEGIN BEGIN
KEY "COMUNE DI RESIDENZA" KEY "COMUNE DI RESIDENZA FISICHE"
PROMPT 53 3 "" PROMPT 53 3 ""
FIELD 413@->DENCOM FIELD 413@->DENCOM
GROUP 1 GROUP 1
@ -247,44 +243,73 @@ END
STRING 9 STRING 9
BEGIN BEGIN
KEY "PROV. RESIDENZA" KEY "PROV. RESIDENZA FISICHE"
PROMPT 88 3 "" PROMPT 88 3 ""
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
GROUP 1
END
STRING 101
BEGIN
KEY "COMUNE RF/RES. GIURIDICHE"
PROMPT 10 3 ""
FIELD 513@->DENCOM
GROUP 2
END END
STRING 106 STRING 106
BEGIN BEGIN
KEY "PROV. RESIDENZA GIURIDICHE" KEY "PROV. RF/RES GIURIDICHE"
PROMPT 61 3 "" PROMPT 61 3 ""
FIELD 413@->PROVCOM FIELD 513@->PROVCOM
GROUP 2 GROUP 2
END END
STRING 108 STRING 108
BEGIN BEGIN
KEY "VIA RES." KEY "VIA RES. FISICHE"
PROMPT 94 3 ""
FIELD 216@->INDRES[1,18] FIELD 216@->INDRES[1,18]
FLAGS "H" FLAGS "H"
MESSAGE COPY,10|COPY,107 MESSAGE COPY,10
GROUP 1
END END
STRING 109 STRING 109
BEGIN BEGIN
KEY "NUM.CIV" KEY "NUM.CIV DI RESIDENZA FISICHE"
PROMPT 93 3 ""
FLAGS "H" FLAGS "H"
FIELD 216@->CIVRES FIELD 216@->CIVRES
MESSAGE APPEND,10|APPEND,107 MESSAGE APPEND,10
GROUP 1
END END
STRING 10 STRING 10
BEGIN BEGIN
KEY "VIA RES. + numcivres" KEY "VIA RES. + NUMCIVRES FISICHE"
PROMPT 95 3 "" PROMPT 95 3 ""
GROUP 1 GROUP 1
END END
STRING 110
BEGIN
KEY "VIA RF/RES. GIURIDICHE"
FIELD 216@->INDRF[1,18]
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,107
GROUP 2
END
STRING 111
BEGIN
KEY "NUM.CIV RF/RES GIURIDICHE"
FLAGS "H"
FIELD 216@->CIVRF
FIELD 216@->CIVRES
MESSAGE APPEND,107
GROUP 2
END
STRING 107 STRING 107
BEGIN BEGIN
KEY "VIA RES GIURIDICHE" KEY "VIA RES GIURIDICHE"
@ -295,7 +320,7 @@ END
STRING 11 STRING 11
BEGIN BEGIN
KEY "FLAG DI NON RESIDENTE" KEY "FLAG DI NON RESIDENTE"
PROMPT 11 5 "" PROMPT 12 5 ""
FIELD 216@->SOGGNRES FIELD 216@->SOGGNRES
END END
@ -309,7 +334,7 @@ END
STRING 13 STRING 13
BEGIN BEGIN
KEY "CODICE STATO ESTERO DI RES." KEY "CODICE STATO ESTERO DI RES."
PROMPT 75 5 "" PROMPT 79 5 ""
FIELD 216@->STATORES FIELD 216@->STATORES
END END
@ -323,14 +348,14 @@ END
STRING 15 STRING 15
BEGIN BEGIN
KEY "DESCR. CAUSALE" KEY "DESCR. CAUSALE"
PROMPT 10 7 "" PROMPT 11 7 ""
FIELD 14@->S0[1,20] FIELD 14@->S0[1,20]
END END
NUMBER 16 NUMBER 16
BEGIN BEGIN
KEY "TOTALE" KEY "TOTALE"
PROMPT 36 7 "" PROMPT 42 7 ""
// FIELD 62->TOTALE // FIELD 62->TOTALE
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->16 MESSAGE ADD,FL->16
@ -339,7 +364,7 @@ END
NUMBER 17 NUMBER 17
BEGIN BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA" KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 55 7 "" PROMPT 61 7 ""
// FIELD 62->SOMME // FIELD 62->SOMME
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17 MESSAGE ADD,FL->17
@ -348,7 +373,7 @@ END
NUMBER 18 NUMBER 18
BEGIN BEGIN
KEY "IMPONIBILE" KEY "IMPONIBILE"
PROMPT 75 7 "" PROMPT 82 7 ""
// FIELD 62->IMPONIBILE // FIELD 62->IMPONIBILE
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18 MESSAGE ADD,FL->18
@ -357,7 +382,7 @@ END
STRING 19 STRING 19
BEGIN BEGIN
KEY "ALIQUOTA" KEY "ALIQUOTA"
PROMPT 88 7 "" PROMPT 93 7 ""
FIELD 62->PERC FIELD 62->PERC
PICTURE "###@@" PICTURE "###@@"
END END
@ -365,7 +390,7 @@ END
NUMBER 20 NUMBER 20
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
PROMPT 100 7 "" PROMPT 106 7 ""
// FIELD 62->IMPORTO // FIELD 62->IMPORTO
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->20 MESSAGE ADD,FL->20
@ -374,7 +399,7 @@ END
NUMBER 21 NUMBER 21
BEGIN BEGIN
KEY "NETTO" KEY "NETTO"
PROMPT 119 7 "" PROMPT 126 7 ""
// FIELD 62->NETTO // FIELD 62->NETTO
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->21 MESSAGE ADD,FL->21

98
m770/77qd1.frm
View File

@ -8,7 +8,8 @@ JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 63 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 63 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES) JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END END
@ -80,7 +81,7 @@ END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 56 14 "" PROMPT 58 14 ""
FIELD 118@->SESSO FIELD 118@->SESSO
GROUP 1 GROUP 1
END END
@ -96,7 +97,7 @@ END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 83 14 "" PROMPT 84 14 ""
FIELD 113@->DENCOM FIELD 113@->DENCOM
GROUP 1 GROUP 1
END END
@ -104,7 +105,7 @@ END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 122 14 "" PROMPT 125 14 ""
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
GROUP 1 GROUP 1
END END
@ -119,7 +120,7 @@ END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "PROV DI RES.FISCALE" KEY "PROV DI RES.FISCALE"
PROMPT 56 16 "" PROMPT 59 16 ""
FIELD 213@->PROVCOM FIELD 213@->PROVCOM
END END
@ -128,6 +129,7 @@ BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 67 16 "" PROMPT 67 16 ""
FIELD 116@->INDRF FIELD 116@->INDRF
FIELD 116@->INDRES
FLAGS "H" FLAGS "H"
MESSAGE COPY,17 MESSAGE COPY,17
END END
@ -137,6 +139,7 @@ BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 103 16 "" PROMPT 103 16 ""
FIELD 116@->CIVRF FIELD 116@->CIVRF
FIELD 116@->CIVRES
FLAGS "H" FLAGS "H"
MESSAGE APPEND,17 MESSAGE APPEND,17
END END
@ -152,6 +155,7 @@ BEGIN
KEY "CAP" KEY "CAP"
PROMPT 124 16 "" PROMPT 124 16 ""
FIELD 116@->CAPRF FIELD 116@->CAPRF
FIELD 116@->CAPRES
END END
STRINGA 13 STRINGA 13
@ -212,7 +216,7 @@ END
STRING 4 STRING 4
BEGIN BEGIN
KEY "DATA NASCITA" KEY "DATA NASCITA"
PROMPT 112 1 "" PROMPT 114 1 ""
FIELD 218@->DATANASC FIELD 218@->DATANASC
GROUP 1 GROUP 1
END END
@ -220,7 +224,7 @@ END
STRING 5 STRING 5
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 126 1 "" PROMPT 128 1 ""
FIELD 218@->SESSO FIELD 218@->SESSO
GROUP 1 GROUP 1
END END
@ -236,71 +240,91 @@ END
STRING 7 STRING 7
BEGIN BEGIN
KEY "PROV DI NASCITA" KEY "PROV DI NASCITA"
PROMPT 46 3 "" PROMPT 48 3 ""
FIELD 313@->PROVCOM FIELD 313@->PROVCOM
GROUP 1 GROUP 1
END END
STRING 8 STRING 8
BEGIN BEGIN
KEY "COMUNE DI RESIDENZA" KEY "COMUNE DI RESIDENZA FISICHE"
PROMPT 53 3 "" PROMPT 53 3 ""
FIELD 413@->DENCOM FIELD 413@->DENCOM
GROUP 1 GROUP 1
END END
STRING 102
BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE"
PROMPT 10 3 ""
FIELD 413@->DENCOM
GROUP 2
END
STRING 9 STRING 9
BEGIN BEGIN
KEY "PROV. RESIDENZA" KEY "PROV. RESIDENZA FISICHE"
PROMPT 87 3 "" PROMPT 89 3 ""
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
GROUP 1 GROUP 1
END END
STRING 102
BEGIN
KEY "COMUNE RF/RES. GIURIDICHE"
PROMPT 10 3 ""
FIELD 513@->DENCOM
GROUP 2
END
STRING 103 STRING 103
BEGIN BEGIN
KEY "PROVINCIA DI RESIDENZA GIURIDICHE" KEY "PROVINCIA RF/RES. GIURIDICHE"
PROMPT 51 3 "" PROMPT 51 3 ""
FIELD 413@->PROVCOM FIELD 513@->PROVCOM
GROUP 2 GROUP 2
END END
STRING 105 STRING 105
BEGIN BEGIN
KEY "VIA RESIDENZA" KEY "VIA RESIDENZA FISICHE"
PROMPT 94 3 ""
FIELD 216@->INDRES[1,18] FIELD 216@->INDRES[1,18]
FLAGS "H" FLAGS "H"
MESSAGE COPY,10|COPY,104 MESSAGE COPY,10
GROUP 1
END END
STRING 106 STRING 106
BEGIN BEGIN
KEY "NUMERO CIVICO" KEY "NUMERO CIVICO RES. FISICHE"
PROMPT 93 3 ""
FLAGS "H" FLAGS "H"
FIELD 216@->CIVRES FIELD 216@->CIVRES
MESSAGE APPEND,10|APPEND,104 MESSAGE APPEND,10
GROUP 1
END END
STRING 10 STRING 10
BEGIN BEGIN
KEY "VIA + NUMERO CIVICO RESIDENZA" KEY "VIA + NUMERO CIVICO RESIDENZA FISICHE"
PROMPT 95 3 "" PROMPT 95 3 ""
GROUP 1 GROUP 1
END END
STRING 105
BEGIN
KEY "VIA RF/RES. GIURIDICHE"
FIELD 216@->INDRF[1,18]
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,104
GROUP 2
END
STRING 106
BEGIN
KEY "NUMERO CIVICO RF/RES. GIURIDICHE"
FLAGS "H"
FIELD 216@->CIVRF
FIELD 216@->CIVRES
MESSAGE APPEND,104
GROUP 2
END
STRING 104 STRING 104
BEGIN BEGIN
KEY "VIA + NUMERO CIVICO RESIDENZA GIURIDICHE" KEY "VIA + NUMERO CIVICO RF/RES. GIURIDICHE"
PROMPT 75 3 "" PROMPT 75 3 ""
GROUP 2 GROUP 2
END END
@ -308,14 +332,14 @@ END
STRING 11 STRING 11
BEGIN BEGIN
KEY "CAUSALE DEL QUADRO D1" KEY "CAUSALE DEL QUADRO D1"
PROMPT 12 5 "" PROMPT 13 5 ""
FIELD 14@->S3 FIELD 14@->S3
END END
NUMBER 12 NUMBER 12
BEGIN BEGIN
KEY "TOTALE" KEY "TOTALE"
PROMPT 19 5 "" PROMPT 23 5 ""
// FIELD 63->TOTALE // FIELD 63->TOTALE
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->12 MESSAGE ADD,FL->12
@ -324,7 +348,7 @@ END
NUMBER 13 NUMBER 13
BEGIN BEGIN
KEY "QUOTA PROVVIGIONI" KEY "QUOTA PROVVIGIONI"
PROMPT 36 5 "" PROMPT 40 5 ""
// FIELD 63->QUOTAPRO // FIELD 63->QUOTAPRO
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->13 MESSAGE ADD,FL->13
@ -333,7 +357,7 @@ END
NUMBER 14 NUMBER 14
BEGIN BEGIN
KEY "SPESE ANTICIPATE" KEY "SPESE ANTICIPATE"
PROMPT 53 5 "" PROMPT 57 5 ""
// FIELD 63->SPESEANT // FIELD 63->SPESEANT
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14 MESSAGE ADD,FL->14
@ -342,7 +366,7 @@ END
NUMBER 15 NUMBER 15
BEGIN BEGIN
KEY "IMPONIBILE" KEY "IMPONIBILE"
PROMPT 70 5 "" PROMPT 75 5 ""
// FIELD 63->IMPONIBILE // FIELD 63->IMPONIBILE
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15 MESSAGE ADD,FL->15
@ -351,7 +375,7 @@ END
STRING 16 STRING 16
BEGIN BEGIN
KEY "ALIQUOTA" KEY "ALIQUOTA"
PROMPT 87 5 "" PROMPT 90 5 ""
FIELD 63->PERC FIELD 63->PERC
PICTURE "###@@" PICTURE "###@@"
END END
@ -359,7 +383,7 @@ END
NUMBER 17 NUMBER 17
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
PROMPT 99 5 "" PROMPT 104 5 ""
// FIELD 63->IMPORTO // FIELD 63->IMPORTO
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17 MESSAGE ADD,FL->17
@ -368,7 +392,7 @@ END
NUMBER 18 NUMBER 18
BEGIN BEGIN
KEY "NETTO" KEY "NETTO"
PROMPT 115 5 "" PROMPT 120 5 ""
// FIELD 63->NETTO // FIELD 63->NETTO
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18 MESSAGE ADD,FL->18

45
m770/77qg.frm
View File

@ -143,7 +143,7 @@ END
STRINGA 15 STRINGA 15
BEGIN BEGIN
KEY "Prospetto 1 data delib.1" KEY "Prospetto 1 data delib.1"
PROMPT 4 26 "" PROMPT 6 26 ""
FIELD 70->P1DATAD1 FIELD 70->P1DATAD1
GROUP 3 GROUP 3
END END
@ -159,7 +159,7 @@ END
STRINGA 17 STRINGA 17
BEGIN BEGIN
KEY "Data ut.1" KEY "Data ut.1"
PROMPT 51 26 "" PROMPT 53 26 ""
FIELD 70->P1DATAP1 FIELD 70->P1DATAP1
GROUP 3 GROUP 3
END END
@ -169,14 +169,14 @@ BEGIN
KEY "Amm.1" KEY "Amm.1"
PROMPT 68 26 "" PROMPT 68 26 ""
FIELD 70->P1AMMQ1 FIELD 70->P1AMMQ1
PICTURE "###.###.###^^^" PICTURE "###.###.###.###"
GROUP 3 GROUP 3
END END
STRINGA 21 STRINGA 21
BEGIN BEGIN
KEY "Num.az.1" KEY "Num.az.1"
PROMPT 85 26 "" PROMPT 93 26 ""
FIELD 70->P1NUMQ1 FIELD 70->P1NUMQ1
GROUP 3 GROUP 3
END END
@ -184,7 +184,7 @@ END
NUMBER 22 NUMBER 22
BEGIN BEGIN
KEY "Amm.Compless.1" KEY "Amm.Compless.1"
PROMPT 120 26 "" PROMPT 124 26 ""
FIELD 70->P1AMM1 FIELD 70->P1AMM1
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
GROUP 3 GROUP 3
@ -193,7 +193,7 @@ END
STRINGA 23 STRINGA 23
BEGIN BEGIN
KEY "Prospetto 1 data delib.2" KEY "Prospetto 1 data delib.2"
PROMPT 4 28 "" PROMPT 6 28 ""
FIELD 70->P1DATAD2 FIELD 70->P1DATAD2
GROUP 3 GROUP 3
END END
@ -209,7 +209,7 @@ END
STRINGA 25 STRINGA 25
BEGIN BEGIN
KEY "Data ut.2" KEY "Data ut.2"
PROMPT 51 28 "" PROMPT 53 28 ""
FIELD 70->P1DATAP2 FIELD 70->P1DATAP2
GROUP 3 GROUP 3
END END
@ -219,14 +219,14 @@ BEGIN
KEY "Amm.2" KEY "Amm.2"
PROMPT 68 28 "" PROMPT 68 28 ""
FIELD 70->P1AMMQ2 FIELD 70->P1AMMQ2
PICTURE "###.###.###^^^" PICTURE "###.###.###.###"
GROUP 3 GROUP 3
END END
STRINGA 27 STRINGA 27
BEGIN BEGIN
KEY "Num.az.2" KEY "Num.az.2"
PROMPT 85 28 "" PROMPT 93 28 ""
FIELD 70->P1NUMQ2 FIELD 70->P1NUMQ2
GROUP 3 GROUP 3
END END
@ -234,7 +234,7 @@ END
NUMBER 28 NUMBER 28
BEGIN BEGIN
KEY "Amm.Compless.2" KEY "Amm.Compless.2"
PROMPT 120 28 "" PROMPT 124 28 ""
FIELD 70->P1AMM2 FIELD 70->P1AMM2
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
GROUP 3 GROUP 3
@ -243,7 +243,7 @@ END
STRINGA 29 STRINGA 29
BEGIN BEGIN
KEY "Prospetto 1 data delib.3" KEY "Prospetto 1 data delib.3"
PROMPT 4 30 "" PROMPT 6 30 ""
FIELD 70->P1DATAD3 FIELD 70->P1DATAD3
GROUP 3 GROUP 3
END END
@ -259,7 +259,7 @@ END
STRINGA 31 STRINGA 31
BEGIN BEGIN
KEY "Data ut.3" KEY "Data ut.3"
PROMPT 51 30 "" PROMPT 53 30 ""
FIELD 70->P1DATAP3 FIELD 70->P1DATAP3
GROUP 3 GROUP 3
END END
@ -269,14 +269,14 @@ BEGIN
KEY "Amm.3" KEY "Amm.3"
PROMPT 68 30 "" PROMPT 68 30 ""
FIELD 70->P1AMMQ3 FIELD 70->P1AMMQ3
PICTURE "###.###.###^^^" PICTURE "###.###.###.###"
GROUP 3 GROUP 3
END END
STRINGA 33 STRINGA 33
BEGIN BEGIN
KEY "Num.az.3" KEY "Num.az.3"
PROMPT 85 30 "" PROMPT 93 30 ""
FIELD 70->P1NUMQ3 FIELD 70->P1NUMQ3
GROUP 3 GROUP 3
END END
@ -284,7 +284,7 @@ END
NUMBER 34 NUMBER 34
BEGIN BEGIN
KEY "Amm.Compless.3" KEY "Amm.Compless.3"
PROMPT 120 30 "" PROMPT 124 30 ""
FIELD 70->P1AMM3 FIELD 70->P1AMM3
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
GROUP 3 GROUP 3
@ -294,7 +294,7 @@ STRINGA 35
BEGIN BEGIN
KEY "Prospetto 1 data delib.4" KEY "Prospetto 1 data delib.4"
FIELD 70->P1DATAD4 FIELD 70->P1DATAD4
PROMPT 4 32 "" PROMPT 6 32 ""
GROUP 3 GROUP 3
END END
@ -309,7 +309,7 @@ END
STRINGA 37 STRINGA 37
BEGIN BEGIN
KEY "Data ut.4" KEY "Data ut.4"
PROMPT 51 32 "" PROMPT 53 32 ""
FIELD 70->P1DATAP4 FIELD 70->P1DATAP4
GROUP 3 GROUP 3
END END
@ -319,14 +319,14 @@ BEGIN
KEY "Amm.4" KEY "Amm.4"
PROMPT 68 32 "" PROMPT 68 32 ""
FIELD 70->P1AMMQ4 FIELD 70->P1AMMQ4
PICTURE "###.###.###^^^" PICTURE "###.###.###.###"
GROUP 3 GROUP 3
END END
STRINGA 39 STRINGA 39
BEGIN BEGIN
KEY "Num.az.4" KEY "Num.az.4"
PROMPT 85 32 "" PROMPT 93 32 ""
FIELD 70->P1NUMQ4 FIELD 70->P1NUMQ4
GROUP 3 GROUP 3
END END
@ -334,7 +334,7 @@ END
NUMBER 40 NUMBER 40
BEGIN BEGIN
KEY "Amm.Compless.4" KEY "Amm.Compless.4"
PROMPT 120 32 "" PROMPT 124 32 ""
FIELD 70->P1AMM4 FIELD 70->P1AMM4
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
GROUP 3 GROUP 3
@ -344,14 +344,15 @@ STRING 41
BEGIN BEGIN
KEY "Totale num.az" KEY "Totale num.az"
FIELD 70->P1NUMQT FIELD 70->P1NUMQT
PROMPT 85 34 "" PROMPT 93 34 ""
END END
STRINGA 42 STRINGA 42
BEGIN BEGIN
KEY "Totale amm.compl." KEY "Totale amm.compl."
FIELD 70->P1AMMT FIELD 70->P1AMMT
PROMPT 120 34 "" PROMPT 124 34 ""
PICTURE "###.###.###^^^"
END END
STRINGA 43 STRINGA 43

41
m770/77qgd.frm
View File

@ -1,8 +1,9 @@
USE 101 USE 101
JOIN 6 TO 101 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 101 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO 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 313 INTO COM=COMNASC
JOIN 13 TO 218@ ALIAS 413 INTO COM=COMRF(COMRES) JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END END
@ -32,10 +33,17 @@ END
SECTION HEADER FIRST 17 SECTION HEADER FIRST 17
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 19 ""
FLAGS "H"
END
NUMBER 14 NUMBER 14
BEGIN BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 123 20 "" PROMPT 123 5 ""
END END
END END
@ -59,9 +67,8 @@ END
STRING 3 STRING 3
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 82 1 "" PROMPT 98 1 ""
FIELD 216@->RAGSOC[31,50] FIELD 216@->RAGSOC[31,50]
GROUP 1
END END
STRING 4 STRING 4
@ -130,12 +137,12 @@ BEGIN
PROMPT 66 5 "" PROMPT 66 5 ""
END END
STRING 11 NUMBER 11
BEGIN BEGIN
KEY "NUMERO QUOTE" KEY "NUMERO QUOTE"
PROMPT 125 5 "" PROMPT 125 5 ""
FIELD 101->NUMQUOTE FIELD 101->NUMQUOTE
PICTURE "####^^^" PICTURE "###@@"
END END
NUMBER 12 NUMBER 12
@ -194,22 +201,23 @@ END
STRING 3 STRING 3
BEGIN BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE" KEY "COMUNE DI RF/RES. GIURIDICHE"
PROMPT 10 3 "" PROMPT 10 3 ""
FIELD 413@->DENCOM FIELD 513@->DENCOM
END END
STRING 4 STRING 4
BEGIN BEGIN
KEY "PROV. RESIDENZA GIURIDICHE" KEY "PROV. RF/RES. GIURIDICHE"
PROMPT 61 3 "" PROMPT 61 3 ""
FIELD 413@->PROVCOM FIELD 513@->PROVCOM
END END
STRING 5 STRING 5
BEGIN BEGIN
KEY "VIA RES. GIURIDICHE" KEY "VIA RF/RES. GIURIDICHE"
PROMPT 94 3 "" PROMPT 94 3 ""
FIELD 216@->INDRF[1,18]
FIELD 216@->INDRES[1,18] FIELD 216@->INDRES[1,18]
FLAGS "H" FLAGS "H"
MESSAGE COPY,7 MESSAGE COPY,7
@ -217,25 +225,26 @@ END
STRING 6 STRING 6
BEGIN BEGIN
KEY "NUM.CIV GIURIDICHE" KEY "NUM.CIV RF/RES. GIURIDICHE"
PROMPT 93 3 "" PROMPT 93 3 ""
FLAGS "H" FLAGS "H"
FIELD 216@->CIVRF
FIELD 216@->CIVRES FIELD 216@->CIVRES
MESSAGE APPEND,7 MESSAGE APPEND,7
END END
STRING 7 STRING 7
BEGIN BEGIN
KEY "VIA RES. + numcivres" KEY "VIA RF/RES. + numcivres"
PROMPT 69 3 "" PROMPT 69 3 ""
END END
STRING 11 NUMBER 11
BEGIN BEGIN
KEY "NUMERO QUOTE" KEY "NUMERO QUOTE"
PROMPT 128 3 "" PROMPT 128 3 ""
FIELD 101->NUMQUOTE FIELD 101->NUMQUOTE
PICTURE "####^^^" PICTURE "###@@"
END END
NUMBER 12 NUMBER 12

11
m770/77qh.frm
View File

@ -72,7 +72,7 @@ END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 56 14 "" PROMPT 58 14 ""
FIELD 118@->SESSO FIELD 118@->SESSO
GROUP 1 GROUP 1
END END
@ -80,7 +80,7 @@ END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 63 14 "" PROMPT 66 14 ""
FIELD 118@->DATANASC FIELD 118@->DATANASC
GROUP 1 GROUP 1
END END
@ -96,7 +96,7 @@ END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 122 14 "" PROMPT 125 14 ""
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
GROUP 1 GROUP 1
END END
@ -111,7 +111,7 @@ END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "PROV DI RES.FISCALE" KEY "PROV DI RES.FISCALE"
PROMPT 56 16 "" PROMPT 59 16 ""
FIELD 213@->PROVCOM FIELD 213@->PROVCOM
END END
@ -120,6 +120,7 @@ BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 67 16 "" PROMPT 67 16 ""
FIELD 116@->INDRF FIELD 116@->INDRF
FIELD 116@->INDRES
FLAGS "H" FLAGS "H"
MESSAGE COPY,17 MESSAGE COPY,17
END END
@ -129,6 +130,7 @@ BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 103 16 "" PROMPT 103 16 ""
FIELD 116@->CIVRF FIELD 116@->CIVRF
FIELD 116@->CIVRES
FLAGS "H" FLAGS "H"
MESSAGE APPEND,17 MESSAGE APPEND,17
END END
@ -144,6 +146,7 @@ BEGIN
KEY "CAP" KEY "CAP"
PROMPT 124 16 "" PROMPT 124 16 ""
FIELD 116@->CAPRF FIELD 116@->CAPRF
FIELD 116@->CAPRES
END END
STRINGA 13 STRINGA 13

3939
m770/77stq.cpp
View File

File diff suppressed because it is too large Load Diff

3
m770/77stq.h
View File

@ -66,6 +66,7 @@ typedef enum { STARTDOC, STARTDITTA, STARTPAGE, ENDDOC } ModulaserKey;
#define H_COFI_DIC 13 #define H_COFI_DIC 13
#define H_NUM_FOGLIO 14 #define H_NUM_FOGLIO 14
#define QD_STATO_ESTERO 12
// Quadro D // Quadro D
HIDDEN const int QD_FORMLEN_PRIMA = 70; // 72 - 3 (3 e' la posizione della X di posiz.) HIDDEN const int QD_FORMLEN_PRIMA = 70; // 72 - 3 (3 e' la posizione della X di posiz.)
@ -92,6 +93,8 @@ HIDDEN const int HEADER_D1_QUARTA = 14;
typedef enum { PRIMA=1, SECONDA, TERZA, QUARTA } PaginaQuadro; typedef enum { PRIMA=1, SECONDA, TERZA, QUARTA } PaginaQuadro;
typedef enum { fisiche, nofisiche } TipoPagina; typedef enum { fisiche, nofisiche } TipoPagina;
const char* get_ragsoc_anagr(char tipo, long codanagr);
class TDicForm : public TForm class TDicForm : public TForm
{ {
private: private:

75
m770/77stqc.cpp
View File

@ -12,31 +12,55 @@ bool TQuadroC::controlla_percentuale(TCursor& cur, const real& perc_p)
{ {
bool stampa = TRUE; bool stampa = TRUE;
if (perc_p == ZERO)
{
long ditta_p = cur.curr().get_long(QUC_CODDITTA); long ditta_p = cur.curr().get_long(QUC_CODDITTA);
char tipo_p = cur.curr().get_char(QUC_TIPOA); char tipo_p = cur.curr().get_char(QUC_TIPOA);
long codana_p = cur.curr().get_long(QUC_CODANAGR); long codana_p = cur.curr().get_long(QUC_CODANAGR);
TString codcaus_p = cur.curr().get (QUC_CODCAUS); TString codcaus_p = cur.curr().get (QUC_CODCAUS);
TString ragsoc_p = get_ragsoc_anagr(tipo_p,codana_p);
if (perc_p == ZERO)
{
++(cur); ++(cur);
long ditta = cur.curr().get_long(QUC_CODDITTA); long ditta = cur.curr().get_long(QUC_CODDITTA);
char tipo = cur.curr().get_char(QUC_TIPOA); char tipo = cur.curr().get_char(QUC_TIPOA);
long codana = cur.curr().get_long(QUC_CODANAGR); long codana = cur.curr().get_long(QUC_CODANAGR);
TString codcaus = cur.curr().get (QUC_CODCAUS); TString codcaus = cur.curr().get (QUC_CODCAUS);
TString ragsoc = get_ragsoc_anagr(tipo,codana);
real perc = cur.curr().get_real(QUC_PERC); real perc = cur.curr().get_real(QUC_PERC);
if (ditta == ditta_p && tipo == tipo_p && if (ditta == ditta_p && tipo == tipo_p && ragsoc == ragsoc_p
codana == codana_p && codcaus == codcaus_p) && codana == codana_p && codcaus == codcaus_p)
{ {
if (perc != ZERO) if (perc != ZERO)
{ {
stampa = FALSE; stampa = FALSE;
_devo_sommare = TRUE; _devo_sommare = TRUE;
} }
else
stampa = FALSE;
} }
--(cur); --(cur);
} }
else
if (perc_p != ZERO)
{
++(cur);
long ditta = cur.curr().get_long(QUC_CODDITTA);
char tipo = cur.curr().get_char(QUC_TIPOA);
long codana = cur.curr().get_long(QUC_CODANAGR);
TString codcaus = cur.curr().get (QUC_CODCAUS);
TString ragsoc = get_ragsoc_anagr(tipo,codana);
real perc = cur.curr().get_real(QUC_PERC);
if (ditta == ditta_p && tipo == tipo_p && ragsoc == ragsoc_p &&
codana == codana_p && codcaus == codcaus_p && perc_p == perc)
stampa = FALSE;
else
_devo_sommare = TRUE;
--(cur);
}
return stampa; return stampa;
} }
@ -44,12 +68,12 @@ void TQuadroC::leggi_importi()
{ {
TCursor* cur = cursor(); TCursor* cur = cursor();
_totale = cur->curr().get_real(QUC_TOTALE); _totale += cur->curr().get_real(QUC_TOTALE);
_contssn = cur->curr().get_real(QUC_CONTSSN); _contssn += cur->curr().get_real(QUC_CONTSSN);
_somme = cur->curr().get_real(QUC_SOMME); _somme += cur->curr().get_real(QUC_SOMME);
_imponibile = cur->curr().get_real(QUC_IMPONIBILE); _imponibile += cur->curr().get_real(QUC_IMPONIBILE);
_ritenute = cur->curr().get_real(QUC_RITENUTE); _ritenute += cur->curr().get_real(QUC_RITENUTE);
_netto = cur->curr().get_real(QUC_NETTO); _netto += cur->curr().get_real(QUC_NETTO);
} }
void TQuadroC::setta_importi(TPrint_section& body) void TQuadroC::setta_importi(TPrint_section& body)
@ -72,6 +96,12 @@ void TQuadroC::setta_importi(TPrint_section& body)
ritenute += _ritenute; ritenute += _ritenute;
netto += _netto; netto += _netto;
_devo_sommare = FALSE; _devo_sommare = FALSE;
_totale = ZERO;
_contssn = ZERO;
_somme = ZERO;
_imponibile = ZERO;
_ritenute = ZERO;
_netto = ZERO;
} }
TForm_item& ftotale = body.find_field(C_TOTALE); TForm_item& ftotale = body.find_field(C_TOTALE);
@ -138,6 +168,7 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
pr.formlen(QA_FORMLEN); pr.formlen(QA_FORMLEN);
int elementi = 0; // Numero di elementi stampati in questa pagina int elementi = 0; // Numero di elementi stampati in questa pagina
int ele_bis = 0;
bool stampato_ultimo = FALSE; bool stampato_ultimo = FALSE;
bool stampati_totali = FALSE; bool stampati_totali = FALSE;
@ -178,7 +209,7 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
if (_modulaser) if (_modulaser)
ClearFlagModulaser(); ClearFlagModulaser();
if (elementi == 0) if (ele_bis == 0)
{ {
stampa_testata(pr); stampa_testata(pr);
jump_to_line(pr, prima_riga(PRIMA)); jump_to_line(pr, prima_riga(PRIMA));
@ -191,23 +222,27 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
if (stampa) if (stampa)
stampa_corpo(pr); stampa_corpo(pr);
else else
{
leggi_importi(); leggi_importi();
elementi--;
}
stampato_ultimo = stampero_ultimo; stampato_ultimo = stampero_ultimo;
} }
elementi++; elementi++;
ele_bis++;
if (elementi >= elementi_pagina(PRIMA)) if (elementi >= elementi_pagina(PRIMA))
{ {
next_page(pr); next_page(pr);
elementi = 0; elementi = 0;
ele_bis = 0;
} }
break; break;
case SECONDA: case SECONDA:
case TERZA: case TERZA:
if (!stampato_ultimo) if (!stampato_ultimo)
{ {
if (elementi == 0) if (ele_bis == 0)
jump_to_line(pr, prima_riga(_PaginaCorrente)); jump_to_line(pr, prima_riga(_PaginaCorrente));
real perc_p = cur.curr().get_real(QUC_PERC); real perc_p = cur.curr().get_real(QUC_PERC);
@ -215,21 +250,25 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
if (stampa) if (stampa)
stampa_corpo(pr); stampa_corpo(pr);
else else
{
leggi_importi(); leggi_importi();
elementi--;
}
stampato_ultimo = stampero_ultimo; stampato_ultimo = stampero_ultimo;
} }
elementi++; elementi++;
ele_bis++;
if (elementi >= elementi_pagina(_PaginaCorrente)) if (elementi >= elementi_pagina(_PaginaCorrente))
{ {
next_page(pr); next_page(pr);
elementi = 0; elementi = 0;
ele_bis = 0;
} }
break; break;
case QUARTA: case QUARTA:
if (!stampato_ultimo) if (!stampato_ultimo)
{ {
if (elementi == 0) if (ele_bis == 0)
jump_to_line(pr, prima_riga(QUARTA)); jump_to_line(pr, prima_riga(QUARTA));
real perc_p = cur.curr().get_real(QUC_PERC); real perc_p = cur.curr().get_real(QUC_PERC);
@ -237,12 +276,15 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
if (stampa) if (stampa)
stampa_corpo(pr); stampa_corpo(pr);
else else
{
leggi_importi(); leggi_importi();
elementi--;
}
stampato_ultimo = stampero_ultimo; stampato_ultimo = stampero_ultimo;
} }
elementi++; elementi++;
ele_bis++;
if (elementi >= elementi_pagina(QUARTA)) if (elementi >= elementi_pagina(QUARTA))
{ {
@ -254,6 +296,7 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
} }
next_page(pr); next_page(pr);
elementi = 0; elementi = 0;
ele_bis = 0;
} }
break; break;
default: default: