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

9
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
@ -137,7 +138,8 @@ STRINGA 15
BEGIN 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
@ -152,7 +154,8 @@ STRINGA 16
BEGIN 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

869
m770/77qd.frm
View File

@ -1,422 +1,447 @@
USE 62 USE 62
JOIN %CA7 TO 62 ALIAS 14 INTO CODTAB=CODCAUS JOIN %CA7 TO 62 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR JOIN 8 TO 6 ALIAS 118 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)
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 %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
END JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN DESCRIPTION
62->* "Quadro D 770" BEGIN
9->* "Ditte" 62->* "Quadro D 770"
6->* "Anagrafica persone fisiche e giuridiche" 9->* "Ditte"
8->* "Anagrafica persone fisiche" 6->* "Anagrafica persone fisiche e giuridiche"
113@->* "Comuni" 8->* "Anagrafica persone fisiche"
213@->* "Comuni" 113@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche" 213@->* "Comuni"
218@->* "Anagrafica persone giuridiche" 216@->* "Anagrafica persone fisiche e giuridiche"
313@->* "Comuni" 218@->* "Anagrafica persone giuridiche"
413@->* "Comuni" 313@->* "Comuni"
END 413@->* "Comuni"
END
GENERAL
BEGIN GENERAL
OFFSET 0 0 BEGIN
FONT "Courier 17cpi" OFFSET 0 0
SIZE 10 FONT "Courier 17cpi"
CA "X" SIZE 10
IN 3 2 CA "X"
FI 131 IN 3 2
END FI 131
END
SECTION HEADER FIRST 31
SECTION HEADER FIRST 31
LISTA 9
BEGIN LISTA 9
KEY "Tipo anagrafica" BEGIN
FIELD 116@->TIPOA KEY "Tipo anagrafica"
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@ FIELD 116@->TIPOA
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@ ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
END ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN STRINGA 1
KEY "CODICE FISCALE" BEGIN
PROMPT 4 12 "" KEY "CODICE FISCALE"
FIELD 116@->COFI PROMPT 4 12 ""
END FIELD 116@->COFI
END
STRINGA 2
BEGIN STRINGA 2
KEY "RAGIONE SOCIALE" BEGIN
PROMPT 39 12 "" KEY "RAGIONE SOCIALE"
FIELD 116@->RAGSOC PROMPT 39 12 ""
GROUP 2 FIELD 116@->RAGSOC
END GROUP 2
END
STRINGA 3
BEGIN STRINGA 3
KEY "COGNOME" BEGIN
PROMPT 39 12 "" KEY "COGNOME"
FIELD 116@->RAGSOC[1,30] PROMPT 39 12 ""
GROUP 1 FIELD 116@->RAGSOC[1,30]
END GROUP 1
END
STRINGA 4
BEGIN STRINGA 4
KEY "NOME" BEGIN
PROMPT 17 14 "" KEY "NOME"
FIELD 116@->RAGSOC[31,50] PROMPT 17 14 ""
GROUP 1 FIELD 116@->RAGSOC[31,50]
END GROUP 1
END
STRINGA 5
BEGIN STRINGA 5
KEY "SESSO" BEGIN
PROMPT 58 14 "" KEY "SESSO"
FIELD 118@->SESSO PROMPT 58 14 ""
GROUP 1 FIELD 118@->SESSO
END GROUP 1
END
STRINGA 6
BEGIN STRINGA 6
KEY "DATA DI NASCITA" BEGIN
PROMPT 66 14 "" KEY "DATA DI NASCITA"
FIELD 118@->DATANASC PROMPT 66 14 ""
GROUP 1 FIELD 118@->DATANASC
END GROUP 1
END
STRINGA 7
BEGIN STRINGA 7
KEY "COMUNE DI NASCITA" BEGIN
PROMPT 84 14 "" KEY "COMUNE DI NASCITA"
FIELD 113@->DENCOM PROMPT 84 14 ""
GROUP 1 FIELD 113@->DENCOM
END GROUP 1
END
STRINGA 8
BEGIN STRINGA 8
KEY "PROV. DI NASCITA" BEGIN
PROMPT 126 14 "" KEY "PROV. DI NASCITA"
FIELD 113@->PROVCOM PROMPT 126 14 ""
GROUP 1 FIELD 113@->PROVCOM
END GROUP 1
END
STRINGA 10
BEGIN STRINGA 10
KEY "COMUNE DI RES.FISCALE" BEGIN
PROMPT 17 16 "" KEY "COMUNE DI RES.FISCALE"
FIELD 213@->DENCOM PROMPT 17 16 ""
END FIELD 213@->DENCOM
END
STRINGA 11
BEGIN STRINGA 11
KEY "PROV DI RES.FISCALE" BEGIN
PROMPT 59 16 "" KEY "PROV DI RES.FISCALE"
FIELD 213@->PROVCOM PROMPT 59 16 ""
END FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN STRINGA 12
KEY "VIA di RES." BEGIN
PROMPT 66 16 "" KEY "VIA di RES."
FIELD 116@->INDRF PROMPT 66 16 ""
END FIELD 116@->INDRF
FIELD 116@->INDRES
STRINGA 15 END
BEGIN
KEY "NUM. CIVICO di RES." STRINGA 15
PROMPT 102 16 "" BEGIN
FIELD 116@->CIVRF KEY "NUM. CIVICO di RES."
END PROMPT 102 16 ""
FIELD 116@->CIVRF
STRINGA 16 FIELD 116@->CIVRES
BEGIN END
KEY "CAP"
PROMPT 120 16 "" STRINGA 16
FIELD 116@->CAPRF BEGIN
END KEY "CAP"
PROMPT 122 16 ""
STRINGA 13 FIELD 116@->CAPRF
BEGIN FIELD 116@->CAPRES
KEY "CODICE FISCALE DICHIARANTE" END
PROMPT 118 19 ""
END STRINGA 13
BEGIN
NUMBER 14 KEY "CODICE FISCALE DICHIARANTE"
BEGIN PROMPT 118 19 ""
KEY "NUM. FOGLIO" END
PROMPT 123 22 ""
END NUMBER 14
BEGIN
END KEY "NUM. FOGLIO"
PROMPT 123 22 ""
SECTION BODY ODD 8 END
LISTA 100 END
BEGIN
KEY "Tipo anagrafica" SECTION BODY ODD 8
FIELD 216@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@ LISTA 100
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@ BEGIN
END KEY "Tipo anagrafica"
FIELD 216@->TIPOA
STRINGA 1 ITEM "F| " MESSAGE SHOW,1@|HIDE,2@
BEGIN ITEM "G| " MESSAGE SHOW,2@|HIDE,1@
KEY "COD.FIS" END
PROMPT 10 1 ""
FIELD 216@->COFI STRINGA 1
END BEGIN
KEY "COD.FIS"
STRING 2 PROMPT 10 1 ""
BEGIN FIELD 216@->COFI
KEY "COGNOME" END
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30] STRING 2
GROUP 1 BEGIN
END KEY "COGNOME"
PROMPT 42 1 ""
STRING 3 FIELD 216@->RAGSOC[1,30]
BEGIN GROUP 1
KEY "NOME" END
PROMPT 81 1 ""
FIELD 216@->RAGSOC[31,50] STRING 3
GROUP 1 BEGIN
END KEY "NOME"
PROMPT 81 1 ""
STRING 102 FIELD 216@->RAGSOC[31,50]
BEGIN GROUP 1
KEY "RAGSOC GIURIDICHE" END
PROMPT 54 1 ""
FIELD 216@->RAGSOC STRING 102
GROUP 2 BEGIN
END KEY "RAGSOC GIURIDICHE"
PROMPT 54 1 ""
STRING 4 FIELD 216@->RAGSOC
BEGIN GROUP 2
KEY "DATA NASCITA" END
PROMPT 114 1 ""
FIELD 218@->DATANASC STRING 4
END BEGIN
KEY "DATA NASCITA"
STRING 5 PROMPT 114 1 ""
BEGIN FIELD 218@->DATANASC
KEY "SESSO" END
PROMPT 129 1 ""
FIELD 218@->SESSO STRING 5
END BEGIN
KEY "SESSO"
STRING 6 PROMPT 129 1 ""
BEGIN FIELD 218@->SESSO
KEY "COMUNE DI NASCITA" END
PROMPT 10 3 ""
FIELD 313@->DENCOM STRING 6
GROUP 1 BEGIN
END KEY "COMUNE DI NASCITA"
PROMPT 10 3 ""
STRING 101 FIELD 313@->DENCOM
BEGIN GROUP 1
KEY "COMUNE DI RESIDENZA GIURIDICHE" END
PROMPT 10 3 ""
FIELD 413@->DENCOM STRING 7
GROUP 2 BEGIN
END KEY "PROV DI NASCITA"
PROMPT 47 3 ""
STRING 7 FIELD 313@->PROVCOM
BEGIN GROUP 1
KEY "PROV DI NASCITA" END
PROMPT 47 3 ""
FIELD 313@->PROVCOM STRING 8
GROUP 1 BEGIN
END KEY "COMUNE DI RESIDENZA FISICHE"
PROMPT 53 3 ""
STRING 8 FIELD 413@->DENCOM
BEGIN GROUP 1
KEY "COMUNE DI RESIDENZA" END
PROMPT 53 3 ""
FIELD 413@->DENCOM STRING 9
GROUP 1 BEGIN
END KEY "PROV. RESIDENZA FISICHE"
PROMPT 88 3 ""
STRING 9 FIELD 413@->PROVCOM
BEGIN GROUP 1
KEY "PROV. RESIDENZA" END
PROMPT 88 3 ""
FIELD 413@->PROVCOM STRING 101
END BEGIN
KEY "COMUNE RF/RES. GIURIDICHE"
STRING 106 PROMPT 10 3 ""
BEGIN FIELD 513@->DENCOM
KEY "PROV. RESIDENZA GIURIDICHE" GROUP 2
PROMPT 61 3 "" END
FIELD 413@->PROVCOM
GROUP 2 STRING 106
END BEGIN
KEY "PROV. RF/RES GIURIDICHE"
STRING 108 PROMPT 61 3 ""
BEGIN FIELD 513@->PROVCOM
KEY "VIA RES." GROUP 2
PROMPT 94 3 "" END
FIELD 216@->INDRES[1,18]
FLAGS "H" STRING 108
MESSAGE COPY,10|COPY,107 BEGIN
END KEY "VIA RES. FISICHE"
FIELD 216@->INDRES[1,18]
STRING 109 FLAGS "H"
BEGIN MESSAGE COPY,10
KEY "NUM.CIV" GROUP 1
PROMPT 93 3 "" END
FLAGS "H"
FIELD 216@->CIVRES STRING 109
MESSAGE APPEND,10|APPEND,107 BEGIN
END KEY "NUM.CIV DI RESIDENZA FISICHE"
FLAGS "H"
STRING 10 FIELD 216@->CIVRES
BEGIN MESSAGE APPEND,10
KEY "VIA RES. + numcivres" GROUP 1
PROMPT 95 3 "" END
GROUP 1
END STRING 10
BEGIN
STRING 107 KEY "VIA RES. + NUMCIVRES FISICHE"
BEGIN PROMPT 95 3 ""
KEY "VIA RES GIURIDICHE" GROUP 1
PROMPT 69 3 "" END
GROUP 2
END STRING 110
BEGIN
STRING 11 KEY "VIA RF/RES. GIURIDICHE"
BEGIN FIELD 216@->INDRF[1,18]
KEY "FLAG DI NON RESIDENTE" FIELD 216@->INDRES[1,18]
PROMPT 11 5 "" FLAGS "H"
FIELD 216@->SOGGNRES MESSAGE COPY,107
END GROUP 2
END
STRING 12
BEGIN STRING 111
KEY "STATO ESTERO DI RES." BEGIN
PROMPT 16 5 "" KEY "NUM.CIV RF/RES GIURIDICHE"
FIELD 24@->S0 FLAGS "H"
END FIELD 216@->CIVRF
FIELD 216@->CIVRES
STRING 13 MESSAGE APPEND,107
BEGIN GROUP 2
KEY "CODICE STATO ESTERO DI RES." END
PROMPT 75 5 ""
FIELD 216@->STATORES STRING 107
END BEGIN
KEY "VIA RES GIURIDICHE"
STRING 14 PROMPT 69 3 ""
BEGIN GROUP 2
KEY "CODICE FISCALE ESTERO" END
PROMPT 89 5 ""
FIELD 216@->COFIEST STRING 11
END BEGIN
KEY "FLAG DI NON RESIDENTE"
STRING 15 PROMPT 12 5 ""
BEGIN FIELD 216@->SOGGNRES
KEY "DESCR. CAUSALE" END
PROMPT 10 7 ""
FIELD 14@->S0[1,20] STRING 12
END BEGIN
KEY "STATO ESTERO DI RES."
NUMBER 16 PROMPT 16 5 ""
BEGIN FIELD 24@->S0
KEY "TOTALE" END
PROMPT 36 7 ""
// FIELD 62->TOTALE STRING 13
PICTURE "###.###.###^^^" BEGIN
MESSAGE ADD,FL->16 KEY "CODICE STATO ESTERO DI RES."
END PROMPT 79 5 ""
FIELD 216@->STATORES
NUMBER 17 END
BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA" STRING 14
PROMPT 55 7 "" BEGIN
// FIELD 62->SOMME KEY "CODICE FISCALE ESTERO"
PICTURE "###.###.###^^^" PROMPT 89 5 ""
MESSAGE ADD,FL->17 FIELD 216@->COFIEST
END END
NUMBER 18 STRING 15
BEGIN BEGIN
KEY "IMPONIBILE" KEY "DESCR. CAUSALE"
PROMPT 75 7 "" PROMPT 11 7 ""
// FIELD 62->IMPONIBILE FIELD 14@->S0[1,20]
PICTURE "###.###.###^^^" END
MESSAGE ADD,FL->18
END NUMBER 16
BEGIN
STRING 19 KEY "TOTALE"
BEGIN PROMPT 42 7 ""
KEY "ALIQUOTA" // FIELD 62->TOTALE
PROMPT 88 7 "" PICTURE "###.###.###^^^"
FIELD 62->PERC MESSAGE ADD,FL->16
PICTURE "###@@" END
END
NUMBER 17
NUMBER 20 BEGIN
BEGIN KEY "SOMME NON SOGGETTE A RITENUTA"
KEY "IMPORTO" PROMPT 61 7 ""
PROMPT 100 7 "" // FIELD 62->SOMME
// FIELD 62->IMPORTO PICTURE "###.###.###^^^"
PICTURE "###.###.###^^^" MESSAGE ADD,FL->17
MESSAGE ADD,FL->20 END
END
NUMBER 18
NUMBER 21 BEGIN
BEGIN KEY "IMPONIBILE"
KEY "NETTO" PROMPT 82 7 ""
PROMPT 119 7 "" // FIELD 62->IMPONIBILE
// FIELD 62->NETTO PICTURE "###.###.###^^^"
PICTURE "###.###.###^^^" MESSAGE ADD,FL->18
MESSAGE ADD,FL->21 END
END
STRING 19
END BEGIN
KEY "ALIQUOTA"
SECTION FOOTER LAST 1 PROMPT 93 7 ""
FIELD 62->PERC
NUMBER 16 PICTURE "###@@"
BEGIN END
KEY "TOTALE TOTALE"
PROMPT 36 1 "" NUMBER 20
PICTURE "###.###.###^^^" BEGIN
END KEY "IMPORTO"
PROMPT 106 7 ""
NUMBER 17 // FIELD 62->IMPORTO
BEGIN PICTURE "###.###.###^^^"
KEY "TOTALE SOMME NON SOGGETTE" MESSAGE ADD,FL->20
PROMPT 55 1 "" END
PICTURE "###.###.###^^^"
END NUMBER 21
BEGIN
NUMBER 18 KEY "NETTO"
BEGIN PROMPT 126 7 ""
KEY "TOTALE IMPONIBILE" // FIELD 62->NETTO
PROMPT 75 1 "" PICTURE "###.###.###^^^"
PICTURE "###.###.###^^^" MESSAGE ADD,FL->21
END END
NUMBER 20 END
BEGIN
KEY "TOTALE IMPORTO" SECTION FOOTER LAST 1
PROMPT 101 1 ""
PICTURE "###.###.###^^^" NUMBER 16
END BEGIN
KEY "TOTALE TOTALE"
NUMBER 21 PROMPT 36 1 ""
BEGIN PICTURE "###.###.###^^^"
KEY "TOTALE NETTO" END
PROMPT 120 1 ""
PICTURE "###.###.###^^^" NUMBER 17
END BEGIN
KEY "TOTALE SOMME NON SOGGETTE"
END PROMPT 55 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 75 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 20
BEGIN
KEY "TOTALE IMPORTO"
PROMPT 101 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 21
BEGIN
KEY "TOTALE NETTO"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END

