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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
m770/770101.cpp
View File

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

69
m770/77base1.frm
View File

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

2
m770/77base2.frm
View File

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

18
m770/77base3.frm
View File

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

76
m770/77base4.frm
View File

@ -40,7 +40,7 @@ SECTION HEADER FIRST 7
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "M1" KEY "M1"
PROMPT 61 1 "" PROMPT 60 1 ""
FIELD 37->ECCRIT12 FIELD 37->ECCRIT12
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -56,7 +56,7 @@ END
NUMERO 3 NUMERO 3
BEGIN BEGIN
KEY "M3" KEY "M3"
PROMPT 61 3 "" PROMPT 60 3 ""
FIELD 37->CRIMPDL FIELD 37->CRIMPDL
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -64,7 +64,7 @@ END
NUMERO 4 NUMERO 4
BEGIN BEGIN
KEY "M4" KEY "M4"
PROMPT 61 5 "" PROMPT 60 5 ""
FIELD 37->CRIMPIVA FIELD 37->CRIMPIVA
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -92,21 +92,21 @@ SECTION BODY ODD 1
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "MeseRif" KEY "MeseRif"
PROMPT 27 1 "" PROMPT 25 1 ""
FIELD 72->MESERIF FIELD 72->MESERIF
END END
NUMERO 2 NUMERO 2
BEGIN BEGIN
KEY "AnnoRif" KEY "AnnoRif"
PROMPT 31 1 "" PROMPT 28 1 ""
FIELD 72->ANNORIF FIELD 72->ANNORIF
END END
NUMERO 3 NUMERO 3
BEGIN BEGIN
KEY "imp. rimb" KEY "imp. rimb"
PROMPT 39 1 "" PROMPT 37 1 ""
FIELD 72->IMPOSTA FIELD 72->IMPOSTA
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -114,7 +114,7 @@ END
NUMERO 4 NUMERO 4
BEGIN BEGIN
KEY "Compensi" KEY "Compensi"
PROMPT 60 1 "" PROMPT 58 1 ""
FIELD 72->COMPENSI FIELD 72->COMPENSI
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -122,21 +122,21 @@ END
NUMERO 5 NUMERO 5
BEGIN BEGIN
KEY "MeseRif" KEY "MeseRif"
PROMPT 85 1 "" PROMPT 83 1 ""
FIELD 72->MESERIF FIELD 72->MESERIF
END END
NUMERO 6 NUMERO 6
BEGIN BEGIN
KEY "AnnoRif" KEY "AnnoRif"
PROMPT 89 1 "" PROMPT 86 1 ""
FIELD 72->ANNORIF FIELD 72->ANNORIF
END END
NUMERO 7 NUMERO 7
BEGIN BEGIN
KEY "imp. rimb" KEY "imp. rimb"
PROMPT 99 1 "" PROMPT 96 1 ""
FIELD 72->IMPOSTA FIELD 72->IMPOSTA
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -144,7 +144,7 @@ END
NUMERO 8 NUMERO 8
BEGIN BEGIN
KEY "Compensi" KEY "Compensi"
PROMPT 119 1 "" PROMPT 116 1 ""
FIELD 72->COMPENSI FIELD 72->COMPENSI
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -156,21 +156,21 @@ SECTION BODY EVEN 1
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "R - MeseRif" KEY "R - MeseRif"
PROMPT 27 1 "" PROMPT 25 1 ""
FIELD 75->MESERIF FIELD 75->MESERIF
END END
NUMERO 2 NUMERO 2
BEGIN BEGIN
KEY "R - AnnoRif" KEY "R - AnnoRif"
PROMPT 31 1 "" PROMPT 28 1 ""
FIELD 75->ANNORIF FIELD 75->ANNORIF
END END
NUMERO 3 NUMERO 3
BEGIN BEGIN
KEY "R - imp. rimb" KEY "R - imp. rimb"
PROMPT 41 1 "" PROMPT 37 1 ""
FIELD 75->IMPRIMB FIELD 75->IMPRIMB
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -178,7 +178,7 @@ END
NUMERO 4 NUMERO 4
BEGIN BEGIN
KEY "R - Compensi" KEY "R - Compensi"
PROMPT 62 1 "" PROMPT 58 1 ""
FIELD 75->COMPENSI FIELD 75->COMPENSI
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -186,21 +186,21 @@ END
NUMERO 5 NUMERO 5
BEGIN BEGIN
KEY "R - MeseRif" KEY "R - MeseRif"
PROMPT 85 1 "" PROMPT 83 1 ""
FIELD 75->MESERIF FIELD 75->MESERIF
END END
NUMERO 6 NUMERO 6
BEGIN BEGIN
KEY "R - AnnoRif" KEY "R - AnnoRif"
PROMPT 89 1 "" PROMPT 86 1 ""
FIELD 75->ANNORIF FIELD 75->ANNORIF
END END
NUMERO 7 NUMERO 7
BEGIN BEGIN
KEY "R - imp. rimb" KEY "R - imp. rimb"
PROMPT 99 1 "" PROMPT 96 1 ""
FIELD 75->IMPRIMB FIELD 75->IMPRIMB
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -208,7 +208,7 @@ END
NUMERO 8 NUMERO 8
BEGIN BEGIN
KEY "R - Compensi" KEY "R - Compensi"
PROMPT 120 1 "" PROMPT 116 1 ""
FIELD 75->COMPENSI FIELD 75->COMPENSI
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -220,47 +220,47 @@ SECTION HEADER EVEN 1
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "PS Imp.versata" KEY "PS Imp.versata"
PROMPT 24 1 "" PROMPT 22 1 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 2 NUMERO 2
BEGIN BEGIN
KEY "PS Inter.lav.dip" KEY "PS Inter.lav.dip"
PROMPT 41 1 "" PROMPT 38 1 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 3 NUMERO 3
BEGIN BEGIN
KEY "PS Inter.dat.lav." KEY "PS Inter.dat.lav."
PROMPT 56 1 "" PROMPT 53 1 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "PS Modalita' vers" KEY "PS Modalita' vers"
PROMPT 76 1 "" PROMPT 73 1 ""
END END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "PS Cod.trib" KEY "PS Cod.trib"
PROMPT 82 1 "" PROMPT 80 1 ""
END END
DATA 6 DATA 6
BEGIN BEGIN
KEY "PS DATA VERS." KEY "PS DATA VERS."
PROMPT 89 1 "" PROMPT 89 1 ""
PICTURE " ## ^ ## ^####" PICTURE "## ^ ## ^####"
END END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "PS Serie" KEY "PS Serie"
PROMPT 108 1 "" PROMPT 107 1 ""
END END
STRINGA 8 STRINGA 8
@ -276,21 +276,21 @@ SECTION FOOTER EVEN 1
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "Q Mese paga" KEY "Q Mese paga"
PROMPT 27 1 "" PROMPT 25 1 ""
FIELD 74->MESEPAG FIELD 74->MESEPAG
END END
NUMERO 2 NUMERO 2
BEGIN BEGIN
KEY "Q Anno paga" KEY "Q Anno paga"
PROMPT 32 1 "" PROMPT 28 1 ""
FIELD 74->ANNOPAG FIELD 74->ANNOPAG
END END
NUMERO 3 NUMERO 3
BEGIN BEGIN
KEY "Q Contr.versato" KEY "Q Contr.versato"
PROMPT 41 1 "" PROMPT 46 1 ""
FIELD 74->CONTVERS FIELD 74->CONTVERS
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -298,7 +298,7 @@ END
NUMERO 4 NUMERO 4
BEGIN BEGIN
KEY "Q Contr.rimborsati" KEY "Q Contr.rimborsati"
PROMPT 65 1 "" PROMPT 75 1 ""
FIELD 74->CONTRIMB FIELD 74->CONTRIMB
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -306,7 +306,7 @@ END
NUMERO 5 NUMERO 5
BEGIN BEGIN
KEY "Q Interes.e/o soprattasse" KEY "Q Interes.e/o soprattasse"
PROMPT 94 1 "" PROMPT 104 1 ""
FIELD 74->INTERESSI FIELD 74->INTERESSI
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -314,7 +314,7 @@ END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "Q Cod.Reg" KEY "Q Cod.Reg"
PROMPT 123 1 "" PROMPT 126 1 ""
FIELD 74->CODREG FIELD 74->CODREG
END END
@ -325,21 +325,21 @@ SECTION FOOTER ODD 1
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "T Mese paga" KEY "T Mese paga"
PROMPT 27 1 "" PROMPT 25 1 ""
FIELD 77->MESEPAG FIELD 77->MESEPAG
END END
NUMERO 2 NUMERO 2
BEGIN BEGIN
KEY "T Anno paga" KEY "T Anno paga"
PROMPT 32 1 "" PROMPT 28 1 ""
FIELD 77->ANNOPAG FIELD 77->ANNOPAG
END END
NUMERO 3 NUMERO 3
BEGIN BEGIN
KEY "T Contr.versato" KEY "T Contr.versato"
PROMPT 41 1 "" PROMPT 46 1 ""
FIELD 77->CONTVERS FIELD 77->CONTVERS
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -347,7 +347,7 @@ END
NUMERO 4 NUMERO 4
BEGIN BEGIN
KEY "T Contr.rimborsati" KEY "T Contr.rimborsati"
PROMPT 65 1 "" PROMPT 75 1 ""
FIELD 77->CONTRIMB FIELD 77->CONTRIMB
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -355,7 +355,7 @@ END
NUMERO 5 NUMERO 5
BEGIN BEGIN
KEY "T Interes.e/o soprattasse" KEY "T Interes.e/o soprattasse"
PROMPT 94 1 "" PROMPT 104 1 ""
FIELD 77->INTERESSI FIELD 77->INTERESSI
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -363,7 +363,7 @@ END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "T Cod.Reg" KEY "T Cod.Reg"
PROMPT 123 1 "" PROMPT 126 1 ""
FIELD 77->CODREG FIELD 77->CODREG
END END

