Aggiunto il fantastico quadro B
git-svn-id: svn://10.65.10.50/trunk@3335 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
59dbf8baa4
commit
380935b06b
679
m770/77qb.frm
Executable file
679
m770/77qb.frm
Executable file
@ -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
|
||||
Loading…
x
Reference in New Issue
Block a user