870
m770/77qd1.frm
View File

@ -1,423 +1,447 @@
USE 63 USE 63
JOIN %CA7 TO 63 ALIAS 14 INTO CODTAB=CODCAUS JOIN %CA7 TO 63 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR JOIN 8 TO 6 ALIAS 118 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)
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 %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
END JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN DESCRIPTION
63->* "Quadro D1 770" BEGIN
9->* "Ditte" 63->* "Quadro D1 770"
6->* "Anagrafica persone fisiche e giuridiche" 9->* "Ditte"
8->* "Anagrafica persone fisiche" 6->* "Anagrafica persone fisiche e giuridiche"
113@->* "Comuni" 8->* "Anagrafica persone fisiche"
213@->* "Comuni" 113@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche" 213@->* "Comuni"
218@->* "Anagrafica persone giuridiche" 216@->* "Anagrafica persone fisiche e giuridiche"
313@->* "Comuni" 218@->* "Anagrafica persone giuridiche"
413@->* "Comuni" 313@->* "Comuni"
END 413@->* "Comuni"
END
GENERAL
BEGIN GENERAL
OFFSET 0 0 BEGIN
FONT "Courier 17cpi" OFFSET 0 0
SIZE 10 FONT "Courier 17cpi"
CA "X" SIZE 10
IN 3 2 CA "X"
FI 131 IN 3 2
END FI 131
END
SECTION HEADER FIRST 29
SECTION HEADER FIRST 29
LISTA 9
BEGIN LISTA 9
KEY "Tipo anagrafica" BEGIN
FIELD 116@->TIPOA KEY "Tipo anagrafica"
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@ FIELD 116@->TIPOA
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@ ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
END ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN STRINGA 1
KEY "CODICE FISCALE" BEGIN
PROMPT 3 12 "" KEY "CODICE FISCALE"
FIELD 116@->COFI PROMPT 3 12 ""
END FIELD 116@->COFI
END
STRINGA 2
BEGIN STRINGA 2
KEY "RAGIONE SOCIALE" BEGIN
PROMPT 39 12 "" KEY "RAGIONE SOCIALE"
FIELD 116@->RAGSOC PROMPT 39 12 ""
GROUP 2 FIELD 116@->RAGSOC
END GROUP 2
END
STRINGA 3
BEGIN STRINGA 3
KEY "COGNOME" BEGIN
PROMPT 39 12 "" KEY "COGNOME"
FIELD 116@->RAGSOC[1,30] PROMPT 39 12 ""
GROUP 1 FIELD 116@->RAGSOC[1,30]
END GROUP 1
END
STRINGA 4
BEGIN STRINGA 4
KEY "NOME" BEGIN
PROMPT 17 14 "" KEY "NOME"
FIELD 116@->RAGSOC[31,50] PROMPT 17 14 ""
GROUP 1 FIELD 116@->RAGSOC[31,50]
END GROUP 1
END
STRINGA 5
BEGIN STRINGA 5
KEY "SESSO" BEGIN
PROMPT 56 14 "" KEY "SESSO"
FIELD 118@->SESSO PROMPT 58 14 ""
GROUP 1 FIELD 118@->SESSO
END GROUP 1
END
STRINGA 6
BEGIN STRINGA 6
KEY "DATA DI NASCITA" BEGIN
PROMPT 63 14 "" KEY "DATA DI NASCITA"
FIELD 118@->DATANASC PROMPT 63 14 ""
GROUP 1 FIELD 118@->DATANASC
END GROUP 1
END
STRINGA 7
BEGIN STRINGA 7
KEY "COMUNE DI NASCITA" BEGIN
PROMPT 83 14 "" KEY "COMUNE DI NASCITA"
FIELD 113@->DENCOM PROMPT 84 14 ""
GROUP 1 FIELD 113@->DENCOM
END GROUP 1
END
STRINGA 8
BEGIN STRINGA 8
KEY "PROV. DI NASCITA" BEGIN
PROMPT 122 14 "" KEY "PROV. DI NASCITA"
FIELD 113@->PROVCOM PROMPT 125 14 ""
GROUP 1 FIELD 113@->PROVCOM
END GROUP 1
END
STRINGA 10
BEGIN STRINGA 10
KEY "COMUNE DI RES.FISCALE" BEGIN
PROMPT 17 16 "" KEY "COMUNE DI RES.FISCALE"
FIELD 213@->DENCOM PROMPT 17 16 ""
END FIELD 213@->DENCOM
END
STRINGA 11
BEGIN STRINGA 11
KEY "PROV DI RES.FISCALE" BEGIN
PROMPT 56 16 "" KEY "PROV DI RES.FISCALE"
FIELD 213@->PROVCOM PROMPT 59 16 ""
END FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN STRINGA 12
KEY "VIA di RES." BEGIN
PROMPT 67 16 "" KEY "VIA di RES."
FIELD 116@->INDRF PROMPT 67 16 ""
FLAGS "H" FIELD 116@->INDRF
MESSAGE COPY,17 FIELD 116@->INDRES
END FLAGS "H"
MESSAGE COPY,17
STRINGA 15 END
BEGIN
KEY "NUM. CIVICO di RES." STRINGA 15
PROMPT 103 16 "" BEGIN
FIELD 116@->CIVRF KEY "NUM. CIVICO di RES."
FLAGS "H" PROMPT 103 16 ""
MESSAGE APPEND,17 FIELD 116@->CIVRF
END FIELD 116@->CIVRES
FLAGS "H"
STRINGA 17 MESSAGE APPEND,17
BEGIN END
KEY "VIA RES. + NUM. RES."
PROMPT 67 16 "" STRINGA 17
END BEGIN
KEY "VIA RES. + NUM. RES."
STRINGA 16 PROMPT 67 16 ""
BEGIN END
KEY "CAP"
PROMPT 124 16 "" STRINGA 16
FIELD 116@->CAPRF BEGIN
END KEY "CAP"
PROMPT 124 16 ""
STRINGA 13 FIELD 116@->CAPRF
BEGIN FIELD 116@->CAPRES
KEY "CODICE FISCALE DICHIARANTE" END
PROMPT 105 19 ""
END STRINGA 13
BEGIN
NUMBER 14 KEY "CODICE FISCALE DICHIARANTE"
BEGIN PROMPT 105 19 ""
KEY "NUM. FOGLIO" END
PROMPT 125 22 ""
END NUMBER 14
BEGIN
END KEY "NUM. FOGLIO"
PROMPT 125 22 ""
SECTION BODY ODD 6 END
LISTA 100 END
BEGIN
KEY "Tipo anagrafica" SECTION BODY ODD 6
FIELD 216@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@ LISTA 100
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@ BEGIN
END KEY "Tipo anagrafica"
FIELD 216@->TIPOA
STRINGA 1 ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
BEGIN ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
KEY "COD.FIS" END
PROMPT 10 1 ""
FIELD 216@->COFI STRINGA 1
END BEGIN
KEY "COD.FIS"
STRING 2 PROMPT 10 1 ""
BEGIN FIELD 216@->COFI
KEY "COGNOME" END
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30] STRING 2
GROUP 1 BEGIN
END KEY "COGNOME"
PROMPT 42 1 ""
STRING 3 FIELD 216@->RAGSOC[1,30]
BEGIN GROUP 1
KEY "NOME" END
PROMPT 80 1 ""
FIELD 216@->RAGSOC[31,50] STRING 3
GROUP 1 BEGIN
END KEY "NOME"
PROMPT 80 1 ""
STRING 101 FIELD 216@->RAGSOC[31,50]
BEGIN GROUP 1
KEY "RAGSOC GIURIDICHE" END
PROMPT 54 1 ""
FIELD 216@->RAGSOC STRING 101
GROUP 2 BEGIN
END KEY "RAGSOC GIURIDICHE"
PROMPT 54 1 ""
STRING 4 FIELD 216@->RAGSOC
BEGIN GROUP 2
KEY "DATA NASCITA" END
PROMPT 112 1 ""
FIELD 218@->DATANASC STRING 4
GROUP 1 BEGIN
END KEY "DATA NASCITA"
PROMPT 114 1 ""
STRING 5 FIELD 218@->DATANASC
BEGIN GROUP 1
KEY "SESSO" END
PROMPT 126 1 ""
FIELD 218@->SESSO STRING 5
GROUP 1 BEGIN
END KEY "SESSO"
PROMPT 128 1 ""
STRING 6 FIELD 218@->SESSO
BEGIN GROUP 1
KEY "COMUNE DI NASCITA" END
PROMPT 10 3 ""
FIELD 313@->DENCOM STRING 6
GROUP 1 BEGIN
END KEY "COMUNE DI NASCITA"
PROMPT 10 3 ""
STRING 7 FIELD 313@->DENCOM
BEGIN GROUP 1
KEY "PROV DI NASCITA" END
PROMPT 46 3 ""
FIELD 313@->PROVCOM STRING 7
GROUP 1 BEGIN
END KEY "PROV DI NASCITA"
PROMPT 48 3 ""
STRING 8 FIELD 313@->PROVCOM
BEGIN GROUP 1
KEY "COMUNE DI RESIDENZA" END
PROMPT 53 3 ""
FIELD 413@->DENCOM STRING 8
GROUP 1 BEGIN
END KEY "COMUNE DI RESIDENZA FISICHE"
PROMPT 53 3 ""
STRING 102 FIELD 413@->DENCOM
BEGIN GROUP 1
KEY "COMUNE DI RESIDENZA GIURIDICHE" END
PROMPT 10 3 ""
FIELD 413@->DENCOM STRING 9
GROUP 2 BEGIN
END KEY "PROV. RESIDENZA FISICHE"
PROMPT 89 3 ""
STRING 9 FIELD 413@->PROVCOM
BEGIN GROUP 1
KEY "PROV. RESIDENZA" END
PROMPT 87 3 ""
FIELD 413@->PROVCOM STRING 102
GROUP 1 BEGIN
END KEY "COMUNE RF/RES. GIURIDICHE"
PROMPT 10 3 ""
STRING 103 FIELD 513@->DENCOM
BEGIN GROUP 2
KEY "PROVINCIA DI RESIDENZA GIURIDICHE" END
PROMPT 51 3 ""
FIELD 413@->PROVCOM STRING 103
GROUP 2 BEGIN
END KEY "PROVINCIA RF/RES. GIURIDICHE"
PROMPT 51 3 ""
STRING 105 FIELD 513@->PROVCOM
BEGIN GROUP 2
KEY "VIA RESIDENZA" END
PROMPT 94 3 ""
FIELD 216@->INDRES[1,18] STRING 105
FLAGS "H" BEGIN
MESSAGE COPY,10|COPY,104 KEY "VIA RESIDENZA FISICHE"
END FIELD 216@->INDRES[1,18]
FLAGS "H"
STRING 106 MESSAGE COPY,10
BEGIN GROUP 1
KEY "NUMERO CIVICO" END
PROMPT 93 3 ""
FLAGS "H" STRING 106
FIELD 216@->CIVRES BEGIN
MESSAGE APPEND,10|APPEND,104 KEY "NUMERO CIVICO RES. FISICHE"
END FLAGS "H"
FIELD 216@->CIVRES
STRING 10 MESSAGE APPEND,10
BEGIN GROUP 1
KEY "VIA + NUMERO CIVICO RESIDENZA" END
PROMPT 95 3 ""
GROUP 1 STRING 10
END BEGIN
KEY "VIA + NUMERO CIVICO RESIDENZA FISICHE"
STRING 104 PROMPT 95 3 ""
BEGIN GROUP 1
KEY "VIA + NUMERO CIVICO RESIDENZA GIURIDICHE" END
PROMPT 75 3 ""
GROUP 2 STRING 105
END BEGIN
KEY "VIA RF/RES. GIURIDICHE"
STRING 11 FIELD 216@->INDRF[1,18]
BEGIN FIELD 216@->INDRES[1,18]
KEY "CAUSALE DEL QUADRO D1" FLAGS "H"
PROMPT 12 5 "" MESSAGE COPY,104
FIELD 14@->S3 GROUP 2
END END
NUMBER 12 STRING 106
BEGIN BEGIN
KEY "TOTALE" KEY "NUMERO CIVICO RF/RES. GIURIDICHE"
PROMPT 19 5 "" FLAGS "H"
// FIELD 63->TOTALE FIELD 216@->CIVRF
PICTURE "###.###.###^^^" FIELD 216@->CIVRES
MESSAGE ADD,FL->12 MESSAGE APPEND,104
END GROUP 2
END
NUMBER 13
BEGIN STRING 104
KEY "QUOTA PROVVIGIONI" BEGIN
PROMPT 36 5 "" KEY "VIA + NUMERO CIVICO RF/RES. GIURIDICHE"
// FIELD 63->QUOTAPRO PROMPT 75 3 ""
PICTURE "###.###.###^^^" GROUP 2
MESSAGE ADD,FL->13 END
END
STRING 11
NUMBER 14 BEGIN
BEGIN KEY "CAUSALE DEL QUADRO D1"
KEY "SPESE ANTICIPATE" PROMPT 13 5 ""
PROMPT 53 5 "" FIELD 14@->S3
// FIELD 63->SPESEANT END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14 NUMBER 12
END BEGIN
KEY "TOTALE"
NUMBER 15 PROMPT 23 5 ""
BEGIN // FIELD 63->TOTALE
KEY "IMPONIBILE" PICTURE "###.###.###^^^"
PROMPT 70 5 "" MESSAGE ADD,FL->12
// FIELD 63->IMPONIBILE END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15 NUMBER 13
END BEGIN
KEY "QUOTA PROVVIGIONI"
STRING 16 PROMPT 40 5 ""
BEGIN // FIELD 63->QUOTAPRO
KEY "ALIQUOTA" PICTURE "###.###.###^^^"
PROMPT 87 5 "" MESSAGE ADD,FL->13
FIELD 63->PERC END
PICTURE "###@@"
END NUMBER 14
BEGIN
NUMBER 17 KEY "SPESE ANTICIPATE"
BEGIN PROMPT 57 5 ""
KEY "IMPORTO" // FIELD 63->SPESEANT
PROMPT 99 5 "" PICTURE "###.###.###^^^"
// FIELD 63->IMPORTO MESSAGE ADD,FL->14
PICTURE "###.###.###^^^" END
MESSAGE ADD,FL->17
END NUMBER 15
BEGIN
NUMBER 18 KEY "IMPONIBILE"
BEGIN PROMPT 75 5 ""
KEY "NETTO" // FIELD 63->IMPONIBILE
PROMPT 115 5 "" PICTURE "###.###.###^^^"
// FIELD 63->NETTO MESSAGE ADD,FL->15
PICTURE "###.###.###^^^" END
MESSAGE ADD,FL->18
END STRING 16
BEGIN
END KEY "ALIQUOTA"
PROMPT 90 5 ""
SECTION FOOTER LAST 2 FIELD 63->PERC
PICTURE "###@@"
NUMBER 12 END
BEGIN
KEY "TOTALE TOTALE" NUMBER 17
PROMPT 19 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "IMPORTO"
END PROMPT 104 5 ""
// FIELD 63->IMPORTO
NUMBER 13 PICTURE "###.###.###^^^"
BEGIN MESSAGE ADD,FL->17
KEY "TOTALE QUOTA PROVVIGIONI" END
PROMPT 36 1 ""
PICTURE "###.###.###^^^" NUMBER 18
END BEGIN
KEY "NETTO"
NUMBER 14 PROMPT 120 5 ""
BEGIN // FIELD 63->NETTO
KEY "TOTALE SPESE ANTICIPATE" PICTURE "###.###.###^^^"
PROMPT 53 1 "" MESSAGE ADD,FL->18
PICTURE "###.###.###^^^" END
END
END
NUMBER 15
BEGIN SECTION FOOTER LAST 2
KEY "TOTALE IMPONIBILE"
PROMPT 70 1 "" NUMBER 12
PICTURE "###.###.###^^^" BEGIN
END KEY "TOTALE TOTALE"
PROMPT 19 1 ""
NUMBER 17 PICTURE "###.###.###^^^"
BEGIN END
KEY "TOTALE IMPORTO"
PROMPT 99 1 "" NUMBER 13
PICTURE "###.###.###^^^" BEGIN
END KEY "TOTALE QUOTA PROVVIGIONI"
PROMPT 36 1 ""
NUMBER 18 PICTURE "###.###.###^^^"
BEGIN END
KEY "TOTALE NETTO"
PROMPT 115 1 "" NUMBER 14
PICTURE "###.###.###^^^" BEGIN
END KEY "TOTALE SPESE ANTICIPATE"
PROMPT 53 1 ""
END PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 70 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN
KEY "TOTALE IMPORTO"
PROMPT 99 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE NETTO"
PROMPT 115 1 ""
PICTURE "###.###.###^^^"
END
END

