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 "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)
{

96
m770/77qaall.uml
View File

@ -1,48 +1,48 @@
// 77qaall.uml - A,A2 - allegati 730
#include "77qaall.h"
PAGE "Allegati 730 " -1 -1 60 7
TEXT DLG_NULL
BEGIN
PROMPT 2 2 "Il sottoscritto allega n. "
END
NUMBER QA_NUM_ALL 5
BEGIN
PROMPT 28 2 ""
END
NUMBER QA2_NUM_ALL 5
BEGIN
PROMPT 28 2 ""
END
TEXT QA2_ANNO_ALL
BEGIN
PROMPT 35 2 "mod.730/95 completi"
END
TEXT QA_ANNO_ALL
BEGIN
PROMPT 35 2 "mod.730/96 completi"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 3 "dei mod.730-3 e un ugual numero di buste mod.730-1"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK
// 77qaall.uml - A,A2 - allegati 730
#include "77qaall.h"
PAGE "Allegati 730 " -1 -1 60 7
TEXT DLG_NULL
BEGIN
PROMPT 2 2 "Il sottoscritto allega n. "
END
NUMBER QA_NUM_ALL 5
BEGIN
PROMPT 28 2 ""
END
NUMBER QA2_NUM_ALL 5
BEGIN
PROMPT 28 2 ""
END
TEXT QA2_ANNO_ALL
BEGIN
PROMPT 35 2 "mod.730/95 completi"
END
TEXT QA_ANNO_ALL
BEGIN
PROMPT 35 2 "mod.730/96 completi"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 3 "dei mod.730-3 e un ugual numero di buste mod.730-1"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
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
JOIN %CA7 TO 63 ALIAS 14 INTO CODTAB=CODCAUS
JOIN %CA7 TO 63 ALIAS 14 INTO CODTAB==CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA 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
BEGIN
KEY "CODICE FISCALE"
PROMPT 4 12 ""
PROMPT 4 11 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
PROMPT 39 11 ""
FIELD 116@->RAGSOC
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
PROMPT 39 11 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
FLAGS "H"
@ -58,7 +58,7 @@ END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 14 ""
PROMPT 17 13 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
FLAGS "H"
@ -67,21 +67,21 @@ END
STRINGA 5
BEGIN
KEY "COMUNE DI RES."
PROMPT 17 14 ""
PROMPT 17 13 ""
FIELD 213@->DENCOM
END
STRINGA 6
BEGIN
KEY "PROV DI RES."
PROMPT 58 14 ""
PROMPT 58 13 ""
FIELD 213@->PROVCOM
END
STRINGA 7
BEGIN
KEY "VIA di RES."
PROMPT 65 14 ""
PROMPT 65 13 ""
FIELD 116@->INDRES
GROUP 4
END
@ -89,7 +89,7 @@ END
STRINGA 8
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 101 14 ""
PROMPT 101 13 ""
FIELD 116@->CIVRES
GROUP 4
END
@ -97,7 +97,7 @@ END
STRINGA 9
BEGIN
KEY "CAP"
PROMPT 122 14 ""
PROMPT 122 13 ""
FIELD 116@->CAPRES
GROUP 4
END
@ -105,7 +105,7 @@ END
STRINGA 10
BEGIN
KEY "VIA di RES. RF"
PROMPT 65 14 ""
PROMPT 65 13 ""
FIELD 116@->INDRF
MESSAGE EMPTY HIDE,5@
GROUP 5
@ -114,7 +114,7 @@ END
STRINGA 11
BEGIN
KEY "NUM. CIVICO di RES. RF"
PROMPT 101 14 ""
PROMPT 101 13 ""
FIELD 116@->CIVRF
GROUP 5
END
@ -122,7 +122,7 @@ END
STRINGA 12
BEGIN
KEY "CAP"
PROMPT 122 14 ""
PROMPT 122 13 ""
FIELD 116@->CAPRF
GROUP 5
END
@ -130,20 +130,20 @@ END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 118 17 ""
PROMPT 118 16 ""
END
STRINGA 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 120 18 ""
PROMPT 120 17 ""
FLAGS "H"
END
STRINGA 15
BEGIN
KEY "Prospetto 1 data delib.1"
PROMPT 6 26 ""
PROMPT 6 25 ""
FIELD 70->P1DATAD1
GROUP 3
END
@ -151,7 +151,7 @@ END
STRINGA 16
BEGIN
KEY "Titolo 1"
PROMPT 20 26 ""
PROMPT 20 25 ""
FIELD 70->P1TITOLO1
GROUP 3
END
@ -159,7 +159,7 @@ END
STRINGA 17
BEGIN
KEY "Data ut.1"
PROMPT 53 26 ""
PROMPT 53 25 ""
FIELD 70->P1DATAP1
GROUP 3
END
@ -167,16 +167,16 @@ END
NUMBER 20
BEGIN
KEY "Amm.1"
PROMPT 68 26 ""
PROMPT 65 25 ""
FIELD 70->P1AMMQ1
PICTURE "###.###.###.###"
GROUP 3
END
STRINGA 21
NUMBER 21
BEGIN
KEY "Num.az.1"
PROMPT 93 26 ""
PROMPT 87 25 ""
FIELD 70->P1NUMQ1
GROUP 3
END
@ -184,7 +184,7 @@ END
NUMBER 22
BEGIN
KEY "Amm.Compless.1"
PROMPT 124 26 ""
PROMPT 121 25 ""
FIELD 70->P1AMM1
PICTURE "###.###.###^^^"
GROUP 3
@ -193,7 +193,7 @@ END
STRINGA 23
BEGIN
KEY "Prospetto 1 data delib.2"
PROMPT 6 28 ""
PROMPT 6 27 ""
FIELD 70->P1DATAD2
GROUP 3
END
@ -201,7 +201,7 @@ END
STRINGA 24
BEGIN
KEY "Titolo 2"
PROMPT 20 28 ""
PROMPT 20 27 ""
FIELD 70->P1TITOLO2
GROUP 3
END
@ -209,7 +209,7 @@ END
STRINGA 25
BEGIN
KEY "Data ut.2"
PROMPT 53 28 ""
PROMPT 53 27 ""
FIELD 70->P1DATAP2
GROUP 3
END
@ -217,16 +217,16 @@ END
NUMBER 26
BEGIN
KEY "Amm.2"
PROMPT 68 28 ""
PROMPT 65 27 ""
FIELD 70->P1AMMQ2
PICTURE "###.###.###.###"
GROUP 3
END
STRINGA 27
NUMBER 27
BEGIN
KEY "Num.az.2"
PROMPT 93 28 ""
PROMPT 87 27 ""
FIELD 70->P1NUMQ2
GROUP 3
END
@ -234,7 +234,7 @@ END
NUMBER 28
BEGIN
KEY "Amm.Compless.2"
PROMPT 124 28 ""
PROMPT 121 27 ""
FIELD 70->P1AMM2
PICTURE "###.###.###^^^"
GROUP 3
@ -243,7 +243,7 @@ END
STRINGA 29
BEGIN
KEY "Prospetto 1 data delib.3"
PROMPT 6 30 ""
PROMPT 6 29 ""
FIELD 70->P1DATAD3
GROUP 3
END
@ -251,7 +251,7 @@ END
STRINGA 30
BEGIN
KEY "Titolo 3"
PROMPT 20 30 ""
PROMPT 20 29 ""
FIELD 70->P1TITOLO3
GROUP 3
END
@ -259,7 +259,7 @@ END
STRINGA 31
BEGIN
KEY "Data ut.3"
PROMPT 53 30 ""
PROMPT 53 29 ""
FIELD 70->P1DATAP3
GROUP 3
END
@ -267,16 +267,16 @@ END
NUMBER 32
BEGIN
KEY "Amm.3"
PROMPT 68 30 ""
PROMPT 65 29 ""
FIELD 70->P1AMMQ3
PICTURE "###.###.###.###"
GROUP 3
END
STRINGA 33
NUMBER 33
BEGIN
KEY "Num.az.3"
PROMPT 93 30 ""
PROMPT 87 29 ""
FIELD 70->P1NUMQ3
GROUP 3
END
@ -284,7 +284,7 @@ END
NUMBER 34
BEGIN
KEY "Amm.Compless.3"
PROMPT 124 30 ""
PROMPT 121 29 ""
FIELD 70->P1AMM3
PICTURE "###.###.###^^^"
GROUP 3
@ -294,14 +294,14 @@ STRINGA 35
BEGIN
KEY "Prospetto 1 data delib.4"
FIELD 70->P1DATAD4
PROMPT 6 32 ""
PROMPT 6 31 ""
GROUP 3
END
STRINGA 36
BEGIN
KEY "Titolo 4"
PROMPT 20 32 ""
PROMPT 20 31 ""
FIELD 70->P1TITOLO4
GROUP 3
END
@ -309,7 +309,7 @@ END
STRINGA 37
BEGIN
KEY "Data ut.4"
PROMPT 53 32 ""
PROMPT 53 31 ""
FIELD 70->P1DATAP4
GROUP 3
END
@ -317,16 +317,16 @@ END
NUMBER 38
BEGIN
KEY "Amm.4"
PROMPT 68 32 ""
PROMPT 65 31 ""
FIELD 70->P1AMMQ4
PICTURE "###.###.###.###"
GROUP 3
END
STRINGA 39
NUMBER 39
BEGIN
KEY "Num.az.4"
PROMPT 93 32 ""
PROMPT 87 31 ""
FIELD 70->P1NUMQ4
GROUP 3
END
@ -334,7 +334,7 @@ END
NUMBER 40
BEGIN
KEY "Amm.Compless.4"
PROMPT 124 32 ""
PROMPT 121 31 ""
FIELD 70->P1AMM4
PICTURE "###.###.###^^^"
GROUP 3
@ -344,49 +344,49 @@ STRING 41
BEGIN
KEY "Totale num.az"
FIELD 70->P1NUMQT
PROMPT 93 34 ""
PROMPT 87 33 ""
END
STRINGA 42
BEGIN
KEY "Totale amm.compl."
FIELD 70->P1AMMT
PROMPT 124 34 ""
PROMPT 121 33 ""
PICTURE "###.###.###^^^"
END
STRINGA 43
BEGIN
KEY "Data delibera"
PROMPT 27 37 ""
PROMPT 27 36 ""
FIELD 70->P2DATADE
END
STRINGA 44
BEGIN
KEY "Data distribuzione"
PROMPT 100 37 ""
PROMPT 100 36 ""
FIELD 70->P2DATADI
END
STRINGA 45
BEGIN
KEY "DESC.BENI DISTR.1"
PROMPT 4 41 ""
PROMPT 4 40 ""
FIELD 70->P2DESC1
END
STRINGA 46
BEGIN
KEY "DATA 1"
PROMPT 78 41 ""
PROMPT 78 40 ""
FIELD 70->P2DATA1
END
NUMBER 47
BEGIN
KEY "VALORE ULT. BIL. 1"
PROMPT 120 41 ""
PROMPT 120 40 ""
FIELD 70->P2VAL1
PICTURE "###.###.###^^^"
END
@ -394,21 +394,21 @@ END
STRINGA 48
BEGIN
KEY "DESC.BENI DISTR.2"
PROMPT 4 43 ""
PROMPT 4 42 ""
FIELD 70->P2DESC2
END
STRINGA 49
BEGIN
KEY "DATA 2"
PROMPT 78 43 ""
PROMPT 78 42 ""
FIELD 70->P2DATA2
END
NUMBER 50
BEGIN
KEY "VALORE ULT. BIL. 2"
PROMPT 120 43 ""
PROMPT 120 42 ""
FIELD 70->P2VAL2
PICTURE "###.###.###^^^"
END
@ -416,21 +416,21 @@ END
STRINGA 51
BEGIN
KEY "DESC.BENI DISTR.3"
PROMPT 4 45 ""
PROMPT 4 44 ""
FIELD 70->P2DESC3
END
STRINGA 52
BEGIN
KEY "DATA 3"
PROMPT 78 45 ""
PROMPT 78 44 ""
FIELD 70->P2DATA3
END
NUMBER 53
BEGIN
KEY "VALORE ULT. BIL. 3"
PROMPT 120 45 ""
PROMPT 120 44 ""
FIELD 70->P2VAL3
PICTURE "###.###.###^^^"
END
@ -438,7 +438,7 @@ END
NUMBER 54
BEGIN
KEY "TOT.UT.NATURA"
PROMPT 120 47 ""
PROMPT 120 45 ""
FIELD 70->P2VALT
PICTURE "###.###.###^^^"
END
@ -446,7 +446,7 @@ END
NUMBER 55
BEGIN
KEY "IMP.IMPUT.AZ.QUOT"
PROMPT 120 49 ""
PROMPT 120 47 ""
FIELD 70->P2IMPQ
PICTURE "###.###.###^^^"
END
@ -454,175 +454,175 @@ END
NUMBER 56
BEGIN
KEY "P221"
PROMPT 44 56 ""
PROMPT 44 55 ""
PICTURE "###.###.###^^^"
END
NUMBER 57
BEGIN
KEY "P231"
PROMPT 63 56 ""
PROMPT 63 55 ""
PICTURE "###.###.###^^^"
END
NUMBER 58
BEGIN
KEY "P241"
PROMPT 81 56 ""
PROMPT 81 55 ""
PICTURE "###.###.###^^^"
END
NUMBER 59
BEGIN
KEY "P251"
PROMPT 100 56 ""
PROMPT 100 55 ""
PICTURE "###.###.###^^^"
END
NUMBER 60
BEGIN
KEY "P261"
PROMPT 119 56 ""
PROMPT 119 55 ""
PICTURE "###.###.###^^^"
END
NUMBER 61
BEGIN
KEY "P222"
PROMPT 44 57 ""
PROMPT 44 56 ""
PICTURE "###.###.###^^^"
END
NUMBER 62
BEGIN
KEY "P232"
PROMPT 63 57 ""
PROMPT 63 56 ""
PICTURE "###.###.###^^^"
END
NUMBER 63
BEGIN
KEY "P242"
PROMPT 81 57 ""
PROMPT 81 56 ""
PICTURE "###.###.###^^^"
END
NUMBER 64
BEGIN
KEY "P252"
PROMPT 100 57 ""
PROMPT 100 56 ""
PICTURE "###.###.###^^^"
END
NUMBER 65
BEGIN
KEY "P262"
PROMPT 119 57 ""
PROMPT 119 56 ""
PICTURE "###.###.###^^^"
END
NUMBER 66
BEGIN
KEY "P223"
PROMPT 44 58 ""
PROMPT 44 57 ""
PICTURE "###.###.###^^^"
END
NUMBER 67
BEGIN
KEY "P233"
PROMPT 63 58 ""
PROMPT 63 57 ""
PICTURE "###.###.###^^^"
END
NUMBER 68
BEGIN
KEY "P243"
PROMPT 81 58 ""
PROMPT 81 57 ""
PICTURE "###.###.###^^^"
END
NUMBER 69
BEGIN
KEY "P253"
PROMPT 100 58 ""
PROMPT 100 57 ""
PICTURE "###.###.###^^^"
END
NUMBER 70
BEGIN
KEY "P263"
PROMPT 119 58 ""
PROMPT 119 57 ""
PICTURE "###.###.###^^^"
END
NUMBER 71
BEGIN
KEY "P224"
PROMPT 44 59 ""
PROMPT 44 58 ""
PICTURE "###.###.###^^^"
END
NUMBER 72
BEGIN
KEY "P234"
PROMPT 63 59 ""
PROMPT 63 58 ""
PICTURE "###.###.###^^^"
END
NUMBER 73
BEGIN
KEY "P244"
PROMPT 81 59 ""
PROMPT 81 58 ""
PICTURE "###.###.###^^^"
END
NUMBER 74
BEGIN
KEY "P254"
PROMPT 100 59 ""
PROMPT 100 58 ""
PICTURE "###.###.###^^^"
END
NUMBER 75
BEGIN
KEY "P264"
PROMPT 119 59 ""
PROMPT 119 58 ""
PICTURE "###.###.###^^^"
END
NUMBER 76
BEGIN
KEY "P225"
PROMPT 44 60 ""
PROMPT 44 59 ""
PICTURE "###.###.###^^^"
END
NUMBER 77
BEGIN
KEY "P235"
PROMPT 63 60 ""
PROMPT 63 59 ""
PICTURE "###.###.###^^^"
END
NUMBER 78
BEGIN
KEY "P245"
PROMPT 81 60 ""
PROMPT 81 59 ""
PICTURE "###.###.###^^^"
END
NUMBER 79
BEGIN
KEY "P255"
PROMPT 100 60 ""
PROMPT 100 59 ""
PICTURE "###.###.###^^^"
END
NUMBER 80
BEGIN
KEY "P265"
PROMPT 119 60 ""
PROMPT 119 59 ""
PICTURE "###.###.###^^^"
END
@ -630,7 +630,7 @@ END
NUMBER 81
BEGIN
KEY "P22TOT"
PROMPT 44 61 ""
PROMPT 44 60 ""
PICTURE "###.###.###^^^"
FIELD 70->P22TOT
END
@ -638,7 +638,7 @@ END
NUMBER 82
BEGIN
KEY "P23TOT"
PROMPT 63 61 ""
PROMPT 63 60 ""
PICTURE "###.###.###^^^"
FIELD 70->P23TOT
END
@ -646,7 +646,7 @@ END
NUMBER 83
BEGIN
KEY "P24TOT"
PROMPT 81 61 ""
PROMPT 81 60 ""
PICTURE "###.###.###^^^"
FIELD 70->P24TOT
END
@ -654,7 +654,7 @@ END
NUMBER 84
BEGIN
KEY "P25TOT"
PROMPT 100 61 ""
PROMPT 100 60 ""
PICTURE "###.###.###^^^"
FIELD 70->P25TOT
END
@ -662,7 +662,7 @@ END
NUMBER 85
BEGIN
KEY "P26TOT"
PROMPT 119 61 ""
PROMPT 119 60 ""
PICTURE "###.###.###^^^"
FIELD 70->P26TOT
END

15
m770/77qgd.frm
View File

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

38
m770/77ql.frm
View File

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

26
m770/77qn.frm
View File

@ -42,6 +42,12 @@ END
SECTION HEADER FIRST 7
NUMERO 12
BEGIN
KEY "NUMERO FOGLIO"
PROMPT 128 1 ""
END
LISTA 1
BEGIN
KEY "Tipo anagrafica"
@ -54,14 +60,14 @@ END
STRINGA 2
BEGIN
KEY "CODICE FISCALE"
PROMPT 21 1 ""
PROMPT 21 5 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE (o cognome)"
PROMPT 51 1 ""
PROMPT 51 5 ""
GROUP 2
FIELD 106@->RAGSOC
END
@ -69,7 +75,7 @@ END
STRINGA 4
BEGIN
KEY "COGNOME (o ragsoc)"
PROMPT 51 1 ""
PROMPT 51 5 ""
GROUP 1
FIELD 106@->RAGSOC[1,30]
END
@ -77,7 +83,7 @@ END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 21 4 ""
PROMPT 21 8 ""
GROUP 1
FIELD 106@->RAGSOC[31,50]
END
@ -85,7 +91,7 @@ END
LISTA 6
BEGIN
KEY "SESSO M"
PROMPT 53 4 ""
PROMPT 53 8 ""
ITEM " | "
ITEM "M|X"
ITEM "F|"
@ -96,7 +102,7 @@ END
LISTA 7
BEGIN
KEY "SESSO F"
PROMPT 62 4 ""
PROMPT 62 8 ""
ITEM " | "
ITEM "M|"
ITEM "F|X"
@ -107,7 +113,7 @@ END
STRINGA 8
BEGIN
KEY "DATA DI NASCITA"
PROMPT 68 4 ""
PROMPT 68 8 ""
GROUP 1
FIELD 108@->DATANASC
PICTURE "## ^ ## ^^###"
@ -116,7 +122,7 @@ END
STRINGA 9
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 85 4 ""
PROMPT 85 8 ""
GROUP 1
FIELD 113@->DENCOM
END
@ -124,7 +130,7 @@ END
STRINGA 10
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 129 4 ""
PROMPT 129 8 ""
GROUP 1
FIELD 113@->PROVCOM
END
@ -132,7 +138,7 @@ END
STRINGA 11
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 56 6 ""
PROMPT 56 10 ""
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.cut(28);
sProvNa=c->file(LF_COMUNI).get("PROVCOM");
fut.field(0).set(sRagsoc);
sCognome=sRagsoc.left(30);
sCognome.trim();
sNome=sRagsoc.mid(30,0);
sNome.trim();
sRagsoc = sCognome;
sRagsoc << " " << sNome;
// fut.field(0).set(sRagsoc);
sRagsoc:=fut.field(0).get();
if (sRagsoc.len() > 30 && sRagsoc[30] != ' ')
{
sCognome=sRagsoc.left(30);
sCognome.trim();
sNome=sRagsoc.mid(30,0);
sNome.trim();
sRagsoc = sCognome;
sRagsoc << " " << sNome;
}
rg.put(sRagsoc,fut.field(0).x()-1);
fut.field(1).set(sSesso);
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);
body.reset();
TLocalisamfile qp(LF_QUAQ);
_righeQT.fill(_codditta,qp);
_righeQT.fill(_codditta,qp);
if (_righeQT.items()==0) return;
_bAggQ = _righeQT.items() > _RIGHE_Q;
int riga=0;
@ -600,6 +605,7 @@ void TBase4::stampa_T(TPrinter& pr)
body.reset();
TLocalisamfile qp(LF_QUAT);
_righeQT.fill(_codditta,qp);
if (_righeQT.items()==0) return;
_bAggT = _righeQT.items() > _RIGHE_T;
int riga=0;
@ -662,7 +668,8 @@ void TBase4::stampa_P(TPrinter& pr)
TPrint_section& body = section('H', even_page);
body.reset();
TLocalisamfile qp(LF_QUAP);
_righePS.fill(_codditta,qp);
_righePS.fill(_codditta,qp);
if (_righePS.items()==0) return;
const int items=_righePS.items();
_bAggP = items > _RIGHE_P;
@ -690,7 +697,8 @@ void TBase4::stampa_S(TPrinter& pr)
TPrint_section& body = section('H', even_page);
body.reset();
TLocalisamfile qp(LF_QUAS);
_righePS.fill(_codditta,qp);
_righePS.fill(_codditta,qp);
if (_righePS.items()==0) return;
_bAggS = _righePS.items() > _RIGHE_S;
int riga=0;
@ -717,7 +725,8 @@ void TBase4::stampa_R(TPrinter& pr)
TPrint_section& body = section('B', even_page);
body.reset();
TLocalisamfile qr(LF_QUAR);
_righeNR.fill(_codditta,qr);
_righeNR.fill(_codditta,qr);
if (_righeNR.items()==0) return;
const int items=_righeNR.items();
// se iRigheNR > 2 => bisogna stampare anche l'allegato
_bAggR = items > _RIGHE_R;
@ -788,7 +797,8 @@ void TBase4::stampa_N(TPrinter& pr)
TPrint_section& body = section('B', odd_page);
body.reset();
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
_bAggN = _righeNR.items() > _RIGHE_N;
@ -956,9 +966,9 @@ int TQuadroL::prima_riga(PaginaQuadro p) const
if (p==PRIMA)
{
if (_PaginaPosizionamento)
return 8;
return 4;
else
return 8+HEADER_PRIMA_NOPOS;
return 4+HEADER_PRIMA_NOPOS;
}
else
return 4;
@ -975,11 +985,16 @@ long TQuadroL::filtra(const long codditta)
return items;
}
void TQuadroL::stampa_testata(TPrinter& pr)
{
TPrint_section& hh = section('H', first_page);
hh.reset();
TForm_item& nf=hh.find_field(18);
TString fstr(10); fstr << _num_foglio;
nf.set(fstr);
_num_foglio++;
hh.update();
const int hhr = hh.height();
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))
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
TConfig conf(CONFIG_STUDIO);
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);
hh.reset();
TForm_item& nf=hh.find_field(12);
TString fstr(10); fstr << _num_foglio;
nf.set(fstr);
_num_foglio++;
hh.update();
const int hhr = hh.height();
for (int i = 0; i < hhr; i++)
@ -1136,9 +1161,9 @@ void TQuadroN::stampa_testata(TPrinter& pr)
int TQuadroN::prima_riga(PaginaQuadro p) const
{
if (_PaginaPosizionamento)
return 8;
return 4;
else
return 8+HEADER_PRIMA_NOPOS;
return 4+HEADER_PRIMA_NOPOS;
}
/*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);
body.reset();
TLocalisamfile qn(LF_QUAN);
_righeNR.fill(_codditta,qn);
// TLocalisamfile qn(LF_QUAN);
// _righeNR.fill(_codditta,qn);
// Nell'aggiuntivo parto dal record n.7
int num=6;
int riga=0;
@ -1240,8 +1265,8 @@ void TQuadroN::stampa_P(TPrinter& pr)
{
TPrint_section& body = section('H', even_page);
body.reset();
TLocalisamfile qp(LF_QUAP);
_righePS.fill(_codditta,qp);
// TLocalisamfile qp(LF_QUAP);
// _righePS.fill(_codditta,qp);
const int items=_righePS.items();
// Parte da rec.n.5
int riga=4;
@ -1265,8 +1290,8 @@ void TQuadroN::stampa_Q(TPrinter& pr)
{
TPrint_section& body = section('F', even_page);
body.reset();
TLocalisamfile qp(LF_QUAQ);
_righeQT.fill(_codditta,qp);
// TLocalisamfile qp(LF_QUAQ);
// _righeQT.fill(_codditta,qp);
// parte da rec.n.5
int riga=4;
bool FinitaSezione=FALSE;
@ -1291,8 +1316,8 @@ void TQuadroN::stampa_R(TPrinter& pr)
{
TPrint_section& body = section('B', even_page);
body.reset();
TLocalisamfile qr(LF_QUAR);
_righeNR.fill(_codditta,qr);
// TLocalisamfile qr(LF_QUAR);
// _righeNR.fill(_codditta,qr);
const int items=_righeNR.items();
int RecNum=2;
int RigheStampate=0;
@ -1318,8 +1343,8 @@ void TQuadroN::stampa_S(TPrinter& pr)
{
TPrint_section& body = section('H', even_page);
body.reset();
TLocalisamfile qp(LF_QUAS);
_righePS.fill(_codditta,qp);
// TLocalisamfile qp(LF_QUAS);
// _righePS.fill(_codditta,qp);
int riga=4;
bool FinitaSezione=FALSE;
@ -1342,8 +1367,8 @@ void TQuadroN::stampa_T(TPrinter& pr)
{
TPrint_section& body = section('F', odd_page);
body.reset();
TLocalisamfile qp(LF_QUAT);
_righeQT.fill(_codditta,qp);
// TLocalisamfile qp(LF_QUAT);
// _righeQT.fill(_codditta,qp);
int riga=4;
bool FinitaSezione=FALSE;
while (!FinitaSezione)
@ -1406,9 +1431,34 @@ bool TQuadroN::print(const long codditta, const long NumFis, const long NumNoFis
_codditta=codditta;
if (!InitPrint(codditta))
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());
_RigaCorr=0;
(*cur)=0L;
(*cur)=0L;
bool done=FALSE;
while (!done)
{

9
m770/77stba.h
View File

@ -248,6 +248,7 @@ class TQuadroL : public TDicForm
private:
long _codditta;
real _rRitEff, _rRitVer;
int _num_foglio;
protected:
void stampa_testata(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);
public:
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() {}
};
@ -281,6 +282,7 @@ class TStampaQuadroAggL : public TStampaQuadro
class TQuadroN : public TBase4
{
long _codditta;
int _num_foglio;
public:
void stampa_fine(TPrinter& pr);
void stampa_N(TPrinter& pr);
@ -290,9 +292,10 @@ class TQuadroN : public TBase4
void stampa_S(TPrinter& pr);
void stampa_T(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);
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() {}
};

155
m770/77stq.cpp
View File

@ -723,7 +723,7 @@ void TDicForm::posiziona()
HIDDEN const int QG_FORMLEN = 72;
HIDDEN const int QG_PAGINE = 2;
HIDDEN const int HEADER_SECONDA_G = 7;
HIDDEN const int HEADER_SECONDA_G = 8;
class TQuadroG : public TDicForm
{
@ -849,11 +849,8 @@ void TQuadroG::stampa_prospetti1_2(TPrinter& pr)
if (!PaginaPosizionamento())
fill_page(pr, HEADER_PRIMA_NOPOS);
}
else
{
pr.print(head.row(j));
_RigaCorr++;
}
}
// fill_page(pr, -1); // formfeed "adattato"
// inc_curr_page();
@ -875,7 +872,15 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
TToken_string p35b(r.get("P35B"));
TToken_string p36a(r.get("P36A"));
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
int k = 1;
real tot2,tot7,tot_tot2,tot_tot7;
@ -905,14 +910,18 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
k++;
tot2 = ZERO;
tot7 = ZERO;
if (i == 18)
{
TForm_item& t2 = sez.find_field(k);
TForm_item& t7 = sez.find_field(k+54);
t2.set(tot_tot2.string());
t7.set(tot_tot7.string());
}
// Stampa totali
TForm_item& t2 = sez.find_field(k);
if (!bAggiuntivo)
{
if (i == 18)
{
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;
real totale = ZERO;
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;
c3 = START_P3_COL3 + k;
@ -932,7 +942,7 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
if (i != 20)
c5a.set(importo.string());
else
c5a.set(totale.string());
if (!bAggiuntivo) c5a.set(totale.string());
totale += importo;
k++;
}
@ -951,7 +961,7 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
if (i != 20)
c5a.set(importo.string());
else
c5a.set(totale.string());
if (!bAggiuntivo) c5a.set(totale.string());
totale += importo;
k++;
}
@ -970,7 +980,7 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
if (i != 20)
c6a.set(importo.string());
else
c6a.set(totale.string());
if (!bAggiuntivo) c6a.set(totale.string());
totale += importo;
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))
{
pr.formlen(QG_FORMLEN);
pr.formlen(dic_form_len());
if (_PaginaCorrente == PRIMA)
{
if (!_PaginaPosizionamento)
fill_page(pr,HEADER_PRIMA_NOPOS);
if (_modulaser) ClearFlagModulaser();
(*cur) = PtrFis >= 0L ? PtrFis : 0L;
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.
if (_posiziona && _PaginaPosizionamento) _PaginaPosizionamento = FALSE;
pr.formlen(dic_form_len());
fill_page(pr, HEADER_SECONDA_G);
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_PAGINE = 2;
HIDDEN const int HEADER_PRIMA_GD = 17;
HIDDEN const int HEADER_SECONDA_GD = 15;
HIDDEN const int QGD_RIGHE_PRIMA = 5;
HIDDEN const int QGD_RIGHE_SECONDA = 6;
@ -1055,16 +1067,32 @@ class TDistintaG : public TQuadroG
virtual void stampa_totali(TPrinter& pr);
virtual void next_page(TPrinter& pr);
virtual void set_body(TPrinter& pr, const char tipo);
// void stampa_testata(TPrinter& pr);
int calcola_firma();
public:
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TDistintaG(const char* form, const char* quadro) : TQuadroG(form,quadro) {}
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)
{
PaginaQuadro PagCorr = curr_page();
@ -1083,6 +1111,7 @@ void TDistintaG::stampa_totali(TPrinter& pr)
{
TPrint_section& totali = section('F', even_page);
totali.update();
const int lasty = calcola_firma();
for (int i = 0; i < totali.items(); 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);
}
_EndPrintDitta=_finite_fis && _finite_nofis;
if (_finite_fis || StabilitaInesistenzaFis)
break;
// La prima volta si deve posizionare sul primo record di p.f.
if (PtrFis<0L && !StabilitaInesistenzaFis)
{
@ -1289,7 +1320,10 @@ bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoF
}
StabilitaInesistenzaNoFis = !Trovato;
}
// Gestisce i casi in cui non ci sono percipienti nella distinta..
if (items==0) _EndPrintDitta=TRUE;
if (StabilitaInesistenzaNoFis)
break;
@ -2674,14 +2708,11 @@ class TStampaQuadroD1 : public TStampaQuadro
{
TQuadroD1* _form;
TCursor* _cur;
protected:
protected:
virtual bool user_create();
virtual bool user_destroy();
virtual TDicForm* get_form() const { return _form; }
virtual TCursor* get_cursor() const { return _cur; }
public:
TStampaQuadroD1(const char* quadro, char livel);
virtual ~TStampaQuadroD1() { }
@ -2689,17 +2720,14 @@ protected:
TStampaQuadroD1::TStampaQuadroD1(const char* quadro, char liv)
: TStampaQuadro(quadro, liv)
{
}
{}
bool TStampaQuadroD1::user_create()
{
_form = new TQuadroD1("77QD1", quadro());
TString sortkey(80);
sortkey.format("CODDITTA|TIPOA|216@->RAGSOC|CODANAGR|CODCAUS|PERC", LF_QUAD1, LF_QUAD1);
_cur = new TSorted_cursor(_form->TForm::relation(), sortkey);
return TRUE;
}
@ -2707,7 +2735,6 @@ bool TStampaQuadroD1::user_destroy()
{
delete _form;
delete _cur;
return TRUE;
}
@ -2718,54 +2745,29 @@ bool TStampaQuadroD1::user_destroy()
/////////////////////////////////////////////////////////////////////////////////////////////
class TStampaQuadroG : public TStampaQuadro
{
private:
TQuadroG* _form_g;
TDistintaG* _form_gd;
// TRelation* _rel_g, * _rel_gd;
TCursor* _cur_g, * _cur_gd;
protected:
virtual bool user_create();
virtual bool user_destroy();
virtual TDicForm* get_form() const { return _form_g; }
virtual TCursor* get_cursor() const { return _cur_g; }
virtual bool print_quadro(const int OffsetDitta, const bool modulaser);
public:
TStampaQuadroG(char livel) : TStampaQuadro("G", livel) { }
private:
TQuadroG* _form_g;
TDistintaG* _form_gd;
TCursor* _cur_g, * _cur_gd;
protected:
virtual bool user_create();
virtual bool user_destroy();
virtual TDicForm* get_form() const { return _form_g; }
virtual TCursor* get_cursor() const { return _cur_g; }
virtual bool print_quadro(const int OffsetDitta, const bool modulaser);
public:
TStampaQuadroG(char livel) : TStampaQuadro("G", livel) { }
};
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_gd = new TDistintaG("77QGD", quadro());
_cur_g = new TCursor(_form_g->TForm::relation());
TString sortkey(80);
sortkey.format("CODDITTA|TIPOA|216@->RAGSOC|CODANAGR", LF_QUAGD, LF_QUAGD);
_cur_gd = new TSorted_cursor(_form_gd->TForm::relation(), sortkey);
_form_gd->set_num_foglio(1);
return TRUE;
}
@ -2773,13 +2775,8 @@ bool TStampaQuadroG::user_destroy()
{
delete _form_gd;
delete _form_g;
// delete _rel_gd;
delete _cur_gd;
// delete _rel_g;
delete _cur_g;
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";
typedef enum { STARTDOC, STARTDITTA, STARTPAGE, ENDDOC } ModulaserKey;
// Campi form
#define FIRMADIC 2 // Per usare la funzione firma_dichiarante() ricordarsi di definire
// nel footer il blocco dellla firma con id = 2
// Campi form
#define TOT_TOTALE 1
#define TOT_SNSRIT 2
#define TOT_IMPON 3
@ -172,7 +170,6 @@ class TDicForm : public TForm
void set_num_foglio(const int foglio) { _num_foglio = foglio; }
int num_foglio() const { return _num_foglio; }
virtual void azzera_totali();
void firma_dichiarante();
PaginaQuadro curr_page() const { return _PaginaCorrente; }
// TCursor& cur();

1
m770/77stqab.cpp
View File

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