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

Corretti ordinamenti e posizioni di stampa dei quadri della famiglia A

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3189 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-07-16 09:41:13 +00:00
parent 072d4c17cd
commit 19d8d391c7
4 changed files with 902 additions and 712 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

360
m770/77qa.frm
View File

@ -76,7 +76,7 @@ END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 59 14 "" 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 64 14 "" 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 86 14 "" 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 128 14 "" PROMPT 125 14 ""
GROUP 1 GROUP 1
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
END END
@ -122,7 +122,7 @@ END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 68 16 "" PROMPT 66 16 ""
FIELD 106@->INDRF FIELD 106@->INDRF
END END
@ -136,20 +136,20 @@ END
STRINGA 16 STRINGA 16
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 125 16 "" PROMPT 123 16 ""
FIELD 106@->CAPRF FIELD 106@->CAPRF
END END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 19 "" PROMPT 85 19 ""
END END
NUMERO 14 NUMERO 14
BEGIN BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 125 19 "" PROMPT 125 22 ""
END END
END END
@ -180,7 +180,7 @@ END
DATA 4 DATA 4
BEGIN BEGIN
KEY "DATA NASCITA" KEY "DATA NASCITA"
PROMPT 115 1 "" PROMPT 114 1 ""
FIELD 45->DATANA FIELD 45->DATANA
FORMAT "1444-" FORMAT "1444-"
END END
@ -188,7 +188,7 @@ END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 131 1 "" PROMPT 128 1 ""
FIELD 45->SESSO FIELD 45->SESSO
END END
@ -216,7 +216,7 @@ END
STRINGA 9 STRINGA 9
BEGIN BEGIN
KEY "PROV. RESIDENZA" KEY "PROV. RESIDENZA"
PROMPT 89 3 "" PROMPT 88 3 ""
FIELD 45->PROVRES FIELD 45->PROVRES
END END
@ -230,7 +230,7 @@ END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "STATO CIVILE" KEY "STATO CIVILE"
PROMPT 11 5 "" PROMPT 13 5 ""
FIELD 45->STATOCIV FIELD 45->STATOCIV
END END
@ -265,15 +265,16 @@ END
DATA 16 DATA 16
BEGIN BEGIN
KEY "DATA FINE RAPPORTO" KEY "DATA FINE RAPPORTO"
PROMPT 61 5 "" PROMPT 63 5 ""
FORMAT "1444-" FORMAT "1444-"
PICTURE "## ^ ##^^^^^" PICTURE "## ^ ##^^^^^"
FIELD 44->DATAFR
END END
NUMERO 17 NUMERO 17
BEGIN BEGIN
KEY "GIORNI DETRAZ. LAV. DIP." KEY "GIORNI DETRAZ. LAV. DIP."
PROMPT 68 5 "" PROMPT 80 5 ""
FIELD 44->NORIT FIELD 44->NORIT
END END
@ -294,8 +295,8 @@ END
NUMERO 20 NUMERO 20
BEGIN BEGIN
KEY "IN DENARO" KEY "IN DENARO"
PROMPT 11 7 "" PROMPT 9 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->20 MESSAGE ADD,FL->20
FIELD 44->DENARO FIELD 44->DENARO
END END
@ -303,8 +304,8 @@ END
NUMERO 21 NUMERO 21
BEGIN BEGIN
KEY "IN NATURA" KEY "IN NATURA"
PROMPT 26 7 "" PROMPT 24 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->21 MESSAGE ADD,FL->21
FIELD 44->NATURA FIELD 44->NATURA
END END
@ -312,8 +313,8 @@ END
NUMERO 22 NUMERO 22
BEGIN BEGIN
KEY "CONTRIBUTI OBBLIGATORI" KEY "CONTRIBUTI OBBLIGATORI"
PROMPT 42 7 "" PROMPT 40 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->22 MESSAGE ADD,FL->22
FIELD 44->COBBDIP FIELD 44->COBBDIP
END END
@ -321,8 +322,8 @@ END
NUMERO 23 NUMERO 23
BEGIN BEGIN
KEY "COMPENSI NETTI" KEY "COMPENSI NETTI"
PROMPT 58 7 "" PROMPT 54 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->23 MESSAGE ADD,FL->23
FIELD 44->COMPNETTI FIELD 44->COMPNETTI
END END
@ -330,8 +331,8 @@ END
NUMERO 24 NUMERO 24
BEGIN BEGIN
KEY "AMMONTARE LORDO" KEY "AMMONTARE LORDO"
PROMPT 73 7 "" PROMPT 69 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->24 MESSAGE ADD,FL->24
FIELD 44->AMMLORDO FIELD 44->AMMLORDO
END END
@ -339,8 +340,8 @@ END
NUMERO 25 NUMERO 25
BEGIN BEGIN
KEY "IND.ASS.CONTRIBUTI OBBLIGATORI" KEY "IND.ASS.CONTRIBUTI OBBLIGATORI"
PROMPT 89 7 "" PROMPT 85 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->25 MESSAGE ADD,FL->25
FIELD 44->IACOBBCD FIELD 44->IACOBBCD
END END
@ -348,8 +349,8 @@ END
NUMERO 26 NUMERO 26
BEGIN BEGIN
KEY "SOMME NON ASSOG. A RITEN." KEY "SOMME NON ASSOG. A RITEN."
PROMPT 103 7 "" PROMPT 101 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->26 MESSAGE ADD,FL->26
FIELD 44->NORIT FIELD 44->NORIT
END END
@ -357,8 +358,8 @@ END
NUMERO 27 NUMERO 27
BEGIN BEGIN
KEY "TOTALE IMPONIBILE" KEY "TOTALE IMPONIBILE"
PROMPT 120 7 "" PROMPT 117 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->27 MESSAGE ADD,FL->27
FIELD 44->TOTIMP FIELD 44->TOTIMP
END END
@ -366,8 +367,8 @@ END
NUMERO 28 NUMERO 28
BEGIN BEGIN
KEY "ASSEGNI ED INDENNITA'" KEY "ASSEGNI ED INDENNITA'"
PROMPT 11 9 "" PROMPT 9 9 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->28 MESSAGE ADD,FL->28
FIELD 44->AIENTIPREV FIELD 44->AIENTIPREV
END END
@ -375,8 +376,8 @@ END
NUMERO 29 NUMERO 29
BEGIN BEGIN
KEY "AMMONTARE COMPENSI CORRISPOSTI DA TERZI" KEY "AMMONTARE COMPENSI CORRISPOSTI DA TERZI"
PROMPT 26 9 "" PROMPT 24 9 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->29 MESSAGE ADD,FL->29
FIELD 44->CCTAMMCONT FIELD 44->CCTAMMCONT
END END
@ -384,8 +385,8 @@ END
NUMERO 30 NUMERO 30
BEGIN BEGIN
KEY "TOTALE IMPONIBILE 2" KEY "TOTALE IMPONIBILE 2"
PROMPT 42 9 "" PROMPT 40 9 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->30 MESSAGE ADD,FL->30
FIELD 44->TOTIMP2 FIELD 44->TOTIMP2
END END
@ -393,8 +394,8 @@ END
NUMERO 31 NUMERO 31
BEGIN BEGIN
KEY "IMPOSTA CORRISPONDENTE" KEY "IMPOSTA CORRISPONDENTE"
PROMPT 58 9 "" PROMPT 54 9 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->31 MESSAGE ADD,FL->31
FIELD 44->ICTOTIMP FIELD 44->ICTOTIMP
END END
@ -402,8 +403,8 @@ END
NUMERO 32 NUMERO 32
BEGIN BEGIN
KEY "DETRAZIONE PER CONIUGE A CARICO" KEY "DETRAZIONE PER CONIUGE A CARICO"
PROMPT 73 9 "" PROMPT 69 9 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->32 MESSAGE ADD,FL->32
FIELD 44->DETCC FIELD 44->DETCC
END END
@ -411,8 +412,8 @@ END
NUMERO 33 NUMERO 33
BEGIN BEGIN
KEY "DETRAZIONE PER FIGLI A CARICO" KEY "DETRAZIONE PER FIGLI A CARICO"
PROMPT 89 9 "" PROMPT 85 9 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->33 MESSAGE ADD,FL->33
FIELD 44->DETFC FIELD 44->DETFC
END END
@ -420,8 +421,8 @@ END
NUMERO 34 NUMERO 34
BEGIN BEGIN
KEY "DETRAZIONE PER ALTRI FAMILIARI A CARICO" KEY "DETRAZIONE PER ALTRI FAMILIARI A CARICO"
PROMPT 104 9 "" PROMPT 101 9 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->34 MESSAGE ADD,FL->34
FIELD 44->DETAF FIELD 44->DETAF
END END
@ -429,8 +430,8 @@ END
NUMERO 35 NUMERO 35
BEGIN BEGIN
KEY "DETRAZIONE PER LAVORO DIPENDENTE" KEY "DETRAZIONE PER LAVORO DIPENDENTE"
PROMPT 120 9 "" PROMPT 117 9 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->35 MESSAGE ADD,FL->35
FIELD 44->DETLD FIELD 44->DETLD
END END
@ -438,8 +439,8 @@ END
NUMERO 36 NUMERO 36
BEGIN BEGIN
KEY "DETRAZIONE PER ONERI" KEY "DETRAZIONE PER ONERI"
PROMPT 11 11 "" PROMPT 9 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->36 MESSAGE ADD,FL->36
FIELD 44->DETO FIELD 44->DETO
END END
@ -447,8 +448,8 @@ END
NUMERO 37 NUMERO 37
BEGIN BEGIN
KEY "TOTALE DETRAZIONI" KEY "TOTALE DETRAZIONI"
PROMPT 26 11 "" PROMPT 24 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->37 MESSAGE ADD,FL->37
FIELD 44->TOTDET FIELD 44->TOTDET
END END
@ -456,8 +457,8 @@ END
NUMERO 38 NUMERO 38
BEGIN BEGIN
KEY "INCREMENTO DETRAZIONI PER FIGLI A CARICO" KEY "INCREMENTO DETRAZIONI PER FIGLI A CARICO"
PROMPT 42 11 "" PROMPT 40 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->38 MESSAGE ADD,FL->38
FIELD 44->INCDETFC FIELD 44->INCDETFC
END END
@ -465,8 +466,8 @@ END
NUMERO 39 NUMERO 39
BEGIN BEGIN
KEY "RITENUTE OPERATE DA TERZI" KEY "RITENUTE OPERATE DA TERZI"
PROMPT 58 11 "" PROMPT 54 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->39 MESSAGE ADD,FL->39
FIELD 44->AMRIOT FIELD 44->AMRIOT
END END
@ -474,8 +475,8 @@ END
NUMERO 40 NUMERO 40
BEGIN BEGIN
KEY "RITENUTE OPERATE DAL DATORE DI LAVORO" KEY "RITENUTE OPERATE DAL DATORE DI LAVORO"
PROMPT 73 11 "" PROMPT 69 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->40 MESSAGE ADD,FL->40
FIELD 44->AMRIODL FIELD 44->AMRIODL
END END
@ -483,8 +484,8 @@ END
NUMERO 41 NUMERO 41
BEGIN BEGIN
KEY "ECCEDENZA RITENUTE RIMBORSATE" KEY "ECCEDENZA RITENUTE RIMBORSATE"
PROMPT 89 11 "" PROMPT 85 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->41 MESSAGE ADD,FL->41
FIELD 44->ECCRITRIMB FIELD 44->ECCRITRIMB
END END
@ -492,8 +493,8 @@ END
NUMERO 42 NUMERO 42
BEGIN BEGIN
KEY "AMMONTARE RITENUTE DOVUTE" KEY "AMMONTARE RITENUTE DOVUTE"
PROMPT 104 11 "" PROMPT 101 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->42 MESSAGE ADD,FL->42
FIELD 44->AMMRITDOV FIELD 44->AMMRITDOV
END END
@ -501,8 +502,8 @@ END
NUMERO 43 NUMERO 43
BEGIN BEGIN
KEY "EROGAZIONI PER SPESE SANITARIE" KEY "EROGAZIONI PER SPESE SANITARIE"
PROMPT 120 11 "" PROMPT 117 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->43 MESSAGE ADD,FL->43
FIELD 44->ERSPSAN FIELD 44->ERSPSAN
END END
@ -510,8 +511,8 @@ END
NUMERO 44 NUMERO 44
BEGIN BEGIN
KEY "PREMI DI ASSICURAZIONE VITA E INFORTUNI" KEY "PREMI DI ASSICURAZIONE VITA E INFORTUNI"
PROMPT 11 13 "" PROMPT 9 13 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->44 MESSAGE ADD,FL->44
FIELD 44->PRASSVI FIELD 44->PRASSVI
END END
@ -519,8 +520,8 @@ END
NUMERO 45 NUMERO 45
BEGIN BEGIN
KEY "CONTRIBUTI PER PREVIDENZA COMPLEMENTARE" KEY "CONTRIBUTI PER PREVIDENZA COMPLEMENTARE"
PROMPT 26 13 "" PROMPT 24 13 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->45 MESSAGE ADD,FL->45
FIELD 44->CONPRECO FIELD 44->CONPRECO
END END
@ -528,8 +529,8 @@ END
NUMERO 46 NUMERO 46
BEGIN BEGIN
KEY "CONTRIBUTI OBBLIGATORI A CARICO DEL DIPENDENTE" KEY "CONTRIBUTI OBBLIGATORI A CARICO DEL DIPENDENTE"
PROMPT 42 13 "" PROMPT 40 13 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->46 MESSAGE ADD,FL->46
FIELD 44->COBBDIP2 FIELD 44->COBBDIP2
END END
@ -537,8 +538,8 @@ END
NUMERO 47 NUMERO 47
BEGIN BEGIN
KEY "AMMONTARE IMPONIBILE" KEY "AMMONTARE IMPONIBILE"
PROMPT 58 13 "" PROMPT 54 13 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->47 MESSAGE ADD,FL->47
FIELD 44->AMMIMP FIELD 44->AMMIMP
END END
@ -546,8 +547,8 @@ END
NUMERO 48 NUMERO 48
BEGIN BEGIN
KEY "DETRAZIONI D'IMPOSTA" KEY "DETRAZIONI D'IMPOSTA"
PROMPT 73 13 "" PROMPT 69 13 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->48 MESSAGE ADD,FL->48
FIELD 44->DETIMPOS FIELD 44->DETIMPOS
END END
@ -555,8 +556,8 @@ END
NUMERO 49 NUMERO 49
BEGIN BEGIN
KEY "RITENUTA ESEGUITA" KEY "RITENUTA ESEGUITA"
PROMPT 89 13 "" PROMPT 85 13 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->49 MESSAGE ADD,FL->49
FIELD 44->RITESEG FIELD 44->RITESEG
END END
@ -564,8 +565,8 @@ END
NUMERO 50 NUMERO 50
BEGIN BEGIN
KEY "ALTRE SOMME E VALORI NON ASSOGGETTATI A RITENUTA" KEY "ALTRE SOMME E VALORI NON ASSOGGETTATI A RITENUTA"
PROMPT 104 13 "" PROMPT 101 13 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->50 MESSAGE ADD,FL->50
FIELD 44->SVNASSRI FIELD 44->SVNASSRI
END END
@ -573,16 +574,16 @@ END
NUMERO 51 NUMERO 51
BEGIN BEGIN
KEY "AMMONTARE IMPONIBILE AI FINI DEL C.S.S.N." KEY "AMMONTARE IMPONIBILE AI FINI DEL C.S.S.N."
PROMPT 120 13 "" PROMPT 117 13 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->51 MESSAGE ADD,FL->51
FIELD 44->AIFCSSN FIELD 44->AIFCSSN
END END
NUMERO 52 STRINGA 52
BEGIN BEGIN
KEY "CONGUAGLI NON EFFETTUATI" KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 11 15 "" PROMPT 13 15 ""
FIELD 44->CNEFF FIELD 44->CNEFF
END END
@ -598,9 +599,10 @@ END
NUMERO 54 NUMERO 54
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 33 15 "" PROMPT 32 15 ""
MESSAGE ADD,FL->54 MESSAGE ADD,FL->54
FIELD 44->INTERE FIELD 44->INTERE
PICTURE "###.###.###^^^"
END END
NUMERO 55 NUMERO 55
@ -621,14 +623,14 @@ BEGIN
FIELD 44->INTERE2 FIELD 44->INTERE2
END END
NUMERO 57 STRINGA 57
BEGIN BEGIN
KEY "CONGUAGLI NON EFFETTUATI" KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 72 15 "" PROMPT 72 15 ""
FIELD 44->CNEFF FIELD 44->CNEFF
END END
NUMERO 58 STRINGA 58
BEGIN BEGIN
KEY "RETTIFICA CONGUAGLIO" KEY "RETTIFICA CONGUAGLIO"
PROMPT 80 15 "" PROMPT 80 15 ""
@ -638,8 +640,8 @@ END
NUMERO 59 NUMERO 59
BEGIN BEGIN
KEY "IMPOSTA RIMBORSATA" KEY "IMPOSTA RIMBORSATA"
PROMPT 89 15 "" PROMPT 85 15 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->59 MESSAGE ADD,FL->59
FIELD 44->IMPRIMB FIELD 44->IMPRIMB
END END
@ -647,8 +649,8 @@ END
NUMERO 60 NUMERO 60
BEGIN BEGIN
KEY "IMPOSTA VERSATA" KEY "IMPOSTA VERSATA"
PROMPT 103 15 "" PROMPT 101 15 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->60 MESSAGE ADD,FL->60
FIELD 44->IMPVER FIELD 44->IMPVER
END END
@ -656,8 +658,8 @@ END
NUMERO 61 NUMERO 61
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 120 15 "" PROMPT 117 15 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->61 MESSAGE ADD,FL->61
FIELD 44->INTIRPEF FIELD 44->INTIRPEF
END END
@ -666,7 +668,7 @@ NUMERO 62
BEGIN BEGIN
KEY "IMPOSTA VERSATA" KEY "IMPOSTA VERSATA"
PROMPT 11 17 "" PROMPT 11 17 ""
PICTURE "###.###.###^^^" PICTURE "###.###^^^"
MESSAGE ADD,FL->62 MESSAGE ADD,FL->62
FIELD 44->IMPVER2 FIELD 44->IMPVER2
END END
@ -675,7 +677,7 @@ NUMERO 63
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 23 17 "" PROMPT 23 17 ""
PICTURE "###.###.###^^^" PICTURE "###.###^^^"
MESSAGE ADD,FL->63 MESSAGE ADD,FL->63
FIELD 44->INTER FIELD 44->INTER
END END
@ -684,7 +686,7 @@ NUMERO 64
BEGIN BEGIN
KEY "SOPPRATTASSA SU IRPEF" KEY "SOPPRATTASSA SU IRPEF"
PROMPT 33 17 "" PROMPT 33 17 ""
PICTURE "###.###.###^^^" PICTURE "###.###^^^"
MESSAGE ADD,FL->64 MESSAGE ADD,FL->64
FIELD 44->STSIRPEF FIELD 44->STSIRPEF
END END
@ -692,7 +694,7 @@ END
NUMERO 65 NUMERO 65
BEGIN BEGIN
KEY "CONTRIBUTO A RIMBORSO" KEY "CONTRIBUTO A RIMBORSO"
PROMPT 45 17 "" PROMPT 44 17 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->65 MESSAGE ADD,FL->65
FIELD 44->CONRIMB FIELD 44->CONRIMB
@ -701,7 +703,7 @@ END
NUMERO 66 NUMERO 66
BEGIN BEGIN
KEY "CONTRIBUTO VERSATO" KEY "CONTRIBUTO VERSATO"
PROMPT 59 17 "" PROMPT 58 17 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->66 MESSAGE ADD,FL->66
FIELD 44->CONVER FIELD 44->CONVER
@ -710,7 +712,7 @@ END
NUMERO 67 NUMERO 67
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 73 17 "" PROMPT 72 17 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->67 MESSAGE ADD,FL->67
FIELD 44->INTER2 FIELD 44->INTER2
@ -719,7 +721,7 @@ END
NUMERO 68 NUMERO 68
BEGIN BEGIN
KEY "CONTRIBUTO VERSATO" KEY "CONTRIBUTO VERSATO"
PROMPT 87 17 "" PROMPT 85 17 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->68 MESSAGE ADD,FL->68
FIELD 44->CONVER2 FIELD 44->CONVER2
@ -728,7 +730,7 @@ END
NUMERO 69 NUMERO 69
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 101 17 "" PROMPT 100 17 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->69 MESSAGE ADD,FL->69
FIELD 44->INTER3 FIELD 44->INTER3
@ -737,13 +739,13 @@ END
NUMERO 70 NUMERO 70
BEGIN BEGIN
KEY "SOPPRATTASE SU C.S.S.N." KEY "SOPPRATTASE SU C.S.S.N."
PROMPT 115 17 "" PROMPT 114 17 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->70 MESSAGE ADD,FL->70
FIELD 44->STSCSSN70 FIELD 44->STSCSSN70
END END
NUMERO 71 STRINGA 71
BEGIN BEGIN
KEY "MODELLO 730 NON LIQUIDABILE" KEY "MODELLO 730 NON LIQUIDABILE"
PROMPT 129 17 "" PROMPT 129 17 ""
@ -778,225 +780,225 @@ SECTION FOOTER LAST 12
NUMERO 20 NUMERO 20
BEGIN BEGIN
KEY "IN DENARO" KEY "IN DENARO"
PROMPT 11 1 "" PROMPT 9 1 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 21 NUMERO 21
BEGIN BEGIN
KEY "IN NATURA" KEY "IN NATURA"
PROMPT 26 1 "" PROMPT 24 1 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 22 NUMERO 22
BEGIN BEGIN
KEY "CONTRIBUTI OBBLIGATORI" KEY "CONTRIBUTI OBBLIGATORI"
PROMPT 42 1 "" PROMPT 40 1 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 23 NUMERO 23
BEGIN BEGIN
KEY "COMPENSI NETTI" KEY "COMPENSI NETTI"
PROMPT 58 1 "" PROMPT 54 1 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 24 NUMERO 24
BEGIN BEGIN
KEY "AMMONTARE LORDO" KEY "AMMONTARE LORDO"
PROMPT 73 1 "" PROMPT 69 1 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 25 NUMERO 25
BEGIN BEGIN
KEY "IND.ASS.CONTRIBUTI OBBLIGATORI" KEY "IND.ASS.CONTRIBUTI OBBLIGATORI"
PROMPT 89 1 "" PROMPT 85 1 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 26 NUMERO 26
BEGIN BEGIN
KEY "SOMME NON ASSOG. A RITEN." KEY "SOMME NON ASSOG. A RITEN."
PROMPT 103 1 "" PROMPT 101 1 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 27 NUMERO 27
BEGIN BEGIN
KEY "TOTALE IMPONIBILE" KEY "TOTALE IMPONIBILE"
PROMPT 120 1 "" PROMPT 117 1 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 28 NUMERO 28
BEGIN BEGIN
KEY "ASSEGNI ED INDENNITA'" KEY "ASSEGNI ED INDENNITA'"
PROMPT 11 3 "" PROMPT 9 3 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 29 NUMERO 29
BEGIN BEGIN
KEY "AMMONTARE COMPENSI CORRISPOSTI DA TERZI" KEY "AMMONTARE COMPENSI CORRISPOSTI DA TERZI"
PROMPT 26 3 "" PROMPT 24 3 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 30 NUMERO 30
BEGIN BEGIN
KEY "TOTALE IMPONIBILE 2" KEY "TOTALE IMPONIBILE 2"
PROMPT 42 3 "" PROMPT 40 3 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 31 NUMERO 31
BEGIN BEGIN
KEY "IMPOSTA CORRISPONDENTE" KEY "IMPOSTA CORRISPONDENTE"
PROMPT 58 3 "" PROMPT 54 3 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 32 NUMERO 32
BEGIN BEGIN
KEY "DETRAZIONE PER CONIUGE A CARICO" KEY "DETRAZIONE PER CONIUGE A CARICO"
PROMPT 73 3 "" PROMPT 69 3 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 33 NUMERO 33
BEGIN BEGIN
KEY "DETRAZIONE PER FIGLI A CARICO" KEY "DETRAZIONE PER FIGLI A CARICO"
PROMPT 89 3 "" PROMPT 85 3 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 34 NUMERO 34
BEGIN BEGIN
KEY "DETRAZIONE PER ALTRI FAMILIARI A CARICO" KEY "DETRAZIONE PER ALTRI FAMILIARI A CARICO"
PROMPT 104 3 "" PROMPT 101 3 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 35 NUMERO 35
BEGIN BEGIN
KEY "DETRAZIONE PER LAVORO DIPENDENTE" KEY "DETRAZIONE PER LAVORO DIPENDENTE"
PROMPT 120 3 "" PROMPT 117 3 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 36 NUMERO 36
BEGIN BEGIN
KEY "DETRAZIONE PER ONERI" KEY "DETRAZIONE PER ONERI"
PROMPT 11 5 "" PROMPT 9 5 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 37 NUMERO 37
BEGIN BEGIN
KEY "TOTALE DETRAZIONI" KEY "TOTALE DETRAZIONI"
PROMPT 26 5 "" PROMPT 24 5 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 38 NUMERO 38
BEGIN BEGIN
KEY "INCREMENTO DETRAZIONI PER FIGLI A CARICO" KEY "INCREMENTO DETRAZIONI PER FIGLI A CARICO"
PROMPT 42 5 "" PROMPT 40 5 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 39 NUMERO 39
BEGIN BEGIN
KEY "RITENUTE OPERATE DA TERZI" KEY "RITENUTE OPERATE DA TERZI"
PROMPT 58 5 "" PROMPT 54 5 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 40 NUMERO 40
BEGIN BEGIN
KEY "RITENUTE OPERATE DAL DATORE DI LAVORO" KEY "RITENUTE OPERATE DAL DATORE DI LAVORO"
PROMPT 73 5 "" PROMPT 69 5 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 41 NUMERO 41
BEGIN BEGIN
KEY "ECCEDENZA RITENUTE RIMBORSATE" KEY "ECCEDENZA RITENUTE RIMBORSATE"
PROMPT 89 5 "" PROMPT 85 5 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 42 NUMERO 42
BEGIN BEGIN
KEY "AMMONTARE RITENUTE DOVUTE" KEY "AMMONTARE RITENUTE DOVUTE"
PROMPT 104 5 "" PROMPT 101 5 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 43 NUMERO 43
BEGIN BEGIN
KEY "EROGAZIONI PER SPESE SANITARIE" KEY "EROGAZIONI PER SPESE SANITARIE"
PROMPT 120 5 "" PROMPT 117 5 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 44 NUMERO 44
BEGIN BEGIN
KEY "PREMI DI ASSICURAZIONE VITA E INFORTUNI" KEY "PREMI DI ASSICURAZIONE VITA E INFORTUNI"
PROMPT 11 7 "" PROMPT 9 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 45 NUMERO 45
BEGIN BEGIN
KEY "CONTRIBUTI PER PREVIDENZA COMPLEMENTARE" KEY "CONTRIBUTI PER PREVIDENZA COMPLEMENTARE"
PROMPT 26 7 "" PROMPT 24 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 46 NUMERO 46
BEGIN BEGIN
KEY "CONTRIBUTI OBBLIGATORI A CARICO DEL DIPENDENTE" KEY "CONTRIBUTI OBBLIGATORI A CARICO DEL DIPENDENTE"
PROMPT 42 7 "" PROMPT 40 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 47 NUMERO 47
BEGIN BEGIN
KEY "AMMONTARE IMPONIBILE" KEY "AMMONTARE IMPONIBILE"
PROMPT 58 7 "" PROMPT 54 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 48 NUMERO 48
BEGIN BEGIN
KEY "DETRAZIONI D'IMPOSTA" KEY "DETRAZIONI D'IMPOSTA"
PROMPT 73 7 "" PROMPT 69 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 49 NUMERO 49
BEGIN BEGIN
KEY "RITENUTA ESEGUITA" KEY "RITENUTA ESEGUITA"
PROMPT 89 7 "" PROMPT 85 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 50 NUMERO 50
BEGIN BEGIN
KEY "ALTRE SOMME E VALORI NON ASSOGGETTATI A RITENUTA" KEY "ALTRE SOMME E VALORI NON ASSOGGETTATI A RITENUTA"
PROMPT 104 7 "" PROMPT 101 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 51 NUMERO 51
BEGIN BEGIN
KEY "AMMONTARE IMPONIBILE AI FINI DEL C.S.S.N." KEY "AMMONTARE IMPONIBILE AI FINI DEL C.S.S.N."
PROMPT 120 7 "" PROMPT 117 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 53 NUMERO 53
@ -1009,7 +1011,7 @@ END
NUMERO 54 NUMERO 54
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 33 9 "" PROMPT 32 9 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
@ -1030,84 +1032,84 @@ END
NUMERO 59 NUMERO 59
BEGIN BEGIN
KEY "IMPOSTA RIMBORSATA" KEY "IMPOSTA RIMBORSATA"
PROMPT 89 9 "" PROMPT 85 9 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 60 NUMERO 60
BEGIN BEGIN
KEY "IMPOSTA VERSATA" KEY "IMPOSTA VERSATA"
PROMPT 103 9 "" PROMPT 101 9 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 61 NUMERO 61
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 120 9 "" PROMPT 117 9 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 62 NUMERO 62
BEGIN BEGIN
KEY "IMPOSTA VERSATA" KEY "IMPOSTA VERSATA"
PROMPT 11 11 "" PROMPT 11 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###^^^"
END END
NUMERO 63 NUMERO 63
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 23 11 "" PROMPT 23 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###^^^"
END END
NUMERO 64 NUMERO 64
BEGIN BEGIN
KEY "SOPPRATTASSA SU IRPEF" KEY "SOPPRATTASSA SU IRPEF"
PROMPT 33 11 "" PROMPT 33 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###^^^"
END END
NUMERO 65 NUMERO 65
BEGIN BEGIN
KEY "CONTRIBUTO A RIMBORSO" KEY "CONTRIBUTO A RIMBORSO"
PROMPT 45 11 "" PROMPT 44 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMERO 66 NUMERO 66
BEGIN BEGIN
KEY "CONTRIBUTO VERSATO" KEY "CONTRIBUTO VERSATO"
PROMPT 59 11 "" PROMPT 58 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMERO 67 NUMERO 67
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 73 11 "" PROMPT 72 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMERO 68 NUMERO 68
BEGIN BEGIN
KEY "CONTRIBUTO VERSATO" KEY "CONTRIBUTO VERSATO"
PROMPT 87 11 "" PROMPT 85 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMERO 69 NUMERO 69
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 101 11 "" PROMPT 100 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
NUMERO 70 NUMERO 70
BEGIN BEGIN
KEY "SOPPRATTASE SU C.S.S.N." KEY "SOPPRATTASE SU C.S.S.N."
PROMPT 115 11 "" PROMPT 114 11 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END

