From 380935b06b1352c5f93b96177583148ee23f77bd Mon Sep 17 00:00:00 2001
From: guy <guy@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 7 Aug 1996 10:00:28 +0000
Subject: [PATCH] Aggiunto il fantastico quadro B

git-svn-id: svn://10.65.10.50/trunk@3335 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 m770/77qb.frm | 679 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 679 insertions(+)
 create mode 100755 m770/77qb.frm

diff --git a/m770/77qb.frm b/m770/77qb.frm
new file mode 100755
index 000000000..9bdc4c851
--- /dev/null
+++ b/m770/77qb.frm
@@ -0,0 +1,679 @@
+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
+
+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
+
+END
+
+END
\ No newline at end of file