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@3713 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1996-10-04 17:04:00 +00:00
parent c6784f584a
commit 2c820aa0c5
22 changed files with 6063 additions and 6590 deletions

1
m770/770101.cpp

@ -5,7 +5,6 @@
#include "scperc.h"
#include "rver.h"
#include "rpag.h"
#include "../cg/cg2103.h"
// Calcola l'anno di esercizio di una data
// Certified 99%

69
m770/77base1.frm

@ -6,13 +6,12 @@ JOIN 7 TO 9 INTO CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 36 ALIAS 216 INTO CODANAGR==RAPPR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR==CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM==COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM==COMRF(COMRES)
JOIN 10 TO 9 INTO CODDITTA==CODDITTA CODATT==CODATTPREV
JOIN 6 TO 10 ALIAS 316 INTO TIPOA=TIPOADS CODANAGR=CODANGRDS
JOIN 6 TO 10 ALIAS 316 INTO TIPOA==TIPOADS CODANAGR==CODANGRDS
JOIN 13 TO 10 ALIAS 513 INTO COM==COMCS
END
@ -61,7 +60,7 @@ END
LISTA 3
BEGIN
KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
PROMPT 92 1 ""
PROMPT 93 1 ""
ITEM "|"
ITEM "1|X"
ITEM "2|"
@ -73,7 +72,7 @@ END
LISTA 4
BEGIN
KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
PROMPT 100 1 ""
PROMPT 101 1 ""
ITEM "|"
ITEM "1|"
ITEM "2|X"
@ -97,7 +96,7 @@ END
STRINGA 6
BEGIN
KEY "CODICE ATTIVITA"
PROMPT 122 1 ""
PROMPT 124 1 ""
FIELD 9->CODATTPREV
GROUP 1
END
@ -198,7 +197,6 @@ BEGIN
KEY "CAP"
PROMPT 122 7 ""
FIELD 116@->CAPRF
FIELD 116@->CAPRES
GROUP 1
END
@ -271,7 +269,7 @@ END
LISTA 25
BEGIN
KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
PROMPT 109 11 ""
PROMPT 110 11 ""
ITEM "|"
ITEM "1|"
ITEM "2|"
@ -283,7 +281,7 @@ END
STRINGA 26
BEGIN
KEY "CODICE ATTIVITA"
PROMPT 121 11 ""
PROMPT 124 11 ""
FIELD 9->CODATTPREV
GROUP 2
END
@ -311,6 +309,8 @@ END
STRINGA 29
BEGIN
KEY "FLAG SEDE LEGALE"
PROMPT 31 16 ""
FIELD 116@->VARSLORES
GROUP 2
END
@ -318,7 +318,7 @@ STRING 30
BEGIN
KEY "COMUNE SEDE LEGALE "
PROMPT 41 15 ""
FIELD 413@->DENCOM
FIELD 213@->DENCOM
GROUP 2
END
@ -326,7 +326,7 @@ STRING 31
BEGIN
KEY "PROV. SEDE LEGALE"
PROMPT 122 15 ""
FIELD 413@->PROVCOM
FIELD 213@->PROVCOM
GROUP 2
END
@ -334,7 +334,7 @@ STRING 32
BEGIN
KEY "VIA SEDE LEGALE"
PROMPT 41 17 ""
FIELD 116@->INDRES[1,18]
FIELD 116@->INDRES
MESSAGE COPY,35
FLAGS "H"
GROUP 2
@ -369,7 +369,7 @@ STRING 36
BEGIN
KEY "COMUNE DI RESIDENZA FISCALE"
PROMPT 41 19 ""
FIELD 413@->DENCOM
FIELD 213@->DENCOM
GROUP 2
END
@ -377,7 +377,15 @@ STRING 37
BEGIN
KEY "PROV. RESIDENZA FISCALE"
PROMPT 122 19 ""
FIELD 413@->PROVCOM
FIELD 213@->PROVCOM
GROUP 2
END
STRINGA 37BIS
BEGIN
KEY "FLAG RESIDENZA FISCALE"
PROMPT 31 20 ""
FIELD 116@->VARDF
GROUP 2
END
@ -385,7 +393,7 @@ STRING 38
BEGIN
KEY "VIA RESIDENZA FISCALE"
PROMPT 39 21 ""
FIELD 116@->INDRF[1,18]
FIELD 116@->INDRF
FLAGS "H"
MESSAGE COPY,40
END
@ -417,8 +425,8 @@ END
STRINGA 42
BEGIN
KEY "DATA APP.BILANCIO gg-mm-aaa"
PROMPT 33 23 ""
PICTURE "## ^ ##^^###"
PROMPT 31 23 ""
PICTURE "## ^ ## ^^###"
FIELD 7->DATAAPPBIL
GROUP 2
END
@ -426,8 +434,8 @@ END
STRINGA 43
BEGIN
KEY "Termine per APP.BILANCIO gg-mm-aaa"
PROMPT 93 23 ""
PICTURE "## ^ ##^^###"
PROMPT 91 23 ""
PICTURE "## ^ ## ^^###"
FIELD 7->DATATAPPBI
GROUP 2
END
@ -443,7 +451,7 @@ END
STRINGA 49
BEGIN
KEY "NAT.GIURIDICA"
PROMPT 53 25 ""
PROMPT 55 25 ""
FIELD 7->NATGIU
GROUP 2
END
@ -495,7 +503,7 @@ END
LISTA 55
BEGIN
KEY "CODICE CARICA 1"
PROMPT 85 29 ""
PROMPT 86 29 ""
ITEM " | "
ITEM "1|X"
ITEM "2|"
@ -508,7 +516,7 @@ END
LISTA 56
BEGIN
KEY "CODICE CARICA 2"
PROMPT 94 29 ""
PROMPT 95 29 ""
ITEM " | "
ITEM "1|"
ITEM "2|X"
@ -521,7 +529,7 @@ END
LISTA 57
BEGIN
KEY "CODICE CARICA 3"
PROMPT 102 29 ""
PROMPT 103 29 ""
ITEM " |"
ITEM "1|"
ITEM "2|"
@ -534,7 +542,7 @@ END
LISTA 58
BEGIN
KEY "CODICE CARICA 4"
PROMPT 110 29 ""
PROMPT 111 29 ""
ITEM " |"
ITEM "1|"
ITEM "2|"
@ -547,7 +555,7 @@ END
LISTA 59
BEGIN
KEY "CODICE CARICA 5"
PROMPT 119 29 ""
PROMPT 120 29 ""
ITEM " |"
ITEM "1|"
ITEM "2|"
@ -560,7 +568,7 @@ END
LISTA 60
BEGIN
KEY "CODICE CARICA 6"
PROMPT 127 29 ""
PROMPT 129 29 ""
ITEM " |"
ITEM "1|"
ITEM "2|"
@ -665,6 +673,7 @@ BEGIN
PROMPT 93 4 ""
FLAGS "H"
FIELD 216@->CIVRF
FIELD 216@->CIVRES
MESSAGE APPEND,75
END
@ -677,7 +686,7 @@ END
STRINGA 76
BEGIN
KEY "TELEFONO PREFISSO"
PROMPT 99 37 ""
PROMPT 101 37 ""
FIELD 216@->PTELRF
END
@ -700,6 +709,7 @@ BEGIN
KEY "LUOGO CONSERVAZIONE S.C. - COM"
PROMPT 25 39 ""
FIELD 513@->DENCOM
FIEDL 213@->DENCOM
END
STRINGA 80
@ -707,6 +717,7 @@ BEGIN
KEY "LUOGO CONSERVAZIONE S.C. - PROV"
PROMPT 92 39 ""
FIELD 513@->PROVCOM
FIELD 213@->PROVCOM
END
STRINGA 81
@ -714,6 +725,8 @@ BEGIN
KEY "LUOGO CONSERVAZIONE S.C. - VIA"
PROMPT 25 40 ""
FIELD 10->INDCS
FIELD 316@->INDRF
FIELD 316@->INDRES
END
STRINGA 82
@ -721,6 +734,8 @@ BEGIN
KEY "LUOGO CONSERVAZIONE S.C. - CIV"
PROMPT 82 40 ""
FIELD 10->CIVCS
FIELD 316@->CIVRF
FIELD 316@->CIVRES
END
STRINGA 83
@ -728,6 +743,8 @@ BEGIN
KEY "LUOGO CONSERVAZIONE S.C. - CAP"
PROMPT 112 40 ""
FIELD 10->CAPCS
FIELD 316@->CAPRF
FIELD 316@->CAPRES
END
END

2
m770/77base2.frm

@ -991,7 +991,7 @@ END
NUMERO 123
BEGIN
KEY "I27-12 Ritenuta acc.(pr.3) "
PROMPT 23 53 ""
PROMPT 27 53 ""
PICTURE "###.###.###.###^^^"
FIELD 37->G0RACC3
END

18
m770/77base3.frm

@ -98,14 +98,18 @@ BEGIN
MESSAGE ADD,FL->2
END
NUMERO 5
LISTA 5
BEGIN
KEY "RSS"
PROMPT 100 1 ""
ITEM " | "
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD 42->QLRSS
END
NUMERO 6
STRINGA 6
BEGIN
KEY "Note"
PROMPT 111 1 ""
@ -133,6 +137,13 @@ BEGIN
FIELD 42->QLCT
END
STRINGA 10
BEGIN
KEY "Art.Bil."
PROMPT 54 3 ""
FIELD 42->QLAB
END
STRINGA 11
BEGIN
KEY "DATA VERS."
@ -152,8 +163,7 @@ STRINGA 13
BEGIN
KEY "NUMERO"
PROMPT 99 3 ""
FIELD 42->QLNUMERO
PICTURE "#####^^^^^^"
FIELD 42->QLNUMERO[1,5]
END
END

76
m770/77base4.frm