110
m770/77qa1.frm
View File

@ -76,7 +76,7 @@ END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 59 15 "" PROMPT 58 15 ""
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 64 15 "" PROMPT 67 15 ""
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 86 15 "" PROMPT 84 15 ""
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 128 15 "" PROMPT 126 15 ""
GROUP 1 GROUP 1
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
END END
@ -122,7 +122,7 @@ END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 68 17 "" PROMPT 66 17 ""
FIELD 106@->INDRF FIELD 106@->INDRF
END END
@ -149,7 +149,7 @@ END
NUMERO 14 NUMERO 14
BEGIN BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 125 24 "" PROMPT 125 23 ""
END END
END END
@ -202,7 +202,7 @@ END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "PROV DI NASCITA" KEY "PROV DI NASCITA"
PROMPT 51 3 "" PROMPT 48 3 ""
FIELD 45->PROVNA FIELD 45->PROVNA
END END
@ -216,8 +216,8 @@ END
NUMERO 9 NUMERO 9
BEGIN BEGIN
KEY "IMPOSTA RIMBORSATA" KEY "IMPOSTA RIMBORSATA"
PROMPT 23 5 "" PROMPT 25 5 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 56->IMPRIMB9 FIELD 56->IMPRIMB9
MESSAGE ADD,FL->9 MESSAGE ADD,FL->9
END END
@ -225,8 +225,8 @@ END
NUMERO 10 NUMERO 10
BEGIN BEGIN
KEY "IMPOSTA VERSATA" KEY "IMPOSTA VERSATA"
PROMPT 42 5 "" PROMPT 44 5 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 56->IMPVERS10 FIELD 56->IMPVERS10
MESSAGE ADD,FL->10 MESSAGE ADD,FL->10
END END
@ -234,8 +234,8 @@ END
NUMERO 11 NUMERO 11
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 61 5 "" PROMPT 63 5 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 56->INTER11 FIELD 56->INTER11
MESSAGE ADD,FL->11 MESSAGE ADD,FL->11
END END
@ -243,8 +243,8 @@ END
NUMERO 12 NUMERO 12
BEGIN BEGIN
KEY "IMPOSTA VERSATA" KEY "IMPOSTA VERSATA"
PROMPT 79 5 "" PROMPT 81 5 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 56->IMPVERS12 FIELD 56->IMPVERS12
MESSAGE ADD,FL->12 MESSAGE ADD,FL->12
END END
@ -252,8 +252,8 @@ END
NUMERO 13 NUMERO 13
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 98 5 "" PROMPT 100 5 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 56->INTER13 FIELD 56->INTER13
MESSAGE ADD,FL->13 MESSAGE ADD,FL->13
END END
@ -261,8 +261,8 @@ END
NUMERO 14 NUMERO 14
BEGIN BEGIN
KEY "SOPRATTASSA SU IRPEF" KEY "SOPRATTASSA SU IRPEF"
PROMPT 117 5 "" PROMPT 116 5 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 56->STASSA14 FIELD 56->STASSA14
MESSAGE ADD,FL->14 MESSAGE ADD,FL->14
END END
@ -271,7 +271,7 @@ NUMERO 15
BEGIN BEGIN
KEY "CONTRIBUTO A RIMBORSO" KEY "CONTRIBUTO A RIMBORSO"
PROMPT 11 7 "" PROMPT 11 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 56->CONTRIMB15 FIELD 56->CONTRIMB15
MESSAGE ADD,FL->15 MESSAGE ADD,FL->15
END END
@ -279,8 +279,8 @@ END
NUMERO 16 NUMERO 16
BEGIN BEGIN
KEY "CONTRIBUTO VERSATO" KEY "CONTRIBUTO VERSATO"
PROMPT 28 7 "" PROMPT 30 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 56->CONTVERS16 FIELD 56->CONTVERS16
MESSAGE ADD,FL->16 MESSAGE ADD,FL->16
END END
@ -288,8 +288,8 @@ END
NUMERO 17 NUMERO 17
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 47 7 "" PROMPT 49 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 56->INTER17 FIELD 56->INTER17
MESSAGE ADD,FL->17 MESSAGE ADD,FL->17
END END
@ -297,8 +297,8 @@ END
NUMERO 18 NUMERO 18
BEGIN BEGIN
KEY "CONTRIBUTO VERSATO" KEY "CONTRIBUTO VERSATO"
PROMPT 66 7 "" PROMPT 68 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 56->CONTVER18 FIELD 56->CONTVER18
MESSAGE ADD,FL->18 MESSAGE ADD,FL->18
END END
@ -306,8 +306,8 @@ END
NUMERO 19 NUMERO 19
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 84 7 "" PROMPT 86 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 56->INTER19 FIELD 56->INTER19
MESSAGE ADD,FL->19 MESSAGE ADD,FL->19
END END
@ -316,7 +316,7 @@ NUMERO 20
BEGIN BEGIN
KEY "SOPRATTASSA SU IRPEF" KEY "SOPRATTASSA SU IRPEF"
PROMPT 102 7 "" PROMPT 102 7 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 56->STASSA20 FIELD 56->STASSA20
MESSAGE ADD,FL->20 MESSAGE ADD,FL->20
END END
@ -324,14 +324,14 @@ END
STRINGA 21 STRINGA 21
BEGIN BEGIN
KEY "CONGUAGLI NON EFFETTUATI" KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 121 7 "" PROMPT 122 7 ""
FIELD 56->CONNEFF21 FIELD 56->CONNEFF21
END END
STRINGA 22 STRINGA 22
BEGIN BEGIN
KEY "TIPO CONGUAGLIO" KEY "TIPO CONGUAGLIO"
PROMPT 128 7 "" PROMPT 129 7 ""
FIELD 56->TIPOCONG22 FIELD 56->TIPOCONG22
END END
@ -345,14 +345,14 @@ END
STRINGA 24 STRINGA 24
BEGIN BEGIN
KEY "DENOMINAZIONE CAAF" KEY "DENOMINAZIONE CAAF"
PROMPT 42 9 "" PROMPT 43 9 ""
FIELD 104@->S0 FIELD 104@->S0
END END
NUMERO 25 NUMERO 25
BEGIN BEGIN
KEY "NUMERO ISCRIZIONE ALBO" KEY "NUMERO ISCRIZIONE ALBO"
PROMPT 98 9 "" PROMPT 101 9 ""
FIELD 104@->I1 FIELD 104@->I1
END END
@ -372,85 +372,85 @@ SECTION FOOTER LAST 4
NUMERO 9 NUMERO 9
BEGIN BEGIN
KEY "IMPOSTA RIMBORSATA" KEY "IMPOSTA RIMBORSATA"
PROMPT 23 1 "" PROMPT 25 1 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 10 NUMERO 10
BEGIN BEGIN
KEY "IMPOSTA VERSATA" KEY "IMPOSTA VERSATA"
PROMPT 42 1 "" PROMPT 44 1 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 11 NUMERO 11
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 61 1 "" PROMPT 63 1 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 12 NUMERO 12
BEGIN BEGIN
KEY "IMPOSTA VERSATA" KEY "IMPOSTA VERSATA"
PROMPT 79 1 "" PROMPT 81 1 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 13 NUMERO 13
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 98 1 "" PROMPT 100 1 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 14 NUMERO 14
BEGIN BEGIN
KEY "SOPRATTASSA SU IRPEF" KEY "SOPRATTASSA SU IRPEF"
PROMPT 117 1 "" PROMPT 116 1 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 15 NUMERO 15
BEGIN BEGIN
KEY "CONTRIBUTO A RIMBORSO" KEY "CONTRIBUTO A RIMBORSO"
PROMPT 11 3 "" PROMPT 11 3 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 16 NUMERO 16
BEGIN BEGIN
KEY "CONTRIBUTO VERSATO" KEY "CONTRIBUTO VERSATO"
PROMPT 28 3 "" PROMPT 30 3 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 17 NUMERO 17
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 47 3 "" PROMPT 49 3 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 18 NUMERO 18
BEGIN BEGIN
KEY "CONTRIBUTO VERSATO" KEY "CONTRIBUTO VERSATO"
PROMPT 66 3 "" PROMPT 68 3 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 19 NUMERO 19
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 84 3 "" PROMPT 86 3 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 20 NUMERO 20
BEGIN BEGIN
KEY "SOPRATTASSA SU IRPEF" KEY "SOPRATTASSA SU IRPEF"
PROMPT 102 3 "" PROMPT 102 3 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
END END