2355
m770/77qg.frm
View File

File diff suppressed because it is too large Load Diff

691
m770/77qgd.frm
View File

@ -1,341 +1,350 @@
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 %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
END JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN DESCRIPTION
62->* "770 Quadro G distinta" BEGIN
9->* "Ditte" 62->* "770 Quadro G distinta"
6->* "Anagrafica persone fisiche e giuridiche" 9->* "Ditte"
8->* "Anagrafica persone fisiche" 6->* "Anagrafica persone fisiche e giuridiche"
113@->* "Comuni" 8->* "Anagrafica persone fisiche"
213@->* "Comuni" 113@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche" 213@->* "Comuni"
218@->* "Anagrafica persone giuridiche" 216@->* "Anagrafica persone fisiche e giuridiche"
313@->* "Comuni" 218@->* "Anagrafica persone giuridiche"
413@->* "Comuni" 313@->* "Comuni"
END 413@->* "Comuni"
END
GENERAL
BEGIN GENERAL
OFFSET 0 0 BEGIN
FONT "Courier 17cpi" OFFSET 0 0
SIZE 10 FONT "Courier 17cpi"
CA "X" SIZE 10
IN 3 2 CA "X"
FI 131 IN 3 2
END FI 131
END
SECTION HEADER FIRST 17
SECTION HEADER FIRST 17
NUMBER 14
BEGIN STRINGA 13
KEY "NUM. FOGLIO" BEGIN
PROMPT 123 20 "" KEY "CODICE FISCALE DICHIARANTE"
END PROMPT 105 19 ""
FLAGS "H"
END END
SECTION BODY ODD 8 NUMBER 14
BEGIN
STRINGA 1 KEY "NUM. FOGLIO"
BEGIN PROMPT 123 5 ""
KEY "COD.FIS" END
PROMPT 10 1 ""
FIELD 216@->COFI END
END
SECTION BODY ODD 8
STRING 2
BEGIN STRINGA 1
KEY "COGNOME" BEGIN
PROMPT 43 1 "" KEY "COD.FIS"
FIELD 216@->RAGSOC[1,30] PROMPT 10 1 ""
END FIELD 216@->COFI
END
STRING 3
BEGIN STRING 2
KEY "NOME" BEGIN
PROMPT 82 1 "" KEY "COGNOME"
FIELD 216@->RAGSOC[31,50] PROMPT 43 1 ""
GROUP 1 FIELD 216@->RAGSOC[1,30]
END END
STRING 4 STRING 3
BEGIN BEGIN
KEY "DATA NASCITA" KEY "NOME"
PROMPT 10 3 "" PROMPT 98 1 ""
FIELD 218@->DATANASC FIELD 216@->RAGSOC[31,50]
END END
STRING 5 STRING 4
BEGIN BEGIN
KEY "SESSO" KEY "DATA NASCITA"
PROMPT 36 3 "" PROMPT 10 3 ""
FIELD 218@->SESSO FIELD 218@->DATANASC
END END
STRING 6 STRING 5
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "SESSO"
PROMPT 44 3 "" PROMPT 36 3 ""
FIELD 313@->DENCOM FIELD 218@->SESSO
END END
STRING 7 STRING 6
BEGIN BEGIN
KEY "PROV DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 117 3 "" PROMPT 44 3 ""
FIELD 313@->PROVCOM FIELD 313@->DENCOM
END END
STRING 8 STRING 7
BEGIN BEGIN
KEY "COMUNE DI RESIDENZA" KEY "PROV DI NASCITA"
PROMPT 10 5 "" PROMPT 117 3 ""
FIELD 413@->DENCOM FIELD 313@->PROVCOM
END END
STRING 9 STRING 8
BEGIN BEGIN
KEY "PROV. RESIDENZA" KEY "COMUNE DI RESIDENZA"
PROMPT 58 5 "" PROMPT 10 5 ""
FIELD 413@->PROVCOM FIELD 413@->DENCOM
END END
STRING 101 STRING 9
BEGIN BEGIN
KEY "VIA RES." KEY "PROV. RESIDENZA"
PROMPT 94 5 "" PROMPT 58 5 ""
FIELD 216@->INDRES[1,18] FIELD 413@->PROVCOM
FLAGS "H" END
MESSAGE COPY,10
END STRING 101
BEGIN
STRING 102 KEY "VIA RES."
BEGIN PROMPT 94 5 ""
KEY "NUM.CIV" FIELD 216@->INDRES[1,18]
PROMPT 93 5 "" FLAGS "H"
FLAGS "H" MESSAGE COPY,10
FIELD 216@->CIVRES END
MESSAGE APPEND,10
END STRING 102
BEGIN
STRING 10 KEY "NUM.CIV"
BEGIN PROMPT 93 5 ""
KEY "VIA RES. + numcivres" FLAGS "H"
PROMPT 66 5 "" FIELD 216@->CIVRES
END MESSAGE APPEND,10
END
STRING 11
BEGIN STRING 10
KEY "NUMERO QUOTE" BEGIN
PROMPT 125 5 "" KEY "VIA RES. + numcivres"
FIELD 101->NUMQUOTE PROMPT 66 5 ""
PICTURE "####^^^" END
END
NUMBER 11
NUMBER 12 BEGIN
BEGIN KEY "NUMERO QUOTE"
KEY "UTILI SPETTANTI" PROMPT 125 5 ""
PROMPT 31 7 "" FIELD 101->NUMQUOTE
FIELD 101->UTSPETT PICTURE "###@@"
PICTURE "###.###.###^^^" END
MESSAGE ADD,FO->12
END NUMBER 12
BEGIN
NUMBER 13 KEY "UTILI SPETTANTI"
BEGIN PROMPT 31 7 ""
KEY "RIT.OPERATE SUGLI UTILI SPETTANTI" FIELD 101->UTSPETT
PROMPT 59 7 "" PICTURE "###.###.###^^^"
FIELD 101->ROPESPET MESSAGE ADD,FO->12
PICTURE "###.###.###^^^" END
MESSAGE ADD,FO->13
END NUMBER 13
BEGIN
NUMBER 14 KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
BEGIN PROMPT 59 7 ""
KEY "UTILI PAGATI" FIELD 101->ROPESPET
PROMPT 93 7 "" PICTURE "###.###.###^^^"
FIELD 101->UTPAG MESSAGE ADD,FO->13
PICTURE "###.###.###^^^" END
MESSAGE ADD,FO->14
END NUMBER 14
BEGIN
NUMBER 15 KEY "UTILI PAGATI"
BEGIN PROMPT 93 7 ""
KEY "RITENUTE OPERATE SUGLI UT.PAGATI" FIELD 101->UTPAG
PROMPT 120 7 "" PICTURE "###.###.###^^^"
FIELD 101->ROPE MESSAGE ADD,FO->14
PICTURE "###.###.###^^^" END
MESSAGE ADD,FO->15
END NUMBER 15
BEGIN
END KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
PROMPT 120 7 ""
SECTION BODY EVEN 6 FIELD 101->ROPE
PICTURE "###.###.###^^^"
STRINGA 1 MESSAGE ADD,FO->15
BEGIN END
KEY "COD.FIS"
PROMPT 10 1 "" END
FIELD 216@->COFI
END SECTION BODY EVEN 6
STRING 2 STRINGA 1
BEGIN BEGIN
KEY "RAGSOC GIURIDICHE" KEY "COD.FIS"
PROMPT 44 1 "" PROMPT 10 1 ""
FIELD 216@->RAGSOC FIELD 216@->COFI
END END
STRING 3 STRING 2
BEGIN BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE" KEY "RAGSOC GIURIDICHE"
PROMPT 10 3 "" PROMPT 44 1 ""
FIELD 413@->DENCOM FIELD 216@->RAGSOC
END END
STRING 4 STRING 3
BEGIN BEGIN
KEY "PROV. RESIDENZA GIURIDICHE" KEY "COMUNE DI RF/RES. GIURIDICHE"
PROMPT 61 3 "" PROMPT 10 3 ""
FIELD 413@->PROVCOM FIELD 513@->DENCOM
END END
STRING 5 STRING 4
BEGIN BEGIN
KEY "VIA RES. GIURIDICHE" KEY "PROV. RF/RES. GIURIDICHE"
PROMPT 94 3 "" PROMPT 61 3 ""
FIELD 216@->INDRES[1,18] FIELD 513@->PROVCOM
FLAGS "H" END
MESSAGE COPY,7
END STRING 5
BEGIN
STRING 6 KEY "VIA RF/RES. GIURIDICHE"
BEGIN PROMPT 94 3 ""
KEY "NUM.CIV GIURIDICHE" FIELD 216@->INDRF[1,18]
PROMPT 93 3 "" FIELD 216@->INDRES[1,18]
FLAGS "H" FLAGS "H"
FIELD 216@->CIVRES MESSAGE COPY,7
MESSAGE APPEND,7 END
END
STRING 6
STRING 7 BEGIN
BEGIN KEY "NUM.CIV RF/RES. GIURIDICHE"
KEY "VIA RES. + numcivres" PROMPT 93 3 ""
PROMPT 69 3 "" FLAGS "H"
END FIELD 216@->CIVRF
FIELD 216@->CIVRES
STRING 11 MESSAGE APPEND,7
BEGIN END
KEY "NUMERO QUOTE"
PROMPT 128 3 "" STRING 7
FIELD 101->NUMQUOTE BEGIN
PICTURE "####^^^" KEY "VIA RF/RES. + numcivres"
END PROMPT 69 3 ""
END
NUMBER 12
BEGIN NUMBER 11
KEY "UTILI SPETTANTI" BEGIN
PROMPT 31 5 "" KEY "NUMERO QUOTE"
FIELD 101->UTSPETT PROMPT 128 3 ""
PICTURE "###.###.###^^^" FIELD 101->NUMQUOTE
MESSAGE ADD,FE->12 PICTURE "###@@"
END END
NUMBER 13 NUMBER 12
BEGIN BEGIN
KEY "RIT.OPERATE SUGLI UTILI SPETTANTI" KEY "UTILI SPETTANTI"
PROMPT 59 5 "" PROMPT 31 5 ""
FIELD 101->ROPESPET FIELD 101->UTSPETT
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FE->13 MESSAGE ADD,FE->12
END END
NUMBER 14 NUMBER 13
BEGIN BEGIN
KEY "UTILI PAGATI" KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
PROMPT 93 5 "" PROMPT 59 5 ""
FIELD 101->UTPAG FIELD 101->ROPESPET
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FE->14 MESSAGE ADD,FE->13
END END
NUMBER 15 NUMBER 14
BEGIN BEGIN
KEY "RITENUTE OPERATE SUGLI UT.PAGATI" KEY "UTILI PAGATI"
PROMPT 120 5 "" PROMPT 93 5 ""
FIELD 101->ROPE FIELD 101->UTPAG
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FE->15 MESSAGE ADD,FE->14
END END
END NUMBER 15
BEGIN
SECTION FOOTER ODD 2 KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
PROMPT 120 5 ""
NUMBER 12 FIELD 101->ROPE
BEGIN PICTURE "###.###.###^^^"
KEY "TOTALE UT.SPETT." MESSAGE ADD,FE->15
PROMPT 31 1 "" END
PICTURE "###.###.###^^^"
END END
NUMBER 13 SECTION FOOTER ODD 2
BEGIN
KEY "TOTALE R.OPE.SU UT.SPETT." NUMBER 12
PROMPT 59 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "TOTALE UT.SPETT."
END PROMPT 31 1 ""
PICTURE "###.###.###^^^"
NUMBER 14 END
BEGIN
KEY "TOTALE UTILI PAGATI" NUMBER 13
PROMPT 93 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "TOTALE R.OPE.SU UT.SPETT."
END PROMPT 59 1 ""
PICTURE "###.###.###^^^"
NUMBER 15 END
BEGIN
KEY "TOTALE R.OPE.SU UT.PAGATI" NUMBER 14
PROMPT 120 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "TOTALE UTILI PAGATI"
END PROMPT 93 1 ""
PICTURE "###.###.###^^^"
END END
SECTION FOOTER EVEN 2 NUMBER 15
BEGIN
NUMBER 12 KEY "TOTALE R.OPE.SU UT.PAGATI"
BEGIN PROMPT 120 1 ""
KEY "TOTALE UT.SPETT." PICTURE "###.###.###^^^"
PROMPT 31 1 "" END
PICTURE "###.###.###^^^"
END END
NUMBER 13 SECTION FOOTER EVEN 2
BEGIN
KEY "TOTALE R.OPE.SU UT.SPETT." NUMBER 12
PROMPT 59 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "TOTALE UT.SPETT."
END PROMPT 31 1 ""
PICTURE "###.###.###^^^"
NUMBER 14 END
BEGIN
KEY "TOTALE UTILI PAGATI" NUMBER 13
PROMPT 93 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "TOTALE R.OPE.SU UT.SPETT."
END PROMPT 59 1 ""
PICTURE "###.###.###^^^"
NUMBER 15 END
BEGIN
KEY "TOTALE R.OPE.SU UT.PAGAI" NUMBER 14
PROMPT 120 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "TOTALE UTILI PAGATI"
END PROMPT 93 1 ""
PICTURE "###.###.###^^^"
END END
NUMBER 15
BEGIN
KEY "TOTALE R.OPE.SU UT.PAGAI"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END