@ -40,7 +40,7 @@ SECTION HEADER FIRST 7
NUMERO 1
BEGIN
KEY "M1"
PROMPT 61 1 ""
PROMPT 60 1 ""
FIELD 37->ECCRIT12
PICTURE "###.###.###.###^^^"
END
@ -56,7 +56,7 @@ END
NUMERO 3
BEGIN
KEY "M3"
PROMPT 61 3 ""
PROMPT 60 3 ""
FIELD 37->CRIMPDL
PICTURE "###.###.###.###^^^"
END
@ -64,7 +64,7 @@ END
NUMERO 4
BEGIN
KEY "M4"
PROMPT 61 5 ""
PROMPT 60 5 ""
FIELD 37->CRIMPIVA
PICTURE "###.###.###.###^^^"
END
@ -92,21 +92,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 +114,7 @@ END
NUMERO 4
BEGIN
KEY "Compensi"
PROMPT 60 1 ""
PROMPT 58 1 ""
FIELD 72->COMPENSI
PICTURE "###.###.###.###^^^"
END
@ -122,21 +122,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 +144,7 @@ END
NUMERO 8
BEGIN
KEY "Compensi"
PROMPT 119 1 ""
PROMPT 116 1 ""
FIELD 72->COMPENSI
PICTURE "###.###.###.###^^^"
END
@ -156,21 +156,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 +178,7 @@ END
NUMERO 4
BEGIN
KEY "R - Compensi"
PROMPT 62 1 ""
PROMPT 58 1 ""
FIELD 75->COMPENSI
PICTURE "###.###.###.###^^^"
END
@ -186,21 +186,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 +208,7 @@ END
NUMERO 8
BEGIN
KEY "R - Compensi"
PROMPT 120 1 ""
PROMPT 116 1 ""
FIELD 75->COMPENSI
PICTURE "###.###.###.###^^^"
END
@ -220,47 +220,47 @@ SECTION HEADER EVEN 1
NUMERO 1
BEGIN
KEY "PS Imp.versata"
PROMPT 24 1 ""
PROMPT 22 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 2
BEGIN
KEY "PS Inter.lav.dip"
PROMPT 41 1 ""
PROMPT 38 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 3
BEGIN
KEY "PS Inter.dat.lav."
PROMPT 56 1 ""
PROMPT 53 1 ""
PICTURE "###.###.###.###^^^"
END
STRINGA 4
BEGIN
KEY "PS Modalita' vers"
PROMPT 76 1 ""
PROMPT 73 1 ""
END
STRINGA 5
BEGIN
KEY "PS Cod.trib"
PROMPT 82 1 ""
PROMPT 80 1 ""
END
DATA 6
BEGIN
KEY "PS DATA VERS."
PROMPT 89 1 ""
PICTURE " ## ^ ## ^####"
PICTURE "## ^ ## ^####"
END
STRINGA 7
BEGIN
KEY "PS Serie"
PROMPT 108 1 ""
PROMPT 107 1 ""
END
STRINGA 8
@ -276,21 +276,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
@ -298,7 +298,7 @@ END
NUMERO 4
BEGIN
KEY "Q Contr.rimborsati"
PROMPT 65 1 ""
PROMPT 75 1 ""
FIELD 74->CONTRIMB
PICTURE "###.###.###.###^^^"
END
@ -306,7 +306,7 @@ END
NUMERO 5
BEGIN
KEY "Q Interes.e/o soprattasse"
PROMPT 94 1 ""
PROMPT 104 1 ""
FIELD 74->INTERESSI
PICTURE "###.###.###.###^^^"
END
@ -314,7 +314,7 @@ END
STRINGA 6
BEGIN
KEY "Q Cod.Reg"
PROMPT 123 1 ""
PROMPT 126 1 ""
FIELD 74->CODREG
END
@ -325,21 +325,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
@ -347,7 +347,7 @@ END
NUMERO 4
BEGIN
KEY "T Contr.rimborsati"
PROMPT 65 1 ""
PROMPT 75 1 ""
FIELD 77->CONTRIMB
PICTURE "###.###.###.###^^^"
END
@ -355,7 +355,7 @@ END
NUMERO 5
BEGIN
KEY "T Interes.e/o soprattasse"
PROMPT 94 1 ""
PROMPT 104 1 ""
FIELD 77->INTERESSI
PICTURE "###.###.###.###^^^"
END
@ -363,7 +363,7 @@ END
STRINGA 6
BEGIN
KEY "T Cod.Reg"
PROMPT 123 1 ""
PROMPT 126 1 ""
FIELD 77->CODREG
END

88
m770/77busta.frm

@ -40,21 +40,21 @@ END
STRINGA 1
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 48 11 ""
PROMPT 48 10 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 22 14 ""
PROMPT 22 13 ""
FIELD 106@->RAGSOC
END
STRINGA 6
BEGIN
KEY "VIA di RES."
PROMPT 22 17 ""
PROMPT 22 16 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
END
@ -62,7 +62,7 @@ END
STRINGA 7
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 17 ""
PROMPT 104 16 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
END
@ -70,7 +70,7 @@ END
STRINGA 8
BEGIN
KEY "CAP"
PROMPT 22 20 ""
PROMPT 22 19 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
END
@ -78,202 +78,202 @@ END
STRINGA 9
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 34 20 ""
PROMPT 34 19 ""
FIELD 113@->DENCOM
END
STRINGA 10
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 116 20 ""
PROMPT 119 19 ""
FIELD 113@->PROVCOM
END
STRINGA 650
BEGIN
KEY "Quadro A"
PROMPT 95 24 ""
PROMPT 96 23 ""
FIELD 37->QCOMP[1,1]
END
STRINGA 651
BEGIN
KEY "Quadro A1"
PROMPT 100 24 ""
PROMPT 101 23 ""
FIELD 37->QCOMP[2,2]
END
STRINGA 652
BEGIN
KEY "Quadro A2"
PROMPT 105 24 ""
PROMPT 106 23 ""
FIELD 37->QCOMP[3,3]
END
STRINGA 653
BEGIN
KEY "Quadro A3"
PROMPT 110 24 ""
PROMPT 111 23 ""
FIELD 37->QCOMP[4,4]
END
STRINGA 660
BEGIN
KEY "Quadro B"
PROMPT 116 24 ""
PROMPT 116 23 ""
FIELD 37->QCOMP[5,5]
END
STRINGA 661
BEGIN
KEY "Quadro B1"
PROMPT 121 24 ""
PROMPT 121 23 ""
FIELD 37->QCOMP[6,6]
END
STRINGA 670
BEGIN
KEY "Quadro C"
PROMPT 24 26 ""
PROMPT 24 25 ""
FIELD 37->QCOMP[7,7]
END
STRINGA 680
BEGIN
KEY "Quadro D"
PROMPT 29 26 ""
PROMPT 29 25 ""
FIELD 37->QCOMP[8,8]
END
STRINGA 681
BEGIN
KEY "Quadro D1"
PROMPT 34 26 ""
PROMPT 34 25 ""
FIELD 37->QCOMP[9,9]
END
STRINGA 690
BEGIN
KEY "Quadro E"
PROMPT 39 26 ""
PROMPT 39 25 ""
FIELD 37->QCOMP[10,10]
END
STRINGA 691
BEGIN
KEY "Quadro E1"
PROMPT 44 26 ""
PROMPT 44 25 ""
FIELD 37->QCOMP[11,11]
END
STRINGA 692
BEGIN
KEY "Quadro E2"
PROMPT 49 26 ""
PROMPT 49 25 ""
FIELD 37->QCOMP[12,12]
END
STRINGA 700
BEGIN
KEY "Quadro F"
PROMPT 54 26 ""
PROMPT 54 25 ""
FIELD 37->QCOMP[13,13]
END
STRINGA 701
BEGIN
KEY "Quadro F1"
PROMPT 59 26 ""
PROMPT 59 25 ""
FIELD 37->QCOMP[14,14]
END
STRINGA 702
BEGIN
KEY "Quadro F2"
PROMPT 64 26 ""
PROMPT 64 25 ""
FIELD 37->QCOMP[15,15]
END
STRINGA 710
BEGIN
KEY "Quadro G"
PROMPT 70 26 ""
PROMPT 70 25 ""
FIELD 37->QCOMP[16,16]
END
STRINGA 711
BEGIN
KEY "Quadro G1"
PROMPT 75 26 ""
PROMPT 75 25 ""
FIELD 37->QCOMP[17,17]
END
STRINGA 720
BEGIN
KEY "Quadro H"
PROMPT 80 26 ""
PROMPT 80 25 ""
FIELD 37->QCOMP[18,18]
END
STRINGA 730
BEGIN
KEY "Quadro I"
PROMPT 85 26 ""
PROMPT 85 25 ""
FIELD 37->QCOMP[19,19]
END
STRINGA 740
BEGIN
KEY "Quadro L"
PROMPT 95 26 ""
PROMPT 90 25 ""
END
STRINGA 760
BEGIN
KEY "Quadro N"
PROMPT 100 26 ""
PROMPT 96 25 ""
FIELD 37->QCOMP[20,20]
END
STRINGA 780
BEGIN
KEY "Quadro P"
PROMPT 105 26 ""
PROMPT 101 25 ""
FIELD 37->QCOMP[21,21]
END
STRINGA 790
BEGIN
KEY "Quadro Q"
PROMPT 110 26 ""
PROMPT 106 25 ""
FIELD 37->QCOMP[22,22]
END
STRINGA 800
BEGIN
KEY "Quadro R"
PROMPT 116 26 ""
PROMPT 111 25 ""
FIELD 37->QCOMP[23,23]
END
STRINGA 810
BEGIN
KEY "Quadro S"
PROMPT 121 26 ""
PROMPT 116 25 ""
FIELD 37->QCOMP[24,24]
END
STRINGA 820
BEGIN
KEY "Quadro T"
PROMPT 126 26 ""
PROMPT 121 25 ""
FIELD 37->QCOMP[25,25]
END
STRINGA 20
BEGIN
KEY "Allegati mod.730"
PROMPT 116 28 ""
PROMPT 111 27 ""
END
STRINGA 21
@ -287,8 +287,8 @@ END
STRINGA 22
BEGIN
KEY "Dischiarazione su supporto magnetico"
PROMPT 116 30 ""
KEY "Dichiarazione su supporto magnetico"
PROMPT 111 29 ""
END
STRINGA 30
@ -296,21 +296,21 @@ BEGIN
KEY "Codice centro di servizio"
FLAGS "H"
FIELD 113@->UFFCSERV
MESSAGE EMPTY ENABLE,10@|DISABLE,20@
MESSAGE ENABLE,20@|DISABLE,10@
MESSAGE EMPTY DISABLE,10@|ENABLE,20@
MESSAGE DISABLE,20@|ENABLE,10@
END
STRINGA 31
BEGIN
KEY "Centro servizio"
PROMPT 142 41 "CENTRO SERVIZIO"
PROMPT 142 40 "CENTRO SERVIZIO"
GROUP 10
END
STRINGA 32
BEGIN
KEY "C.A.P. Centro servizio"
PROMPT 138 46 ""
PROMPT 138 45 ""
FIELD 104@->S7
GROUP 10
END
@ -318,7 +318,7 @@ END
STRINGA 33
BEGIN
KEY "Comune Centro servizio"
PROMPT 170 46 ""
PROMPT 170 45 ""
FIELD 104@->S0
GROUP 10
END
@ -326,14 +326,14 @@ END
STRINGA 34
BEGIN
KEY "Ufficio distrettuale"
PROMPT 142 41 "UFFICIO DISTRETTUALE"
PROMPT 142 40 "UFFICIO DISTRETTUALE"
GROUP 20
END
STRINGA 35
BEGIN
KEY "C.A.P. Ufficio distrettuale"
PROMPT 138 46 ""
PROMPT 138 45 ""
FIELD 204@->S7
FIELD 213@->CAPCOM
GROUP 20
@ -342,7 +342,7 @@ END
STRINGA 36
BEGIN
KEY "Comune Ufficio distrettuale"
PROMPT 170 46 ""
PROMPT 170 45 ""
FIELD 204@->S0
GROUP 20
END