913
m770/77qa2.frm
View File

@ -1,466 +1,447 @@
USE 57 USE 57
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN %CAF ALIAS 104 INTO CODTAB=CODCAAF JOIN %CAF ALIAS 104 INTO CODTAB=CODCAAF
JOIN 9 INTO CODDITTA=CODDITTA JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES) JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
57->* "Quadro A2 770" 57->* "Quadro A2 770"
45->* "Anagrafica dei dipendenti" 45->* "Anagrafica dei dipendenti"
104@->* "Tabella CAAF" 104@->* "Tabella CAAF"
9->* "Ditte" 9->* "Ditte"
106@->* "Anagrafica persone fisiche e giuridiche (ditta)" 106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
108@->* "Anagrafica persone fisiche (ditta)" 108@->* "Anagrafica persone fisiche (ditta)"
113@->* "Comuni DITTA (nascita)" 113@->* "Comuni DITTA (nascita)"
213@->* "Comuni DITTA (residenza)" 213@->* "Comuni DITTA (residenza)"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
FONT "Courier New" FONT "Courier New"
SIZE 11 SIZE 11
CARATTERE "X" CARATTERE "X"
INIZIO_POS 3 2 INIZIO_POS 3 2
FINE_POS 131 FINE_POS 131
GRID "+++++++++-|" GRID "+++++++++-|"
END END
SECTION HEADER FIRST 28 SECTION HEADER FIRST 28
LISTA 1 LISTA 1
BEGIN BEGIN
KEY "Tipo anagrafica" KEY "Tipo anagrafica"
FLAGS "H" FLAGS "H"
FIELD 106@->TIPOA FIELD 106@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@ ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@ ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 3 13 "" PROMPT 3 13 ""
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 13 ""
GROUP 2 GROUP 2
FIELD 106@->RAGSOC FIELD 106@->RAGSOC
END END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 40 13 "" PROMPT 40 13 ""
GROUP 1 GROUP 1
FIELD 106@->RAGSOC[1,30] FIELD 106@->RAGSOC[1,30]
END END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 17 15 "" PROMPT 17 15 ""
GROUP 1 GROUP 1
FIELD 106@->RAGSOC[31,50] FIELD 106@->RAGSOC[31,50]
END END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 59 15 "" PROMPT 59 15 ""
GROUP 1 GROUP 1
FIELD 108@->SESSO FIELD 108@->SESSO
END END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 64 15 "" PROMPT 67 15 ""
GROUP 1 GROUP 1
FIELD 108@->DATANASC FIELD 108@->DATANASC
END END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 86 15 "" PROMPT 84 15 ""
GROUP 1 GROUP 1
FIELD 113@->DENCOM FIELD 113@->DENCOM
END END
STRINGA 9 STRINGA 9
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 128 15 "" PROMPT 125 15 ""
GROUP 1 GROUP 1
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
END END
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "COMUNE DI RES.FISCALE" KEY "COMUNE DI RES.FISCALE"
PROMPT 17 17 "" PROMPT 17 17 ""
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 17 ""
FIELD 213@->PROVCOM FIELD 213@->PROVCOM
END END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 68 17 "" PROMPT 66 17 ""
FIELD 106@->INDRF FIELD 106@->INDRF
END END
STRINGA 15 STRINGA 15
BEGIN BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 104 17 "" PROMPT 104 17 ""
FIELD 106@->CIVRF FIELD 106@->CIVRF
END END
STRINGA 16 STRINGA 16
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 125 17 "" PROMPT 123 17 ""
FIELD 106@->CAPRF FIELD 106@->CAPRF
END END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 20 "" PROMPT 87 20 ""
END END
NUMERO 14 NUMERO 14
BEGIN BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 125 24 "" PROMPT 125 23 ""
END END
END END
SECTION BODY ODD 10 SECTION BODY ODD 10
STRINGA 1 STRINGA 1
BEGIN BEGIN
KEY "COD.FIS" KEY "COD.FIS"
PROMPT 11 1 "" PROMPT 11 1 ""
FIELD 45->CODFI FIELD 45->CODFI
END END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 43 1 "" PROMPT 43 1 ""
FIELD 45->COGNOME FIELD 45->COGNOME
END END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 80 1 "" PROMPT 80 1 ""
FIELD 45->NOME FIELD 45->NOME
END END
DATA 4 DATA 4
BEGIN BEGIN
KEY "DATA NASCITA" KEY "DATA NASCITA"
PROMPT 114 1 "" PROMPT 114 1 ""
FIELD 45->DATANA FIELD 45->DATANA
FORMAT "1444-" FORMAT "1444-"
END END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 128 1 "" PROMPT 128 1 ""
FIELD 45->SESSO FIELD 45->SESSO
END END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 11 3 "" PROMPT 11 3 ""
FIELD 45->COMUNENA FIELD 45->COMUNENA
END END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 51 3 "" PROMPT 51 3 ""
FIELD 45->PROVNA FIELD 45->PROVNA
END END
NUMERO 8 STRINGA 8
BEGIN BEGIN
KEY "CONGUAGLI NON EFFETTUATI" KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 11 5 "" PROMPT 16 5 ""
PICTURE "###.###.###^^^" FIELD 57->CONEFF
MESSAGE ADD,FL->8 END
FIELD 57->CONEFF
END STRINGA 9
BEGIN
NUMERO 9 KEY "RETTIFICA CONGUAGLIO"
BEGIN PROMPT 31 5 ""
KEY "RETTIFICA CONGUAGLIO" FIELD 57->RETCON
PROMPT 26 5 "" END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->9 NUMERO 10
FIELD 57->RETCON BEGIN
END KEY "IMPOSTA RIMBORSATA"
PROMPT 39 5 ""
NUMERO 10 PICTURE "###.###.###.###^^^"
BEGIN MESSAGE ADD,FL->10
KEY "IMPOSTA RIMBORSATA" FIELD 57->SIRPEFRIMB
PROMPT 41 5 "" END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->10 NUMERO 11
FIELD 57->SIRPEFRIMB BEGIN
END KEY "IMPOSTA VERSATA"
PROMPT 54 5 ""
NUMERO 11 PICTURE "###.###.###.###^^^"
BEGIN MESSAGE ADD,FL->11
KEY "IMPOSTA VERSATA" FIELD 57->VIRPEF
PROMPT 55 5 "" END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->11 NUMERO 12
FIELD 57->VIRPEF BEGIN
END KEY "INTERESSI"
PROMPT 70 5 ""
NUMERO 12 PICTURE "###.###.###.###^^^"
BEGIN MESSAGE ADD,FL->12
KEY "INTERESSI" FIELD 57->INTIRPEF
PROMPT 70 5 "" END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->12 NUMERO 13
FIELD 57->INTIRPEF BEGIN
END KEY "IMPOSTA VERSATA"
PROMPT 85 5 ""
NUMERO 13 PICTURE "###.###.###.###^^^"
BEGIN MESSAGE ADD,FL->13
KEY "IMPOSTA VERSATA" FIELD 57->AIRPEFIV
PROMPT 85 5 "" END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->13 NUMERO 14
FIELD 57->AIRPEFIV BEGIN
END KEY "INTERESSI"
PROMPT 100 5 ""
NUMERO 14 PICTURE "###.###.###.###^^^"
BEGIN MESSAGE ADD,FL->14
KEY "INTERESSI" FIELD 57->AIRPEFINT
PROMPT 100 5 "" END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14 NUMERO 15
FIELD 57->AIRPEFINT BEGIN
END KEY "SOPRATTASSA SU IRPEF"
PROMPT 115 5 ""
NUMERO 15 PICTURE "###.###.###.###^^^"
BEGIN MESSAGE ADD,FL->15
KEY "SOPRATTASSA SU IRPEF" FIELD 57->STASSA15
PROMPT 115 5 "" END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15 NUMERO 16
FIELD 57->STASSA15 BEGIN
END KEY "CONTRIBUTO A RIMBORSO"
PROMPT 8 7 ""
NUMERO 16 PICTURE "###.###.###.###^^^"
BEGIN MESSAGE ADD,FL->16
KEY "CONTRIBUTO A RIMBORSO" FIELD 57->CONTR16
PROMPT 11 7 "" END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->16 NUMERO 17
FIELD 57->CONTR16 BEGIN
END KEY "CONTRIBUTO VERSATO"
PROMPT 23 7 ""
NUMERO 17 PICTURE "###.###.###.###^^^"
BEGIN MESSAGE ADD,FL->17
KEY "CONTRIBUTO VERSATO" FIELD 57->CONTRVER
PROMPT 26 7 "" END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17 NUMERO 18
FIELD 57->CONTRVER BEGIN
END KEY "INTERESSI"
PROMPT 39 7 ""
NUMERO 18 PICTURE "###.###.###.###^^^"
BEGIN MESSAGE ADD,FL->18
KEY "INTERESSI" FIELD 57->INTER18
PROMPT 41 7 "" END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18 NUMERO 19
FIELD 57->INTER18 BEGIN
END KEY "CONTRIBUTO VERSATO"
PROMPT 54 7 ""
NUMERO 19 PICTURE "###.###.###.###^^^"
BEGIN MESSAGE ADD,FL->19
KEY "CONTRIBUTO VERSATO" FIELD 57->CONTV19
PROMPT 55 7 "" END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->19 NUMERO 20
FIELD 57->CONTV19 BEGIN
END KEY "INTERESSI"
PROMPT 70 7 ""
NUMERO 20 PICTURE "###.###.###.###^^^"
BEGIN MESSAGE ADD,FL->20
KEY "INTERESSI" FIELD 57->INTE20
PROMPT 70 7 "" END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->20 NUMERO 21
FIELD 57->INTE20 BEGIN
END KEY "SOPRATTASSA SU CSSN"
PROMPT 85 7 ""
NUMERO 21 PICTURE "###.###.###.###^^^"
BEGIN MESSAGE ADD,FL->21
KEY "SOPRATTASSA SU CSSN" FIELD 57->SOPRAT21
PROMPT 85 7 "" END
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->21 NUMERO 22
FIELD 57->SOPRAT21 BEGIN
END KEY "MOD. 730/95 NON LIQUIDABILE"
PROMPT 108 7 ""
NUMERO 22 FIELD 57->M730NLIQ
BEGIN END
KEY "MOD. 730/95 NON LIQUIDABILE"
PROMPT 100 7 "" STRINGA 23
PICTURE "###.###.###^^^" BEGIN
FIELD 57->M730NLIQ KEY "CODICE FISCALE CAAF"
END PROMPT 11 9 ""
FIELD 104@->S1
STRINGA 23 END
BEGIN
KEY "CODICE FISCALE CAAF" STRINGA 24
PROMPT 11 9 "" BEGIN
FIELD 104@->S1 KEY "DENOMINAZIONE CAAF"
END PROMPT 44 9 ""
FIELD 104@->S0
STRINGA 24 END
BEGIN
KEY "DENOMINAZIONE CAAF" NUMERO 25
PROMPT 44 9 "" BEGIN
FIELD 104@->S0 KEY "NUMERO ISCRIZIONE ALBO"
END PROMPT 119 9 ""
FIELD 104@->I1
NUMERO 25 END
BEGIN
KEY "NUMERO ISCRIZIONE ALBO" END
PROMPT 115 9 ""
FIELD 104@->I1 SECTION FOOTER LAST 4
END
NUMERO 10
END BEGIN
KEY "IMPOSTA RIMBORSATA"
SECTION FOOTER LAST 4 PROMPT 39 1 ""
PICTURE "###.###.###.###^^^"
NUMERO 8 END
BEGIN
KEY "CONGUAGLI NON EFFETTUATI" NUMERO 11
PROMPT 11 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "IMPOSTA VERSATA"
END PROMPT 54 1 ""
PICTURE "###.###.###.###^^^"
NUMERO 9 END
BEGIN
KEY "RETTIFICA CONGUAGLIO" NUMERO 12
PROMPT 26 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "INTERESSI"
END PROMPT 70 1 ""
PICTURE "###.###.###.###^^^"
NUMERO 10 END
BEGIN
KEY "IMPOSTA RIMBORSATA" NUMERO 13
PROMPT 41 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "IMPOSTA VERSATA"
END PROMPT 85 1 ""
PICTURE "###.###.###.###^^^"
NUMERO 11 END
BEGIN
KEY "IMPOSTA VERSATA" NUMERO 14
PROMPT 55 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "INTERESSI"
END PROMPT 100 1 ""
PICTURE "###.###.###.###^^^"
NUMERO 12 END
BEGIN
KEY "INTERESSI" NUMERO 15
PROMPT 70 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "SOPRATTASSA SU IRPEF"
END PROMPT 115 1 ""
PICTURE "###.###.###.###^^^"
NUMERO 13 END
BEGIN
KEY "IMPOSTA VERSATA" NUMERO 16
PROMPT 85 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "CONTRIBUTO A RIMBORSO"
END PROMPT 8 3 ""
PICTURE "###.###.###.###^^^"
NUMERO 14 END
BEGIN
KEY "INTERESSI" NUMERO 17
PROMPT 100 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "CONTRIBUTO VERSATO"
END PROMPT 23 3 ""
PICTURE "###.###.###.###^^^"
NUMERO 15 END
BEGIN
KEY "SOPRATTASSA SU IRPEF" NUMERO 18
PROMPT 115 1 "" BEGIN
PICTURE "###.###.###^^^" KEY "INTERESSI"
END PROMPT 39 3 ""
PICTURE "###.###.###.###^^^"
NUMERO 16 END
BEGIN
KEY "CONTRIBUTO A RIMBORSO" NUMERO 19
PROMPT 11 3 "" BEGIN
PICTURE "###.###.###^^^" KEY "CONTRIBUTO VERSATO"
END PROMPT 54 3 ""
PICTURE "###.###.###.###^^^"
NUMERO 17 END
BEGIN
KEY "CONTRIBUTO VERSATO" NUMERO 20
PROMPT 26 3 "" BEGIN
PICTURE "###.###.###^^^" KEY "INTERESSI"
END PROMPT 70 3 ""
PICTURE "###.###.###.###^^^"
NUMERO 18 END
BEGIN
KEY "INTERESSI" NUMERO 21
PROMPT 41 3 "" BEGIN
PICTURE "###.###.###^^^" KEY "SOPRATTASSA SU CSSN"
END PROMPT 85 3 ""
PICTURE "###.###.###.###^^^"
NUMERO 19 END
BEGIN
KEY "CONTRIBUTO VERSATO" END
PROMPT 55 3 ""
PICTURE "###.###.###^^^"
END
NUMERO 20
BEGIN
KEY "INTERESSI"
PROMPT 70 3 ""
PICTURE "###.###.###^^^"
END
NUMERO 21
BEGIN
KEY "SOPRATTASSA SU CSSN"
PROMPT 85 3 ""
PICTURE "###.###.###^^^"
END
END

