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

Correzioni varie

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3749 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1996-10-10 16:04:13 +00:00
parent e21cb60d09
commit 4a83b62cf0
13 changed files with 1061 additions and 992 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
m770/772.cpp
View File

@ -3,7 +3,7 @@
#include "770.h" #include "770.h"
#include "772.h" #include "772.h"
#define usage "Error - usage : %s -{0|1|2|3}" #define usage "Error - usage : %s -{0|1|2|3|4}"
int main(int argc,char** argv) int main(int argc,char** argv)
{ {

96
m770/77qaall.uml
View File

@ -1,48 +1,48 @@
// 77qaall.uml - A,A2 - allegati 730 // 77qaall.uml - A,A2 - allegati 730
#include "77qaall.h" #include "77qaall.h"
PAGE "Allegati 730 " -1 -1 60 7 PAGE "Allegati 730 " -1 -1 60 7
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 2 "Il sottoscritto allega n. " PROMPT 2 2 "Il sottoscritto allega n. "
END END
NUMBER QA_NUM_ALL 5 NUMBER QA_NUM_ALL 5
BEGIN BEGIN
PROMPT 28 2 "" PROMPT 28 2 ""
END END
NUMBER QA2_NUM_ALL 5 NUMBER QA2_NUM_ALL 5
BEGIN BEGIN
PROMPT 28 2 "" PROMPT 28 2 ""
END END
TEXT QA2_ANNO_ALL TEXT QA2_ANNO_ALL
BEGIN BEGIN
PROMPT 35 2 "mod.730/95 completi" PROMPT 35 2 "mod.730/95 completi"
END END
TEXT QA_ANNO_ALL TEXT QA_ANNO_ALL
BEGIN BEGIN
PROMPT 35 2 "mod.730/96 completi" PROMPT 35 2 "mod.730/96 completi"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 3 "dei mod.730-3 e un ugual numero di buste mod.730-1" PROMPT 2 3 "dei mod.730-3 e un ugual numero di buste mod.730-1"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

1420
m770/77qbb.uml
View File

File diff suppressed because it is too large Load Diff

2
m770/77qd1.frm
View File

@ -1,5 +1,5 @@
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

174
m770/77qg.frm
View File

@ -35,21 +35,21 @@ SECTION HEADER FIRST 65
STRINGA 1 STRINGA 1
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 4 12 "" PROMPT 4 11 ""
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 11 ""
FIELD 116@->RAGSOC FIELD 116@->RAGSOC
END END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 39 12 "" PROMPT 39 11 ""
FIELD 116@->RAGSOC[1,30] FIELD 116@->RAGSOC[1,30]
GROUP 1 GROUP 1
FLAGS "H" FLAGS "H"
@ -58,7 +58,7 @@ END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 17 14 "" PROMPT 17 13 ""
FIELD 116@->RAGSOC[31,50] FIELD 116@->RAGSOC[31,50]
GROUP 1 GROUP 1
FLAGS "H" FLAGS "H"
@ -67,21 +67,21 @@ END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "COMUNE DI RES." KEY "COMUNE DI RES."
PROMPT 17 14 "" PROMPT 17 13 ""
FIELD 213@->DENCOM FIELD 213@->DENCOM
END END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "PROV DI RES." KEY "PROV DI RES."
PROMPT 58 14 "" PROMPT 58 13 ""
FIELD 213@->PROVCOM FIELD 213@->PROVCOM
END END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 65 14 "" PROMPT 65 13 ""
FIELD 116@->INDRES FIELD 116@->INDRES
GROUP 4 GROUP 4
END END
@ -89,7 +89,7 @@ END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 101 14 "" PROMPT 101 13 ""
FIELD 116@->CIVRES FIELD 116@->CIVRES
GROUP 4 GROUP 4
END END
@ -97,7 +97,7 @@ END
STRINGA 9 STRINGA 9
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 122 14 "" PROMPT 122 13 ""
FIELD 116@->CAPRES FIELD 116@->CAPRES
GROUP 4 GROUP 4
END END
@ -105,7 +105,7 @@ END
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "VIA di RES. RF" KEY "VIA di RES. RF"
PROMPT 65 14 "" PROMPT 65 13 ""
FIELD 116@->INDRF FIELD 116@->INDRF
MESSAGE EMPTY HIDE,5@ MESSAGE EMPTY HIDE,5@
GROUP 5 GROUP 5
@ -114,7 +114,7 @@ END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "NUM. CIVICO di RES. RF" KEY "NUM. CIVICO di RES. RF"
PROMPT 101 14 "" PROMPT 101 13 ""
FIELD 116@->CIVRF FIELD 116@->CIVRF
GROUP 5 GROUP 5
END END
@ -122,7 +122,7 @@ END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 122 14 "" PROMPT 122 13 ""
FIELD 116@->CAPRF FIELD 116@->CAPRF
GROUP 5 GROUP 5
END END
@ -130,20 +130,20 @@ END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "CODICE FISCALE DICHIARANTE" KEY "CODICE FISCALE DICHIARANTE"
PROMPT 118 17 "" PROMPT 118 16 ""
END END
STRINGA 14 STRINGA 14
BEGIN BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 120 18 "" PROMPT 120 17 ""
FLAGS "H" FLAGS "H"
END END
STRINGA 15 STRINGA 15
BEGIN BEGIN
KEY "Prospetto 1 data delib.1" KEY "Prospetto 1 data delib.1"
PROMPT 6 26 "" PROMPT 6 25 ""
FIELD 70->P1DATAD1 FIELD 70->P1DATAD1
GROUP 3 GROUP 3
END END
@ -151,7 +151,7 @@ END
STRINGA 16 STRINGA 16
BEGIN BEGIN
KEY "Titolo 1" KEY "Titolo 1"
PROMPT 20 26 "" PROMPT 20 25 ""
FIELD 70->P1TITOLO1 FIELD 70->P1TITOLO1
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 53 26 "" PROMPT 53 25 ""
FIELD 70->P1DATAP1 FIELD 70->P1DATAP1
GROUP 3 GROUP 3
END END
@ -167,16 +167,16 @@ END
NUMBER 20 NUMBER 20
BEGIN BEGIN
KEY "Amm.1" KEY "Amm.1"
PROMPT 68 26 "" PROMPT 65 25 ""
FIELD 70->P1AMMQ1 FIELD 70->P1AMMQ1
PICTURE "###.###.###.###" PICTURE "###.###.###.###"
GROUP 3 GROUP 3
END END
STRINGA 21 NUMBER 21
BEGIN BEGIN
KEY "Num.az.1" KEY "Num.az.1"
PROMPT 93 26 "" PROMPT 87 25 ""
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 124 26 "" PROMPT 121 25 ""
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 6 28 "" PROMPT 6 27 ""
FIELD 70->P1DATAD2 FIELD 70->P1DATAD2
GROUP 3 GROUP 3
END END
@ -201,7 +201,7 @@ END
STRINGA 24 STRINGA 24
BEGIN BEGIN
KEY "Titolo 2" KEY "Titolo 2"
PROMPT 20 28 "" PROMPT 20 27 ""
FIELD 70->P1TITOLO2 FIELD 70->P1TITOLO2
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 53 28 "" PROMPT 53 27 ""
FIELD 70->P1DATAP2 FIELD 70->P1DATAP2
GROUP 3 GROUP 3
END END
@ -217,16 +217,16 @@ END
NUMBER 26 NUMBER 26
BEGIN BEGIN
KEY "Amm.2" KEY "Amm.2"
PROMPT 68 28 "" PROMPT 65 27 ""
FIELD 70->P1AMMQ2 FIELD 70->P1AMMQ2
PICTURE "###.###.###.###" PICTURE "###.###.###.###"
GROUP 3 GROUP 3
END END
STRINGA 27 NUMBER 27
BEGIN BEGIN
KEY "Num.az.2" KEY "Num.az.2"
PROMPT 93 28 "" PROMPT 87 27 ""
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 124 28 "" PROMPT 121 27 ""
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 6 30 "" PROMPT 6 29 ""
FIELD 70->P1DATAD3 FIELD 70->P1DATAD3
GROUP 3 GROUP 3
END END
@ -251,7 +251,7 @@ END
STRINGA 30 STRINGA 30
BEGIN BEGIN
KEY "Titolo 3" KEY "Titolo 3"
PROMPT 20 30 "" PROMPT 20 29 ""
FIELD 70->P1TITOLO3 FIELD 70->P1TITOLO3
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 53 30 "" PROMPT 53 29 ""
FIELD 70->P1DATAP3 FIELD 70->P1DATAP3
GROUP 3 GROUP 3
END END
@ -267,16 +267,16 @@ END
NUMBER 32 NUMBER 32
BEGIN BEGIN
KEY "Amm.3" KEY "Amm.3"
PROMPT 68 30 "" PROMPT 65 29 ""
FIELD 70->P1AMMQ3 FIELD 70->P1AMMQ3
PICTURE "###.###.###.###" PICTURE "###.###.###.###"
GROUP 3 GROUP 3
END END
STRINGA 33 NUMBER 33
BEGIN BEGIN
KEY "Num.az.3" KEY "Num.az.3"
PROMPT 93 30 "" PROMPT 87 29 ""
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 124 30 "" PROMPT 121 29 ""
FIELD 70->P1AMM3 FIELD 70->P1AMM3
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
GROUP 3 GROUP 3
@ -294,14 +294,14 @@ STRINGA 35
BEGIN BEGIN
KEY "Prospetto 1 data delib.4" KEY "Prospetto 1 data delib.4"
FIELD 70->P1DATAD4 FIELD 70->P1DATAD4
PROMPT 6 32 "" PROMPT 6 31 ""
GROUP 3 GROUP 3
END END
STRINGA 36 STRINGA 36
BEGIN BEGIN
KEY "Titolo 4" KEY "Titolo 4"
PROMPT 20 32 "" PROMPT 20 31 ""
FIELD 70->P1TITOLO4 FIELD 70->P1TITOLO4
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 53 32 "" PROMPT 53 31 ""
FIELD 70->P1DATAP4 FIELD 70->P1DATAP4
GROUP 3 GROUP 3
END END
@ -317,16 +317,16 @@ END
NUMBER 38 NUMBER 38
BEGIN BEGIN
KEY "Amm.4" KEY "Amm.4"
PROMPT 68 32 "" PROMPT 65 31 ""
FIELD 70->P1AMMQ4 FIELD 70->P1AMMQ4
PICTURE "###.###.###.###" PICTURE "###.###.###.###"
GROUP 3 GROUP 3
END END
STRINGA 39 NUMBER 39
BEGIN BEGIN
KEY "Num.az.4" KEY "Num.az.4"
PROMPT 93 32 "" PROMPT 87 31 ""
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 124 32 "" PROMPT 121 31 ""
FIELD 70->P1AMM4 FIELD 70->P1AMM4
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
GROUP 3 GROUP 3
@ -344,49 +344,49 @@ STRING 41
BEGIN BEGIN
KEY "Totale num.az" KEY "Totale num.az"
FIELD 70->P1NUMQT FIELD 70->P1NUMQT
PROMPT 93 34 "" PROMPT 87 33 ""
END END
STRINGA 42 STRINGA 42
BEGIN BEGIN
KEY "Totale amm.compl." KEY "Totale amm.compl."
FIELD 70->P1AMMT FIELD 70->P1AMMT
PROMPT 124 34 "" PROMPT 121 33 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
STRINGA 43 STRINGA 43
BEGIN BEGIN
KEY "Data delibera" KEY "Data delibera"
PROMPT 27 37 "" PROMPT 27 36 ""
FIELD 70->P2DATADE FIELD 70->P2DATADE
END END
STRINGA 44 STRINGA 44
BEGIN BEGIN
KEY "Data distribuzione" KEY "Data distribuzione"
PROMPT 100 37 "" PROMPT 100 36 ""
FIELD 70->P2DATADI FIELD 70->P2DATADI
END END
STRINGA 45 STRINGA 45
BEGIN BEGIN
KEY "DESC.BENI DISTR.1" KEY "DESC.BENI DISTR.1"
PROMPT 4 41 "" PROMPT 4 40 ""
FIELD 70->P2DESC1 FIELD 70->P2DESC1
END END
STRINGA 46 STRINGA 46
BEGIN BEGIN
KEY "DATA 1" KEY "DATA 1"
PROMPT 78 41 "" PROMPT 78 40 ""
FIELD 70->P2DATA1 FIELD 70->P2DATA1
END END
NUMBER 47 NUMBER 47
BEGIN BEGIN
KEY "VALORE ULT. BIL. 1" KEY "VALORE ULT. BIL. 1"
PROMPT 120 41 "" PROMPT 120 40 ""
FIELD 70->P2VAL1 FIELD 70->P2VAL1
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
@ -394,21 +394,21 @@ END
STRINGA 48 STRINGA 48
BEGIN BEGIN
KEY "DESC.BENI DISTR.2" KEY "DESC.BENI DISTR.2"
PROMPT 4 43 "" PROMPT 4 42 ""
FIELD 70->P2DESC2 FIELD 70->P2DESC2
END END
STRINGA 49 STRINGA 49
BEGIN BEGIN
KEY "DATA 2" KEY "DATA 2"
PROMPT 78 43 "" PROMPT 78 42 ""
FIELD 70->P2DATA2 FIELD 70->P2DATA2
END END
NUMBER 50 NUMBER 50
BEGIN BEGIN
KEY "VALORE ULT. BIL. 2" KEY "VALORE ULT. BIL. 2"
PROMPT 120 43 "" PROMPT 120 42 ""
FIELD 70->P2VAL2 FIELD 70->P2VAL2
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
@ -416,21 +416,21 @@ END
STRINGA 51 STRINGA 51
BEGIN BEGIN
KEY "DESC.BENI DISTR.3" KEY "DESC.BENI DISTR.3"
PROMPT 4 45 "" PROMPT 4 44 ""
FIELD 70->P2DESC3 FIELD 70->P2DESC3
END END
STRINGA 52 STRINGA 52
BEGIN BEGIN
KEY "DATA 3" KEY "DATA 3"
PROMPT 78 45 "" PROMPT 78 44 ""
FIELD 70->P2DATA3 FIELD 70->P2DATA3
END END
NUMBER 53 NUMBER 53
BEGIN BEGIN
KEY "VALORE ULT. BIL. 3" KEY "VALORE ULT. BIL. 3"
PROMPT 120 45 "" PROMPT 120 44 ""
FIELD 70->P2VAL3 FIELD 70->P2VAL3
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
@ -438,7 +438,7 @@ END
NUMBER 54 NUMBER 54
BEGIN BEGIN
KEY "TOT.UT.NATURA" KEY "TOT.UT.NATURA"
PROMPT 120 47 "" PROMPT 120 45 ""
FIELD 70->P2VALT FIELD 70->P2VALT
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
@ -446,7 +446,7 @@ END
NUMBER 55 NUMBER 55
BEGIN BEGIN
KEY "IMP.IMPUT.AZ.QUOT" KEY "IMP.IMPUT.AZ.QUOT"
PROMPT 120 49 "" PROMPT 120 47 ""
FIELD 70->P2IMPQ FIELD 70->P2IMPQ
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
@ -454,175 +454,175 @@ END
NUMBER 56 NUMBER 56
BEGIN BEGIN
KEY "P221" KEY "P221"
PROMPT 44 56 "" PROMPT 44 55 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 57 NUMBER 57
BEGIN BEGIN
KEY "P231" KEY "P231"
PROMPT 63 56 "" PROMPT 63 55 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 58 NUMBER 58
BEGIN BEGIN
KEY "P241" KEY "P241"
PROMPT 81 56 "" PROMPT 81 55 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 59 NUMBER 59
BEGIN BEGIN
KEY "P251" KEY "P251"
PROMPT 100 56 "" PROMPT 100 55 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 60 NUMBER 60
BEGIN BEGIN
KEY "P261" KEY "P261"
PROMPT 119 56 "" PROMPT 119 55 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 61 NUMBER 61
BEGIN BEGIN
KEY "P222" KEY "P222"
PROMPT 44 57 "" PROMPT 44 56 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 62 NUMBER 62
BEGIN BEGIN
KEY "P232" KEY "P232"
PROMPT 63 57 "" PROMPT 63 56 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 63 NUMBER 63
BEGIN BEGIN
KEY "P242" KEY "P242"
PROMPT 81 57 "" PROMPT 81 56 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 64 NUMBER 64
BEGIN BEGIN
KEY "P252" KEY "P252"
PROMPT 100 57 "" PROMPT 100 56 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 65 NUMBER 65
BEGIN BEGIN
KEY "P262" KEY "P262"
PROMPT 119 57 "" PROMPT 119 56 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 66 NUMBER 66
BEGIN BEGIN
KEY "P223" KEY "P223"
PROMPT 44 58 "" PROMPT 44 57 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 67 NUMBER 67
BEGIN BEGIN
KEY "P233" KEY "P233"
PROMPT 63 58 "" PROMPT 63 57 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 68 NUMBER 68
BEGIN BEGIN
KEY "P243" KEY "P243"
PROMPT 81 58 "" PROMPT 81 57 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 69 NUMBER 69
BEGIN BEGIN
KEY "P253" KEY "P253"
PROMPT 100 58 "" PROMPT 100 57 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 70 NUMBER 70
BEGIN BEGIN
KEY "P263" KEY "P263"
PROMPT 119 58 "" PROMPT 119 57 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 71 NUMBER 71
BEGIN BEGIN
KEY "P224" KEY "P224"
PROMPT 44 59 "" PROMPT 44 58 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 72 NUMBER 72
BEGIN BEGIN
KEY "P234" KEY "P234"
PROMPT 63 59 "" PROMPT 63 58 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 73 NUMBER 73
BEGIN BEGIN
KEY "P244" KEY "P244"
PROMPT 81 59 "" PROMPT 81 58 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 74 NUMBER 74
BEGIN BEGIN
KEY "P254" KEY "P254"
PROMPT 100 59 "" PROMPT 100 58 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 75 NUMBER 75
BEGIN BEGIN
KEY "P264" KEY "P264"
PROMPT 119 59 "" PROMPT 119 58 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 76 NUMBER 76
BEGIN BEGIN
KEY "P225" KEY "P225"
PROMPT 44 60 "" PROMPT 44 59 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 77 NUMBER 77
BEGIN BEGIN
KEY "P235" KEY "P235"
PROMPT 63 60 "" PROMPT 63 59 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 78 NUMBER 78
BEGIN BEGIN
KEY "P245" KEY "P245"
PROMPT 81 60 "" PROMPT 81 59 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 79 NUMBER 79
BEGIN BEGIN
KEY "P255" KEY "P255"
PROMPT 100 60 "" PROMPT 100 59 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMBER 80 NUMBER 80
BEGIN BEGIN
KEY "P265" KEY "P265"
PROMPT 119 60 "" PROMPT 119 59 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
@ -630,7 +630,7 @@ END
NUMBER 81 NUMBER 81
BEGIN BEGIN
KEY "P22TOT" KEY "P22TOT"
PROMPT 44 61 "" PROMPT 44 60 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
FIELD 70->P22TOT FIELD 70->P22TOT
END END
@ -638,7 +638,7 @@ END
NUMBER 82 NUMBER 82
BEGIN BEGIN
KEY "P23TOT" KEY "P23TOT"
PROMPT 63 61 "" PROMPT 63 60 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
FIELD 70->P23TOT FIELD 70->P23TOT
END END
@ -646,7 +646,7 @@ END
NUMBER 83 NUMBER 83
BEGIN BEGIN
KEY "P24TOT" KEY "P24TOT"
PROMPT 81 61 "" PROMPT 81 60 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
FIELD 70->P24TOT FIELD 70->P24TOT
END END
@ -654,7 +654,7 @@ END
NUMBER 84 NUMBER 84
BEGIN BEGIN
KEY "P25TOT" KEY "P25TOT"
PROMPT 100 61 "" PROMPT 100 60 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
FIELD 70->P25TOT FIELD 70->P25TOT
END END
@ -662,7 +662,7 @@ END
NUMBER 85 NUMBER 85
BEGIN BEGIN
KEY "P26TOT" KEY "P26TOT"
PROMPT 119 61 "" PROMPT 119 60 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
FIELD 70->P26TOT FIELD 70->P26TOT
END END

15
m770/77qgd.frm
View File

@ -1,4 +1,6 @@
USE 101 USE 101
JOIN 9 TO 101 INTO CODDITTA==CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
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 218@ ALIAS 313 INTO COM=COMNASC JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
@ -31,7 +33,7 @@ BEGIN
FI 131 FI 131
END END
SECTION HEADER FIRST 17 SECTION HEADER FIRST 15
STRINGA 13 STRINGA 13
BEGIN BEGIN
@ -142,7 +144,7 @@ BEGIN
KEY "NUMERO QUOTE" KEY "NUMERO QUOTE"
PROMPT 125 5 "" PROMPT 125 5 ""
FIELD 101->NUMQUOTE FIELD 101->NUMQUOTE
PICTURE ".2" PICTURE "###@@"
END END
NUMBER 12 NUMBER 12
@ -244,7 +246,7 @@ BEGIN
KEY "NUMERO QUOTE" KEY "NUMERO QUOTE"
PROMPT 128 3 "" PROMPT 128 3 ""
FIELD 101->NUMQUOTE FIELD 101->NUMQUOTE
PICTURE ".2" PICTURE "###@@"
END END
NUMBER 12 NUMBER 12
@ -347,4 +349,11 @@ BEGIN
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
STRINGA 16
BEGIN
KEY "FIRMA"
PROMPT 83 13 ""
FIELD 106@->RAGSOC
END
END END

38
m770/77ql.frm
View File

@ -25,6 +25,12 @@ END
SECTION HEADER FIRST 10 SECTION HEADER FIRST 10
NUMERO 18
BEGIN
KEY "NUMERO FOGLIO"
PROMPT 128 1 ""
END
LISTA 1 LISTA 1
BEGIN BEGIN
KEY "Tipo anagrafica" KEY "Tipo anagrafica"
@ -37,14 +43,14 @@ END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 21 1 "" PROMPT 21 5 ""
FIELD 106@->COFI FIELD 106@->COFI
END END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "RAGIONE SOCIALE (o cognome)" KEY "RAGIONE SOCIALE (o cognome)"
PROMPT 51 1 "" PROMPT 51 5 ""
GROUP 2 GROUP 2
FIELD 106@->RAGSOC FIELD 106@->RAGSOC
END END
@ -52,7 +58,7 @@ END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "COGNOME (o ragsoc)" KEY "COGNOME (o ragsoc)"
PROMPT 51 1 "" PROMPT 51 5 ""
GROUP 1 GROUP 1
FIELD 106@->RAGSOC[1,30] FIELD 106@->RAGSOC[1,30]
END END
@ -60,7 +66,7 @@ END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 21 4 "" PROMPT 21 8 ""
GROUP 1 GROUP 1
FIELD 106@->RAGSOC[31,50] FIELD 106@->RAGSOC[31,50]
END END
@ -68,7 +74,7 @@ END
LISTA 6 LISTA 6
BEGIN BEGIN
KEY "SESSO M" KEY "SESSO M"
PROMPT 53 4 "" PROMPT 53 8 ""
ITEM " | " ITEM " | "
ITEM "M|X" ITEM "M|X"
ITEM "F|" ITEM "F|"
@ -79,7 +85,7 @@ END
LISTA 7 LISTA 7
BEGIN BEGIN
KEY "SESSO F" KEY "SESSO F"
PROMPT 62 4 "" PROMPT 62 8 ""
ITEM " | " ITEM " | "
ITEM "M|" ITEM "M|"
ITEM "F|X" ITEM "F|X"
@ -90,7 +96,7 @@ END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 68 4 "" PROMPT 68 8 ""
GROUP 1 GROUP 1
FIELD 108@->DATANASC FIELD 108@->DATANASC
PICTURE "## ^ ## ^^###" PICTURE "## ^ ## ^^###"
@ -99,7 +105,7 @@ END
STRINGA 9 STRINGA 9
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 85 4 "" PROMPT 85 8 ""
GROUP 1 GROUP 1
FIELD 113@->DENCOM FIELD 113@->DENCOM
END END
@ -107,7 +113,7 @@ END
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 129 4 "" PROMPT 129 8 ""
GROUP 1 GROUP 1
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
END END
@ -115,48 +121,48 @@ END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 56 6 "" PROMPT 56 10 ""
END END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "Cod.Conc.1" KEY "Cod.Conc.1"
PROMPT 41 9 "" PROMPT 41 13 ""
FIELD 37->L0CCONC1 FIELD 37->L0CCONC1
END END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "Cod.Conc.2" KEY "Cod.Conc.2"
PROMPT 53 9 "" PROMPT 53 13 ""
FIELD 37->L0CCONC2 FIELD 37->L0CCONC2
END END
STRINGA 14 STRINGA 14
BEGIN BEGIN
KEY "Cod.Conc.3" KEY "Cod.Conc.3"
PROMPT 63 9 "" PROMPT 63 13 ""
FIELD 37->L0CCONC3 FIELD 37->L0CCONC3
END END
NUMERO 15 NUMERO 15
BEGIN BEGIN
KEY "Cod.Tes.1" KEY "Cod.Tes.1"
PROMPT 102 9 "" PROMPT 102 13 ""
FIELD 37->L0CTES1 FIELD 37->L0CTES1
END END
NUMERO 16 NUMERO 16
BEGIN BEGIN
KEY "Cod.Tes.2" KEY "Cod.Tes.2"
PROMPT 114 9 "" PROMPT 114 13 ""
FIELD 37->L0CTES2 FIELD 37->L0CTES2
END END
NUMERO 17 NUMERO 17
BEGIN BEGIN
KEY "Cod.Tes.3" KEY "Cod.Tes.3"
PROMPT 126 9 "" PROMPT 126 13 ""
FIELD 37->L0CTES3 FIELD 37->L0CTES3
END END

26
m770/77qn.frm
View File

@ -42,6 +42,12 @@ END
SECTION HEADER FIRST 7 SECTION HEADER FIRST 7
NUMERO 12
BEGIN
KEY "NUMERO FOGLIO"
PROMPT 128 1 ""
END
LISTA 1 LISTA 1
BEGIN BEGIN
KEY "Tipo anagrafica" KEY "Tipo anagrafica"
@ -54,14 +60,14 @@ END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 21 1 "" PROMPT 21 5 ""
FIELD 106@->COFI FIELD 106@->COFI
END END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "RAGIONE SOCIALE (o cognome)" KEY "RAGIONE SOCIALE (o cognome)"
PROMPT 51 1 "" PROMPT 51 5 ""
GROUP 2 GROUP 2
FIELD 106@->RAGSOC FIELD 106@->RAGSOC
END END
@ -69,7 +75,7 @@ END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "COGNOME (o ragsoc)" KEY "COGNOME (o ragsoc)"
PROMPT 51 1 "" PROMPT 51 5 ""
GROUP 1 GROUP 1
FIELD 106@->RAGSOC[1,30] FIELD 106@->RAGSOC[1,30]
END END
@ -77,7 +83,7 @@ END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 21 4 "" PROMPT 21 8 ""
GROUP 1 GROUP 1
FIELD 106@->RAGSOC[31,50] FIELD 106@->RAGSOC[31,50]
END END
@ -85,7 +91,7 @@ END
LISTA 6 LISTA 6
BEGIN BEGIN
KEY "SESSO M" KEY "SESSO M"
PROMPT 53 4 "" PROMPT 53 8 ""
ITEM " | " ITEM " | "
ITEM "M|X" ITEM "M|X"
ITEM "F|" ITEM "F|"
@ -96,7 +102,7 @@ END
LISTA 7 LISTA 7
BEGIN BEGIN
KEY "SESSO F" KEY "SESSO F"
PROMPT 62 4 "" PROMPT 62 8 ""
ITEM " | " ITEM " | "
ITEM "M|" ITEM "M|"
ITEM "F|X" ITEM "F|X"
@ -107,7 +113,7 @@ END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 68 4 "" PROMPT 68 8 ""
GROUP 1 GROUP 1
FIELD 108@->DATANASC FIELD 108@->DATANASC
PICTURE "## ^ ## ^^###" PICTURE "## ^ ## ^^###"
@ -116,7 +122,7 @@ END
STRINGA 9 STRINGA 9
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 85 4 "" PROMPT 85 8 ""
GROUP 1 GROUP 1
FIELD 113@->DENCOM FIELD 113@->DENCOM
END END
@ -124,7 +130,7 @@ END
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 129 4 "" PROMPT 129 8 ""
GROUP 1 GROUP 1
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
END END
@ -132,7 +138,7 @@ END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 56 6 "" PROMPT 56 10 ""
END END
END END

110
m770/77stba.cpp
View File

@ -110,13 +110,17 @@ void TBase1::stampa_soci(TPrinter& pr)
sComuneNa=c->file(LF_COMUNI).get("DENCOM"); sComuneNa=c->file(LF_COMUNI).get("DENCOM");
sComuneNa.cut(28); sComuneNa.cut(28);
sProvNa=c->file(LF_COMUNI).get("PROVCOM"); sProvNa=c->file(LF_COMUNI).get("PROVCOM");
fut.field(0).set(sRagsoc); // fut.field(0).set(sRagsoc);
sCognome=sRagsoc.left(30); sRagsoc:=fut.field(0).get();
sCognome.trim(); if (sRagsoc.len() > 30 && sRagsoc[30] != ' ')
sNome=sRagsoc.mid(30,0); {
sNome.trim(); sCognome=sRagsoc.left(30);
sRagsoc = sCognome; sCognome.trim();
sRagsoc << " " << sNome; sNome=sRagsoc.mid(30,0);
sNome.trim();
sRagsoc = sCognome;
sRagsoc << " " << sNome;
}
rg.put(sRagsoc,fut.field(0).x()-1); rg.put(sRagsoc,fut.field(0).x()-1);
fut.field(1).set(sSesso); fut.field(1).set(sSesso);
rg.put(sSesso,fut.field(1).x()-1); rg.put(sSesso,fut.field(1).x()-1);
@ -572,7 +576,8 @@ void TBase4::stampa_Q(TPrinter& pr)
TPrint_section& body = section('F', even_page); TPrint_section& body = section('F', even_page);
body.reset(); body.reset();
TLocalisamfile qp(LF_QUAQ); TLocalisamfile qp(LF_QUAQ);
_righeQT.fill(_codditta,qp); _righeQT.fill(_codditta,qp);
if (_righeQT.items()==0) return;
_bAggQ = _righeQT.items() > _RIGHE_Q; _bAggQ = _righeQT.items() > _RIGHE_Q;
int riga=0; int riga=0;
@ -600,6 +605,7 @@ void TBase4::stampa_T(TPrinter& pr)
body.reset(); body.reset();
TLocalisamfile qp(LF_QUAT); TLocalisamfile qp(LF_QUAT);
_righeQT.fill(_codditta,qp); _righeQT.fill(_codditta,qp);
if (_righeQT.items()==0) return;
_bAggT = _righeQT.items() > _RIGHE_T; _bAggT = _righeQT.items() > _RIGHE_T;
int riga=0; int riga=0;
@ -662,7 +668,8 @@ void TBase4::stampa_P(TPrinter& pr)
TPrint_section& body = section('H', even_page); TPrint_section& body = section('H', even_page);
body.reset(); body.reset();
TLocalisamfile qp(LF_QUAP); TLocalisamfile qp(LF_QUAP);
_righePS.fill(_codditta,qp); _righePS.fill(_codditta,qp);
if (_righePS.items()==0) return;
const int items=_righePS.items(); const int items=_righePS.items();
_bAggP = items > _RIGHE_P; _bAggP = items > _RIGHE_P;
@ -690,7 +697,8 @@ void TBase4::stampa_S(TPrinter& pr)
TPrint_section& body = section('H', even_page); TPrint_section& body = section('H', even_page);
body.reset(); body.reset();
TLocalisamfile qp(LF_QUAS); TLocalisamfile qp(LF_QUAS);
_righePS.fill(_codditta,qp); _righePS.fill(_codditta,qp);
if (_righePS.items()==0) return;
_bAggS = _righePS.items() > _RIGHE_S; _bAggS = _righePS.items() > _RIGHE_S;
int riga=0; int riga=0;
@ -717,7 +725,8 @@ void TBase4::stampa_R(TPrinter& pr)
TPrint_section& body = section('B', even_page); TPrint_section& body = section('B', even_page);
body.reset(); body.reset();
TLocalisamfile qr(LF_QUAR); TLocalisamfile qr(LF_QUAR);
_righeNR.fill(_codditta,qr); _righeNR.fill(_codditta,qr);
if (_righeNR.items()==0) return;
const int items=_righeNR.items(); const int items=_righeNR.items();
// se iRigheNR > 2 => bisogna stampare anche l'allegato // se iRigheNR > 2 => bisogna stampare anche l'allegato
_bAggR = items > _RIGHE_R; _bAggR = items > _RIGHE_R;
@ -788,7 +797,8 @@ void TBase4::stampa_N(TPrinter& pr)
TPrint_section& body = section('B', odd_page); TPrint_section& body = section('B', odd_page);
body.reset(); body.reset();
TLocalisamfile qn(LF_QUAN); TLocalisamfile qn(LF_QUAN);
_righeNR.fill(_codditta,qn); _righeNR.fill(_codditta,qn);
if (_righeNR.items()==0) return;
// se iRigheN > 6 => bisogna stampare anche l'allegato // se iRigheN > 6 => bisogna stampare anche l'allegato
_bAggN = _righeNR.items() > _RIGHE_N; _bAggN = _righeNR.items() > _RIGHE_N;
@ -956,9 +966,9 @@ int TQuadroL::prima_riga(PaginaQuadro p) const
if (p==PRIMA) if (p==PRIMA)
{ {
if (_PaginaPosizionamento) if (_PaginaPosizionamento)
return 8; return 4;
else else
return 8+HEADER_PRIMA_NOPOS; return 4+HEADER_PRIMA_NOPOS;
} }
else else
return 4; return 4;
@ -975,11 +985,16 @@ long TQuadroL::filtra(const long codditta)
return items; return items;
} }
void TQuadroL::stampa_testata(TPrinter& pr) void TQuadroL::stampa_testata(TPrinter& pr)
{ {
TPrint_section& hh = section('H', first_page); TPrint_section& hh = section('H', first_page);
hh.reset(); hh.reset();
TForm_item& nf=hh.find_field(18);
TString fstr(10); fstr << _num_foglio;
nf.set(fstr);
_num_foglio++;
hh.update(); hh.update();
const int hhr = hh.height(); const int hhr = hh.height();
for (int i = 0; i < hhr; i++) for (int i = 0; i < hhr; i++)
@ -1054,6 +1069,10 @@ bool TQuadroL::print(const long codditta, const long NumFis, const long NumNoFis
if (!InitPrint(codditta)) if (!InitPrint(codditta))
return FALSE; return FALSE;
// Non stampare se non ci sono record
if (cur->items() < _START_AGG_L-1)
return FALSE;
// Legge dai par.studio l'ordinamento da usare per L // Legge dai par.studio l'ordinamento da usare per L
TConfig conf(CONFIG_STUDIO); TConfig conf(CONFIG_STUDIO);
const int iChiaveL = (int)conf.get_long("FlStQl", "77"); const int iChiaveL = (int)conf.get_long("FlStQl", "77");
@ -1122,6 +1141,12 @@ void TQuadroN::stampa_testata(TPrinter& pr)
{ {
TPrint_section& hh = section('H', first_page); TPrint_section& hh = section('H', first_page);
hh.reset(); hh.reset();
TForm_item& nf=hh.find_field(12);
TString fstr(10); fstr << _num_foglio;
nf.set(fstr);
_num_foglio++;
hh.update(); hh.update();
const int hhr = hh.height(); const int hhr = hh.height();
for (int i = 0; i < hhr; i++) for (int i = 0; i < hhr; i++)
@ -1136,9 +1161,9 @@ void TQuadroN::stampa_testata(TPrinter& pr)
int TQuadroN::prima_riga(PaginaQuadro p) const int TQuadroN::prima_riga(PaginaQuadro p) const
{ {
if (_PaginaPosizionamento) if (_PaginaPosizionamento)
return 8; return 4;
else else
return 8+HEADER_PRIMA_NOPOS; return 4+HEADER_PRIMA_NOPOS;
} }
/*void TBase4::fill_riga_QT(TPrint_section& sec,const int num) /*void TBase4::fill_riga_QT(TPrint_section& sec,const int num)
@ -1212,8 +1237,8 @@ void TQuadroN::stampa_N(TPrinter& pr)
{ {
TPrint_section& body = section('B', odd_page); TPrint_section& body = section('B', odd_page);
body.reset(); body.reset();
TLocalisamfile qn(LF_QUAN); // TLocalisamfile qn(LF_QUAN);
_righeNR.fill(_codditta,qn); // _righeNR.fill(_codditta,qn);
// Nell'aggiuntivo parto dal record n.7 // Nell'aggiuntivo parto dal record n.7
int num=6; int num=6;
int riga=0; int riga=0;
@ -1240,8 +1265,8 @@ void TQuadroN::stampa_P(TPrinter& pr)
{ {
TPrint_section& body = section('H', even_page); TPrint_section& body = section('H', even_page);
body.reset(); body.reset();
TLocalisamfile qp(LF_QUAP); // TLocalisamfile qp(LF_QUAP);
_righePS.fill(_codditta,qp); // _righePS.fill(_codditta,qp);
const int items=_righePS.items(); const int items=_righePS.items();
// Parte da rec.n.5 // Parte da rec.n.5
int riga=4; int riga=4;
@ -1265,8 +1290,8 @@ void TQuadroN::stampa_Q(TPrinter& pr)
{ {
TPrint_section& body = section('F', even_page); TPrint_section& body = section('F', even_page);
body.reset(); body.reset();
TLocalisamfile qp(LF_QUAQ); // TLocalisamfile qp(LF_QUAQ);
_righeQT.fill(_codditta,qp); // _righeQT.fill(_codditta,qp);
// parte da rec.n.5 // parte da rec.n.5
int riga=4; int riga=4;
bool FinitaSezione=FALSE; bool FinitaSezione=FALSE;
@ -1291,8 +1316,8 @@ void TQuadroN::stampa_R(TPrinter& pr)
{ {
TPrint_section& body = section('B', even_page); TPrint_section& body = section('B', even_page);
body.reset(); body.reset();
TLocalisamfile qr(LF_QUAR); // TLocalisamfile qr(LF_QUAR);
_righeNR.fill(_codditta,qr); // _righeNR.fill(_codditta,qr);
const int items=_righeNR.items(); const int items=_righeNR.items();
int RecNum=2; int RecNum=2;
int RigheStampate=0; int RigheStampate=0;
@ -1318,8 +1343,8 @@ void TQuadroN::stampa_S(TPrinter& pr)
{ {
TPrint_section& body = section('H', even_page); TPrint_section& body = section('H', even_page);
body.reset(); body.reset();
TLocalisamfile qp(LF_QUAS); // TLocalisamfile qp(LF_QUAS);
_righePS.fill(_codditta,qp); // _righePS.fill(_codditta,qp);
int riga=4; int riga=4;
bool FinitaSezione=FALSE; bool FinitaSezione=FALSE;
@ -1342,8 +1367,8 @@ void TQuadroN::stampa_T(TPrinter& pr)
{ {
TPrint_section& body = section('F', odd_page); TPrint_section& body = section('F', odd_page);
body.reset(); body.reset();
TLocalisamfile qp(LF_QUAT); // TLocalisamfile qp(LF_QUAT);
_righeQT.fill(_codditta,qp); // _righeQT.fill(_codditta,qp);
int riga=4; int riga=4;
bool FinitaSezione=FALSE; bool FinitaSezione=FALSE;
while (!FinitaSezione) while (!FinitaSezione)
@ -1406,9 +1431,34 @@ bool TQuadroN::print(const long codditta, const long NumFis, const long NumNoFis
_codditta=codditta; _codditta=codditta;
if (!InitPrint(codditta)) if (!InitPrint(codditta))
return FALSE; return FALSE;
TLocalisamfile qn(LF_QUAN);
_righeNR.fill(_codditta,qn);
bool stampoN=_righeNR.items() > 6;
TLocalisamfile qp(LF_QUAP);
_righePS.fill(_codditta,qp);
bool stampoP=_righePS.items() > 4;
TLocalisamfile qq(LF_QUAQ);
_righeQT.fill(_codditta,qq);
bool stampoQ=_righeQT.items() > 4;
TLocalisamfile qr(LF_QUAR);
_righeNR.fill(_codditta,qr);
bool stampoR=_righeNR.items() > 2;
TLocalisamfile qs(LF_QUAS);
_righePS.fill(_codditta,qs);
bool stampoS=_righePS.items() > 4;
TLocalisamfile qt(LF_QUAT);
_righeQT.fill(_codditta,qt);
bool stampoT=_righeQT.items() > 4;
// Se non c'e' niente da stampare esce
if (!stampoN && !stampoP && !stampoQ && !stampoR && !stampoS
&& !stampoT)
return FALSE;
pr.formlen(TDicForm::dic_form_len()); pr.formlen(TDicForm::dic_form_len());
_RigaCorr=0; _RigaCorr=0;
(*cur)=0L; (*cur)=0L;
bool done=FALSE; bool done=FALSE;
while (!done) while (!done)
{ {

9
m770/77stba.h
View File

@ -248,6 +248,7 @@ class TQuadroL : public TDicForm
private: private:
long _codditta; long _codditta;
real _rRitEff, _rRitVer; real _rRitEff, _rRitVer;
int _num_foglio;
protected: protected:
void stampa_testata(TPrinter& pr); void stampa_testata(TPrinter& pr);
void stampa_totali_L(TPrinter& pr); void stampa_totali_L(TPrinter& pr);
@ -259,7 +260,7 @@ class TQuadroL : public TDicForm
void CalcolaTotalePrecedenti(TCursor* cur, const int _START_AGG_L); void CalcolaTotalePrecedenti(TCursor* cur, const int _START_AGG_L);
public: public:
virtual bool print(const long codditta, const long NumFis, const long NumNoFis); virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TQuadroL(const char* sNomeForm, const char* quadro) : _rRitEff(ZERO),_rRitVer(ZERO),TDicForm(sNomeForm, quadro) {} TQuadroL(const char* sNomeForm, const char* quadro) : _rRitEff(ZERO),_rRitVer(ZERO),TDicForm(sNomeForm, quadro) {_num_foglio=0;}
virtual ~TQuadroL() {} virtual ~TQuadroL() {}
}; };
@ -281,6 +282,7 @@ class TStampaQuadroAggL : public TStampaQuadro
class TQuadroN : public TBase4 class TQuadroN : public TBase4
{ {
long _codditta; long _codditta;
int _num_foglio;
public: public:
void stampa_fine(TPrinter& pr); void stampa_fine(TPrinter& pr);
void stampa_N(TPrinter& pr); void stampa_N(TPrinter& pr);
@ -290,9 +292,10 @@ class TQuadroN : public TBase4
void stampa_S(TPrinter& pr); void stampa_S(TPrinter& pr);
void stampa_T(TPrinter& pr); void stampa_T(TPrinter& pr);
void stampa_testata(TPrinter& pr); void stampa_testata(TPrinter& pr);
virtual int prima_riga(PaginaQuadro p) const; virtual int prima_riga(PaginaQuadro p) const;
virtual void next_page(TPrinter& pr) { fill_page(pr, -1); }
virtual bool print(const long codditta, const long NumFis, const long NumNoFis); virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TQuadroN(const char* sNomeForm, const char* quadro) : TBase4(sNomeForm, quadro) { _IdFirma=2; } TQuadroN(const char* sNomeForm, const char* quadro) : TBase4(sNomeForm, quadro) { _IdFirma=2; _num_foglio=0;}
virtual ~TQuadroN() {} virtual ~TQuadroN() {}
}; };

155
m770/77stq.cpp
View File

@ -723,7 +723,7 @@ void TDicForm::posiziona()
HIDDEN const int QG_FORMLEN = 72; HIDDEN const int QG_FORMLEN = 72;
HIDDEN const int QG_PAGINE = 2; HIDDEN const int QG_PAGINE = 2;
HIDDEN const int HEADER_SECONDA_G = 7; HIDDEN const int HEADER_SECONDA_G = 8;
class TQuadroG : public TDicForm class TQuadroG : public TDicForm
{ {
@ -849,11 +849,8 @@ void TQuadroG::stampa_prospetti1_2(TPrinter& pr)
if (!PaginaPosizionamento()) if (!PaginaPosizionamento())
fill_page(pr, HEADER_PRIMA_NOPOS); fill_page(pr, HEADER_PRIMA_NOPOS);
} }
else
{
pr.print(head.row(j)); pr.print(head.row(j));
_RigaCorr++; _RigaCorr++;
}
} }
// fill_page(pr, -1); // formfeed "adattato" // fill_page(pr, -1); // formfeed "adattato"
// inc_curr_page(); // inc_curr_page();
@ -875,7 +872,15 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
TToken_string p35b(r.get("P35B")); TToken_string p35b(r.get("P35B"));
TToken_string p36a(r.get("P36A")); TToken_string p36a(r.get("P36A"));
TToken_string p36b(r.get("P36B")); TToken_string p36b(r.get("P36B"));
TString dep1,dep2,dep3,dep4;
// Stabilisce se ci vuole l'aggiuntivo
dep1=p35a.get(6);
dep2=p35a.get(10);
dep3=p35a.get(13);
dep4=p35a.get(16);
bool bAggiuntivo=!dep1.blank() || !dep2.blank() || !dep3.blank() || !dep4.blank();
// colonna 2 e 7 // colonna 2 e 7
int k = 1; int k = 1;
real tot2,tot7,tot_tot2,tot_tot7; real tot2,tot7,tot_tot2,tot_tot7;
@ -905,14 +910,18 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
k++; k++;
tot2 = ZERO; tot2 = ZERO;
tot7 = ZERO; tot7 = ZERO;
if (i == 18) // Stampa totali
{ TForm_item& t2 = sez.find_field(k);
TForm_item& t2 = sez.find_field(k); if (!bAggiuntivo)
TForm_item& t7 = sez.find_field(k+54); {
if (i == 18)
t2.set(tot_tot2.string()); {
t7.set(tot_tot7.string()); TForm_item& t7 = sez.find_field(k+54);
} t2.set(tot_tot2.string());
t7.set(tot_tot7.string());
}
}
else t2.set("VEDI ALLEGATO");
} }
} }
@ -923,7 +932,8 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
int c3=0; int c3=0;
real totale = ZERO; real totale = ZERO;
for (i = 0, k = 0; i < RIGHE_P3; i++) for (i = 0, k = 0; i < RIGHE_P3; i++)
{ {
// Salta le righe dell'aggiuntivo
if (i == 6 || i == 10 || i == 13 || i ==16 || i == 19) continue; if (i == 6 || i == 10 || i == 13 || i ==16 || i == 19) continue;
c3 = START_P3_COL3 + k; c3 = START_P3_COL3 + k;
@ -932,7 +942,7 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
if (i != 20) if (i != 20)
c5a.set(importo.string()); c5a.set(importo.string());
else else
c5a.set(totale.string()); if (!bAggiuntivo) c5a.set(totale.string());
totale += importo; totale += importo;
k++; k++;
} }
@ -951,7 +961,7 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
if (i != 20) if (i != 20)
c5a.set(importo.string()); c5a.set(importo.string());
else else
c5a.set(totale.string()); if (!bAggiuntivo) c5a.set(totale.string());
totale += importo; totale += importo;
k++; k++;
} }
@ -970,7 +980,7 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
if (i != 20) if (i != 20)
c6a.set(importo.string()); c6a.set(importo.string());
else else
c6a.set(totale.string()); if (!bAggiuntivo) c6a.set(totale.string());
totale += importo; totale += importo;
k++; k++;
} }
@ -1013,12 +1023,15 @@ bool TQuadroG::print(const long codditta, const long NumFis, const long NumNoFis
for (int pagina=1; pagina <= QG_PAGINE; pagina++, next_page(pr)) for (int pagina=1; pagina <= QG_PAGINE; pagina++, next_page(pr))
{ {
pr.formlen(QG_FORMLEN); pr.formlen(dic_form_len());
if (_PaginaCorrente == PRIMA) if (_PaginaCorrente == PRIMA)
{ {
if (!_PaginaPosizionamento)
fill_page(pr,HEADER_PRIMA_NOPOS);
if (_modulaser) ClearFlagModulaser(); if (_modulaser) ClearFlagModulaser();
(*cur) = PtrFis >= 0L ? PtrFis : 0L; (*cur) = PtrFis >= 0L ? PtrFis : 0L;
stampa_prospetti1_2(pr); stampa_prospetti1_2(pr);
} }
@ -1027,7 +1040,7 @@ bool TQuadroG::print(const long codditta, const long NumFis, const long NumNoFis
{ {
// Reset del flag di pagina con posiz. // Reset del flag di pagina con posiz.
if (_posiziona && _PaginaPosizionamento) _PaginaPosizionamento = FALSE; if (_posiziona && _PaginaPosizionamento) _PaginaPosizionamento = FALSE;
pr.formlen(dic_form_len());
fill_page(pr, HEADER_SECONDA_G); fill_page(pr, HEADER_SECONDA_G);
stampa_prospetti3_4(pr); stampa_prospetti3_4(pr);
} }
@ -1044,7 +1057,6 @@ bool TQuadroG::print(const long codditta, const long NumFis, const long NumNoFis
HIDDEN const int QGD_FORMLEN = 72; HIDDEN const int QGD_FORMLEN = 72;
HIDDEN const int QGD_PAGINE = 2; HIDDEN const int QGD_PAGINE = 2;
HIDDEN const int HEADER_PRIMA_GD = 17;
HIDDEN const int HEADER_SECONDA_GD = 15; HIDDEN const int HEADER_SECONDA_GD = 15;
HIDDEN const int QGD_RIGHE_PRIMA = 5; HIDDEN const int QGD_RIGHE_PRIMA = 5;
HIDDEN const int QGD_RIGHE_SECONDA = 6; HIDDEN const int QGD_RIGHE_SECONDA = 6;
@ -1055,16 +1067,32 @@ class TDistintaG : public TQuadroG
virtual void stampa_totali(TPrinter& pr); virtual void stampa_totali(TPrinter& pr);
virtual void next_page(TPrinter& pr); virtual void next_page(TPrinter& pr);
virtual void set_body(TPrinter& pr, const char tipo); virtual void set_body(TPrinter& pr, const char tipo);
int calcola_firma();
// void stampa_testata(TPrinter& pr);
public: public:
virtual bool print(const long codditta, const long NumFis, const long NumNoFis); virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TDistintaG(const char* form, const char* quadro) : TQuadroG(form,quadro) {} TDistintaG(const char* form, const char* quadro) : TQuadroG(form,quadro) {}
virtual ~TDistintaG() {} virtual ~TDistintaG() {}
}; };
int TDistintaG::calcola_firma()
{
TPrint_section& totali = section('F', even_page);
TForm_item& signature = totali.find_field(16);
const int y = signature.y();
TString spazi(50); spazi.fill(' ');
TString cognome = signature.get();
if (cognome.len() > 30 && cognome[29] == ' ')
{
TString nome = cognome.mid(30, -1);
cognome.cut(30); cognome.trim();
cognome << ' ' << nome;
signature.set(cognome);
}
totali.row(y-1).put(spazi, signature.x()-1);
totali.row(y-1).put(cognome, signature.x()-1);
return y;
}
void TDistintaG::stampa_totali(TPrinter& pr) void TDistintaG::stampa_totali(TPrinter& pr)
{ {
PaginaQuadro PagCorr = curr_page(); PaginaQuadro PagCorr = curr_page();
@ -1083,6 +1111,7 @@ void TDistintaG::stampa_totali(TPrinter& pr)
{ {
TPrint_section& totali = section('F', even_page); TPrint_section& totali = section('F', even_page);
totali.update(); totali.update();
const int lasty = calcola_firma();
for (int i = 0; i < totali.items(); i++) for (int i = 0; i < totali.items(); i++)
{ {
pr.print(totali.row(i)); pr.print(totali.row(i));
@ -1196,9 +1225,11 @@ bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoF
stampa_testata(pr); stampa_testata(pr);
} }
_EndPrintDitta=_finite_fis && _finite_nofis;
if (_finite_fis || StabilitaInesistenzaFis) if (_finite_fis || StabilitaInesistenzaFis)
break; break;
// La prima volta si deve posizionare sul primo record di p.f. // La prima volta si deve posizionare sul primo record di p.f.
if (PtrFis<0L && !StabilitaInesistenzaFis) if (PtrFis<0L && !StabilitaInesistenzaFis)
{ {
@ -1289,7 +1320,10 @@ bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoF
} }
StabilitaInesistenzaNoFis = !Trovato; StabilitaInesistenzaNoFis = !Trovato;
} }
// Gestisce i casi in cui non ci sono percipienti nella distinta..
if (items==0) _EndPrintDitta=TRUE;
if (StabilitaInesistenzaNoFis) if (StabilitaInesistenzaNoFis)
break; break;
@ -2674,14 +2708,11 @@ class TStampaQuadroD1 : public TStampaQuadro
{ {
TQuadroD1* _form; TQuadroD1* _form;
TCursor* _cur; TCursor* _cur;
protected:
protected:
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
virtual TDicForm* get_form() const { return _form; } virtual TDicForm* get_form() const { return _form; }
virtual TCursor* get_cursor() const { return _cur; } virtual TCursor* get_cursor() const { return _cur; }
public: public:
TStampaQuadroD1(const char* quadro, char livel); TStampaQuadroD1(const char* quadro, char livel);
virtual ~TStampaQuadroD1() { } virtual ~TStampaQuadroD1() { }
@ -2689,17 +2720,14 @@ protected:
TStampaQuadroD1::TStampaQuadroD1(const char* quadro, char liv) TStampaQuadroD1::TStampaQuadroD1(const char* quadro, char liv)
: TStampaQuadro(quadro, liv) : TStampaQuadro(quadro, liv)
{ {}
}
bool TStampaQuadroD1::user_create() bool TStampaQuadroD1::user_create()
{ {
_form = new TQuadroD1("77QD1", quadro()); _form = new TQuadroD1("77QD1", quadro());
TString sortkey(80); TString sortkey(80);
sortkey.format("CODDITTA|TIPOA|216@->RAGSOC|CODANAGR|CODCAUS|PERC", LF_QUAD1, LF_QUAD1); sortkey.format("CODDITTA|TIPOA|216@->RAGSOC|CODANAGR|CODCAUS|PERC", LF_QUAD1, LF_QUAD1);
_cur = new TSorted_cursor(_form->TForm::relation(), sortkey); _cur = new TSorted_cursor(_form->TForm::relation(), sortkey);
return TRUE; return TRUE;
} }
@ -2707,7 +2735,6 @@ bool TStampaQuadroD1::user_destroy()
{ {
delete _form; delete _form;
delete _cur; delete _cur;
return TRUE; return TRUE;
} }
@ -2718,54 +2745,29 @@ bool TStampaQuadroD1::user_destroy()
///////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////
class TStampaQuadroG : public TStampaQuadro class TStampaQuadroG : public TStampaQuadro
{ {
private: private:
TQuadroG* _form_g; TQuadroG* _form_g;
TDistintaG* _form_gd; TDistintaG* _form_gd;
// TRelation* _rel_g, * _rel_gd; TCursor* _cur_g, * _cur_gd;
TCursor* _cur_g, * _cur_gd; protected:
virtual bool user_create();
protected: virtual bool user_destroy();
virtual bool user_create(); virtual TDicForm* get_form() const { return _form_g; }
virtual bool user_destroy(); virtual TCursor* get_cursor() const { return _cur_g; }
virtual bool print_quadro(const int OffsetDitta, const bool modulaser);
virtual TDicForm* get_form() const { return _form_g; } public:
virtual TCursor* get_cursor() const { return _cur_g; } TStampaQuadroG(char livel) : TStampaQuadro("G", livel) { }
virtual bool print_quadro(const int OffsetDitta, const bool modulaser);
public:
TStampaQuadroG(char livel) : TStampaQuadro("G", livel) { }
}; };
bool TStampaQuadroG::user_create() bool TStampaQuadroG::user_create()
{ {
/* _rel_g = new TRelation(LF_QUAG);
_rel_g->add(LF_NDITTE, "CODDITTA=CODDITTA");
_rel_g->add(LF_ANAG, "TIPOA=TIPOA|CODANAGR=CODANAGR", 1, LF_NDITTE, 116);
_rel_g->add(LF_ANAGFIS, "CODANAGR=CODANAGR", 1, LF_ANAG, 118);
_rel_g->add(LF_COMUNI, "COM=COMNASC", 1, LF_ANAGFIS, 113);
_rel_g->add(LF_COMUNI, "COM=COMRF(COMRES)", 1, LF_ANAG, 213);
_cur_g = new TCursor(_rel_g);
_rel_gd = new TRelation(LF_QUAGD);
_rel_gd->add(LF_ANAG, "TIPOA=TIPOA|CODANAGR=CODANAGR", 1, LF_QUAGD, 216);
_rel_gd->add("%STA", "CODTAB=STATORES", 1, -216, 24);
_rel_gd->add(LF_ANAGFIS, "CODANAGR=CODANAGR", 1, -216, 218);
_rel_gd->add(LF_COMUNI, "COM=COMNASC", 1, -218, 313);
_rel_gd->add(LF_COMUNI, "COM=COMRF(COMRES)", 1, -216, 413);
_cur_gd = new TSorted_cursor(_rel_gd, "CODDITTA|TIPOA|216@->RAGSOC|CODANAGR");
*/
_form_g = new TQuadroG("77QG", quadro()); _form_g = new TQuadroG("77QG", quadro());
_form_gd = new TDistintaG("77QGD", quadro()); _form_gd = new TDistintaG("77QGD", quadro());
_cur_g = new TCursor(_form_g->TForm::relation()); _cur_g = new TCursor(_form_g->TForm::relation());
TString sortkey(80); TString sortkey(80);
sortkey.format("CODDITTA|TIPOA|216@->RAGSOC|CODANAGR", LF_QUAGD, LF_QUAGD); sortkey.format("CODDITTA|TIPOA|216@->RAGSOC|CODANAGR", LF_QUAGD, LF_QUAGD);
_cur_gd = new TSorted_cursor(_form_gd->TForm::relation(), sortkey); _cur_gd = new TSorted_cursor(_form_gd->TForm::relation(), sortkey);
_form_gd->set_num_foglio(1); _form_gd->set_num_foglio(1);
return TRUE; return TRUE;
} }
@ -2773,13 +2775,8 @@ bool TStampaQuadroG::user_destroy()
{ {
delete _form_gd; delete _form_gd;
delete _form_g; delete _form_g;
// delete _rel_gd;
delete _cur_gd; delete _cur_gd;
// delete _rel_g;
delete _cur_g; delete _cur_g;
return TRUE; return TRUE;
} }

5
m770/77stq.h
View File

@ -41,9 +41,7 @@ HIDDEN const char* VK_STARTDOC = "<VK>&MA796&0&1";
HIDDEN const char* VK_ENDDOC = "<VK>!0"; HIDDEN const char* VK_ENDDOC = "<VK>!0";
typedef enum { STARTDOC, STARTDITTA, STARTPAGE, ENDDOC } ModulaserKey; typedef enum { STARTDOC, STARTDITTA, STARTPAGE, ENDDOC } ModulaserKey;
// Campi form // Campi form
#define FIRMADIC 2 // Per usare la funzione firma_dichiarante() ricordarsi di definire
// nel footer il blocco dellla firma con id = 2
#define TOT_TOTALE 1 #define TOT_TOTALE 1
#define TOT_SNSRIT 2 #define TOT_SNSRIT 2
#define TOT_IMPON 3 #define TOT_IMPON 3
@ -172,7 +170,6 @@ class TDicForm : public TForm
void set_num_foglio(const int foglio) { _num_foglio = foglio; } void set_num_foglio(const int foglio) { _num_foglio = foglio; }
int num_foglio() const { return _num_foglio; } int num_foglio() const { return _num_foglio; }
virtual void azzera_totali(); virtual void azzera_totali();
void firma_dichiarante();
PaginaQuadro curr_page() const { return _PaginaCorrente; } PaginaQuadro curr_page() const { return _PaginaCorrente; }
// TCursor& cur(); // TCursor& cur();

1
m770/77stqab.cpp
View File

@ -170,6 +170,7 @@ int TQuadroA::calcola_firma()
TString nome = cognome.mid(30, -1); TString nome = cognome.mid(30, -1);
cognome.cut(30); cognome.trim(); cognome.cut(30); cognome.trim();
cognome << ' ' << nome; cognome << ' ' << nome;
signature.set(cognome);
} }
totali.row(y).reset(); totali.row(y).reset();
totali.row(y).put(cognome, signature.x()-1); totali.row(y).put(cognome, signature.x()-1);