30
m770/77qa.frm

@ -46,14 +46,14 @@ END
STRINGA 2
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
PROMPT 3 11 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
PROMPT 39 11 ""
GROUP 2
FIELD 106@->RAGSOC
END
@ -61,7 +61,7 @@ END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
PROMPT 39 11 ""
GROUP 1
FIELD 106@->RAGSOC[1,30]
END
@ -69,7 +69,7 @@ END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 14 ""
PROMPT 17 13 ""
GROUP 1
FIELD 106@->RAGSOC[31,50]
END
@ -77,7 +77,7 @@ END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 58 14 ""
PROMPT 58 13 ""
GROUP 1
FIELD 108@->SESSO
END
@ -85,7 +85,7 @@ END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 14 ""
PROMPT 67 13 ""
GROUP 1
FIELD 108@->DATANASC
END
@ -93,7 +93,7 @@ END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
PROMPT 84 13 ""
GROUP 1
FIELD 113@->DENCOM
END
@ -101,7 +101,7 @@ END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 14 ""
PROMPT 125 13 ""
GROUP 1
FIELD 113@->PROVCOM
END
@ -109,21 +109,21 @@ END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
PROMPT 17 15 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 16 ""
PROMPT 59 15 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 66 16 ""
PROMPT 66 15 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
END
@ -131,7 +131,7 @@ END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 16 ""
PROMPT 104 15 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
END
@ -139,7 +139,7 @@ END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 123 16 ""
PROMPT 123 15 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
END
@ -147,13 +147,13 @@ END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 85 19 ""
PROMPT 85 18 ""
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 22 ""
PROMPT 125 21 ""
END
END

30
m770/77qa1.frm

@ -45,14 +45,14 @@ END
STRINGA 2
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 13 ""
PROMPT 3 12 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 40 13 ""
PROMPT 40 12 ""
GROUP 2
FIELD 106@->RAGSOC
END
@ -60,7 +60,7 @@ END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 13 ""
PROMPT 40 12 ""
GROUP 1
FIELD 106@->RAGSOC[1,30]
END
@ -68,7 +68,7 @@ END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 15 ""
PROMPT 17 14 ""
GROUP 1
FIELD 106@->RAGSOC[31,50]
END
@ -76,7 +76,7 @@ END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 58 15 ""
PROMPT 58 14 ""
GROUP 1
FIELD 108@->SESSO
END
@ -84,7 +84,7 @@ END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 15 ""
PROMPT 67 14 ""
GROUP 1
FIELD 108@->DATANASC
END
@ -92,7 +92,7 @@ END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 15 ""
PROMPT 84 14 ""
GROUP 1
FIELD 113@->DENCOM
END
@ -100,7 +100,7 @@ END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 15 ""
PROMPT 126 14 ""
GROUP 1
FIELD 113@->PROVCOM
END
@ -108,21 +108,21 @@ END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 17 ""
PROMPT 17 16 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 17 ""
PROMPT 59 16 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 66 17 ""
PROMPT 66 16 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
END
@ -130,7 +130,7 @@ END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 17 ""
PROMPT 104 16 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
END
@ -138,7 +138,7 @@ END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 125 17 ""
PROMPT 125 16 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
END
@ -146,13 +146,13 @@ END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 20 ""
PROMPT 87 19 ""
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 23 ""
PROMPT 125 22 ""
END
END

31
m770/77qa2.frm

@ -46,14 +46,14 @@ END
STRINGA 2
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 13 ""
PROMPT 3 12 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 40 13 ""
PROMPT 40 12 ""
GROUP 2
FIELD 106@->RAGSOC
END
@ -61,7 +61,7 @@ END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 13 ""
PROMPT 40 12 ""
GROUP 1
FIELD 106@->RAGSOC[1,30]
END
@ -69,7 +69,7 @@ END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 15 ""
PROMPT 17 14 ""
GROUP 1
FIELD 106@->RAGSOC[31,50]
END
@ -77,7 +77,7 @@ END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 59 15 ""
PROMPT 59 14 ""
GROUP 1
FIELD 108@->SESSO
END
@ -85,7 +85,7 @@ END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 15 ""
PROMPT 67 14 ""
GROUP 1
FIELD 108@->DATANASC
END
@ -93,7 +93,7 @@ END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 15 ""
PROMPT 84 14 ""
GROUP 1
FIELD 113@->DENCOM
END
@ -101,7 +101,7 @@ END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 15 ""
PROMPT 125 14 ""
GROUP 1
FIELD 113@->PROVCOM
END
@ -109,21 +109,21 @@ END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 17 ""
PROMPT 17 16 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 17 ""
PROMPT 59 16 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 66 17 ""
PROMPT 66 16 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
END
@ -131,7 +131,7 @@ END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 17 ""
PROMPT 104 16 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
END
@ -139,7 +139,7 @@ END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 123 17 ""
PROMPT 123 16 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
END
@ -147,13 +147,13 @@ END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 20 ""
PROMPT 87 19 ""
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 23 ""
PROMPT 125 22 ""
END
END
@ -357,6 +357,7 @@ NUMERO 25
BEGIN
KEY "NUMERO ISCRIZIONE ALBO"
PROMPT 125 9 ""
PICTURE "#####"
FIELD 104@->I1
END

26
m770/77qa3.frm

@ -55,7 +55,7 @@ END
STRINGA 2
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 13 ""
PROMPT 3 12 ""
FIELD 106@->COFI
GROUP 10
END
@ -63,7 +63,7 @@ END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 40 13 ""
PROMPT 40 12 ""
FIELD 106@->RAGSOC
GROUP 10 12
END
@ -71,7 +71,7 @@ END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 13 ""
PROMPT 40 12 ""
FIELD 106@->RAGSOC[1,30]
GROUP 10 11
END
@ -79,7 +79,7 @@ END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 15 ""
PROMPT 17 14 ""
FIELD 106@->RAGSOC[31,50]
GROUP 10 11
END
@ -87,7 +87,7 @@ END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 59 15 ""
PROMPT 59 14 ""
FIELD 108@->SESSO
GROUP 10 11
END
@ -95,7 +95,7 @@ END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 15 ""
PROMPT 67 14 ""
FIELD 108@->DATANASC
GROUP 10 11
END
@ -103,7 +103,7 @@ END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 15 ""
PROMPT 84 14 ""
FIELD 113@->DENCOM
GROUP 10 11
END
@ -111,7 +111,7 @@ END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 15 ""
PROMPT 126 14 ""
FIELD 113@->PROVCOM
GROUP 10 11
END
@ -119,7 +119,7 @@ END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 17 ""
PROMPT 17 16 ""
FIELD 213@->DENCOM
GROUP 10
END
@ -127,7 +127,7 @@ END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 17 ""
PROMPT 59 16 ""
FIELD 213@->PROVCOM
GROUP 10
END
@ -135,7 +135,7 @@ END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 17 ""
PROMPT 67 16 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
GROUP 10
@ -144,7 +144,7 @@ END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 17 ""
PROMPT 104 16 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
GROUP 10
@ -153,7 +153,7 @@ END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 123 17 ""
PROMPT 123 16 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
GROUP 10

718
m770/77qb.frm