421
m770/77qh.frm
View File

@ -1,209 +1,212 @@
USE 43 USE 43
JOIN 9 TO 43 INTO CODDITTA=CODDITTA JOIN 9 TO 43 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR JOIN 8 TO 6 ALIAS 118 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)
JOIN %ENT TO 43 ALIAS 214 INTO CODTAB=H1ENTE JOIN %ENT TO 43 ALIAS 214 INTO CODTAB=H1ENTE
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
61->* "Quadro H 770" 61->* "Quadro H 770"
9->* "Ditte" 9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche" 6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche" 8->* "Anagrafica persone fisiche"
113@->* "Comuni" 113@->* "Comuni"
213@->* "Comuni" 213@->* "Comuni"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
FONT "Courier 17cpi" FONT "Courier 17cpi"
SIZE 11 SIZE 11
CA "X" CA "X"
IN 3 2 IN 3 2
FI 131 FI 131
END END
SECTION HEADER FIRST 22 SECTION HEADER FIRST 22
LISTA 9 LISTA 9
BEGIN BEGIN
KEY "Tipo anagrafica" KEY "Tipo anagrafica"
FLAGS "H" FLAGS "H"
FIELD 116@->TIPOA FIELD 116@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@ ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@ ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END END
STRINGA 1 STRINGA 1
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 3 12 "" PROMPT 3 12 ""
FIELD 116@->COFI FIELD 116@->COFI
END END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE"
PROMPT 39 12 "" PROMPT 39 12 ""
FIELD 116@->RAGSOC FIELD 116@->RAGSOC
GROUP 2 GROUP 2
END END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 39 12 "" PROMPT 39 12 ""
FIELD 116@->RAGSOC[1,30] FIELD 116@->RAGSOC[1,30]
GROUP 1 GROUP 1
END END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 17 14 "" PROMPT 17 14 ""
FIELD 116@->RAGSOC[31,50] FIELD 116@->RAGSOC[31,50]
GROUP 1 GROUP 1
END 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
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
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 83 14 "" PROMPT 83 14 ""
FIELD 113@->DENCOM FIELD 113@->DENCOM
GROUP 1 GROUP 1
END 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
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "COMUNE DI RES.FISCALE" KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 "" PROMPT 17 16 ""
FIELD 213@->DENCOM FIELD 213@->DENCOM
END 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
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 67 16 "" PROMPT 67 16 ""
FIELD 116@->INDRF FIELD 116@->INDRF
FLAGS "H" FIELD 116@->INDRES
MESSAGE COPY,17 FLAGS "H"
END MESSAGE COPY,17
END
STRINGA 15
BEGIN STRINGA 15
KEY "NUM. CIVICO di RES." BEGIN
PROMPT 103 16 "" KEY "NUM. CIVICO di RES."
FIELD 116@->CIVRF PROMPT 103 16 ""
FLAGS "H" FIELD 116@->CIVRF
MESSAGE APPEND,17 FIELD 116@->CIVRES
END FLAGS "H"
MESSAGE APPEND,17
STRINGA 17 END
BEGIN
KEY "VIA + NUM CIV. DI RES." STRINGA 17
PROMPT 67 16 "" BEGIN
END KEY "VIA + NUM CIV. DI RES."
PROMPT 67 16 ""
STRINGA 16 END
BEGIN
KEY "CAP" STRINGA 16
PROMPT 124 16 "" BEGIN
FIELD 116@->CAPRF KEY "CAP"
END PROMPT 124 16 ""
FIELD 116@->CAPRF
STRINGA 13 FIELD 116@->CAPRES
BEGIN END
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 19 "" STRINGA 13
END BEGIN
KEY "CODICE FISCALE DICHIARANTE"
NUMBER 14 PROMPT 105 19 ""
BEGIN END
KEY "NUM. FOGLIO"
PROMPT 125 21 "" NUMBER 14
FLAGS "H" BEGIN
END KEY "NUM. FOGLIO"
PROMPT 125 21 ""
END FLAGS "H"
END
SECTION BODY ODD 2
END
STRINGA 1
BEGIN SECTION BODY ODD 2
KEY "ENTE PREVIDENZIALE"
PROMPT 8 1 "" STRINGA 1
FIELD 214@->S0 BEGIN
END KEY "ENTE PREVIDENZIALE"
PROMPT 8 1 ""
NUMBER 2 FIELD 214@->S0
BEGIN END
KEY "CONTR.OBB. CARICO DATORE LAVORO"
PROMPT 88 1 "" NUMBER 2
PICTURE "###.###.###^^^" BEGIN
MESSAGE ADD,FL->2 KEY "CONTR.OBB. CARICO DATORE LAVORO"
FIELD 43->H1DAT PROMPT 88 1 ""
END PICTURE "###.###.###^^^"
MESSAGE ADD,FL->2
NUMBER 3 FIELD 43->H1DAT
BEGIN END
KEY "CONTR.OBB. CARICO DIPENDENTE"
PROMPT 119 1 "" NUMBER 3
PICTURE "###.###.###^^^" BEGIN
MESSAGE ADD,FL->3 KEY "CONTR.OBB. CARICO DIPENDENTE"
FIELD 43->H1LAV PROMPT 119 1 ""
END PICTURE "###.###.###^^^"
MESSAGE ADD,FL->3
END FIELD 43->H1LAV
END
SECTION FOOTER LAST 2
END
NUMBER 2
BEGIN SECTION FOOTER LAST 2
KEY "TOTALE CONTR.OBB. DATORE LAVORO"
PROMPT 88 1 "" NUMBER 2
PICTURE "###.###.###^^^" BEGIN
END KEY "TOTALE CONTR.OBB. DATORE LAVORO"
PROMPT 88 1 ""
NUMBER 3 PICTURE "###.###.###^^^"
BEGIN END
KEY "TOTALE CONTR.OBB DIPENDENTE."
PROMPT 119 1 "" NUMBER 3
PICTURE "###.###.###^^^" BEGIN
END KEY "TOTALE CONTR.OBB DIPENDENTE."
PROMPT 119 1 ""
END PICTURE "###.###.###^^^"
END
END