88
m770/77busta.frm
View File

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

30
m770/77qa.frm
View File

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

30
m770/77qa1.frm
View File

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

31
m770/77qa2.frm
View File

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

26
m770/77qa3.frm
View File

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

718
m770/77qb.frm
View File

@ -1,4 +1,3 @@
<<<<<<< 77qb.frm
USE 59 USE 59
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN 9 INTO CODDITTA=CODDITTA JOIN 9 INTO CODDITTA=CODDITTA
@ -44,14 +43,14 @@ END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 3 12 "" PROMPT 3 11 ""
FIELD 106@->COFI FIELD 106@->COFI
END END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE"
PROMPT 39 12 "" PROMPT 39 11 ""
GROUP 2 GROUP 2
FIELD 106@->RAGSOC FIELD 106@->RAGSOC
END END
@ -59,7 +58,7 @@ END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 39 12 "" PROMPT 39 11 ""
GROUP 1 GROUP 1
FIELD 106@->RAGSOC[1,30] FIELD 106@->RAGSOC[1,30]
END END
@ -67,7 +66,7 @@ END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 17 14 "" PROMPT 17 13 ""
GROUP 1 GROUP 1
FIELD 106@->RAGSOC[31,50] FIELD 106@->RAGSOC[31,50]
END END
@ -75,7 +74,7 @@ END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 58 14 "" PROMPT 58 13 ""
GROUP 1 GROUP 1
FIELD 108@->SESSO FIELD 108@->SESSO
END END
@ -83,7 +82,7 @@ END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 67 14 "" PROMPT 67 13 ""
GROUP 1 GROUP 1
FIELD 108@->DATANASC FIELD 108@->DATANASC
END END
@ -91,7 +90,7 @@ END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 84 14 "" PROMPT 84 13 ""
GROUP 1 GROUP 1
FIELD 113@->DENCOM FIELD 113@->DENCOM
END END
@ -99,7 +98,7 @@ END
STRINGA 9 STRINGA 9
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 125 14 "" PROMPT 125 13 ""
GROUP 1 GROUP 1
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
END END
@ -107,21 +106,21 @@ END
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "COMUNE DI RES.FISCALE" KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 "" PROMPT 17 15 ""
FIELD 213@->DENCOM FIELD 213@->DENCOM
END END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "PROV DI RES.FISCALE" KEY "PROV DI RES.FISCALE"
PROMPT 59 16 "" PROMPT 59 15 ""
FIELD 213@->PROVCOM FIELD 213@->PROVCOM
END END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 66 16 "" PROMPT 66 15 ""
FIELD 106@->INDRF FIELD 106@->INDRF
FIELD 106@->INDRES FIELD 106@->INDRES
END END
@ -129,7 +128,7 @@ END
STRINGA 15 STRINGA 15
BEGIN BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 104 16 "" PROMPT 104 15 ""
FIELD 106@->CIVRF FIELD 106@->CIVRF
FIELD 106@->CIVRES FIELD 106@->CIVRES
END END
@ -137,7 +136,7 @@ END
STRINGA 16 STRINGA 16
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 123 16 "" PROMPT 123 15 ""
FIELD 106@->CAPRF FIELD 106@->CAPRF
FIELD 106@->CAPRES FIELD 106@->CAPRES
END END
@ -145,699 +144,13 @@ END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 85 19 "" PROMPT 85 18 ""
END END
NUMERO 14 NUMERO 14
BEGIN BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 125 22 "" PROMPT 125 21 ""
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 ""
END END
END END
@ -1374,5 +687,4 @@ END
END END
>>>>>>> 1.3
END END