@ -1,4 +1,3 @@
<<<<<<< 77qb.frm
USE 59
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN 9 INTO CODDITTA=CODDITTA
@ -44,14 +43,14 @@ END
STRINGA 2
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
PROMPT 3 11 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
PROMPT 39 11 ""
GROUP 2
FIELD 106@->RAGSOC
END
@ -59,7 +58,7 @@ END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
PROMPT 39 11 ""
GROUP 1
FIELD 106@->RAGSOC[1,30]
END
@ -67,7 +66,7 @@ END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 14 ""
PROMPT 17 13 ""
GROUP 1
FIELD 106@->RAGSOC[31,50]
END
@ -75,7 +74,7 @@ END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 58 14 ""
PROMPT 58 13 ""
GROUP 1
FIELD 108@->SESSO
END
@ -83,7 +82,7 @@ END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 14 ""
PROMPT 67 13 ""
GROUP 1
FIELD 108@->DATANASC
END
@ -91,7 +90,7 @@ END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
PROMPT 84 13 ""
GROUP 1
FIELD 113@->DENCOM
END
@ -99,7 +98,7 @@ END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 14 ""
PROMPT 125 13 ""
GROUP 1
FIELD 113@->PROVCOM
END
@ -107,21 +106,21 @@ END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
PROMPT 17 15 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 16 ""
PROMPT 59 15 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 66 16 ""
PROMPT 66 15 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
END
@ -129,7 +128,7 @@ END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 16 ""
PROMPT 104 15 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
END
@ -137,7 +136,7 @@ END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 123 16 ""
PROMPT 123 15 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
END
@ -145,699 +144,13 @@ END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 85 19 ""
PROMPT 85 18 ""
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 22 ""
END
END
SECTION BODY ODD 12
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 11 1 ""
FIELD 45->CODFI
END
STRINGA 2
BEGIN
KEY "COGNOME"
PROMPT 44 1 ""
FIELD 45->COGNOME
END
STRINGA 3
BEGIN
KEY "NOME"
PROMPT 82 1 ""
FIELD 45->NOME
END
DATA 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 1 ""
FIELD 45->DATANA
FORMAT "1444-"
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 128 1 ""
FIELD 45->SESSO
END
STRINGA 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 11 3 ""
FIELD 45->COMUNENA
END
STRINGA 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 47 3 ""
FIELD 45->PROVNA
END
STRINGA 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 54 3 ""
FIELD 45->COMRES
END
STRINGA 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 88 3 ""
FIELD 45->PROVRES
END
STRINGA 10
BEGIN
KEY "INDIRIZZO RES."
PROMPT 95 3 ""
FIELD 45->INDRES
END
DATA 11
BEGIN
KEY "DATA INIZIO RAPPORTO"
PROMPT 12 5 ""
PICTURE "## ^ ## ^ ^^##"
FIELD DATAINI
END
DATA 12
BEGIN
KEY "DATA FINE RAPPORTO"
PROMPT 31 5 ""
PICTURE "## ^ ## ^ ^^##"
FIELD DATAFIN
END
NUMERO 131
BEGIN
KEY "ANNI COMMISURAZIONE"
PROMPT 49 5 ""
FIELD ANNICOMM
END
NUMERO 132
BEGIN
KEY "MESI COMMISURAZIONE"
PROMPT 55 5 ""
FIELD MESICOMM
END
NUMERO 141
BEGIN
KEY "ANNI CONVENZIONALI"
PROMPT 61 5 ""
FIELD ANNICONV
END
NUMERO 142
BEGIN
KEY "MESI CONVENZIONALI"
PROMPT 66 5 ""
FIELD MESICONV
END
NUMERO 151
BEGIN
KEY "ANNI PARZIALI"
PROMPT 73 5 ""
FIELD ANNIPARZ
END
NUMERO 152
BEGIN
KEY "MESI PARZIALI"
PROMPT 80 5 ""
FIELD MESIPARZ
END
NUMERO 153
BEGIN
KEY "PERCENTUALE TEMPO PARZIALE"
PROMPT 85 5 ""
FIELD PERCPARZ
END
NUMERO 16
BEGIN
KEY "QUOTA ECCEDENTE"
PROMPT 90 5 ""
PICTURE "###.###.###^^^"
FIELD QUOTAECC
MESSAGE ADD,FL->16
END
NUMERO 17
BEGIN
KEY "MESE EROGAZIONE"
PROMPT 103 5 ""
FIELD MESEEROG
END
STRINGA 18
BEGIN
KEY "TITOLO EROGAZIONE"
PROMPT 109 5 ""
FIELD TITEROG
END
NUMERO 19
BEGIN
KEY "PERCENTUALE ABBATTIMENTO"
PROMPT 114 5 ""
FIELD PERCABB
END
NUMERO 20
BEGIN
KEY "AMMONTARE NETTO"
PROMPT 117 5 ""
PICTURE "###.###.###.###^^^"
FIELD AMMNETTO
MESSAGE ADD,FL->20
END
NUMERO 21
BEGIN
KEY "MESE EROGAZIONE"
PROMPT 11 7 ""
FIELD MESEEROG2
END
STRINGA 22
BEGIN
KEY "TITOLO EROGAZIONE"
PROMPT 16 7 ""
FIELD TITEROG2
END
NUMERO 23
BEGIN
KEY "PERCENTUALE ABBATTIMENTO"
PROMPT 21 7 ""
FIELD PERCABB2
END
NUMERO 24
BEGIN
KEY "AMMONTARE NETTO"
PROMPT 34 7 ""
PICTURE "###.###.###^^^"
FIELD AMMNETTO2
MESSAGE ADD,FL->24
END
NUMERO 25
BEGIN
KEY "CONTRIBUTI OBBLIGATORI LAVORATORE"
PROMPT 48 7 ""
PICTURE "###.###.###.###^^^"
FIELD CONTLAV
MESSAGE ADD,FL->25
END
NUMERO 26
BEGIN
KEY "T.F.R."
PROMPT 67 7 ""
PICTURE "###.###.###.###^^^"
FIELD TFR7494
MESSAGE ADD,FL->26
END
NUMERO 27
BEGIN
KEY "ALTRE INDENNITA'"
PROMPT 84 7 ""
PICTURE "###.###.###.###^^^"
FIELD INDEN7494
MESSAGE ADD,FL->27
END
NUMERO 28
BEGIN
KEY "TOTALE INDENNITA'"
PROMPT 103 7 ""
PICTURE "###.###.###^^^"
FIELD TIND7494
MESSAGE ADD,FL->28
END
NUMERO 29
BEGIN
KEY "TOTALE RIDUZIONI"
PROMPT 117 7 ""
PICTURE "###.###.###.###^^^"
FIELD TRID
MESSAGE ADD,FL->29
END
NUMERO 30
BEGIN
KEY "T.F.R. PER REDDITO DI RIFERIMENTO"
PROMPT 10 9 ""
PICTURE "###.###.###.###^^^"
FIELD TFRIND
MESSAGE ADD,FL->30
END
NUMERO 31
BEGIN
KEY "ALIQUOTA"
PROMPT 27 9 ""
FIELD ALIQUOTA
END
NUMERO 32
BEGIN
KEY "RETRIBUZIONE MEDIA BIENNIO PRECEDENTE"
PROMPT 32 9 ""
PICTURE "###.###.###.###^^^"
FIELD RETRMEDIA
END
NUMERO 33
BEGIN
KEY "ALIQUOTA"
PROMPT 50 9 ""
FIELD ALIQUOTA2
END
NUMERO 34
BEGIN
KEY "IMPONIBILE T.F.R."
PROMPT 54 9 ""
PICTURE "###.###.###.###^^^"
FIELD IMPTFR
MESSAGE ADD,FL->34
END
NUMERO 35
BEGIN
KEY "IMPONIBILE ALTRE INDENNITA'"
PROMPT 71 9 ""
PICTURE "###.###.###.###^^^"
FIELD IMPIND
MESSAGE ADD,FL->35
END
NUMERO 36
BEGIN
KEY "IMPONIBILE DELL'ANNO"
PROMPT 85 9 ""
PICTURE "###.###.###.###^^^"
FIELD IMPANNO
MESSAGE ADD,FL->36
END
NUMERO 37
BEGIN
KEY "TOTALE REDDITO IMPONIBILE"
PROMPT 101 9 ""
PICTURE "###.###.###.###^^^"
FIELD TOTIMP
MESSAGE ADD,FL->37
END
NUMERO 38
BEGIN
KEY "RITENUTE OPERATE"
PROMPT 117 9 ""
PICTURE "###.###.###.###^^^"
FIELD ROPEACC
MESSAGE ADD,FL->38
END
NUMERO 39
BEGIN
KEY "IMPOSTA DOVUTA"
PROMPT 10 11 ""
PICTURE "###.###.###.###^^^"
FIELD IMPDOV
MESSAGE ADD,FL->39
END
NUMERO 40
BEGIN
KEY "RITENUTE FISCALI"
PROMPT 27 11 ""
PICTURE "###.###.###.###^^^"
FIELD RITECC
MESSAGE ADD,FL->40
END
NUMERO 41
BEGIN
KEY "QUOTA SPETTANTE"
PROMPT 44 11 ""
PICTURE "###.###.###.###^^^"
FIELD QUOTASPET
END
NUMERO 42
BEGIN
KEY "INDENNITA' SPETTANTE"
PROMPT 61 11 ""
PICTURE "###.###.###.###^^^"
FIELD INDSPETT
MESSAGE ADD,FL->42
END
NUMERO 43
BEGIN
KEY "RITENUTE OPERATE"
PROMPT 78 11 ""
PICTURE "###.###.###.###^^^"
FIELD ROPE
MESSAGE ADD,FL->43
END
NUMERO 44
BEGIN
KEY "IMPONIBILE C.S.S.N."
PROMPT 95 11 ""
PICTURE "###.###.###.###^^^"
FIELD IMPOCSSN
MESSAGE ADD,FL->44
END
END
SECTION FOOTER LAST 8
NUMERO 16
BEGIN
KEY "QUOTA ECCEDENTE"
PROMPT 90 1 ""
PICTURE "###.###.###^^^"
END
NUMERO 20
BEGIN
KEY "AMMONTARE NETTO"
PROMPT 117 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 24
BEGIN
KEY "AMMONTARE NETTO"
PROMPT 26 3 ""
PICTURE "###.###.###^^^"
END
NUMERO 25
BEGIN
KEY "CONTRIBUTI OBBLIGATORI LAVORATORE"
PROMPT 41 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 26
BEGIN
KEY "T.F.R."
PROMPT 60 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 27
BEGIN
KEY "ALTRE INDENNITA'"
PROMPT 72 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 28
BEGIN
KEY "TOTALE INDENNITA'"
PROMPT 103 3 ""
PICTURE "###.###.###^^^"
END
NUMERO 29
BEGIN
KEY "TOTALE INDENNITA'"
PROMPT 117 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 30
BEGIN
KEY "T.F.R. PER REDDITO DI RIFERIMENTO"
PROMPT 10 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 34
BEGIN
KEY "IMPONIBILE T.F.R."
PROMPT 54 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 35
BEGIN
KEY "IMPONIBILE ALTRE INDENNITA'"
PROMPT 71 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 36
BEGIN
KEY "IMPONIBILE DELL'ANNO"
PROMPT 85 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 37
BEGIN
KEY "TOTALE REDDITO IMPONIBILE"
PROMPT 101 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 38
BEGIN
KEY "RITENUTE OPERATE"
PROMPT 117 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 39
BEGIN
KEY "IMPOSTA DOVUTA"
PROMPT 10 7 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 40
BEGIN
KEY "RITENUTE FISCALI"
PROMPT 27 7 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 42
BEGIN
KEY "INDENNITA' SPETTANTE"
PROMPT 61 7 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 43
BEGIN
KEY "RITENUTE OPERATE"
PROMPT 78 7 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 44
BEGIN
KEY "IMPONIBILE C.S.S.N."
PROMPT 95 7 ""
PICTURE "###.###.###.###^^^"
END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 23 ""
FIELD 106@->RAGSOC
END
END
=======
USE 59
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
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)
END
DESCRIPTION
BEGIN
59->* "Quadro B 770"
45->* "Anagrafica dei dipendenti"
9->* "Ditte"
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
108@->* "Anagrafica persone fisiche (ditta)"
113@->* "Comuni DITTA (nascita)"
213@->* "Comuni DITTA (residenza)"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 11
CARATTERE "X"
INIZIO_POS 3 2
FINE_POS 131
GRID "+++++++++-|"
END
SECTION HEADER FIRST 28
LISTA 1
BEGIN
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
STRINGA 2
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
GROUP 2
FIELD 106@->RAGSOC
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
GROUP 1
FIELD 106@->RAGSOC[1,30]
END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 14 ""
GROUP 1
FIELD 106@->RAGSOC[31,50]
END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 58 14 ""
GROUP 1
FIELD 108@->SESSO
END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 14 ""
GROUP 1
FIELD 108@->DATANASC
END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
GROUP 1
FIELD 113@->DENCOM
END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 14 ""
GROUP 1
FIELD 113@->PROVCOM
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 16 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 66 16 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 16 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 123 16 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 85 19 ""
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 22 ""
PROMPT 125 21 ""
END
END
@ -1374,5 +687,4 @@ END
END
>>>>>>> 1.3
END