231
m770/77stq.cpp
View File

@ -128,7 +128,7 @@ class TDicForm : public TForm
public: public:
const long filtra(const long codditta); virtual long filtra(const long codditta);
TProgind* _prog; // progind usata in print() TProgind* _prog; // progind usata in print()
@ -161,6 +161,8 @@ 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);
const TString& quadro() const { return _quadro; }
TDicForm(const char* form, const char* quadro); TDicForm(const char* form, const char* quadro);
virtual ~TDicForm() {} virtual ~TDicForm() {}
@ -186,7 +188,7 @@ TDicForm::TDicForm(const char* form, const char* quadro)
ClearFlagModulaser(); ClearFlagModulaser();
} }
const long TDicForm::filtra(const long codditta) long TDicForm::filtra(const long codditta)
{ {
TString filtr(24); TString filtr(24);
filtr.format("CODDITTA=%ld", codditta); filtr.format("CODDITTA=%ld", codditta);
@ -3292,6 +3294,145 @@ void TQuadroH::azzera_contatori()
// Quadro 770/A // Quadro 770/A
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
class TDipendente : public TSortable
{
TRecnotype _pos;
long _codice_ditta;
TString _ragsoc;
long _codice_dipendente;
long _codice_deceduto;
TDate _fine_rapporto;
bool _lavoro_precedente;
char _causa;
char _rettifica_conguaglio;
int _numero_progressivo;
public:
virtual int compare(const TSortable& s) const;
TRecnotype pos() const { return _pos; }
long codice_deceduto() const { return _codice_deceduto; }
void reset_deceduto() { _codice_deceduto = -_codice_deceduto; }
long codice() const { return _codice_dipendente; }
TDipendente(const TCursor& cur);
virtual ~TDipendente() { }
};
TDipendente::TDipendente(const TCursor& cur)
{
_pos = ((TCursor&)cur).pos();
const TRectype& rec = cur.curr();
const TRectype& dip = cur.curr(LF_DIPEND);
_codice_ditta = rec.get_long("CODDITTA");
_ragsoc = dip.get("COGNOME"); _ragsoc << ' ' << dip.get("NOME");
_codice_deceduto = dip.get_long("CODDIPDEC");
_codice_dipendente = rec.get_long("CODDIP");
_fine_rapporto = rec.get("DATAFR");
_lavoro_precedente = rec.get("CFDLPREC").not_empty();
_causa = rec.get_char("CAUSA");
_rettifica_conguaglio = rec.get_char("RETCON");
_numero_progressivo = rec.get_int("NPROG");
if (_rettifica_conguaglio == 'B' || !_fine_rapporto.ok())
_fine_rapporto = eotime;
else
if (_fine_rapporto.year() != 1995)
_pos = -1; // Non stampare anni diversi dal 1995
}
int TDipendente::compare(const TSortable& s) const
{
const TDipendente& rec = (const TDipendente&)s;
if (_codice_ditta != rec._codice_ditta)
return _codice_ditta > rec._codice_ditta ? +1 : -1;
const int diff = _ragsoc.compare(rec._ragsoc, -1, TRUE);
if (diff != 0)
return diff;
if (_codice_dipendente != rec._codice_dipendente)
return _codice_dipendente > rec._codice_dipendente ? +1 : -1;
if (_fine_rapporto != rec._fine_rapporto)
return _fine_rapporto > rec._fine_rapporto ? +1 : -1;
if (_lavoro_precedente != rec._lavoro_precedente)
return _lavoro_precedente ? +1 : -1;
if (_causa != rec._causa)
return _causa > rec._causa ? +1 : -1;
if (_rettifica_conguaglio != rec._rettifica_conguaglio)
return _rettifica_conguaglio > rec._rettifica_conguaglio ? +1 : -1;
return _numero_progressivo - rec._numero_progressivo;
}
class TDipendenti : public TObject
{
TArray _data;
protected:
const TDipendente& dip(int i) const { return (const TDipendente&)_data[i]; }
public:
const TDipendente& operator[](int i) const { return dip(i); }
int fill(TCursor& cur);
int items() const { return _data.items(); }
int find(long d) const;
TDipendenti() { }
virtual ~TDipendenti() { }
};
int TDipendenti::find(long cod) const
{
for (int i = _data.last(); i >= 0; i--)
if (dip(i).codice() == cod)
break;
return i;
}
int TDipendenti::fill(TCursor& cur)
{
for (cur = 0; cur.ok(); ++cur)
{
TDipendente* n = new TDipendente(cur);
if (n->pos() >= 0)
_data.add(n);
else
delete n;
}
const int i = _data.items();
if (i > 0)
{
_data.sort();
for (int d = i-1; d >= 0; d--)
{
const long coddec = dip(d).codice_deceduto();
if (coddec > 0) // E' un erede!
{
const int posdec = find(coddec);
if (posdec >= 0 && posdec != d-1) // Il deceduto esiste
{
TDipendente* dipen = (TDipendente*)_data.remove(d, TRUE);
dipen->reset_deceduto(); // Non e' piu' un erede
_data.insert(dipen, posdec+1); // Attaccalo dietro al deceduto
}
}
}
}
return i;
}
class TQuadroA : public TDicForm class TQuadroA : public TDicForm
{ {
enum { QA_FORMLEN = 72 }; enum { QA_FORMLEN = 72 };
@ -3358,7 +3499,7 @@ void TQuadroA::next_page(TPrinter& pr)
int TQuadroA::elementi_pagina(PaginaQuadro p) const int TQuadroA::elementi_pagina(PaginaQuadro p) const
{ {
const int n[4] = { 1, 4, 4, 2 }; const int n[4] = { 1, 3, 3, 2 };
return n[p - PRIMA]; return n[p - PRIMA];
} }
@ -3387,10 +3528,35 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
bool stampato_ultimo = FALSE; bool stampato_ultimo = FALSE;
bool stampati_totali = FALSE; bool stampati_totali = FALSE;
for (cur = 0; stampati_totali == FALSE; stampato_ultimo ? 0 : ++cur) int pos = 0;
TDipendenti indice;
if (quadro() == "A")
{
const int i = indice.fill(cur);
if (i > 0)
{
if (usa_progind())
progind()->addstatus(cur.items()-i); // Segna come elaborati tutti gli ignorati
cur = indice[0].pos();
}
else
return FALSE;
}
else
cur = 0;
while (!stampati_totali)
{ {
const bool stampero_ultimo = stampato_ultimo == FALSE && cur.pos() == cur.items()-1; bool stampero_ultimo = stampato_ultimo == FALSE;
if (stampero_ultimo)
{
if (quadro() == "A")
stampero_ultimo &= pos == indice.items()-1;
else
stampero_ultimo &= cur.pos() == cur.items()-1;
}
switch(_PaginaCorrente) switch(_PaginaCorrente)
{ {
case PRIMA: case PRIMA:
@ -3460,7 +3626,17 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
CHECK(0, "Invalid Quadro A page"); CHECK(0, "Invalid Quadro A page");
break; break;
} }
if (!stampato_ultimo)
{
if (quadro() == "A")
cur = indice[++pos].pos();
else
++cur;
}
} }
close_print();
return TRUE; return TRUE;
} }
@ -3512,6 +3688,7 @@ class TQuadroA1 : public TQuadroA
protected: protected:
virtual int elementi_pagina(PaginaQuadro p) const; virtual int elementi_pagina(PaginaQuadro p) const;
virtual int prima_riga(PaginaQuadro p) const; virtual int prima_riga(PaginaQuadro p) const;
virtual long filtra(const long codditta);
public: public:
TQuadroA1(const char* form, const char* quadro) : TQuadroA(form, quadro) { } TQuadroA1(const char* form, const char* quadro) : TQuadroA(form, quadro) { }
@ -3529,6 +3706,17 @@ int TQuadroA1::prima_riga(PaginaQuadro p) const
return p == PRIMA ? 32 : 4; return p == PRIMA ? 32 : 4;
} }
long TQuadroA1::filtra(const long codditta)
{
TString filtr(32);
filtr.format("CODDITTA=%ld|ANNORIF=1995", codditta);
cursor()->setfilter(filtr, TRUE);
const long items = cursor()->items();
return items;
}
class TStampaQuadroA1 : public TStampaQuadroA class TStampaQuadroA1 : public TStampaQuadroA
{ {
protected: protected:
@ -3544,7 +3732,7 @@ bool TStampaQuadroA1::user_create()
_form = new TQuadroA1("77QA1", quadro()); _form = new TQuadroA1("77QA1", quadro());
TString sortkey(80); TString sortkey(80);
sortkey.format("CODDITTA|%d->COGNOME|%d->NOME|CODDIP", LF_DIPEND, LF_DIPEND); sortkey.format("CODDITTA|%d->COGNOME|%d->NOME|CODDIP|MESERIF|NPROG", LF_DIPEND, LF_DIPEND);
_cur = new TSorted_cursor(_form->TForm::relation(), sortkey); _cur = new TSorted_cursor(_form->TForm::relation(), sortkey);
return TRUE; return TRUE;
@ -3554,8 +3742,27 @@ bool TStampaQuadroA1::user_create()
// Quadro A2 // Quadro A2
///////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////
// Il form del quadro A2 e' sostanzialmente uguale a quello del quadro A1: class TQuadroA2 : public TQuadroA
// per cui non necessita di una classe a parte {
protected:
virtual int elementi_pagina(PaginaQuadro p) const;
virtual int prima_riga(PaginaQuadro p) const;
public:
TQuadroA2(const char* form, const char* quadro) : TQuadroA(form, quadro) { }
virtual ~TQuadroA2() { }
};
int TQuadroA2::elementi_pagina(PaginaQuadro p) const
{
const int n[4] = { 3, 6, 6, 5 };
return n[p-PRIMA];
}
int TQuadroA2::prima_riga(PaginaQuadro p) const
{
return p == PRIMA ? 32 : 4;
}
class TStampaQuadroA2 : public TStampaQuadroA class TStampaQuadroA2 : public TStampaQuadroA
{ {
@ -3569,10 +3776,10 @@ public:
bool TStampaQuadroA2::user_create() bool TStampaQuadroA2::user_create()
{ {
_form = new TQuadroA1("77QA2", quadro()); _form = new TQuadroA2("77QA2", quadro());
TString sortkey(80); TString sortkey(80);
sortkey.format("CODDITTA|%d->COGNOME|%d->NOME|CODDIP", LF_DIPEND, LF_DIPEND); sortkey.format("CODDITTA|%d->COGNOME|%d->NOME|CODDIP|RETCON|NPROG", LF_DIPEND, LF_DIPEND);
_cur = new TSorted_cursor(_form->TForm::relation(), sortkey); _cur = new TSorted_cursor(_form->TForm::relation(), sortkey);
return TRUE; return TRUE;
@ -3619,7 +3826,7 @@ bool TStampaQuadroA3::user_create()
_form = new TQuadroA3("77QA3", quadro()); _form = new TQuadroA3("77QA3", quadro());
TString sortkey(80); TString sortkey(80);
sortkey.format("CODDITTA|%d->COGNOME|%d->NOME|CODDIP", LF_DIPEND, LF_DIPEND); sortkey.format("CODDITTA|NPROG|%d->COGNOME|%d->NOME|CODDIP", LF_DIPEND, LF_DIPEND);
_cur = new TSorted_cursor(_form->TForm::relation(), sortkey); _cur = new TSorted_cursor(_form->TForm::relation(), sortkey);
return TRUE; return TRUE;