32
m770/77qd.frm
View File

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

32
m770/77qh.frm
View File

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

69
m770/77ql.frm
View File

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

134
m770/77stba.cpp
View File

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

34
m770/77stba.h
View File

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

97
m770/77stq.cpp
View File

@ -38,6 +38,11 @@ const char* get_ragsoc(const long codditta)
return __dep80; return __dep80;
} }
int TDicForm::prima_riga(PaginaQuadro p) const
{
return p == PRIMA ? 9 : 8;
}
void TDicForm::set_cofi_dic(const char* cofi) void TDicForm::set_cofi_dic(const char* cofi)
{ {
_cofi_dic = cofi; _cofi_dic = cofi;
@ -83,10 +88,6 @@ bool TDicForm::InitPrint(const long codditta)
_RigaCorr = 0; _RigaCorr = 0;
TPrinter& pr = printer(); 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; _posiziona=pr.printtype()==winprinter;
// if (_posiziona && !_GiaPosizionato && pr.printtype() == winprinter) // if (_posiziona && !_GiaPosizionato && 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 int TDicForm::dic_form_len() const
{ {
if (curr_page() == PRIMA && _PaginaPosizionamento && !_GiaPosizionato) // if (curr_page() == PRIMA && _PaginaPosizionamento && !_GiaPosizionato)
return QD_FORMLEN_PRIMA; if (curr_page() == PRIMA && _PaginaPosizionamento)
return QD_FORMLEN-HEADER_PRIMA_NOPOS;
else else
return QD_FORMLEN; return QD_FORMLEN;
} }
@ -542,7 +544,6 @@ void TDicForm::fill_page(TPrinter& pr, const int righe)
// form feed // form feed
if (righe < 0) if (righe < 0)
{ {
// const int stop = PaginaPosizionamento() ? QD_FORMLEN_PRIMA : QD_FORMLEN;
const int stop = dic_form_len(); const int stop = dic_form_len();
for (int i = _RigaCorr; i < stop; i++) 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); put_modulaser(row, STARTPAGE, pagina);
} }
// Sull'ultima riga metto il codice ditta // Sull'ultima riga metto il codice ditta
if (i == stop - 2) if (i == stop - 1)
{ {
// if (_modulaser && EndJob() && curr_page() == QUARTA) // if (_modulaser && EndJob() && curr_page() == QUARTA)
if (_modulaser && EndJob() && ultima_pagina()) if (_modulaser && EndJob() && ultima_pagina())
@ -561,10 +562,8 @@ void TDicForm::fill_page(TPrinter& pr, const int righe)
TString16 ditta; ditta << _codditta; TString16 ditta; ditta << _codditta;
row.put(ditta, POS_DITTA); row.put(ditta, POS_DITTA);
pr.print(row);
} }
else pr.print(row);
pr.print(row);
row.reset(); row.reset();
} }
_RigaCorr = 0; _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 // Righe da saltare nelle prime pag. dei moduli successivi al primo (che' son
// senza le righe del posizionamento...) // senza le righe del posizionamento...)
int HEADER_PRIMA_NOPOS = 3; int righedasaltare=HEADER_PRIMA_NOPOS;
head.update(); head.update();
for (word j = 0; j <= r; j++) for (word j = 0; j <= r; j++)
{ {
@ -639,16 +638,13 @@ void TDicForm::stampa_testata(TPrinter& pr)
pr.print(r); pr.print(r);
_RigaCorr++; _RigaCorr++;
r.reset(); r.reset();
HEADER_PRIMA_NOPOS--; righedasaltare--;
} }
if (!PaginaPosizionamento()) if (!PaginaPosizionamento())
fill_page(pr, HEADER_PRIMA_NOPOS); fill_page(pr, righedasaltare);
}
else
{
pr.print(head.row(j));
_RigaCorr++;
} }
pr.print(head.row(j));
_RigaCorr++;
} }
} }
@ -3732,24 +3728,75 @@ class TBusta : public TDicForm
{ {
protected: protected:
virtual bool print(const long codditta, const long, const long); virtual bool print(const long codditta, const long, const long);
virtual int prima_riga(PaginaQuadro p) const;
public: public:
TBusta(const char* form, const char* quadro) : TDicForm(form, quadro) { } TBusta(const char* form, const char* quadro) : TDicForm(form, quadro) { }
virtual ~TBusta() { } 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) bool TBusta::print(const long codditta, const long, const long)
{ {
const bool ok = InitPrint(codditta); const bool ok = InitPrint(codditta);
if (ok) if (ok)
{ {
// Calcola identificatore del quadretto corrispondente al quadro L // 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 int anno = anno_770();
const bool elle = esiste_record_L(codditta, anno); const bool elle = esiste_record_L(codditta, anno);
dietor.set(elle ? "X" : ""); 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; return ok;
} }
@ -3873,7 +3920,7 @@ int stampa_quadro(int argc, char* argv[])
} }
else if (quadro[0] == 'B' && quadro[1] != 'a') else if (quadro[0] == 'B' && quadro[1] != 'a')
{ {
switch (quadro[1]) switch (toupper(quadro[1]))
{ {
case 'U': app = new TStampaBusta(quadro, livello); break; case 'U': app = new TStampaBusta(quadro, livello); break;
default : app = new TStampaQuadroB(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); app = new TStampaQuadroH(quadro, livello);
} }
else if (quadro == "L")
{
app = new TStampaQuadroAggL(quadro, livello);
}
if (app != NULL) if (app != NULL)
{ {

5
m770/77stq.h
View File

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

48
m770/77stqab.cpp
View File

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

15
m770/77stqc.cpp
View File

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

8
m770/menu_st.uml
View File

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

4
m770/menustq.uml
View File

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