32
m770/77qd.frm

@ -37,7 +37,7 @@ BEGIN
FI 131
END
SECTION HEADER FIRST 31
SECTION HEADER FIRST 19
LISTA 9
BEGIN
@ -50,14 +50,14 @@ END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 4 12 ""
PROMPT 4 1 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
PROMPT 39 1 ""
FIELD 116@->RAGSOC
GROUP 2
END
@ -65,7 +65,7 @@ END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
PROMPT 39 1 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
@ -73,7 +73,7 @@ END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 14 ""
PROMPT 17 3 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
@ -81,7 +81,7 @@ END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 58 14 ""
PROMPT 58 3 ""
FIELD 118@->SESSO
GROUP 1
END
@ -89,7 +89,7 @@ END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 66 14 ""
PROMPT 66 3 ""
FIELD 118@->DATANASC
GROUP 1
END
@ -97,7 +97,7 @@ END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
PROMPT 84 3 ""
FIELD 113@->DENCOM
GROUP 1
END
@ -105,7 +105,7 @@ END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 14 ""
PROMPT 126 3 ""
FIELD 113@->PROVCOM
GROUP 1
END
@ -113,21 +113,21 @@ END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
PROMPT 17 5 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 16 ""
PROMPT 59 5 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 66 16 ""
PROMPT 66 5 ""
FIELD 116@->INDRF
FIELD 116@->INDRES
END
@ -135,7 +135,7 @@ END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 102 16 ""
PROMPT 102 5 ""
FIELD 116@->CIVRF
FIELD 116@->CIVRES
END
@ -143,7 +143,7 @@ END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 122 16 ""
PROMPT 122 5 ""
FIELD 116@->CAPRF
FIELD 116@->CAPRES
END
@ -151,13 +151,13 @@ END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 118 19 ""
PROMPT 118 8 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 123 22 ""
PROMPT 123 11 ""
END
END

32
m770/77qh.frm

@ -41,14 +41,14 @@ END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
PROMPT 3 10 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
PROMPT 39 10 ""
FIELD 116@->RAGSOC
GROUP 2
END
@ -56,7 +56,7 @@ END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
PROMPT 39 10 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
@ -64,7 +64,7 @@ END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 14 ""
PROMPT 17 12 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
@ -72,7 +72,7 @@ END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 58 14 ""
PROMPT 58 12 ""
FIELD 118@->SESSO
GROUP 1
END
@ -80,7 +80,7 @@ END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 66 14 ""
PROMPT 66 12 ""
FIELD 118@->DATANASC
GROUP 1
END
@ -88,7 +88,7 @@ END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 83 14 ""
PROMPT 83 12 ""
FIELD 113@->DENCOM
GROUP 1
END
@ -96,7 +96,7 @@ END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 14 ""
PROMPT 125 12 ""
FIELD 113@->PROVCOM
GROUP 1
END
@ -104,21 +104,21 @@ END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
PROMPT 17 14 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 16 ""
PROMPT 59 14 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 16 ""
PROMPT 67 14 ""
FIELD 116@->INDRF
FIELD 116@->INDRES
FLAGS "H"
@ -128,7 +128,7 @@ END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 103 16 ""
PROMPT 103 14 ""
FIELD 116@->CIVRF
FIELD 116@->CIVRES
FLAGS "H"
@ -138,13 +138,13 @@ END
STRINGA 17
BEGIN
KEY "VIA + NUM CIV. DI RES."
PROMPT 67 16 ""
PROMPT 67 14 ""
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 124 16 ""
PROMPT 124 14 ""
FIELD 116@->CAPRF
FIELD 116@->CAPRES
END
@ -152,13 +152,13 @@ END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 19 ""
PROMPT 105 17 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 21 ""
PROMPT 125 19 ""
FLAGS "H"
END

69
m770/77ql.frm

@ -23,7 +23,7 @@ BEGIN
FI 131
END
SECTION HEADER FIRST 18
SECTION HEADER FIRST 10
LISTA 1
BEGIN
@ -37,22 +37,22 @@ END
STRINGA 2
BEGIN
KEY "CODICE FISCALE"
PROMPT 21 10 ""
PROMPT 21 1 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 51 10 ""
KEY "RAGIONE SOCIALE (o cognome)"
PROMPT 51 1 ""
GROUP 2
FIELD 106@->RAGSOC
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 51 10 ""
KEY "COGNOME (o ragsoc)"
PROMPT 51 1 ""
GROUP 1
FIELD 106@->RAGSOC[1,30]
END
@ -60,7 +60,7 @@ END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 21 12 ""
PROMPT 21 4 ""
GROUP 1
FIELD 106@->RAGSOC[31,50]
END
@ -68,7 +68,8 @@ END
LISTA 6
BEGIN
KEY "SESSO M"
PROMPT 53 12 ""
PROMPT 53 4 ""
ITEM " | "
ITEM "M|X"
ITEM "F|"
FIELD 108@->SESSO
@ -78,7 +79,8 @@ END
LISTA 7
BEGIN
KEY "SESSO F"
PROMPT 62 12 ""
PROMPT 62 4 ""
ITEM " | "
ITEM "M|"
ITEM "F|X"
FIELD 108@->SESSO
@ -88,7 +90,7 @@ END
STRINGA 8
BEGIN
KEY "DATA DI NASCITA"
PROMPT 68 12 ""
PROMPT 68 4 ""
GROUP 1
FIELD 108@->DATANASC
PICTURE "## ^ ## ^^###"
@ -97,7 +99,7 @@ END
STRINGA 9
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 85 12 ""
PROMPT 85 4 ""
GROUP 1
FIELD 113@->DENCOM
END
@ -105,7 +107,7 @@ END
STRINGA 10
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 12 ""
PROMPT 129 4 ""
GROUP 1
FIELD 113@->PROVCOM
END
@ -113,48 +115,48 @@ END
STRINGA 11
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 56 14 ""
PROMPT 56 6 ""
END
STRINGA 12
BEGIN
KEY "Cod.Conc.1"
PROMPT 41 16 ""
PROMPT 41 9 ""
FIELD 37->L0CCONC1
END
STRINGA 13
BEGIN
KEY "Cod.Conc.2"
PROMPT 53 16 ""
PROMPT 53 9 ""
FIELD 37->L0CCONC2
END
STRINGA 14
BEGIN
KEY "Cod.Conc.3"
PROMPT 63 16 ""
PROMPT 63 9 ""
FIELD 37->L0CCONC3
END
NUMERO 15
BEGIN
KEY "Cod.Tes.1"
PROMPT 102 16 ""
PROMPT 102 9 ""
FIELD 37->L0CTES1
END
NUMERO 16
BEGIN
KEY "Cod.Tes.2"
PROMPT 114 16 ""
PROMPT 114 9 ""
FIELD 37->L0CTES2
END
NUMERO 17
BEGIN
KEY "Cod.Tes.3"
PROMPT 126 16 ""
PROMPT 126 9 ""
FIELD 37->L0CTES3
END
@ -194,14 +196,18 @@ BEGIN
MESSAGE ADD,FL->2
END
NUMERO 5
LISTA 5
BEGIN
KEY "RSS"
PROMPT 100 1 ""
ITEM " | "
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD 42->QLRSS
END
NUMERO 6
STRINGA 6
BEGIN
KEY "Note"
PROMPT 111 1 ""
@ -229,6 +235,13 @@ BEGIN
FIELD 42->QLCT
END
STRINGA 10
BEGIN
KEY "Art.Bil."
PROMPT 54 3 ""
FIELD 42->QLAB
END
STRINGA 11
BEGIN
KEY "DATA VERS."
@ -248,7 +261,7 @@ STRINGA 13
BEGIN
KEY "NUMERO"
PROMPT 99 3 ""
FIELD 42->QLNUMERO
FIELD 42->QLNUMERO[1,5]
END
END
@ -269,6 +282,18 @@ BEGIN
PICTURE "###.###.###.###^^^"
END
STRINGA 3
BEGIN
KEY "DATA"
PROMPT 50 5 ""
END
STRINGA 4
BEGIN
KEY "FIRMA"
PROMPT 120 5 ""
END
END
END

134
m770/77stba.cpp

@ -1,6 +1,21 @@
// Stampa base
#include "77stba.h"
int TBase1::dic_form_len() const
{
if (curr_page()==PRIMA && _PaginaPosizionamento)
return BASE_FORMLEN-HEADER_PRIMA_NOPOS;
else
return BASE_FORMLEN;
}
int TBase1::prima_riga(PaginaQuadro p) const
{
if (p==PRIMA && _PaginaPosizionamento)
return 11;
else
return 11+HEADER_PRIMA_NOPOS;
}
TBase1::TBase1(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro)
{
@ -20,8 +35,6 @@ TBase1::~TBase1()
void TBase1::stampa_corpo(TPrinter& pr)
{
// Salta due righe nelle prime pagine successive alla prima
if (!PaginaPosizionamento()) fill_page(pr, HEADER_PRIMA_NOPOS);
TPrint_section& body = section('B', first_page);
body.reset();
body.update();
@ -35,13 +48,12 @@ void TBase1::stampa_corpo(TPrinter& pr)
progind()->addstatus(1);
}
// accetta solo quelli ATTUALI E con qualifica=A,B o C
// accetta solo quelli con qualifica=A,B o C
bool bFiltraSoci(const TRelation* rel)
{
TString sQual(3), sAttPrec(3);
TString sQual(3);
sQual = rel->lfile().get("RICQUAL");
sAttPrec = rel->lfile().get("ATTPREC");
return (sAttPrec == "A") && (sQual=="A" || sQual=="B" || sQual=="C");
return sQual=="A" || sQual=="B" || sQual=="C";
}
long TBase1::iContaSoci()
@ -55,7 +67,6 @@ long TBase1::iContaSoci()
}
const int _INIZIO_SOCI=53;
void TBase1::stampa_soci(TPrinter& pr)
{
TPrint_section& fut = section('F', first_page);
@ -75,17 +86,11 @@ void TBase1::stampa_soci(TPrinter& pr)
{
int i=0;
TString sRagsoc,sSesso,sComuneNa,sProvNa,sDataNa,sCodFis,sCodQua;
TString sNome,sCognome;
for ((*c)=0L; c->pos() < c->items(); ++(*c))
{
TPrintrow& rg=fut.row(i++);
sCodQua=c->file().get("RICQUAL");
sRagsoc=c->file(LF_ANAG).get("RAGSOC");
sNome=sRagsoc.mid(30,20);
sCognome=sRagsoc.mid(0,29);
sNome.trim();
sCognome.trim();
sRagsoc=sCognome; sRagsoc << " "; sRagsoc << sNome;
sCodFis=c->file(LF_ANAG).get("COFI");
sDataNa=c->file(LF_ANAGFIS).get("DATANASC");
sSesso=c->file(LF_ANAGFIS).get("SESSO");
@ -136,7 +141,6 @@ bool TBase1::print(const long codditta, const long NumFis, const long NumNoFis)
}
jump_to_line(pr, prima_riga(PRIMA));
stampa_corpo(pr);
_PaginaPosizionamento=FALSE;
stampa_soci(pr);
next_page(pr);
close_print();
@ -173,6 +177,16 @@ bool TBase2::print(const long codditta, const long NumFis, const long NumNoFis)
return TRUE;
}
long TBase3::filtra(const long codditta)
{
TString filtr(24);
_codditta=codditta;
filtr.format("(CODDITTA==%ld)&&(QLAP==%d)", codditta, anno_770());
cursor()->setfilter(filtr, TRUE);
const long items = cursor()->items();
return items;
}
void TBase3::stampa_testata(TPrinter& pr)
{
TPrint_section& hh = section('H', first_page);
@ -196,11 +210,12 @@ int TBase3::stampa_L(TPrinter& pr,const int iChiaveL)
TCursor& cur = *cursor();
// Le chiavi nel file e nel .ini sono saggiamente scambiate
if (iChiaveL==2) cur.setkey(1);
else cur.setkey(2);
if (iChiaveL==2)
cur.setkey(1);
else
cur.setkey(2);
filtra(_codditta);
cur=0L;
bool finito=FALSE;
int righe=0;
@ -316,6 +331,7 @@ TRigaN::TRigaN(const TLocalisamfile& qn)
int TRigheNR::fill(const long codditta,TLocalisamfile& qnr)
{
long ditta=0L;
_data.destroy();
// Si posiziona sul primo della ditta corrente
qnr.zero();
qnr.put("CODDITTA",codditta);
@ -382,6 +398,7 @@ int TRigheQT::fill(const long codditta,TLocalisamfile& qt)
{
long ditta=0L;
// Si posiziona sul primo della ditta corrente
_data.destroy();
qt.zero();
qt.put("CODDITTA",codditta);
qt.read()==NOERR;
@ -409,6 +426,16 @@ int TRigheQT::fill(const long codditta,TLocalisamfile& qt)
int TRigaPS::compare(const TSortable& s) const
{
const TRigaPS& rec = (const TRigaPS&)s;
TDate dtDataS = rec.dDataVers();
const int month=_dDv.month();
const int year=_dDv.year();
const int da = year - dtDataS.year();
const int dm = month - dtDataS.month();
if (da==0)
return dm;
else
return da;
return _dDv<rec.dDataVers();
}
@ -426,28 +453,11 @@ TRigaPS::TRigaPS(const TLocalisamfile& qt)
_sNumero = rec.get("NUMERO");
}
const char* TRigaPS::sImposta() const
{
__dep80=_rImp.string();
return __dep80;
}
const char* TRigaPS::sIntDip() const
{
return _rIntDip.string();
}
const char* TRigaPS::sIntDat() const
{
return _rIntDat.string();
}
int TRighePS::fill(const long codditta,TLocalisamfile& ps)
{
long ditta=0L;
_data.destroy();
// Si posiziona sul primo della ditta corrente
_data.destroy();
ps.zero();
ps.put("CODDITTA",codditta);
ps.read()==NOERR;
@ -580,22 +590,17 @@ void TBase4::fill_riga_PS(TPrint_section& sec,const int num)
{
const TRigaPS& rN = _righePS[num];
if (i==start)
sVal=rN.sImposta();
sVal=rN.sImposta(fi.picture());
else if (i==start+1)
sVal=rN.sIntDip();
sVal=rN.sIntDip(fi.picture());
else if (i==start+2)
sVal=rN.sIntDat();
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)
{
TDate dat(rN.sDataVers());
TFormatted_date d(dat);
d.set_format(fi.picture());
sVal=d.string();
}
sVal=rN.sDataVers();
else if (i==start+6)
sVal=rN.sSerie();
else if (i==start+7)
@ -604,9 +609,8 @@ void TBase4::fill_riga_PS(TPrint_section& sec,const int num)
else
sVal="";
fi.set(sVal);
fi.update();
// TPrintrow& row=sec.row(0);
// row.put(sVal,fi.x()-1);
TPrintrow& row=sec.row(0);
row.put(sVal,fi.x()-1);
}
}
@ -623,6 +627,7 @@ void TBase4::stampa_P(TPrinter& pr)
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);
@ -639,7 +644,7 @@ void TBase4::stampa_P(TPrinter& pr)
void TBase4::stampa_S(TPrinter& pr)
{
TPrint_section& body = section('H', even_page);
TPrint_section& body = section('H', odd_page);
body.reset();
TLocalisamfile qp(LF_QUAS);
_righePS.fill(_codditta,qp);
@ -649,6 +654,7 @@ void TBase4::stampa_S(TPrinter& pr)
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);
@ -906,6 +912,26 @@ bool TStampaBase::print_quadro(const int OffsetDitta, const bool modulaser)
return ok;
}
int TQuadroL::prima_riga(PaginaQuadro p) const
{
if (p==PRIMA && _PaginaPosizionamento)
return 8;
else
return 8+HEADER_PRIMA_NOPOS;
}
long TQuadroL::filtra(const long codditta)
{
TString filtr(24);
_codditta=codditta;
filtr.format("(CODDITTA==%ld)&&(QLAP==%d)", codditta,anno_770());
cursor()->setfilter(filtr, TRUE);
const long items = cursor()->items();
return items;
}
void TQuadroL::stampa_testata(TPrinter& pr)
{
TPrint_section& hh = section('H', first_page);
@ -969,6 +995,11 @@ void TQuadroL::stampa_totali_L(TPrinter& pr)
progind()->addstatus(1);
}
const int _START_AGG_L=17;
const int _REC_PRIMA_AGG_L=12;
const int _REC_SECONDA_AGG_L=14;
const int _RIGA_TOTALI_AGG_L=60;
bool TQuadroL::print(const long codditta, const long NumFis, const long NumNoFis)
{
TCursor* cur = cursor();
@ -979,8 +1010,10 @@ bool TQuadroL::print(const long codditta, const long NumFis, const long NumNoFis
// Legge dai par.studio l'ordinamento da usare per L
TConfig conf(CONFIG_STUDIO);
const int iChiaveL = (int)conf.get_long("FlStQl", "77");
if (iChiaveL==2) cur->setkey(1);
else cur->setkey(2);
if (iChiaveL==2)
cur->setkey(1);
else
cur->setkey(2);
int lOffsetL=_START_AGG_L;
bool finito=FALSE;
@ -1009,6 +1042,7 @@ bool TQuadroL::print(const long codditta, const long NumFis, const long NumNoFis
bool TStampaQuadroAggL::user_create()
{
_form = new TQuadroL("77QL", quadro());
_form->set_cursor(_form->TForm::cursor());
return TRUE;
}

34
m770/77stba.h

@ -24,12 +24,12 @@ class TBase1 : public TDicForm
void stampa_corpo(TPrinter& pr);
void stampa_soci(TPrinter& pr);
bool bAllegSoci() const { return _bAllegSoci; }
virtual int dic_form_len() const { return BASE_FORMLEN-2; }
virtual int dic_form_len() const;
virtual void next_page(TPrinter& pr) { fill_page(pr, -1); }
virtual void stampa_totali(TPrinter& pr) {}
virtual void aggiorna_totali(const char tipo) {}
virtual void set_body(TPrinter& pr, const char tipo) {}
virtual int prima_riga(PaginaQuadro p) const { return 11; }
virtual int prima_riga(PaginaQuadro p) const;
public:
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TBase1(const char* sNomeForm, const char* quadro);
@ -45,7 +45,7 @@ class TBase2 : public TDicForm
virtual int dic_form_len() const { return BASE_FORMLEN; }
virtual void next_page(TPrinter& pr) { fill_page(pr, -1); }
virtual void set_body(TPrinter& pr, const char tipo) {}
virtual int prima_riga(PaginaQuadro p) const { return 3;}
virtual int prima_riga(PaginaQuadro p) const { return 4;}
public:
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TBase2(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro) {}
@ -55,7 +55,6 @@ class TBase2 : public TDicForm
class TBase3 : public TDicForm
{
private:
long _codditta;
bool _bAggiuntivoL; // se necessario stampare aggiuntivo L
protected:
void stampa_testata(TPrinter& pr);
@ -65,7 +64,8 @@ class TBase3 : public TDicForm
virtual int dic_form_len() const { return BASE_FORMLEN; }
virtual void next_page(TPrinter& pr) { fill_page(pr, -1); }
virtual void set_body(TPrinter& pr, const char tipo) {}
virtual int prima_riga(PaginaQuadro p) const { return 3;}
virtual int prima_riga(PaginaQuadro p) const { return 4;}
virtual long filtra(const long codditta);
public:
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TBase3(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro) {}
@ -106,7 +106,7 @@ class TRigheNR : public TObject
int fill(const long codditta,TLocalisamfile& qnr);
int items() const { return _data.items(); }
void destroy() { _data.destroy(); }
TRigheNR() { }
virtual ~TRigheNR() { }
};
@ -141,7 +141,7 @@ class TRigheQT : public TObject
public:
const TRigaQT& operator[](int i) const { return rigaQT(i); }
void destroy() { _data.destroy(); }
int fill(const long codditta,TLocalisamfile& qt);
int items() const { return _data.items(); }
@ -184,6 +184,7 @@ class TRighePS : public TObject
public:
const TRigaPS& operator[](int i) const { return rigaPS(i); }
int fill(const long codditta,TLocalisamfile& ps);
void destroy() { _data.destroy(); }
int items() const { return _data.items(); }
TRighePS() {}
virtual ~TRighePS() {}
@ -213,7 +214,7 @@ class TBase4 : public TDicForm
virtual int dic_form_len() const { return BASE_FORMLEN; }
virtual void next_page(TPrinter& pr) { fill_page(pr, -1); }
virtual void set_body(TPrinter& pr, const char tipo) {}
virtual int prima_riga(PaginaQuadro p) const { return 3;}
virtual int prima_riga(PaginaQuadro p) const { return 4;}
public:
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TBase4(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro) {}
@ -253,33 +254,32 @@ class TQuadroL : public TDicForm
{
private:
long _codditta;
real _rRitEff, _rRitVer;
protected:
void stampa_testata(TPrinter& pr);
void stampa_totali_L(TPrinter& pr);
bool stampa_L(TPrinter& pr,const long lStartRec,const int iRecL);
virtual int dic_form_len() const { return BASE_FORMLEN; }
virtual void next_page(TPrinter& pr) { fill_page(pr, -1); }
virtual void set_body(TPrinter& pr, const char tipo) {}
virtual int prima_riga(PaginaQuadro p) const { return 3;}
virtual int prima_riga(PaginaQuadro p) const;
virtual long filtra(const long codditta);
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) : TDicForm(sNomeForm, quadro) {}
TQuadroL(const char* sNomeForm, const char* quadro) : _rRitEff(ZERO),_rRitVer(ZERO),TDicForm(sNomeForm, quadro) {}
virtual ~TQuadroL() {}
};
const int _RIGA_TOTALI_AGG_L = 65;
const long _START_AGG_L = 17L;
const int _REC_PRIMA_AGG_L = 12;
const int _REC_SECONDA_AGG_L = 14;
class TStampaQuadroAggL : public TStampaQuadro
{
TQuadroL* _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:
TStampaQuadroAggL(const char* quadro, char liv):TStampaQuadro(quadro, liv) {}
virtual ~TStampaQuadroAggL() { }

97
m770/77stq.cpp

@ -38,6 +38,11 @@ const char* get_ragsoc(const long codditta)
return __dep80;
}
int TDicForm::prima_riga(PaginaQuadro p) const
{
return p == PRIMA ? 9 : 8;
}
void TDicForm::set_cofi_dic(const char* cofi)
{
_cofi_dic = cofi;
@ -83,10 +88,6 @@ bool TDicForm::InitPrint(const long codditta)
_RigaCorr = 0;
TPrinter& pr = printer();
// pr.set_offset(offset_y(), offset_x());
// pr.set_char_size(fontsize()); // Set font name and size
// pr.set_fontname(fontname()); // according to current form
_posiziona=pr.printtype()==winprinter;
// if (_posiziona && !_GiaPosizionato && pr.printtype() == winprinter)
if (_posiziona && !_GiaPosizionato && pr.printtype() == winprinter)
@ -526,8 +527,9 @@ bool TDicForm::PaginaPosizionamento() const
int TDicForm::dic_form_len() const
{
if (curr_page() == PRIMA && _PaginaPosizionamento && !_GiaPosizionato)
return QD_FORMLEN_PRIMA;
// if (curr_page() == PRIMA && _PaginaPosizionamento && !_GiaPosizionato)
if (curr_page() == PRIMA && _PaginaPosizionamento)
return QD_FORMLEN-HEADER_PRIMA_NOPOS;
else
return QD_FORMLEN;
}
@ -542,7 +544,6 @@ void TDicForm::fill_page(TPrinter& pr, const int righe)
// form feed
if (righe < 0)
{
// const int stop = PaginaPosizionamento() ? QD_FORMLEN_PRIMA : QD_FORMLEN;
const int stop = dic_form_len();
for (int i = _RigaCorr; i < stop; i++)
{
@ -553,7 +554,7 @@ void TDicForm::fill_page(TPrinter& pr, const int righe)
put_modulaser(row, STARTPAGE, pagina);
}
// Sull'ultima riga metto il codice ditta
if (i == stop - 2)
if (i == stop - 1)
{
// if (_modulaser && EndJob() && curr_page() == QUARTA)
if (_modulaser && EndJob() && ultima_pagina())
@ -561,10 +562,8 @@ void TDicForm::fill_page(TPrinter& pr, const int righe)
TString16 ditta; ditta << _codditta;
row.put(ditta, POS_DITTA);
pr.print(row);
}
else
pr.print(row);
pr.print(row);
row.reset();
}
_RigaCorr = 0;
@ -623,7 +622,7 @@ void TDicForm::stampa_testata(TPrinter& pr)
}
// Righe da saltare nelle prime pag. dei moduli successivi al primo (che' son
// senza le righe del posizionamento...)
int HEADER_PRIMA_NOPOS = 3;
int righedasaltare=HEADER_PRIMA_NOPOS;
head.update();
for (word j = 0; j <= r; j++)
{
@ -639,16 +638,13 @@ void TDicForm::stampa_testata(TPrinter& pr)
pr.print(r);
_RigaCorr++;
r.reset();
HEADER_PRIMA_NOPOS--;
righedasaltare--;
}
if (!PaginaPosizionamento())
fill_page(pr, HEADER_PRIMA_NOPOS);
}
else
{
pr.print(head.row(j));
_RigaCorr++;
fill_page(pr, righedasaltare);
}
pr.print(head.row(j));
_RigaCorr++;
}
}
@ -3732,24 +3728,75 @@ class TBusta : public TDicForm
{
protected:
virtual bool print(const long codditta, const long, const long);
virtual int prima_riga(PaginaQuadro p) const;
public:
TBusta(const char* form, const char* quadro) : TDicForm(form, quadro) { }
virtual ~TBusta() { }
};
bool get_alleg_730(const long codditta)
{
TLocalisamfile base(LF_BASE);
base.zero();
base.put("CODDITTA",(long)codditta);
if (base.read()==NOERR)
{
const long allegA=base.get_long("N730ALLA");
const long allegA2=base.get_long("N730ALLA2");
return allegA || allegA2;
}
else
return FALSE;
}
HIDDEN const int BUSTA_CON_POSIZ = 53;
HIDDEN const int BUSTA_SENZA_POSIZ = 56;
int TBusta::prima_riga(PaginaQuadro p) const
{
return HEADER_PRIMA_NOPOS-1;
}
bool TBusta::print(const long codditta, const long, const long)
{
const bool ok = InitPrint(codditta);
if (ok)
{
// Calcola identificatore del quadretto corrispondente al quadro L
TForm_item& dietor = find_field('B', odd_page, 'L' * 10);
TForm_item& dietor = find_field('B', odd_page, 740);
const int anno = anno_770();
const bool elle = esiste_record_L(codditta, anno);
dietor.set(elle ? "X" : "");
TForm_item& all730 = find_field('B', odd_page, 20);
const bool bAlleg730 = get_alleg_730(codditta);
all730.set(bAlleg730 ? "X" : "");
TForm::print(0);
TPrinter& pr=printer();
TPrint_section& body = section('B', odd_page);
const int body_righe = body.height();
TCursor* cur=cursor();
bool finito=FALSE;
(*cur)=0L;
pr.formlen(BUSTA_CON_POSIZ);
if (!_PaginaPosizionamento)
jump_to_line(pr,prima_riga(PRIMA));
while (!finito)
{
body.reset();
body.update();
for (int i=0; i < body_righe; i++)
{
pr.print(body.row(i));
_RigaCorr++;
}
if (usa_progind())
progind()->addstatus(1);
++(*cur);
finito= cur->pos() >= cur->items()-1;
pr.formlen(BUSTA_SENZA_POSIZ);
_PaginaPosizionamento=FALSE;
}
// TForm::print(0);
}
return ok;
}
@ -3873,7 +3920,7 @@ int stampa_quadro(int argc, char* argv[])
}
else if (quadro[0] == 'B' && quadro[1] != 'a')
{
switch (quadro[1])
switch (toupper(quadro[1]))
{
case 'U': app = new TStampaBusta(quadro, livello); break;
default : app = new TStampaQuadroB(quadro, livello); break;
@ -3899,6 +3946,10 @@ int stampa_quadro(int argc, char* argv[])
{
app = new TStampaQuadroH(quadro, livello);
}
else if (quadro == "L")
{
app = new TStampaQuadroAggL(quadro, livello);
}
if (app != NULL)
{

5
m770/77stq.h

@ -23,7 +23,7 @@
// Righe da saltare nelle prime pag. dei moduli successivi al primo (che' son
// senza le righe del posizionamento...)
HIDDEN int HEADER_PRIMA_NOPOS = 2;
HIDDEN int HEADER_PRIMA_NOPOS = 3;
// Chincaglieria che serve per posiziona()
typedef long HWND;
@ -73,7 +73,6 @@ typedef enum { STARTDOC, STARTDITTA, STARTPAGE, ENDDOC } ModulaserKey;
#define QD_STATO_ESTERO 12
// Quadro D
HIDDEN const int QD_FORMLEN_PRIMA = 70; // 72 - 3 (3 e' la posizione della X di posiz.)
HIDDEN const int QD_FORMLEN = 72;
HIDDEN const int POS_DITTA = 120; // Colonna del codice ditta a pie' di modulo
HIDDEN const int QD_PAGINE = 4;
@ -181,7 +180,7 @@ class TDicForm : public TForm
virtual void set_cursor(TCursor* cur);
virtual void close_print();
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
virtual int prima_riga(PaginaQuadro p) const;
const TString& quadro() const { return _quadro; }
TDicForm(const char* form, const char* quadro);

48
m770/77stqab.cpp

@ -143,10 +143,11 @@ void TQuadroA::preprocess_corpo(const TRectype& rec)
void TQuadroA::stampa_corpo(TPrinter& pr)
{
TPrint_section& body = section('B', odd_page);
const int body_righe = body.height();
body.reset();
body.update();
const int body_righe = body.height();
// const int body_righe = body.height();
for (int i = 0; i < body_righe; i++)
{
pr.print(body.row(i));
@ -202,7 +203,8 @@ int TQuadroA::elementi_pagina(PaginaQuadro p) const
int TQuadroA::prima_riga(PaginaQuadro p) const
{
return p == PRIMA ? 45 : 5;
// return p == PRIMA ? 45 : 5;
return p == PRIMA ? 45 : 6;
}
int TQuadroA::riga_totali(PaginaQuadro p) const
@ -225,7 +227,7 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
if (!init(codditta))
return FALSE;
pr.formlen(QA_FORMLEN);
// pr.formlen(QA_FORMLEN);
int elementi = 0; // Numero di elementi stampati in questa pagina
bool stampato_ultimo = FALSE;
@ -266,13 +268,18 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
switch(_PaginaCorrente)
{
case PRIMA:
pr.formlen(dic_form_len());
if (_modulaser)
ClearFlagModulaser();
if (elementi == 0)
{
stampa_testata(pr);
jump_to_line(pr, prima_riga(PRIMA));
if (PaginaPosizionamento())
jump_to_line(pr, prima_riga(PRIMA));
else
jump_to_line(pr, prima_riga(PRIMA)+HEADER_PRIMA_NOPOS);
}
if (!stampato_ultimo)
@ -285,9 +292,9 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
if (elementi >= elementi_pagina(PRIMA))
{
next_page(pr);
_PaginaPosizionamento=FALSE;
elementi = 0;
}
_PaginaPosizionamento=FALSE;
break;
case SECONDA:
case TERZA:
@ -301,6 +308,7 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
elementi++;
if (elementi >= elementi_pagina(_PaginaCorrente))
{
pr.formlen(dic_form_len());
next_page(pr);
elementi = 0;
}
@ -310,7 +318,6 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
{
if (elementi == 0)
jump_to_line(pr, prima_riga(QUARTA));
stampa_corpo(pr);
stampato_ultimo = stampero_ultimo;
}
@ -330,7 +337,7 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
// Usato per stampare la VK_ENDDOC in fill_page()
_EndPrintDitta = TRUE;
pr.formlen(dic_form_len());
next_page(pr);
elementi = 0;
}
@ -388,7 +395,8 @@ int TQuadroA1::elementi_pagina(PaginaQuadro p) const
int TQuadroA1::prima_riga(PaginaQuadro p) const
{
return p == PRIMA ? 32 : 4;
return p == PRIMA ? 32 : 5;
// return p == PRIMA ? 32 : 4;
}
long TQuadroA1::filtra(const long codditta)
@ -436,7 +444,8 @@ int TQuadroA2::elementi_pagina(PaginaQuadro p) const
int TQuadroA2::prima_riga(PaginaQuadro p) const
{
return p == PRIMA ? 32 : 4;
// return p == PRIMA ? 32 : 4;
return p == PRIMA ? 32 : 5;
}
void TQuadroA2::preprocess_corpo(const TRectype& rec)
@ -480,7 +489,8 @@ int TQuadroA3::elementi_pagina(PaginaQuadro p) const
int TQuadroA3::prima_riga(PaginaQuadro p) const
{
return p == PRIMA ? 32 : 4;
// return p == PRIMA ? 32 : 4;
return p == PRIMA ? 32 : 5;
}
bool TStampaQuadroA3::user_create()
@ -506,7 +516,8 @@ int TQuadroB::elementi_pagina(PaginaQuadro p) const
int TQuadroB::prima_riga(PaginaQuadro p) const
{
return p == PRIMA ? 32 : 6;
// return p == PRIMA ? 32 : 6;
return p == PRIMA ? 32 : 7;
}
bool TStampaQuadroB::user_create()
@ -539,7 +550,8 @@ int TQuadroH::elementi_pagina(PaginaQuadro p) const
int TQuadroH::prima_riga(PaginaQuadro p) const
{
return p == PRIMA ? 24 : 9;
// return p == PRIMA ? 24 : 9;
return p == PRIMA ? 23 : 9;
}
bool TQuadroH::print(const long codditta, const long NumFis, const long NumNoFis)
@ -550,7 +562,7 @@ bool TQuadroH::print(const long codditta, const long NumFis, const long NumNoFis
if (!InitPrint(codditta))
return FALSE;
pr.formlen(QH_FORMLEN);
// pr.formlen(QH_FORMLEN);
int elementi = 0; // Numero di elementi stampati in questa pagina
bool stampato_ultimo = FALSE;
@ -567,13 +579,18 @@ bool TQuadroH::print(const long codditta, const long NumFis, const long NumNoFis
switch(_PaginaCorrente)
{
case PRIMA:
pr.formlen(dic_form_len());
if (_modulaser)
ClearFlagModulaser();
if (elementi == 0)
{
stampa_testata(pr);
jump_to_line(pr, prima_riga(PRIMA));
if (PaginaPosizionamento())
jump_to_line(pr, prima_riga(PRIMA));
else
jump_to_line(pr, prima_riga(PRIMA)+HEADER_PRIMA_NOPOS);
}
if (!stampato_ultimo)
@ -588,11 +605,12 @@ bool TQuadroH::print(const long codditta, const long NumFis, const long NumNoFis
if (elementi >= elementi_pagina(PRIMA))
{
next_page(pr);
_PaginaPosizionamento=FALSE;
elementi = 0;
}
_PaginaPosizionamento=FALSE;
break;
case SECONDA:
pr.formlen(dic_form_len());
if (!stampato_ultimo)
{
if (elementi == 0)

15
m770/77stqc.cpp

@ -129,11 +129,12 @@ void TQuadroC::setta_importi(TPrint_section& body)
void TQuadroC::stampa_corpo(TPrinter& pr)
{
TPrint_section& body = section('B', odd_page);
const int body_righe = body.height();
body.reset();
// body.update();
setta_importi(body);
body.update();
const int body_righe = body.height();
// const int body_righe = body.height();
for (int i=0; i < body_righe; i++)
{
pr.print(body.row(i));
@ -152,8 +153,9 @@ int TQuadroC::elementi_pagina(PaginaQuadro p) const
int TQuadroC::prima_riga(PaginaQuadro p) const
{
// return p == PRIMA ? 27 : 8;
return p == PRIMA ? 26 : 7;
// old return p == PRIMA ? 27 : 8;
// nik1 return p == PRIMA ? 26 : 7;
return p == PRIMA ? 27 : 9;
}
bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis)
@ -165,7 +167,7 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
if (!InitPrint(codditta))
return FALSE;
pr.formlen(QA_FORMLEN);
// pr.formlen(QA_FORMLEN);
int elementi = 0; // Numero di elementi stampati in questa pagina
int ele_bis = 0;
@ -206,6 +208,8 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
switch(_PaginaCorrente)
{
case PRIMA:
pr.formlen(dic_form_len());
if (_modulaser)
ClearFlagModulaser();
@ -238,8 +242,10 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
ele_bis = 0;
}
break;
_PaginaPosizionamento=FALSE;
case SECONDA:
case TERZA:
pr.formlen(dic_form_len());
if (!stampato_ultimo)
{
if (ele_bis == 0)
@ -266,6 +272,7 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
}
break;
case QUARTA:
pr.formlen(dic_form_len());
if (!stampato_ultimo)
{
if (ele_bis == 0)

8
m770/menu_st.uml

@ -56,7 +56,7 @@ END
BUTTON B_LAGG 1 1
BEGIN
PROMPT 1 ROW2 ""
// MESSAGE RUN,771MOD,-7,1
MESSAGE RUN,772MOD,-4,L,S
PICTURE 123
GROUP 1
END
@ -70,7 +70,7 @@ END
BUTTON B_NAGG 1 1
BEGIN
PROMPT 1 ROW3 ""
// MESSAGE RUN,771MOD,-7,2
MESSAGE RUN,772MOD,-4,N,S
PICTURE 123
GROUP 1
END
@ -145,7 +145,7 @@ BUTTON B_A1 1 1
BEGIN
PROMPT 20 ROW2 ""
PICTURE 123
MESSAGE RUN,771MOD,-4,A1,S
MESSAGE RUN,772MOD,-4,A1,S
GROUP 1
END
@ -201,7 +201,7 @@ BUTTON B_B1 1 1
BEGIN
PROMPT 20 ROW6 ""
PICTURE 123
// MESSAGE RUN,771MOD,-6,0
MESSAGE RUN,772MOD,-4,B1,S
GROUP 1
END
// Fine seconda colonna

4
m770/menustq.uml

@ -28,7 +28,7 @@ END
BUTTON B_BASE 1 1
BEGIN
PROMPT 1 ROW1 ""
MESSAGE RUN,772MOD,-4,Base,D|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,772MOD,-4,Base,D
PICTURE 123
FLAGS MYFLAGS
GROUP GRUPPO
@ -44,7 +44,7 @@ END
BUTTON B_LAGG 1 1
BEGIN
PROMPT 1 ROW2 ""
// MESSAGE RUN,771MOD,-7,1|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,772MOD,-4,L,D
PICTURE 123
FLAGS MYFLAGS
GROUP GRUPPO