Varie correzioni
git-svn-id: svn://10.65.10.50/trunk@3736 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik
parent
ea18899a94
commit
0b24d8e0ec
@ -173,14 +173,14 @@ SECTION FOOTER LAST 2
|
||||
NUMERO 1
|
||||
BEGIN
|
||||
KEY "Tot.rit.eff"
|
||||
PROMPT 61 1 ""
|
||||
PROMPT 61 2 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 2
|
||||
BEGIN
|
||||
KEY "Tot.rit.ver"
|
||||
PROMPT 112 1 ""
|
||||
PROMPT 112 2 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
|
||||
@ -1,16 +1,17 @@
|
||||
USE 37
|
||||
JOIN 72 INTO CODDITTA=CODDITTA
|
||||
JOIN 73 TO 37 INTO CODDITTA=CODDITTA
|
||||
JOIN 74 TO 37 INTO CODDITTA=CODDITTA
|
||||
JOIN 75 TO 37 INTO CODDITTA=CODDITTA
|
||||
JOIN 76 TO 37 INTO CODDITTA=CODDITTA
|
||||
JOIN 77 TO 37 INTO CODDITTA=CODDITTA
|
||||
JOIN 36 TO 37 INTO CODDITTA=CODDITTA
|
||||
JOIN %CAF TO 36 ALIAS 104 INTO CODTAB==CODCAAF
|
||||
USE 36
|
||||
JOIN 37 TO 36 INTO CODDITTA=CODDITTA
|
||||
JOIN 72 TO 36 INTO CODDITTA=CODDITTA
|
||||
JOIN 73 TO 36 INTO CODDITTA=CODDITTA
|
||||
JOIN 74 TO 36 INTO CODDITTA=CODDITTA
|
||||
JOIN 75 TO 36 INTO CODDITTA=CODDITTA
|
||||
JOIN 76 TO 36 INTO CODDITTA=CODDITTA
|
||||
JOIN 77 TO 36 INTO CODDITTA=CODDITTA
|
||||
JOIN 9 TO 36 INTO CODDITTA=CODDITTA
|
||||
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 36 ALIAS 108 INTO CODANAGR==CODPRO
|
||||
JOIN 6 TO 8 ALIAS 106 INTO TIPOA="F" CODANAGR=CODANAGR
|
||||
JOIN 9 TO 36 ALIAS 104 INTO CODDITTA==DITTACAAF
|
||||
JOIN 6 TO 104@ ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
END
|
||||
|
||||
DESCRIPTION
|
||||
@ -369,7 +370,7 @@ END
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER FIRST 25
|
||||
SECTION FOOTER FIRST 26
|
||||
|
||||
STRINGA 650
|
||||
BEGIN
|
||||
@ -560,38 +561,38 @@ BEGIN
|
||||
FIELD 37->NSUPPM
|
||||
END
|
||||
|
||||
DATA 823
|
||||
BEGIN
|
||||
KEY "Data"
|
||||
PROMPT 29 16 ""
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
STRINGA 824
|
||||
STRINGA 823
|
||||
BEGIN
|
||||
KEY "Presidente"
|
||||
PROMPT 51 15 ""
|
||||
END
|
||||
|
||||
STRINGA 825
|
||||
STRINGA 824
|
||||
BEGIN
|
||||
KEY "Dichiarante"
|
||||
PROMPT 95 15 ""
|
||||
FIELD 6->RAGSOC
|
||||
END
|
||||
|
||||
DATA 825
|
||||
BEGIN
|
||||
KEY "Data"
|
||||
PROMPT 29 16 ""
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
STRINGA 826
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE CAAF"
|
||||
PROMPT 48 18 ""
|
||||
FIELD 104@->S1
|
||||
PROMPT 51 18 ""
|
||||
FIELD 206@->COFI
|
||||
END
|
||||
|
||||
NUMERO 827
|
||||
BEGIN
|
||||
KEY "NUMERO ISCRIZIONE ALBO"
|
||||
PROMPT 122 18 ""
|
||||
FIELD 104@->I1
|
||||
FIELD 104@->NISCRAA
|
||||
PICTURE "#####"
|
||||
END
|
||||
|
||||
|
||||
505
m770/77qn.frm
505
m770/77qn.frm
@ -1,5 +1,10 @@
|
||||
USE 37
|
||||
JOIN 72 INTO CODDITTA=CODDITTA
|
||||
JOIN 9 INTO CODDITTA=CODDITTA
|
||||
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
||||
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
||||
JOIN 72 TO 37 INTO CODDITTA=CODDITTA
|
||||
JOIN 73 TO 37 INTO CODDITTA=CODDITTA
|
||||
JOIN 74 TO 37 INTO CODDITTA=CODDITTA
|
||||
JOIN 75 TO 37 INTO CODDITTA=CODDITTA
|
||||
@ -37,52 +42,97 @@ END
|
||||
|
||||
SECTION HEADER FIRST 7
|
||||
|
||||
NUMERO 1
|
||||
LISTA 1
|
||||
BEGIN
|
||||
KEY "M1"
|
||||
PROMPT 61 1 ""
|
||||
FIELD 37->ECCRIT12
|
||||
PICTURE "###.###.###.###^^^"
|
||||
KEY "Tipo anagrafica"
|
||||
FLAGS "H"
|
||||
FIELD 106@->TIPOA
|
||||
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
|
||||
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
|
||||
END
|
||||
|
||||
NUMERO 2
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "M2"
|
||||
PROMPT 117 1 ""
|
||||
FIELD 37->ECCRIT23
|
||||
PICTURE "###.###.###.###^^^"
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 21 1 ""
|
||||
FIELD 106@->COFI
|
||||
END
|
||||
|
||||
NUMERO 3
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "M3"
|
||||
PROMPT 61 3 ""
|
||||
FIELD 37->CRIMPDL
|
||||
PICTURE "###.###.###.###^^^"
|
||||
KEY "RAGIONE SOCIALE (o cognome)"
|
||||
PROMPT 51 1 ""
|
||||
GROUP 2
|
||||
FIELD 106@->RAGSOC
|
||||
END
|
||||
|
||||
NUMERO 4
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "M4"
|
||||
PROMPT 61 5 ""
|
||||
FIELD 37->CRIMPIVA
|
||||
PICTURE "###.###.###.###^^^"
|
||||
KEY "COGNOME (o ragsoc)"
|
||||
PROMPT 51 1 ""
|
||||
GROUP 1
|
||||
FIELD 106@->RAGSOC[1,30]
|
||||
END
|
||||
|
||||
NUMERO 5
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "M5"
|
||||
PROMPT 117 3 ""
|
||||
FIELD 37->CRIMPRIT
|
||||
PICTURE "###.###.###.###^^^"
|
||||
KEY "NOME"
|
||||
PROMPT 21 4 ""
|
||||
GROUP 1
|
||||
FIELD 106@->RAGSOC[31,50]
|
||||
END
|
||||
|
||||
NUMERO 6
|
||||
LISTA 6
|
||||
BEGIN
|
||||
KEY "M6"
|
||||
PROMPT 117 5 ""
|
||||
FIELD 37->CRIMPRES
|
||||
PICTURE "###.###.###.###^^^"
|
||||
KEY "SESSO M"
|
||||
PROMPT 53 4 ""
|
||||
ITEM " | "
|
||||
ITEM "M|X"
|
||||
ITEM "F|"
|
||||
FIELD 108@->SESSO
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
LISTA 7
|
||||
BEGIN
|
||||
KEY "SESSO F"
|
||||
PROMPT 62 4 ""
|
||||
ITEM " | "
|
||||
ITEM "M|"
|
||||
ITEM "F|X"
|
||||
FIELD 108@->SESSO
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 68 4 ""
|
||||
GROUP 1
|
||||
FIELD 108@->DATANASC
|
||||
PICTURE "## ^ ## ^^###"
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 85 4 ""
|
||||
GROUP 1
|
||||
FIELD 113@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA 10
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 129 4 ""
|
||||
GROUP 1
|
||||
FIELD 113@->PROVCOM
|
||||
END
|
||||
|
||||
STRINGA 11
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
||||
PROMPT 56 6 ""
|
||||
END
|
||||
|
||||
END
|
||||
@ -92,21 +142,21 @@ SECTION BODY ODD 1
|
||||
NUMERO 1
|
||||
BEGIN
|
||||
KEY "MeseRif"
|
||||
PROMPT 27 1 ""
|
||||
PROMPT 25 1 ""
|
||||
FIELD 72->MESERIF
|
||||
END
|
||||
|
||||
NUMERO 2
|
||||
BEGIN
|
||||
KEY "AnnoRif"
|
||||
PROMPT 31 1 ""
|
||||
PROMPT 28 1 ""
|
||||
FIELD 72->ANNORIF
|
||||
END
|
||||
|
||||
NUMERO 3
|
||||
BEGIN
|
||||
KEY "imp. rimb"
|
||||
PROMPT 39 1 ""
|
||||
PROMPT 37 1 ""
|
||||
FIELD 72->IMPOSTA
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
@ -114,7 +164,7 @@ END
|
||||
NUMERO 4
|
||||
BEGIN
|
||||
KEY "Compensi"
|
||||
PROMPT 60 1 ""
|
||||
PROMPT 58 1 ""
|
||||
FIELD 72->COMPENSI
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
@ -122,21 +172,21 @@ END
|
||||
NUMERO 5
|
||||
BEGIN
|
||||
KEY "MeseRif"
|
||||
PROMPT 85 1 ""
|
||||
PROMPT 83 1 ""
|
||||
FIELD 72->MESERIF
|
||||
END
|
||||
|
||||
NUMERO 6
|
||||
BEGIN
|
||||
KEY "AnnoRif"
|
||||
PROMPT 89 1 ""
|
||||
PROMPT 86 1 ""
|
||||
FIELD 72->ANNORIF
|
||||
END
|
||||
|
||||
NUMERO 7
|
||||
BEGIN
|
||||
KEY "imp. rimb"
|
||||
PROMPT 99 1 ""
|
||||
PROMPT 96 1 ""
|
||||
FIELD 72->IMPOSTA
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
@ -144,7 +194,7 @@ END
|
||||
NUMERO 8
|
||||
BEGIN
|
||||
KEY "Compensi"
|
||||
PROMPT 119 1 ""
|
||||
PROMPT 116 1 ""
|
||||
FIELD 72->COMPENSI
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
@ -156,21 +206,21 @@ SECTION BODY EVEN 1
|
||||
NUMERO 1
|
||||
BEGIN
|
||||
KEY "R - MeseRif"
|
||||
PROMPT 27 1 ""
|
||||
PROMPT 25 1 ""
|
||||
FIELD 75->MESERIF
|
||||
END
|
||||
|
||||
NUMERO 2
|
||||
BEGIN
|
||||
KEY "R - AnnoRif"
|
||||
PROMPT 31 1 ""
|
||||
PROMPT 28 1 ""
|
||||
FIELD 75->ANNORIF
|
||||
END
|
||||
|
||||
NUMERO 3
|
||||
BEGIN
|
||||
KEY "R - imp. rimb"
|
||||
PROMPT 41 1 ""
|
||||
PROMPT 37 1 ""
|
||||
FIELD 75->IMPRIMB
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
@ -178,7 +228,7 @@ END
|
||||
NUMERO 4
|
||||
BEGIN
|
||||
KEY "R - Compensi"
|
||||
PROMPT 62 1 ""
|
||||
PROMPT 58 1 ""
|
||||
FIELD 75->COMPENSI
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
@ -186,21 +236,21 @@ END
|
||||
NUMERO 5
|
||||
BEGIN
|
||||
KEY "R - MeseRif"
|
||||
PROMPT 85 1 ""
|
||||
PROMPT 83 1 ""
|
||||
FIELD 75->MESERIF
|
||||
END
|
||||
|
||||
NUMERO 6
|
||||
BEGIN
|
||||
KEY "R - AnnoRif"
|
||||
PROMPT 89 1 ""
|
||||
PROMPT 86 1 ""
|
||||
FIELD 75->ANNORIF
|
||||
END
|
||||
|
||||
NUMERO 7
|
||||
BEGIN
|
||||
KEY "R - imp. rimb"
|
||||
PROMPT 99 1 ""
|
||||
PROMPT 96 1 ""
|
||||
FIELD 75->IMPRIMB
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
@ -208,7 +258,7 @@ END
|
||||
NUMERO 8
|
||||
BEGIN
|
||||
KEY "R - Compensi"
|
||||
PROMPT 120 1 ""
|
||||
PROMPT 116 1 ""
|
||||
FIELD 75->COMPENSI
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
@ -219,126 +269,54 @@ SECTION HEADER EVEN 1
|
||||
|
||||
NUMERO 1
|
||||
BEGIN
|
||||
KEY "P Imp.versata"
|
||||
PROMPT 24 1 ""
|
||||
FIELD 73->IMPOSTA
|
||||
KEY "PS Imp.versata"
|
||||
PROMPT 22 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 2
|
||||
BEGIN
|
||||
KEY "P Inter.lav.dip"
|
||||
PROMPT 41 1 ""
|
||||
FIELD 73->INTERDIP
|
||||
KEY "PS Inter.lav.dip"
|
||||
PROMPT 38 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 3
|
||||
BEGIN
|
||||
KEY "P Inter.dat.lav."
|
||||
PROMPT 56 1 ""
|
||||
FIELD 73->INTERDAT
|
||||
KEY "PS Inter.dat.lav."
|
||||
PROMPT 53 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "P Modalita' vers"
|
||||
PROMPT 76 1 ""
|
||||
FIELD 73->TIPOVERS
|
||||
KEY "PS Modalita' vers"
|
||||
PROMPT 73 1 ""
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "P Cod.trib"
|
||||
PROMPT 82 1 ""
|
||||
FIELD 73->CODTRIB
|
||||
KEY "PS Cod.trib"
|
||||
PROMPT 80 1 ""
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
DATA 6
|
||||
BEGIN
|
||||
KEY "P DATA VERS."
|
||||
KEY "PS DATA VERS."
|
||||
PROMPT 89 1 ""
|
||||
FIELD 73->DATAVERS
|
||||
PICTURE "## ^ ## ^####"
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "P Serie"
|
||||
PROMPT 108 1 ""
|
||||
FIELD 73->SERIE
|
||||
KEY "PS Serie"
|
||||
PROMPT 107 1 ""
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "P Numero"
|
||||
KEY "PS Numero"
|
||||
PROMPT 117 1 ""
|
||||
FIELD 73->NUMERO
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION HEADER ODD 1
|
||||
|
||||
NUMERO 1
|
||||
BEGIN
|
||||
KEY "S Imp.versata"
|
||||
PROMPT 24 1 ""
|
||||
FIELD 76->IMPOSTA
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 2
|
||||
BEGIN
|
||||
KEY "S Inter.lav.dip"
|
||||
PROMPT 41 1 ""
|
||||
FIELD 76->INTERDIP
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 3
|
||||
BEGIN
|
||||
KEY "S Inter.dat.lav."
|
||||
PROMPT 56 1 ""
|
||||
FIELD 76->INTERDAT
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "S Modalita' vers"
|
||||
PROMPT 76 1 ""
|
||||
FIELD 73->TIPOVERS
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "S Cod.trib"
|
||||
PROMPT 82 1 ""
|
||||
FIELD 76->CODTRIB
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "S DATA VERS."
|
||||
PROMPT 89 1 ""
|
||||
FIELD 76->DATAVERS
|
||||
PICTURE "## ^ ## ^####"
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "S Serie"
|
||||
PROMPT 108 1 ""
|
||||
FIELD 76->SERIE
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "S Numero"
|
||||
PROMPT 117 1 ""
|
||||
FIELD 76->NUMERO
|
||||
END
|
||||
|
||||
END
|
||||
@ -348,21 +326,21 @@ SECTION FOOTER EVEN 1
|
||||
NUMERO 1
|
||||
BEGIN
|
||||
KEY "Q Mese paga"
|
||||
PROMPT 27 1 ""
|
||||
PROMPT 25 1 ""
|
||||
FIELD 74->MESEPAG
|
||||
END
|
||||
|
||||
NUMERO 2
|
||||
BEGIN
|
||||
KEY "Q Anno paga"
|
||||
PROMPT 32 1 ""
|
||||
PROMPT 28 1 ""
|
||||
FIELD 74->ANNOPAG
|
||||
END
|
||||
|
||||
NUMERO 3
|
||||
BEGIN
|
||||
KEY "Q Contr.versato"
|
||||
PROMPT 41 1 ""
|
||||
PROMPT 46 1 ""
|
||||
FIELD 74->CONTVERS
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
@ -370,7 +348,7 @@ END
|
||||
NUMERO 4
|
||||
BEGIN
|
||||
KEY "Q Contr.rimborsati"
|
||||
PROMPT 65 1 ""
|
||||
PROMPT 75 1 ""
|
||||
FIELD 74->CONTRIMB
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
@ -378,7 +356,7 @@ END
|
||||
NUMERO 5
|
||||
BEGIN
|
||||
KEY "Q Interes.e/o soprattasse"
|
||||
PROMPT 94 1 ""
|
||||
PROMPT 104 1 ""
|
||||
FIELD 74->INTERESSI
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
@ -386,7 +364,7 @@ END
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "Q Cod.Reg"
|
||||
PROMPT 123 1 ""
|
||||
PROMPT 126 1 ""
|
||||
FIELD 74->CODREG
|
||||
END
|
||||
|
||||
@ -397,21 +375,21 @@ SECTION FOOTER ODD 1
|
||||
NUMERO 1
|
||||
BEGIN
|
||||
KEY "T Mese paga"
|
||||
PROMPT 27 1 ""
|
||||
PROMPT 25 1 ""
|
||||
FIELD 77->MESEPAG
|
||||
END
|
||||
|
||||
NUMERO 2
|
||||
BEGIN
|
||||
KEY "T Anno paga"
|
||||
PROMPT 32 1 ""
|
||||
PROMPT 28 1 ""
|
||||
FIELD 77->ANNOPAG
|
||||
END
|
||||
|
||||
NUMERO 3
|
||||
BEGIN
|
||||
KEY "T Contr.versato"
|
||||
PROMPT 41 1 ""
|
||||
PROMPT 46 1 ""
|
||||
FIELD 77->CONTVERS
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
@ -419,7 +397,7 @@ END
|
||||
NUMERO 4
|
||||
BEGIN
|
||||
KEY "T Contr.rimborsati"
|
||||
PROMPT 65 1 ""
|
||||
PROMPT 75 1 ""
|
||||
FIELD 77->CONTRIMB
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
@ -427,7 +405,7 @@ END
|
||||
NUMERO 5
|
||||
BEGIN
|
||||
KEY "T Interes.e/o soprattasse"
|
||||
PROMPT 94 1 ""
|
||||
PROMPT 104 1 ""
|
||||
FIELD 77->INTERESSI
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
@ -435,248 +413,25 @@ END
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "T Cod.Reg"
|
||||
PROMPT 123 1 ""
|
||||
PROMPT 126 1 ""
|
||||
FIELD 77->CODREG
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER FIRST 25
|
||||
SECTION FOOTER FIRST 4
|
||||
|
||||
STRINGA 650
|
||||
BEGIN
|
||||
KEY "Quadro A"
|
||||
PROMPT 19 3 ""
|
||||
FIELD 37->QCOMP[1,1]
|
||||
END
|
||||
|
||||
STRINGA 653
|
||||
BEGIN
|
||||
KEY "Quadro A3"
|
||||
PROMPT 24 3 ""
|
||||
FIELD 37->QCOMP[4,4]
|
||||
END
|
||||
|
||||
STRINGA 660
|
||||
BEGIN
|
||||
KEY "Quadro B"
|
||||
PROMPT 29 3 ""
|
||||
FIELD 37->QCOMP[5,5]
|
||||
END
|
||||
|
||||
STRINGA 661
|
||||
BEGIN
|
||||
KEY "Quadro B1"
|
||||
PROMPT 34 3 ""
|
||||
FIELD 37->QCOMP[6,6]
|
||||
END
|
||||
|
||||
STRINGA 670
|
||||
BEGIN
|
||||
KEY "Quadro C"
|
||||
PROMPT 39 3 ""
|
||||
FIELD 37->QCOMP[7,7]
|
||||
END
|
||||
|
||||
STRINGA 680
|
||||
BEGIN
|
||||
KEY "Quadro D"
|
||||
PROMPT 44 3 ""
|
||||
FIELD 37->QCOMP[8,8]
|
||||
END
|
||||
|
||||
STRINGA 681
|
||||
BEGIN
|
||||
KEY "Quadro D1"
|
||||
PROMPT 49 3 ""
|
||||
FIELD 37->QCOMP[9,9]
|
||||
END
|
||||
|
||||
STRINGA 690
|
||||
BEGIN
|
||||
KEY "Quadro E"
|
||||
PROMPT 54 3 ""
|
||||
FIELD 37->QCOMP[10,10]
|
||||
END
|
||||
|
||||
STRINGA 691
|
||||
BEGIN
|
||||
KEY "Quadro E1"
|
||||
PROMPT 60 3 ""
|
||||
FIELD 37->QCOMP[11,11]
|
||||
END
|
||||
|
||||
STRINGA 692
|
||||
BEGIN
|
||||
KEY "Quadro E2"
|
||||
PROMPT 65 3 ""
|
||||
FIELD 37->QCOMP[12,12]
|
||||
END
|
||||
|
||||
STRINGA 700
|
||||
BEGIN
|
||||
KEY "Quadro F"
|
||||
PROMPT 70 3 ""
|
||||
FIELD 37->QCOMP[13,13]
|
||||
END
|
||||
|
||||
STRINGA 701
|
||||
BEGIN
|
||||
KEY "Quadro F1"
|
||||
PROMPT 75 3 ""
|
||||
FIELD 37->QCOMP[14,14]
|
||||
END
|
||||
|
||||
STRINGA 702
|
||||
BEGIN
|
||||
KEY "Quadro F2"
|
||||
PROMPT 80 3 ""
|
||||
FIELD 37->QCOMP[15,15]
|
||||
END
|
||||
|
||||
STRINGA 710
|
||||
BEGIN
|
||||
KEY "Quadro G"
|
||||
PROMPT 85 3 ""
|
||||
FIELD 37->QCOMP[16,16]
|
||||
END
|
||||
|
||||
STRINGA 711
|
||||
BEGIN
|
||||
KEY "Quadro G1"
|
||||
PROMPT 90 3 ""
|
||||
FIELD 37->QCOMP[17,17]
|
||||
END
|
||||
|
||||
STRINGA 720
|
||||
BEGIN
|
||||
KEY "Quadro H"
|
||||
PROMPT 95 3 ""
|
||||
FIELD 37->QCOMP[18,18]
|
||||
END
|
||||
|
||||
STRINGA 730
|
||||
BEGIN
|
||||
KEY "Quadro I"
|
||||
PROMPT 100 3 ""
|
||||
FIELD 37->QCOMP[19,19]
|
||||
END
|
||||
|
||||
STRINGA 651
|
||||
BEGIN
|
||||
KEY "Quadro A1"
|
||||
PROMPT 19 7 ""
|
||||
FIELD 37->QCOMP[2,2]
|
||||
END
|
||||
|
||||
STRINGA 652
|
||||
BEGIN
|
||||
KEY "Quadro A2"
|
||||
PROMPT 24 7 ""
|
||||
FIELD 37->QCOMP[3,3]
|
||||
END
|
||||
|
||||
STRINGA 760
|
||||
BEGIN
|
||||
KEY "Quadro N"
|
||||
PROMPT 29 7 ""
|
||||
FIELD 37->QCOMP[20,20]
|
||||
END
|
||||
|
||||
STRINGA 780
|
||||
BEGIN
|
||||
KEY "Quadro P"
|
||||
PROMPT 35 7 ""
|
||||
FIELD 37->QCOMP[21,21]
|
||||
END
|
||||
|
||||
STRINGA 790
|
||||
BEGIN
|
||||
KEY "Quadro Q"
|
||||
PROMPT 40 7 ""
|
||||
FIELD 37->QCOMP[22,22]
|
||||
END
|
||||
|
||||
STRINGA 800
|
||||
BEGIN
|
||||
KEY "Quadro R"
|
||||
PROMPT 45 7 ""
|
||||
FIELD 37->QCOMP[23,23]
|
||||
END
|
||||
|
||||
STRINGA 810
|
||||
BEGIN
|
||||
KEY "Quadro S"
|
||||
PROMPT 50 7 ""
|
||||
FIELD 37->QCOMP[24,24]
|
||||
END
|
||||
|
||||
STRINGA 820
|
||||
BEGIN
|
||||
KEY "Quadro T"
|
||||
PROMPT 55 7 ""
|
||||
FIELD 37->QCOMP[25,25]
|
||||
END
|
||||
|
||||
STRINGA 821
|
||||
BEGIN
|
||||
PROMPT 80 9 ""
|
||||
KEY "Numero quadri aggiuntivi"
|
||||
FIELD 37->H0NQLAGG
|
||||
END
|
||||
|
||||
STRINGA 822
|
||||
BEGIN
|
||||
PROMPT 72 11 ""
|
||||
KEY "Numero quadri su supporto magnetico"
|
||||
FIELD 37->NSUPPM
|
||||
END
|
||||
|
||||
DATA 823
|
||||
DATA 1
|
||||
BEGIN
|
||||
KEY "Data"
|
||||
PROMPT 29 16 ""
|
||||
PROMPT 29 1 ""
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
STRINGA 824
|
||||
BEGIN
|
||||
KEY "Presidente"
|
||||
PROMPT 51 15 ""
|
||||
END
|
||||
|
||||
STRINGA 825
|
||||
BEGIN
|
||||
KEY "Dichiarante"
|
||||
PROMPT 95 15 ""
|
||||
FIELD 6->RAGSOC
|
||||
END
|
||||
|
||||
STRINGA 826
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE CAAF"
|
||||
PROMPT 48 18 ""
|
||||
FIELD 104@->S1
|
||||
END
|
||||
|
||||
NUMERO 827
|
||||
BEGIN
|
||||
KEY "NUMERO ISCRIZIONE ALBO"
|
||||
PROMPT 122 18 ""
|
||||
FIELD 104@->I1
|
||||
PICTURE "#####"
|
||||
END
|
||||
|
||||
STRINGA 828
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE PROF."
|
||||
PROMPT 92 20 ""
|
||||
FIELD 106@->COFI
|
||||
END
|
||||
|
||||
STRINGA 829
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "FIRMA"
|
||||
PROMPT 84 25 ""
|
||||
PROMPT 90 1 ""
|
||||
FIELD 106@->RAGSOC
|
||||
END
|
||||
|
||||
|
||||
386
m770/77stba.cpp
386
m770/77stba.cpp
@ -1,5 +1,17 @@
|
||||
// Stampa base
|
||||
#include "77stba.h"
|
||||
const int _RIGHE_N = 6;
|
||||
const int _RIGHE_R = 2;
|
||||
const int _RIGHE_P = 4;
|
||||
const int _RIGHE_Q = 4;
|
||||
const int _RIGHE_S = 4;
|
||||
const int _RIGHE_T = 4;
|
||||
const int _RIGHE_NA = 8;
|
||||
const int _RIGHE_RA = 4;
|
||||
const int _RIGHE_PA = 10;
|
||||
const int _RIGHE_QA = 4;
|
||||
const int _RIGHE_SA = 6;
|
||||
const int _RIGHE_TA = 4;
|
||||
|
||||
int TBase1::dic_form_len() const
|
||||
{
|
||||
@ -492,9 +504,9 @@ int TRighePS::fill(const long codditta,TLocalisamfile& ps)
|
||||
int TBase4::calcola_firma()
|
||||
{
|
||||
TPrint_section& totali = section('F', first_page);
|
||||
TForm_item& signature = totali.find_field(829);
|
||||
TForm_item& signature = totali.find_field(_IdFirma);
|
||||
const int y = signature.y();
|
||||
|
||||
TString spazi(50); spazi.fill(' ');
|
||||
TString cognome = signature.get();
|
||||
if (cognome.len() > 30 && cognome[29] == ' ')
|
||||
{
|
||||
@ -503,7 +515,7 @@ int TBase4::calcola_firma()
|
||||
cognome << ' ' << nome;
|
||||
signature.set(cognome);
|
||||
|
||||
totali.row(y-1).reset();
|
||||
totali.row(y-1).put(spazi, signature.x()-1);
|
||||
totali.row(y-1).put(cognome, signature.x()-1);
|
||||
}
|
||||
return y;
|
||||
@ -609,7 +621,7 @@ void TBase4::stampa_T(TPrinter& pr)
|
||||
|
||||
void TBase4::fill_riga_PS(TPrint_section& sec,const int num)
|
||||
{
|
||||
TString sVal;
|
||||
TString sVal,sDep;
|
||||
int start=1,end=8;
|
||||
for (int i = start; i <= end; i++)
|
||||
{
|
||||
@ -628,7 +640,10 @@ void TBase4::fill_riga_PS(TPrint_section& sec,const int num)
|
||||
else if (i==start+4)
|
||||
sVal=rN.sCodTrib();
|
||||
else if (i==start+5)
|
||||
sVal=rN.sDataVers();
|
||||
{
|
||||
sDep=rN.sDataVers();
|
||||
sVal.picture(fi.picture(),sDep);
|
||||
}
|
||||
else if (i==start+6)
|
||||
sVal=rN.sSerie();
|
||||
else if (i==start+7)
|
||||
@ -724,17 +739,17 @@ void TBase4::fill_riga_NR(TPrint_section& sec,const int num, const int side)
|
||||
int start,end;
|
||||
if (side==0)
|
||||
{
|
||||
start=0;
|
||||
end=4;
|
||||
start=1;
|
||||
end=5;
|
||||
}
|
||||
else
|
||||
{
|
||||
start=4;
|
||||
end=8;
|
||||
start=5;
|
||||
end=9;
|
||||
}
|
||||
for (int i = start; i < end; i++)
|
||||
{
|
||||
TForm_item& fi = sec.field(i);
|
||||
TForm_item& fi = sec.find_field(i);
|
||||
if (num < _righeNR.items())
|
||||
{
|
||||
const TRigaN& rN = _righeNR[num];
|
||||
@ -1087,3 +1102,354 @@ bool TStampaQuadroAggL::user_destroy()
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
void TQuadroN::stampa_fine(TPrinter& pr)
|
||||
{
|
||||
TPrint_section& sec = section('F', first_page);
|
||||
const int hhr = sec.height();
|
||||
sec.reset();
|
||||
sec.update();
|
||||
const int lasty = calcola_firma();
|
||||
for (int i = 0; i < hhr; i++)
|
||||
{
|
||||
pr.print(sec.row(i));
|
||||
_RigaCorr++;
|
||||
}
|
||||
if (usa_progind())
|
||||
progind()->addstatus(1);
|
||||
}
|
||||
|
||||
void TQuadroN::stampa_testata(TPrinter& pr)
|
||||
{
|
||||
TPrint_section& hh = section('H', first_page);
|
||||
hh.reset();
|
||||
hh.update();
|
||||
const int hhr = hh.height();
|
||||
for (int i = 0; i < hhr; i++)
|
||||
{
|
||||
pr.print(hh.row(i));
|
||||
_RigaCorr++;
|
||||
}
|
||||
if (usa_progind())
|
||||
progind()->addstatus(1);
|
||||
}
|
||||
|
||||
int TQuadroN::prima_riga(PaginaQuadro p) const
|
||||
{
|
||||
if (_PaginaPosizionamento)
|
||||
return 8;
|
||||
else
|
||||
return 8+HEADER_PRIMA_NOPOS;
|
||||
}
|
||||
|
||||
/*void TBase4::fill_riga_QT(TPrint_section& sec,const int num)
|
||||
{
|
||||
TString sVal;
|
||||
int start=1,end=6;
|
||||
for (int i = start; i <= end; i++)
|
||||
{
|
||||
TForm_item& fi = sec.find_field(i);
|
||||
if (num < _righeQT.items())
|
||||
{
|
||||
const TRigaQT& rN = _righeQT[num];
|
||||
if (i==start)
|
||||
sVal=rN.sMesePag();
|
||||
else if (i==start+1)
|
||||
sVal=rN.sAnnoPag();
|
||||
else if (i==start+2)
|
||||
sVal=rN.ContVers(fi.picture());
|
||||
else if (i==start+3)
|
||||
sVal=rN.ContRimb(fi.picture());
|
||||
else if (i==start+4)
|
||||
sVal=rN.Interessi(fi.picture());
|
||||
else if (i==start+5)
|
||||
sVal=rN.CodReg();
|
||||
}
|
||||
else
|
||||
sVal="";
|
||||
fi.set(sVal);
|
||||
TPrintrow& row=sec.row(0);
|
||||
row.put(sVal,fi.x()-1);
|
||||
}
|
||||
} */
|
||||
|
||||
/*
|
||||
void TBase4::fill_riga_PS(TPrint_section& sec,const int num)
|
||||
{
|
||||
TString sVal;
|
||||
int start=1,end=8;
|
||||
for (int i = start; i <= end; i++)
|
||||
{
|
||||
TForm_item& fi = sec.find_field(i);
|
||||
if (num < _righePS.items())
|
||||
{
|
||||
const TRigaPS& rN = _righePS[num];
|
||||
if (i==start)
|
||||
sVal=rN.sImposta(fi.picture());
|
||||
else if (i==start+1)
|
||||
sVal=rN.sIntDip(fi.picture());
|
||||
else if (i==start+2)
|
||||
sVal=rN.sIntDat(fi.picture());
|
||||
else if (i==start+3)
|
||||
sVal=rN.sTipoVers();
|
||||
else if (i==start+4)
|
||||
sVal=rN.sCodTrib();
|
||||
else if (i==start+5)
|
||||
sVal=rN.sDataVers();
|
||||
else if (i==start+6)
|
||||
sVal=rN.sSerie();
|
||||
else if (i==start+7)
|
||||
sVal=rN.sNumero();
|
||||
}
|
||||
else
|
||||
sVal="";
|
||||
fi.set(sVal);
|
||||
TPrintrow& row=sec.row(0);
|
||||
row.put(sVal,fi.x()-1);
|
||||
}
|
||||
} */
|
||||
|
||||
void TQuadroN::stampa_N(TPrinter& pr)
|
||||
{
|
||||
TPrint_section& body = section('B', odd_page);
|
||||
body.reset();
|
||||
TLocalisamfile qn(LF_QUAN);
|
||||
_righeNR.fill(_codditta,qn);
|
||||
// Nell'aggiuntivo parto dal record n.7
|
||||
int num=6;
|
||||
int riga=0;
|
||||
bool FinitaSezione=FALSE;
|
||||
while (!FinitaSezione)
|
||||
{
|
||||
// Stampa la parte sinistra (primi 4 campi)
|
||||
fill_riga_NR(body,num,0);
|
||||
num+=3;
|
||||
fill_riga_NR(body,num,1);
|
||||
TPrintrow& rr=body.row(0);
|
||||
pr.print(rr);
|
||||
rr.reset();
|
||||
riga++;
|
||||
_RigaCorr++;
|
||||
if (usa_progind())
|
||||
progind()->addstatus(1);
|
||||
num-=2;
|
||||
FinitaSezione=riga>4;
|
||||
}
|
||||
}
|
||||
|
||||
void TQuadroN::stampa_P(TPrinter& pr)
|
||||
{
|
||||
TPrint_section& body = section('H', even_page);
|
||||
body.reset();
|
||||
TLocalisamfile qp(LF_QUAP);
|
||||
_righePS.fill(_codditta,qp);
|
||||
const int items=_righePS.items();
|
||||
// Parte da rec.n.5
|
||||
int riga=4;
|
||||
bool FinitaSezione=FALSE;
|
||||
while (!FinitaSezione)
|
||||
{
|
||||
// Stampa la parte sinistra (primi 4 campi)
|
||||
fill_riga_PS(body,riga);
|
||||
TPrintrow& rr=body.row(0);
|
||||
pr.print(rr);
|
||||
rr.reset();
|
||||
riga++;
|
||||
_RigaCorr++;
|
||||
if (usa_progind())
|
||||
progind()->addstatus(1);
|
||||
FinitaSezione=riga>_RIGHE_PA-1;
|
||||
}
|
||||
}
|
||||
|
||||
void TQuadroN::stampa_Q(TPrinter& pr)
|
||||
{
|
||||
TPrint_section& body = section('F', even_page);
|
||||
body.reset();
|
||||
TLocalisamfile qp(LF_QUAQ);
|
||||
_righeQT.fill(_codditta,qp);
|
||||
// parte da rec.n.5
|
||||
int riga=4;
|
||||
bool FinitaSezione=FALSE;
|
||||
while (!FinitaSezione)
|
||||
{
|
||||
// Stampa la parte sinistra (primi 4 campi)
|
||||
fill_riga_QT(body,riga);
|
||||
TPrintrow& rr=body.row(0);
|
||||
pr.print(rr);
|
||||
rr.reset();
|
||||
riga++;
|
||||
_RigaCorr++;
|
||||
if (usa_progind())
|
||||
progind()->addstatus(1);
|
||||
FinitaSezione=riga>_RIGHE_QA-1;
|
||||
}
|
||||
// Salta due righe alla fine
|
||||
stampa_righe_vuote(pr,2);
|
||||
}
|
||||
|
||||
void TQuadroN::stampa_R(TPrinter& pr)
|
||||
{
|
||||
TPrint_section& body = section('B', even_page);
|
||||
body.reset();
|
||||
TLocalisamfile qr(LF_QUAR);
|
||||
_righeNR.fill(_codditta,qr);
|
||||
const int items=_righeNR.items();
|
||||
int RecNum=2;
|
||||
int RigheStampate=0;
|
||||
bool FinitaSezione=FALSE;
|
||||
while (!FinitaSezione)
|
||||
{
|
||||
fill_riga_NR(body,RecNum,0);
|
||||
RecNum+=3;
|
||||
fill_riga_NR(body,RecNum,1);
|
||||
TPrintrow& rr=body.row(0);
|
||||
pr.print(rr);
|
||||
rr.reset();
|
||||
RigheStampate++;
|
||||
_RigaCorr++;
|
||||
if (usa_progind())
|
||||
progind()->addstatus(1);
|
||||
RecNum-=2;
|
||||
FinitaSezione=RigheStampate>_RIGHE_RA-1;
|
||||
}
|
||||
}
|
||||
|
||||
void TQuadroN::stampa_S(TPrinter& pr)
|
||||
{
|
||||
TPrint_section& body = section('H', even_page);
|
||||
body.reset();
|
||||
TLocalisamfile qp(LF_QUAS);
|
||||
_righePS.fill(_codditta,qp);
|
||||
|
||||
int riga=4;
|
||||
bool FinitaSezione=FALSE;
|
||||
while (!FinitaSezione)
|
||||
{
|
||||
// Stampa la parte sinistra (primi 4 campi)
|
||||
fill_riga_PS(body,riga);
|
||||
TPrintrow& rr=body.row(0);
|
||||
pr.print(rr);
|
||||
rr.reset();
|
||||
riga++;
|
||||
_RigaCorr++;
|
||||
if (usa_progind())
|
||||
progind()->addstatus(1);
|
||||
FinitaSezione=riga>_RIGHE_SA-1;
|
||||
}
|
||||
}
|
||||
|
||||
void TQuadroN::stampa_T(TPrinter& pr)
|
||||
{
|
||||
TPrint_section& body = section('F', odd_page);
|
||||
body.reset();
|
||||
TLocalisamfile qp(LF_QUAT);
|
||||
_righeQT.fill(_codditta,qp);
|
||||
int riga=4;
|
||||
bool FinitaSezione=FALSE;
|
||||
while (!FinitaSezione)
|
||||
{
|
||||
// Stampa la parte sinistra (primi 4 campi)
|
||||
fill_riga_QT(body,riga);
|
||||
TPrintrow& rr=body.row(0);
|
||||
pr.print(rr);
|
||||
rr.reset();
|
||||
riga++;
|
||||
_RigaCorr++;
|
||||
if (usa_progind())
|
||||
progind()->addstatus(1);
|
||||
FinitaSezione=riga>_RIGHE_TA-1;
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
void TBase4::fill_riga_NR(TPrint_section& sec,const int num, const int side)
|
||||
{
|
||||
TString sVal;
|
||||
int start,end;
|
||||
if (side==0)
|
||||
{
|
||||
start=0;
|
||||
end=4;
|
||||
}
|
||||
else
|
||||
{
|
||||
start=4;
|
||||
end=8;
|
||||
}
|
||||
for (int i = start; i < end; i++)
|
||||
{
|
||||
TForm_item& fi = sec.field(i);
|
||||
if (num < _righeNR.items())
|
||||
{
|
||||
const TRigaN& rN = _righeNR[num];
|
||||
if (i==start)
|
||||
sVal=rN.sMeseRif();
|
||||
else if (i==start+1)
|
||||
sVal=rN.sAnnoRif();
|
||||
else if (i==start+2)
|
||||
sVal=rN.ImpRimb(fi.picture());
|
||||
else if (i==start+3)
|
||||
sVal=rN.CompAss(fi.picture());
|
||||
}
|
||||
else
|
||||
sVal="";
|
||||
fi.set(sVal);
|
||||
TPrintrow& row=sec.row(0);
|
||||
row.put(sVal,fi.x()-1);
|
||||
}
|
||||
} */
|
||||
|
||||
bool TQuadroN::print(const long codditta, const long NumFis, const long NumNoFis)
|
||||
{
|
||||
TCursor* cur = cursor();
|
||||
TPrinter& pr = printer();
|
||||
_codditta=codditta;
|
||||
if (!InitPrint(codditta))
|
||||
return FALSE;
|
||||
pr.formlen(TDicForm::dic_form_len());
|
||||
_RigaCorr=0;
|
||||
(*cur)=0L;
|
||||
bool done=FALSE;
|
||||
while (!done)
|
||||
{
|
||||
jump_to_line(pr, prima_riga(PRIMA));
|
||||
int skip=HEADER_PRIMA_NOPOS;
|
||||
stampa_testata(pr);
|
||||
jump_to_line(pr, _PaginaPosizionamento ? 20-skip : 20);
|
||||
stampa_N(pr);
|
||||
jump_to_line(pr, _PaginaPosizionamento ? 26-skip : 26);
|
||||
stampa_P(pr);
|
||||
jump_to_line(pr, _PaginaPosizionamento ? 38-skip : 38);
|
||||
stampa_Q(pr);
|
||||
jump_to_line(pr, _PaginaPosizionamento ? 44-skip : 44);
|
||||
stampa_R(pr);
|
||||
jump_to_line(pr, _PaginaPosizionamento ? 48-skip : 48);
|
||||
stampa_S(pr);
|
||||
jump_to_line(pr, _PaginaPosizionamento ? 56-skip : 56);
|
||||
stampa_T(pr);
|
||||
jump_to_line(pr, _PaginaPosizionamento ? 63-skip : 63);
|
||||
stampa_fine(pr);
|
||||
_PaginaPosizionamento=FALSE;
|
||||
next_page(pr);
|
||||
pr.formlen(TDicForm::dic_form_len());
|
||||
++(*cur);
|
||||
done = cur->pos() >= cur->items()-1;
|
||||
}
|
||||
close_print();
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TStampaQuadroAggN::user_create()
|
||||
{
|
||||
_form = new TQuadroN("77QN", quadro());
|
||||
_form->set_cursor(_form->TForm::cursor());
|
||||
_cur = _form->cursor();
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TStampaQuadroAggN::user_destroy()
|
||||
{
|
||||
delete _form;
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
@ -5,12 +5,6 @@
|
||||
|
||||
HIDDEN const int BASE_FORMLEN = 73;
|
||||
HIDDEN const int BASE_PAGINE = 4;
|
||||
const int _RIGHE_N = 6;
|
||||
const int _RIGHE_R = 2;
|
||||
const int _RIGHE_P = 4;
|
||||
const int _RIGHE_Q = 4;
|
||||
const int _RIGHE_S = 4;
|
||||
const int _RIGHE_T = 4;
|
||||
|
||||
class TBase1 : public TDicForm
|
||||
{
|
||||
@ -194,11 +188,12 @@ class TBase4 : public TDicForm
|
||||
{
|
||||
private:
|
||||
long _codditta;
|
||||
bool _bAggN,_bAggP,_bAggR,_bAggQ,_bAggS,_bAggT;
|
||||
protected:
|
||||
int _IdFirma;
|
||||
TRigheNR _righeNR; // array dei record N e R
|
||||
TRigheQT _righeQT;
|
||||
TRighePS _righePS;
|
||||
bool _bAggN,_bAggP,_bAggR,_bAggQ,_bAggS,_bAggT;
|
||||
protected:
|
||||
void stampa_righe_vuote(TPrinter& pr,const int righe);
|
||||
void fill_riga_QT(TPrint_section& sec,const int num);
|
||||
void fill_riga_PS(TPrint_section& sec,const int num);
|
||||
@ -218,7 +213,7 @@ class TBase4 : public TDicForm
|
||||
int calcola_firma();
|
||||
public:
|
||||
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
|
||||
TBase4(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro) {}
|
||||
TBase4(const char* sNomeForm, const char* quadro) : _IdFirma(824), TDicForm(sNomeForm, quadro) {}
|
||||
virtual ~TBase4() {}
|
||||
};
|
||||
|
||||
@ -283,5 +278,38 @@ class TStampaQuadroAggL : public TStampaQuadro
|
||||
virtual ~TStampaQuadroAggL() { }
|
||||
};
|
||||
|
||||
class TQuadroN : public TBase4
|
||||
{
|
||||
long _codditta;
|
||||
public:
|
||||
void stampa_fine(TPrinter& pr);
|
||||
void stampa_N(TPrinter& pr);
|
||||
void stampa_P(TPrinter& pr);
|
||||
void stampa_Q(TPrinter& pr);
|
||||
void stampa_R(TPrinter& pr);
|
||||
void stampa_S(TPrinter& pr);
|
||||
void stampa_T(TPrinter& pr);
|
||||
void stampa_testata(TPrinter& pr);
|
||||
virtual int prima_riga(PaginaQuadro p) const;
|
||||
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
|
||||
TQuadroN(const char* sNomeForm, const char* quadro) : TBase4(sNomeForm, quadro) { _IdFirma=2; }
|
||||
virtual ~TQuadroN() {}
|
||||
};
|
||||
|
||||
class TStampaQuadroAggN : public TStampaQuadro
|
||||
{
|
||||
TQuadroN* _form;
|
||||
TCursor* _cur;
|
||||
protected:
|
||||
virtual bool user_create();
|
||||
virtual bool user_destroy();
|
||||
virtual TDicForm* get_form() const { return _form; }
|
||||
virtual TCursor* get_cursor() const { return _cur; }
|
||||
virtual bool conta_tipi_per() const { return FALSE; }
|
||||
public:
|
||||
TStampaQuadroAggN(const char* quadro, char liv):TStampaQuadro(quadro, liv) {}
|
||||
virtual ~TStampaQuadroAggN() { }
|
||||
};
|
||||
|
||||
|
||||
#endif
|
||||
|
||||
@ -50,11 +50,6 @@ void TDicForm::set_cofi_dic(const char* cofi)
|
||||
_codditta_dic = sogg_estinto(_codditta);
|
||||
}
|
||||
|
||||
/*TCursor& TDicForm::cur()
|
||||
{
|
||||
return *_cur;
|
||||
} */
|
||||
|
||||
void TDicForm::set_cursor(TCursor* cur)
|
||||
{
|
||||
CHECK(cur, "NULL cursor in TDicForm");
|
||||
@ -3950,6 +3945,10 @@ int stampa_quadro(int argc, char* argv[])
|
||||
{
|
||||
app = new TStampaQuadroAggL(quadro, livello);
|
||||
}
|
||||
else if (quadro == "N")
|
||||
{
|
||||
app = new TStampaQuadroAggN(quadro, livello);
|
||||
}
|
||||
|
||||
if (app != NULL)
|
||||
{
|
||||
|
||||
@ -60,7 +60,7 @@ END
|
||||
BUTTON B_NAGG 1 1
|
||||
BEGIN
|
||||
PROMPT 1 ROW3 ""
|
||||
// MESSAGE RUN,771MOD,-7,2|K_TAB,RILEGGI_QUADRI
|
||||
MESSAGE RUN,772MOD,-4,N,D
|
||||
PICTURE 123
|
||||
FLAGS MYFLAGS
|
||||
GROUP GRUPPO
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user