3939
m770/77stq.cpp
View File

File diff suppressed because it is too large Load Diff

7
m770/77stq.h
View File

@ -64,8 +64,9 @@ typedef enum { STARTDOC, STARTDITTA, STARTPAGE, ENDDOC } ModulaserKey;
#define C_RITENUTE 18 #define C_RITENUTE 18
#define C_NETTO 19 #define C_NETTO 19
#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:

115
m770/77stqc.cpp
View File

@ -11,32 +11,56 @@
bool TQuadroC::controlla_percentuale(TCursor& cur, const real& perc_p) bool TQuadroC::controlla_percentuale(TCursor& cur, const real& perc_p)
{ {
bool stampa = TRUE; bool stampa = TRUE;
long ditta_p = cur.curr().get_long(QUC_CODDITTA);
char tipo_p = cur.curr().get_char(QUC_TIPOA);
long codana_p = cur.curr().get_long(QUC_CODANAGR);
TString codcaus_p = cur.curr().get (QUC_CODCAUS);
TString ragsoc_p = get_ragsoc_anagr(tipo_p,codana_p);
if (perc_p == ZERO) if (perc_p == ZERO)
{ {
long ditta_p = cur.curr().get_long(QUC_CODDITTA);
char tipo_p = cur.curr().get_char(QUC_TIPOA);
long codana_p = cur.curr().get_long(QUC_CODANAGR);
TString codcaus_p = cur.curr().get (QUC_CODCAUS);
++(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);
real perc = cur.curr().get_real(QUC_PERC); TString ragsoc = get_ragsoc_anagr(tipo,codana);
real perc = cur.curr().get_real(QUC_PERC);
if (ditta == ditta_p && tipo == tipo_p &&
codana == codana_p && codcaus == codcaus_p) if (ditta == ditta_p && tipo == tipo_p && ragsoc == ragsoc_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)
@ -69,9 +93,15 @@ void TQuadroC::setta_importi(TPrint_section& body)
contssn += _contssn; contssn += _contssn;
somme += _somme; somme += _somme;
imponibile += _imponibile; imponibile += _imponibile;
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);
@ -137,7 +167,8 @@ 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));
@ -190,24 +221,28 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
stampa = controlla_percentuale(cur,perc_p); stampa = controlla_percentuale(cur,perc_p);
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,34 +250,41 @@ 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);
stampa = controlla_percentuale(cur,perc_p); stampa = controlla_percentuale(cur,perc_p);
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))
{ {
@ -253,7 +295,8 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
stampati_totali = TRUE; stampati_totali = TRUE;
} }
next_page(pr); next_page(pr);
elementi = 0; elementi = 0;
ele_bis = 0;
} }
break; break;
default: default: