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

Varie correzioni

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3736 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1996-10-09 10:25:20 +00:00
parent ea18899a94
commit 0b24d8e0ec
21 changed files with 10724 additions and 10575 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2178
m770/77base2.frm
View File

File diff suppressed because it is too large Load Diff

384
m770/77base3.frm
View File

@ -1,192 +1,192 @@
USE 42
JOIN 37 INTO CODDITTA=CODDITTA
END
DESCRIPTION
BEGIN
36->* "Base 770"
37->* "Basebis 770"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Roman 17cpi"
SIZE 12
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 2
STRINGA 1
BEGIN
KEY "Cod.Conc.1"
PROMPT 41 1 ""
FIELD 37->L0CCONC1
END
STRINGA 2
BEGIN
KEY "Cod.Conc.2"
PROMPT 53 1 ""
FIELD 37->L0CCONC2
END
STRINGA 3
BEGIN
KEY "Cod.Conc.3"
PROMPT 63 1 ""
FIELD 37->L0CCONC3
END
NUMERO 4
BEGIN
KEY "Cod.Tes.1"
PROMPT 102 1 ""
FIELD 37->L0CTES1
END
NUMERO 5
BEGIN
KEY "Cod.Tes.2"
PROMPT 114 1 ""
FIELD 37->L0CTES2
END
NUMERO 6
BEGIN
KEY "Cod.Tes.3"
PROMPT 126 1 ""
FIELD 37->L0CTES3
END
END
SECTION BODY ODD 4
NUMERO 1
BEGIN
KEY "Mese rif."
PROMPT 26 1 ""
FIELD 42->QLMP
END
NUMERO 2
BEGIN
KEY "Anno rif."
PROMPT 29 1 ""
FIELD 42->QLAP
END
NUMERO 3
BEGIN
KEY "Rit.eff"
PROMPT 48 1 ""
FIELD 42->QLRITEFF
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->1
END
NUMERO 4
BEGIN
KEY "Rit.ver"
PROMPT 79 1 ""
FIELD 42->QLRITVER
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->2
END
LISTA 5
BEGIN
KEY "RSS"
PROMPT 100 1 ""
ITEM " | "
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD 42->QLRSS
END
STRINGA 6
BEGIN
KEY "Note"
PROMPT 111 1 ""
FIELD 42->QLNOTE
END
STRINGA 7
BEGIN
KEY "Luogo Vers."
PROMPT 26 3 ""
FIELD 42->QLLV
END
STRINGA 8
BEGIN
KEY "Tipo Vers."
PROMPT 34 3 ""
FIELD 42->QLTV
END
STRINGA 9
BEGIN
KEY "CodTrib"
PROMPT 47 3 ""
FIELD 42->QLCT
END
STRINGA 10
BEGIN
KEY "Art.Bil."
PROMPT 54 3 ""
FIELD 42->QLAB
END
STRINGA 11
BEGIN
KEY "DATA VERS."
PROMPT 63 3 ""
FIELD 42->QLDV
PICTURE "## ^ ## ^####"
END
STRINGA 12
BEGIN
KEY "SERIE"
PROMPT 84 3 ""
FIELD 42->QLSERIE
END
STRINGA 13
BEGIN
KEY "NUMERO"
PROMPT 99 3 ""
FIELD 42->QLNUMERO[1,5]
END
END
SECTION FOOTER LAST 2
NUMERO 1
BEGIN
KEY "Tot.rit.eff"
PROMPT 61 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 2
BEGIN
KEY "Tot.rit.ver"
PROMPT 112 1 ""
PICTURE "###.###.###.###^^^"
END
END
END
USE 42
JOIN 37 INTO CODDITTA=CODDITTA
END
DESCRIPTION
BEGIN
36->* "Base 770"
37->* "Basebis 770"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Roman 17cpi"
SIZE 12
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 2
STRINGA 1
BEGIN
KEY "Cod.Conc.1"
PROMPT 41 1 ""
FIELD 37->L0CCONC1
END
STRINGA 2
BEGIN
KEY "Cod.Conc.2"
PROMPT 53 1 ""
FIELD 37->L0CCONC2
END
STRINGA 3
BEGIN
KEY "Cod.Conc.3"
PROMPT 63 1 ""
FIELD 37->L0CCONC3
END
NUMERO 4
BEGIN
KEY "Cod.Tes.1"
PROMPT 102 1 ""
FIELD 37->L0CTES1
END
NUMERO 5
BEGIN
KEY "Cod.Tes.2"
PROMPT 114 1 ""
FIELD 37->L0CTES2
END
NUMERO 6
BEGIN
KEY "Cod.Tes.3"
PROMPT 126 1 ""
FIELD 37->L0CTES3
END
END
SECTION BODY ODD 4
NUMERO 1
BEGIN
KEY "Mese rif."
PROMPT 26 1 ""
FIELD 42->QLMP
END
NUMERO 2
BEGIN
KEY "Anno rif."
PROMPT 29 1 ""
FIELD 42->QLAP
END
NUMERO 3
BEGIN
KEY "Rit.eff"
PROMPT 48 1 ""
FIELD 42->QLRITEFF
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->1
END
NUMERO 4
BEGIN
KEY "Rit.ver"
PROMPT 79 1 ""
FIELD 42->QLRITVER
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->2
END
LISTA 5
BEGIN
KEY "RSS"
PROMPT 100 1 ""
ITEM " | "
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD 42->QLRSS
END
STRINGA 6
BEGIN
KEY "Note"
PROMPT 111 1 ""
FIELD 42->QLNOTE
END
STRINGA 7
BEGIN
KEY "Luogo Vers."
PROMPT 26 3 ""
FIELD 42->QLLV
END
STRINGA 8
BEGIN
KEY "Tipo Vers."
PROMPT 34 3 ""
FIELD 42->QLTV
END
STRINGA 9
BEGIN
KEY "CodTrib"
PROMPT 47 3 ""
FIELD 42->QLCT
END
STRINGA 10
BEGIN
KEY "Art.Bil."
PROMPT 54 3 ""
FIELD 42->QLAB
END
STRINGA 11
BEGIN
KEY "DATA VERS."
PROMPT 63 3 ""
FIELD 42->QLDV
PICTURE "## ^ ## ^####"
END
STRINGA 12
BEGIN
KEY "SERIE"
PROMPT 84 3 ""
FIELD 42->QLSERIE
END
STRINGA 13
BEGIN
KEY "NUMERO"
PROMPT 99 3 ""
FIELD 42->QLNUMERO[1,5]
END
END
SECTION FOOTER LAST 2
NUMERO 1
BEGIN
KEY "Tot.rit.eff"
PROMPT 61 2 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 2
BEGIN
KEY "Tot.rit.ver"
PROMPT 112 2 ""
PICTURE "###.###.###.###^^^"
END
END
END

1235
m770/77base4.frm
View File

File diff suppressed because it is too large Load Diff

702
m770/77busta.frm
View File

@ -1,352 +1,352 @@
USE 36
JOIN 37 INTO CODDITTA=CODDITTA
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 13 TO 106@ ALIAS 113 INTO COM==COMRF(COMRES)
JOIN %UCS TO 113@ ALIAS 104 INTO CODTAB=UFFCSERV
JOIN %UID TO 106@ ALIAS 204 INTO CODTAB=UFFIIDD
JOIN 13 TO 204@ ALIAS 213 INTO COM==S6
END
DESCRIPTION
BEGIN
58->* "Busta 770"
9->* "Ditte"
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 11
CARATTERE "X"
INIZIO_POS 3 2
FINE_POS 131
GRID "+++++++++-|"
END
SECTION BODY ODD 54
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 1
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 48 10 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 22 13 ""
FIELD 106@->RAGSOC
END
STRINGA 6
BEGIN
KEY "VIA di RES."
PROMPT 22 16 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
END
STRINGA 7
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 16 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
END
STRINGA 8
BEGIN
KEY "CAP"
PROMPT 22 19 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
END
STRINGA 9
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 34 19 ""
FIELD 113@->DENCOM
END
STRINGA 10
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 119 19 ""
FIELD 113@->PROVCOM
END
STRINGA 650
BEGIN
KEY "Quadro A"
PROMPT 96 23 ""
FIELD 37->QCOMP[1,1]
END
STRINGA 651
BEGIN
KEY "Quadro A1"
PROMPT 101 23 ""
FIELD 37->QCOMP[2,2]
END
STRINGA 652
BEGIN
KEY "Quadro A2"
PROMPT 106 23 ""
FIELD 37->QCOMP[3,3]
END
STRINGA 653
BEGIN
KEY "Quadro A3"
PROMPT 111 23 ""
FIELD 37->QCOMP[4,4]
END
STRINGA 660
BEGIN
KEY "Quadro B"
PROMPT 116 23 ""
FIELD 37->QCOMP[5,5]
END
STRINGA 661
BEGIN
KEY "Quadro B1"
PROMPT 121 23 ""
FIELD 37->QCOMP[6,6]
END
STRINGA 670
BEGIN
KEY "Quadro C"
PROMPT 24 25 ""
FIELD 37->QCOMP[7,7]
END
STRINGA 680
BEGIN
KEY "Quadro D"
PROMPT 29 25 ""
FIELD 37->QCOMP[8,8]
END
STRINGA 681
BEGIN
KEY "Quadro D1"
PROMPT 34 25 ""
FIELD 37->QCOMP[9,9]
END
STRINGA 690
BEGIN
KEY "Quadro E"
PROMPT 39 25 ""
FIELD 37->QCOMP[10,10]
END
STRINGA 691
BEGIN
KEY "Quadro E1"
PROMPT 44 25 ""
FIELD 37->QCOMP[11,11]
END
STRINGA 692
BEGIN
KEY "Quadro E2"
PROMPT 49 25 ""
FIELD 37->QCOMP[12,12]
END
STRINGA 700
BEGIN
KEY "Quadro F"
PROMPT 54 25 ""
FIELD 37->QCOMP[13,13]
END
STRINGA 701
BEGIN
KEY "Quadro F1"
PROMPT 59 25 ""
FIELD 37->QCOMP[14,14]
END
STRINGA 702
BEGIN
KEY "Quadro F2"
PROMPT 64 25 ""
FIELD 37->QCOMP[15,15]
END
STRINGA 710
BEGIN
KEY "Quadro G"
PROMPT 70 25 ""
FIELD 37->QCOMP[16,16]
END
STRINGA 711
BEGIN
KEY "Quadro G1"
PROMPT 75 25 ""
FIELD 37->QCOMP[17,17]
END
STRINGA 720
BEGIN
KEY "Quadro H"
PROMPT 80 25 ""
FIELD 37->QCOMP[18,18]
END
STRINGA 730
BEGIN
KEY "Quadro I"
PROMPT 85 25 ""
FIELD 37->QCOMP[19,19]
END
STRINGA 740
BEGIN
KEY "Quadro L"
PROMPT 90 25 ""
END
STRINGA 760
BEGIN
KEY "Quadro N"
PROMPT 96 25 ""
FIELD 37->QCOMP[20,20]
END
STRINGA 780
BEGIN
KEY "Quadro P"
PROMPT 101 25 ""
FIELD 37->QCOMP[21,21]
END
STRINGA 790
BEGIN
KEY "Quadro Q"
PROMPT 106 25 ""
FIELD 37->QCOMP[22,22]
END
STRINGA 800
BEGIN
KEY "Quadro R"
PROMPT 111 25 ""
FIELD 37->QCOMP[23,23]
END
STRINGA 810
BEGIN
KEY "Quadro S"
PROMPT 116 25 ""
FIELD 37->QCOMP[24,24]
END
STRINGA 820
BEGIN
KEY "Quadro T"
PROMPT 121 25 ""
FIELD 37->QCOMP[25,25]
END
STRINGA 20
BEGIN
KEY "Allegati mod.730"
PROMPT 111 27 ""
END
STRINGA 21
BEGIN
KEY "Numero quadri su supporto magnetico"
FLAGS "H"
FIELD 37->NSUPPM
MESSAGE EMPTY RESET,22
MESSAGE "X",22
END
STRINGA 22
BEGIN
KEY "Dichiarazione su supporto magnetico"
PROMPT 111 29 ""
END
STRINGA 30
BEGIN
KEY "Codice centro di servizio"
FLAGS "H"
FIELD 113@->UFFCSERV
MESSAGE EMPTY DISABLE,10@|ENABLE,20@
MESSAGE DISABLE,20@|ENABLE,10@
END
STRINGA 31
BEGIN
KEY "Centro servizio"
PROMPT 142 40 "CENTRO SERVIZIO"
GROUP 10
END
STRINGA 32
BEGIN
KEY "C.A.P. Centro servizio"
PROMPT 138 45 ""
FIELD 104@->S7
GROUP 10
END
STRINGA 33
BEGIN
KEY "Comune Centro servizio"
PROMPT 170 45 ""
FIELD 104@->S0
GROUP 10
END
STRINGA 34
BEGIN
KEY "Ufficio distrettuale"
PROMPT 142 40 "UFFICIO DISTRETTUALE"
GROUP 20
END
STRINGA 35
BEGIN
KEY "C.A.P. Ufficio distrettuale"
PROMPT 138 45 ""
FIELD 204@->S7
FIELD 213@->CAPCOM
GROUP 20
END
STRINGA 36
BEGIN
KEY "Comune Ufficio distrettuale"
PROMPT 170 45 ""
FIELD 204@->S0
GROUP 20
END
END
USE 36
JOIN 37 INTO CODDITTA=CODDITTA
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 13 TO 106@ ALIAS 113 INTO COM==COMRF(COMRES)
JOIN %UCS TO 113@ ALIAS 104 INTO CODTAB=UFFCSERV
JOIN %UID TO 106@ ALIAS 204 INTO CODTAB=UFFIIDD
JOIN 13 TO 204@ ALIAS 213 INTO COM==S6
END
DESCRIPTION
BEGIN
58->* "Busta 770"
9->* "Ditte"
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 11
CARATTERE "X"
INIZIO_POS 3 2
FINE_POS 131
GRID "+++++++++-|"
END
SECTION BODY ODD 54
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 1
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 48 10 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 22 13 ""
FIELD 106@->RAGSOC
END
STRINGA 6
BEGIN
KEY "VIA di RES."
PROMPT 22 16 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
END
STRINGA 7
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 16 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
END
STRINGA 8
BEGIN
KEY "CAP"
PROMPT 22 19 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
END
STRINGA 9
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 34 19 ""
FIELD 113@->DENCOM
END
STRINGA 10
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 119 19 ""
FIELD 113@->PROVCOM
END
STRINGA 650
BEGIN
KEY "Quadro A"
PROMPT 96 23 ""
FIELD 37->QCOMP[1,1]
END
STRINGA 651
BEGIN
KEY "Quadro A1"
PROMPT 101 23 ""
FIELD 37->QCOMP[2,2]
END
STRINGA 652
BEGIN
KEY "Quadro A2"
PROMPT 106 23 ""
FIELD 37->QCOMP[3,3]
END
STRINGA 653
BEGIN
KEY "Quadro A3"
PROMPT 111 23 ""
FIELD 37->QCOMP[4,4]
END
STRINGA 660
BEGIN
KEY "Quadro B"
PROMPT 116 23 ""
FIELD 37->QCOMP[5,5]
END
STRINGA 661
BEGIN
KEY "Quadro B1"
PROMPT 121 23 ""
FIELD 37->QCOMP[6,6]
END
STRINGA 670
BEGIN
KEY "Quadro C"
PROMPT 24 25 ""
FIELD 37->QCOMP[7,7]
END
STRINGA 680
BEGIN
KEY "Quadro D"
PROMPT 29 25 ""
FIELD 37->QCOMP[8,8]
END
STRINGA 681
BEGIN
KEY "Quadro D1"
PROMPT 34 25 ""
FIELD 37->QCOMP[9,9]
END
STRINGA 690
BEGIN
KEY "Quadro E"
PROMPT 39 25 ""
FIELD 37->QCOMP[10,10]
END
STRINGA 691
BEGIN
KEY "Quadro E1"
PROMPT 44 25 ""
FIELD 37->QCOMP[11,11]
END
STRINGA 692
BEGIN
KEY "Quadro E2"
PROMPT 49 25 ""
FIELD 37->QCOMP[12,12]
END
STRINGA 700
BEGIN
KEY "Quadro F"
PROMPT 54 25 ""
FIELD 37->QCOMP[13,13]
END
STRINGA 701
BEGIN
KEY "Quadro F1"
PROMPT 59 25 ""
FIELD 37->QCOMP[14,14]
END
STRINGA 702
BEGIN
KEY "Quadro F2"
PROMPT 64 25 ""
FIELD 37->QCOMP[15,15]
END
STRINGA 710
BEGIN
KEY "Quadro G"
PROMPT 70 25 ""
FIELD 37->QCOMP[16,16]
END
STRINGA 711
BEGIN
KEY "Quadro G1"
PROMPT 75 25 ""
FIELD 37->QCOMP[17,17]
END
STRINGA 720
BEGIN
KEY "Quadro H"
PROMPT 80 25 ""
FIELD 37->QCOMP[18,18]
END
STRINGA 730
BEGIN
KEY "Quadro I"
PROMPT 85 25 ""
FIELD 37->QCOMP[19,19]
END
STRINGA 740
BEGIN
KEY "Quadro L"
PROMPT 90 25 ""
END
STRINGA 760
BEGIN
KEY "Quadro N"
PROMPT 96 25 ""
FIELD 37->QCOMP[20,20]
END
STRINGA 780
BEGIN
KEY "Quadro P"
PROMPT 101 25 ""
FIELD 37->QCOMP[21,21]
END
STRINGA 790
BEGIN
KEY "Quadro Q"
PROMPT 106 25 ""
FIELD 37->QCOMP[22,22]
END
STRINGA 800
BEGIN
KEY "Quadro R"
PROMPT 111 25 ""
FIELD 37->QCOMP[23,23]
END
STRINGA 810
BEGIN
KEY "Quadro S"
PROMPT 116 25 ""
FIELD 37->QCOMP[24,24]
END
STRINGA 820
BEGIN
KEY "Quadro T"
PROMPT 121 25 ""
FIELD 37->QCOMP[25,25]
END
STRINGA 20
BEGIN
KEY "Allegati mod.730"
PROMPT 111 27 ""
END
STRINGA 21
BEGIN
KEY "Numero quadri su supporto magnetico"
FLAGS "H"
FIELD 37->NSUPPM
MESSAGE EMPTY RESET,22
MESSAGE "X",22
END
STRINGA 22
BEGIN
KEY "Dichiarazione su supporto magnetico"
PROMPT 111 29 ""
END
STRINGA 30
BEGIN
KEY "Codice centro di servizio"
FLAGS "H"
FIELD 113@->UFFCSERV
MESSAGE EMPTY DISABLE,10@|ENABLE,20@
MESSAGE DISABLE,20@|ENABLE,10@
END
STRINGA 31
BEGIN
KEY "Centro servizio"
PROMPT 142 40 "CENTRO SERVIZIO"
GROUP 10
END
STRINGA 32
BEGIN
KEY "C.A.P. Centro servizio"
PROMPT 138 45 ""
FIELD 104@->S7
GROUP 10
END
STRINGA 33
BEGIN
KEY "Comune Centro servizio"
PROMPT 170 45 ""
FIELD 104@->S0
GROUP 10
END
STRINGA 34
BEGIN
KEY "Ufficio distrettuale"
PROMPT 142 40 "UFFICIO DISTRETTUALE"
GROUP 20
END
STRINGA 35
BEGIN
KEY "C.A.P. Ufficio distrettuale"
PROMPT 138 45 ""
FIELD 204@->S7
FIELD 213@->CAPCOM
GROUP 20
END
STRINGA 36
BEGIN
KEY "Comune Ufficio distrettuale"
PROMPT 170 45 ""
FIELD 204@->S0
GROUP 20
END
END
END

2280
m770/77qa.frm
View File

File diff suppressed because it is too large Load Diff

938
m770/77qa1.frm
View File

@ -1,469 +1,469 @@
USE 56
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
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
56->* "Quadro A1 770"
45->* "Anagrafica dei dipendenti"
104@->* "Tabella CAAF"
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 40 12 ""
GROUP 2
FIELD 106@->RAGSOC
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 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 126 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 125 16 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 19 ""
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 22 ""
END
END
SECTION BODY ODD 10
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 11 1 ""
FIELD 45->CODFI
END
STRINGA 2
BEGIN
KEY "COGNOME"
PROMPT 43 1 ""
FIELD 45->COGNOME
END
STRINGA 3
BEGIN
KEY "NOME"
PROMPT 80 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 48 3 ""
FIELD 45->PROVNA
END
NUMERO 8
BEGIN
KEY "MESE DI RIFERIMENTO"
PROMPT 13 5 ""
FIELD 56->MESERIF
END
NUMERO 9
BEGIN
KEY "IMPOSTA RIMBORSATA"
PROMPT 25 5 ""
PICTURE "###.###.###.###^^^"
FIELD 56->IMPRIMB9
MESSAGE ADD,FL->9
END
NUMERO 10
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 44 5 ""
PICTURE "###.###.###.###^^^"
FIELD 56->IMPVERS10
MESSAGE ADD,FL->10
END
NUMERO 11
BEGIN
KEY "INTERESSI"
PROMPT 63 5 ""
PICTURE "###.###.###.###^^^"
FIELD 56->INTER11
MESSAGE ADD,FL->11
END
NUMERO 12
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 81 5 ""
PICTURE "###.###.###.###^^^"
FIELD 56->IMPVERS12
MESSAGE ADD,FL->12
END
NUMERO 13
BEGIN
KEY "INTERESSI"
PROMPT 100 5 ""
PICTURE "###.###.###.###^^^"
FIELD 56->INTER13
MESSAGE ADD,FL->13
END
NUMERO 14
BEGIN
KEY "SOPRATTASSA SU IRPEF"
PROMPT 116 5 ""
PICTURE "###.###.###.###^^^"
FIELD 56->STASSA14
MESSAGE ADD,FL->14
END
NUMERO 15
BEGIN
KEY "CONTRIBUTO A RIMBORSO"
PROMPT 11 7 ""
PICTURE "###.###.###.###^^^"
FIELD 56->CONTRIMB15
MESSAGE ADD,FL->15
END
NUMERO 16
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 30 7 ""
PICTURE "###.###.###.###^^^"
FIELD 56->CONTVERS16
MESSAGE ADD,FL->16
END
NUMERO 17
BEGIN
KEY "INTERESSI"
PROMPT 49 7 ""
PICTURE "###.###.###.###^^^"
FIELD 56->INTER17
MESSAGE ADD,FL->17
END
NUMERO 18
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 68 7 ""
PICTURE "###.###.###.###^^^"
FIELD 56->CONTVER18
MESSAGE ADD,FL->18
END
NUMERO 19
BEGIN
KEY "INTERESSI"
PROMPT 86 7 ""
PICTURE "###.###.###.###^^^"
FIELD 56->INTER19
MESSAGE ADD,FL->19
END
NUMERO 20
BEGIN
KEY "SOPRATTASSA SU IRPEF"
PROMPT 102 7 ""
PICTURE "###.###.###.###^^^"
FIELD 56->STASSA20
MESSAGE ADD,FL->20
END
STRINGA 21
BEGIN
KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 121 7 ""
FIELD 56->CONNEFF21
END
STRINGA 22
BEGIN
KEY "TIPO CONGUAGLIO"
PROMPT 128 7 ""
FIELD 56->TIPOCONG22
END
STRINGA 23
BEGIN
KEY "CODICE FISCALE CAAF"
PROMPT 11 9 ""
FIELD 104@->S1
END
STRINGA 24
BEGIN
KEY "DENOMINAZIONE CAAF"
PROMPT 43 9 ""
FIELD 104@->S0
END
NUMERO 25
BEGIN
KEY "NUMERO ISCRIZIONE ALBO"
PROMPT 100 9 ""
PICTURE "#####"
FIELD 104@->I1
END
DATA 26
BEGIN
KEY "DATA RICEZIONE MOD.730-5"
PROMPT 115 9 ""
FORMAT "1444-"
PICTURE "## ^ ##^^^^^"
FIELD 56->DATARIC26
END
END
SECTION FOOTER LAST 4
NUMERO 9
BEGIN
KEY "IMPOSTA RIMBORSATA"
PROMPT 25 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 10
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 44 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 11
BEGIN
KEY "INTERESSI"
PROMPT 63 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 12
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 81 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 13
BEGIN
KEY "INTERESSI"
PROMPT 100 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 14
BEGIN
KEY "SOPRATTASSA SU IRPEF"
PROMPT 116 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 15
BEGIN
KEY "CONTRIBUTO A RIMBORSO"
PROMPT 11 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 16
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 30 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 17
BEGIN
KEY "INTERESSI"
PROMPT 49 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 18
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 68 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 19
BEGIN
KEY "INTERESSI"
PROMPT 86 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 20
BEGIN
KEY "SOPRATTASSA SU IRPEF"
PROMPT 102 3 ""
PICTURE "###.###.###.###^^^"
END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 5 ""
FIELD 106@->RAGSOC
END
END
END
USE 56
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
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
56->* "Quadro A1 770"
45->* "Anagrafica dei dipendenti"
104@->* "Tabella CAAF"
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 40 12 ""
GROUP 2
FIELD 106@->RAGSOC
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 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 126 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 125 16 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 19 ""
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 22 ""
END
END
SECTION BODY ODD 10
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 11 1 ""
FIELD 45->CODFI
END
STRINGA 2
BEGIN
KEY "COGNOME"
PROMPT 43 1 ""
FIELD 45->COGNOME
END
STRINGA 3
BEGIN
KEY "NOME"
PROMPT 80 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 48 3 ""
FIELD 45->PROVNA
END
NUMERO 8
BEGIN
KEY "MESE DI RIFERIMENTO"
PROMPT 13 5 ""
FIELD 56->MESERIF
END
NUMERO 9
BEGIN
KEY "IMPOSTA RIMBORSATA"
PROMPT 25 5 ""
PICTURE "###.###.###.###^^^"
FIELD 56->IMPRIMB9
MESSAGE ADD,FL->9
END
NUMERO 10
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 44 5 ""
PICTURE "###.###.###.###^^^"
FIELD 56->IMPVERS10
MESSAGE ADD,FL->10
END
NUMERO 11
BEGIN
KEY "INTERESSI"
PROMPT 63 5 ""
PICTURE "###.###.###.###^^^"
FIELD 56->INTER11
MESSAGE ADD,FL->11
END
NUMERO 12
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 81 5 ""
PICTURE "###.###.###.###^^^"
FIELD 56->IMPVERS12
MESSAGE ADD,FL->12
END
NUMERO 13
BEGIN
KEY "INTERESSI"
PROMPT 100 5 ""
PICTURE "###.###.###.###^^^"
FIELD 56->INTER13
MESSAGE ADD,FL->13
END
NUMERO 14
BEGIN
KEY "SOPRATTASSA SU IRPEF"
PROMPT 116 5 ""
PICTURE "###.###.###.###^^^"
FIELD 56->STASSA14
MESSAGE ADD,FL->14
END
NUMERO 15
BEGIN
KEY "CONTRIBUTO A RIMBORSO"
PROMPT 11 7 ""
PICTURE "###.###.###.###^^^"
FIELD 56->CONTRIMB15
MESSAGE ADD,FL->15
END
NUMERO 16
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 30 7 ""
PICTURE "###.###.###.###^^^"
FIELD 56->CONTVERS16
MESSAGE ADD,FL->16
END
NUMERO 17
BEGIN
KEY "INTERESSI"
PROMPT 49 7 ""
PICTURE "###.###.###.###^^^"
FIELD 56->INTER17
MESSAGE ADD,FL->17
END
NUMERO 18
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 68 7 ""
PICTURE "###.###.###.###^^^"
FIELD 56->CONTVER18
MESSAGE ADD,FL->18
END
NUMERO 19
BEGIN
KEY "INTERESSI"
PROMPT 86 7 ""
PICTURE "###.###.###.###^^^"
FIELD 56->INTER19
MESSAGE ADD,FL->19
END
NUMERO 20
BEGIN
KEY "SOPRATTASSA SU IRPEF"
PROMPT 102 7 ""
PICTURE "###.###.###.###^^^"
FIELD 56->STASSA20
MESSAGE ADD,FL->20
END
STRINGA 21
BEGIN
KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 121 7 ""
FIELD 56->CONNEFF21
END
STRINGA 22
BEGIN
KEY "TIPO CONGUAGLIO"
PROMPT 128 7 ""
FIELD 56->TIPOCONG22
END
STRINGA 23
BEGIN
KEY "CODICE FISCALE CAAF"
PROMPT 11 9 ""
FIELD 104@->S1
END
STRINGA 24
BEGIN
KEY "DENOMINAZIONE CAAF"
PROMPT 43 9 ""
FIELD 104@->S0
END
NUMERO 25
BEGIN
KEY "NUMERO ISCRIZIONE ALBO"
PROMPT 100 9 ""
PICTURE "#####"
FIELD 104@->I1
END
DATA 26
BEGIN
KEY "DATA RICEZIONE MOD.730-5"
PROMPT 115 9 ""
FORMAT "1444-"
PICTURE "## ^ ##^^^^^"
FIELD 56->DATARIC26
END
END
SECTION FOOTER LAST 4
NUMERO 9
BEGIN
KEY "IMPOSTA RIMBORSATA"
PROMPT 25 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 10
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 44 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 11
BEGIN
KEY "INTERESSI"
PROMPT 63 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 12
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 81 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 13
BEGIN
KEY "INTERESSI"
PROMPT 100 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 14
BEGIN
KEY "SOPRATTASSA SU IRPEF"
PROMPT 116 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 15
BEGIN
KEY "CONTRIBUTO A RIMBORSO"
PROMPT 11 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 16
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 30 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 17
BEGIN
KEY "INTERESSI"
PROMPT 49 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 18
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 68 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 19
BEGIN
KEY "INTERESSI"
PROMPT 86 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 20
BEGIN
KEY "SOPRATTASSA SU IRPEF"
PROMPT 102 3 ""
PICTURE "###.###.###.###^^^"
END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 5 ""
FIELD 106@->RAGSOC
END
END
END

938
m770/77qa2.frm
View File

@ -1,469 +1,469 @@
USE 57
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
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)
JOIN 36 INTO CODDITTA=CODDITTA
END
DESCRIPTION
BEGIN
57->* "Quadro A2 770"
45->* "Anagrafica dei dipendenti"
104@->* "Tabella CAAF"
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 40 12 ""
GROUP 2
FIELD 106@->RAGSOC
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 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 59 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 87 19 ""
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 22 ""
END
END
SECTION BODY ODD 10
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 11 1 ""
FIELD 45->CODFI
END
STRINGA 2
BEGIN
KEY "COGNOME"
PROMPT 43 1 ""
FIELD 45->COGNOME
END
STRINGA 3
BEGIN
KEY "NOME"
PROMPT 80 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 48 3 ""
FIELD 45->PROVNA
END
STRINGA 8
BEGIN
KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 16 5 ""
FIELD 57->CONEFF
END
STRINGA 9
BEGIN
KEY "RETTIFICA CONGUAGLIO"
PROMPT 31 5 ""
FIELD 57->RETCON
END
NUMERO 10
BEGIN
KEY "IMPOSTA RIMBORSATA"
PROMPT 39 5 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->10
FIELD 57->SIRPEFRIMB
END
NUMERO 11
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 54 5 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->11
FIELD 57->VIRPEF
END
NUMERO 12
BEGIN
KEY "INTERESSI"
PROMPT 70 5 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->12
FIELD 57->INTIRPEF
END
NUMERO 13
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 85 5 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->13
FIELD 57->AIRPEFIV
END
NUMERO 14
BEGIN
KEY "INTERESSI"
PROMPT 100 5 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->14
FIELD 57->AIRPEFINT
END
NUMERO 15
BEGIN
KEY "SOPRATTASSA SU IRPEF"
PROMPT 115 5 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->15
FIELD 57->STASSA15
END
NUMERO 16
BEGIN
KEY "CONTRIBUTO A RIMBORSO"
PROMPT 8 7 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->16
FIELD 57->CONTR16
END
NUMERO 17
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 23 7 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->17
FIELD 57->CONTRVER
END
NUMERO 18
BEGIN
KEY "INTERESSI"
PROMPT 39 7 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->18
FIELD 57->INTER18
END
NUMERO 19
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 54 7 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->19
FIELD 57->CONTV19
END
NUMERO 20
BEGIN
KEY "INTERESSI"
PROMPT 70 7 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->20
FIELD 57->INTE20
END
NUMERO 21
BEGIN
KEY "SOPRATTASSA SU CSSN"
PROMPT 85 7 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->21
FIELD 57->SOPRAT21
END
NUMERO 22
BEGIN
KEY "MOD. 730/95 NON LIQUIDABILE"
PROMPT 108 7 ""
FIELD 57->M730NLIQ
END
STRINGA 23
BEGIN
KEY "CODICE FISCALE CAAF"
PROMPT 11 9 ""
FIELD 104@->S1
END
STRINGA 24
BEGIN
KEY "DENOMINAZIONE CAAF"
PROMPT 44 9 ""
FIELD 104@->S0
END
NUMERO 25
BEGIN
KEY "NUMERO ISCRIZIONE ALBO"
PROMPT 125 9 ""
PICTURE "#####"
FIELD 104@->I1
END
END
SECTION FOOTER LAST 4
NUMERO 10
BEGIN
KEY "IMPOSTA RIMBORSATA"
PROMPT 39 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 11
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 54 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 12
BEGIN
KEY "INTERESSI"
PROMPT 70 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 13
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 85 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 14
BEGIN
KEY "INTERESSI"
PROMPT 100 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 15
BEGIN
KEY "SOPRATTASSA SU IRPEF"
PROMPT 115 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 16
BEGIN
KEY "CONTRIBUTO A RIMBORSO"
PROMPT 8 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 17
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 23 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 18
BEGIN
KEY "INTERESSI"
PROMPT 39 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 19
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 54 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
NUMERO 730
BEGIN
KEY "NUMERO MOD.730"
PROMPT 20 5 ""
PICTURE "######"
FIELD 36->N730ALLA2
END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 9 ""
FIELD 106@->RAGSOC
END
END
END
USE 57
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
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)
JOIN 36 INTO CODDITTA=CODDITTA
END
DESCRIPTION
BEGIN
57->* "Quadro A2 770"
45->* "Anagrafica dei dipendenti"
104@->* "Tabella CAAF"
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 40 12 ""
GROUP 2
FIELD 106@->RAGSOC
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 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 59 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 87 19 ""
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 22 ""
END
END
SECTION BODY ODD 10
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 11 1 ""
FIELD 45->CODFI
END
STRINGA 2
BEGIN
KEY "COGNOME"
PROMPT 43 1 ""
FIELD 45->COGNOME
END
STRINGA 3
BEGIN
KEY "NOME"
PROMPT 80 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 48 3 ""
FIELD 45->PROVNA
END
STRINGA 8
BEGIN
KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 16 5 ""
FIELD 57->CONEFF
END
STRINGA 9
BEGIN
KEY "RETTIFICA CONGUAGLIO"
PROMPT 31 5 ""
FIELD 57->RETCON
END
NUMERO 10
BEGIN
KEY "IMPOSTA RIMBORSATA"
PROMPT 39 5 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->10
FIELD 57->SIRPEFRIMB
END
NUMERO 11
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 54 5 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->11
FIELD 57->VIRPEF
END
NUMERO 12
BEGIN
KEY "INTERESSI"
PROMPT 70 5 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->12
FIELD 57->INTIRPEF
END
NUMERO 13
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 85 5 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->13
FIELD 57->AIRPEFIV
END
NUMERO 14
BEGIN
KEY "INTERESSI"
PROMPT 100 5 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->14
FIELD 57->AIRPEFINT
END
NUMERO 15
BEGIN
KEY "SOPRATTASSA SU IRPEF"
PROMPT 115 5 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->15
FIELD 57->STASSA15
END
NUMERO 16
BEGIN
KEY "CONTRIBUTO A RIMBORSO"
PROMPT 8 7 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->16
FIELD 57->CONTR16
END
NUMERO 17
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 23 7 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->17
FIELD 57->CONTRVER
END
NUMERO 18
BEGIN
KEY "INTERESSI"
PROMPT 39 7 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->18
FIELD 57->INTER18
END
NUMERO 19
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 54 7 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->19
FIELD 57->CONTV19
END
NUMERO 20
BEGIN
KEY "INTERESSI"
PROMPT 70 7 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->20
FIELD 57->INTE20
END
NUMERO 21
BEGIN
KEY "SOPRATTASSA SU CSSN"
PROMPT 85 7 ""
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->21
FIELD 57->SOPRAT21
END
NUMERO 22
BEGIN
KEY "MOD. 730/95 NON LIQUIDABILE"
PROMPT 108 7 ""
FIELD 57->M730NLIQ
END
STRINGA 23
BEGIN
KEY "CODICE FISCALE CAAF"
PROMPT 11 9 ""
FIELD 104@->S1
END
STRINGA 24
BEGIN
KEY "DENOMINAZIONE CAAF"
PROMPT 44 9 ""
FIELD 104@->S0
END
NUMERO 25
BEGIN
KEY "NUMERO ISCRIZIONE ALBO"
PROMPT 125 9 ""
PICTURE "#####"
FIELD 104@->I1
END
END
SECTION FOOTER LAST 4
NUMERO 10
BEGIN
KEY "IMPOSTA RIMBORSATA"
PROMPT 39 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 11
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 54 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 12
BEGIN
KEY "INTERESSI"
PROMPT 70 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 13
BEGIN
KEY "IMPOSTA VERSATA"
PROMPT 85 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 14
BEGIN
KEY "INTERESSI"
PROMPT 100 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 15
BEGIN
KEY "SOPRATTASSA SU IRPEF"
PROMPT 115 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 16
BEGIN
KEY "CONTRIBUTO A RIMBORSO"
PROMPT 8 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 17
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 23 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 18
BEGIN
KEY "INTERESSI"
PROMPT 39 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 19
BEGIN
KEY "CONTRIBUTO VERSATO"
PROMPT 54 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
NUMERO 730
BEGIN
KEY "NUMERO MOD.730"
PROMPT 20 5 ""
PICTURE "######"
FIELD 36->N730ALLA2
END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 9 ""
FIELD 106@->RAGSOC
END
END
END

864
m770/77qa3.frm
View File

@ -1,432 +1,432 @@
USE 58
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 102 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)
JOIN 37 INTO CODDITTA=CODDITTA
END
DESCRIPTION
BEGIN
58->* "Quadro A3 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 100
BEGIN
KEY "Ditta trasformata"
FLAGS "H"
ITEM "1|Normale" MESSAGE ENABLE,10@|DISABLE,20@
ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@
FIELD 58->NPROG
END
LISTA 1
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 106@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,11@|HIDE,12@
ITEM "G|Giuridica" MESSAGE SHOW,12@|HIDE,11@
GROUP 10
END
STRINGA 2
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
FIELD 106@->COFI
GROUP 10
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 40 12 ""
FIELD 106@->RAGSOC
GROUP 10 12
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 12 ""
FIELD 106@->RAGSOC[1,30]
GROUP 10 11
END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 14 ""
FIELD 106@->RAGSOC[31,50]
GROUP 10 11
END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 59 14 ""
FIELD 108@->SESSO
GROUP 10 11
END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 14 ""
FIELD 108@->DATANASC
GROUP 10 11
END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
FIELD 113@->DENCOM
GROUP 10 11
END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 14 ""
FIELD 113@->PROVCOM
GROUP 10 11
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
FIELD 213@->DENCOM
GROUP 10
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 16 ""
FIELD 213@->PROVCOM
GROUP 10
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 16 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
GROUP 10
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 16 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
GROUP 10
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 123 16 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
GROUP 10
END
LISTA 101
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 106@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,21@|HIDE,22@
ITEM "G|Giuridica" MESSAGE SHOW,22@|HIDE,21@
GROUP 20
END
STRINGA 102
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
FIELD 102->CODFISC
GROUP 20
END
STRINGA 103
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
FIELD 102->DENOMIN
GROUP 20 22
END
STRINGA 104
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
FIELD 102->DENOMIN
GROUP 20 21
END
STRINGA 105
BEGIN
KEY "NOME"
PROMPT 17 14 ""
FIELD 102->NOME
GROUP 20 21
END
STRINGA 106
BEGIN
KEY "SESSO"
PROMPT 58 14 ""
FIELD 102->SESSO
GROUP 20 21
END
STRINGA 107
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 14 ""
FIELD 102->DATANAS
GROUP 20 21
END
STRINGA 108
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
FIELD 102->COMNAS
GROUP 20 21
END
STRINGA 109
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 14 ""
FIELD 102->PROVNAS
GROUP 20 21
END
STRINGA 110
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
FIELD 102->COMDOM
GROUP 20
END
STRINGA 111
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 16 ""
FIELD 102->PROVDOM
GROUP 20
END
STRINGA 112
BEGIN
KEY "VIA di RES."
PROMPT 66 16 ""
FIELD 102->INDDOM
GROUP 20
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 20 ""
END
NUMERO 15
BEGIN
KEY "CONSISTENZA BASE OCCUPAZIONALE AL 12/06/94"
PROMPT 56 22 ""
PICTURE "###.###"
FIELD 37->CONSBASOCC
END
NUMERO 16
BEGIN
KEY "LAVORATORI DIPENDENTI IN MOBILITA'"
PROMPT 56 23 ""
PICTURE "###.###"
FIELD 37->LAVDIPCIN
END
DATA 17
BEGIN
KEY "PERIODO D'IMPOSTA (DAL)"
PROMPT 96 23 ""
FORMAT "1442 "
FIELD 37->PIMPINI
END
DATA 18
BEGIN
KEY "PERIODO D'IMPOSTA (AL)"
PROMPT 117 23 ""
FORMAT "1442 "
FIELD 37->PIMPFINE
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 25 ""
END
END
SECTION BODY ODD 6
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 11 1 ""
FIELD 45->CODFI
END
STRINGA 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 45->COGNOME
END
STRINGA 3
BEGIN
KEY "NOME"
PROMPT 79 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
DATA 8
BEGIN
KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO"
PROMPT 11 5 ""
FIELD 58->DIRAPTI
FORMAT "1444-"
PICTURE "## ^ ##^^^##"
END
NUMERO 9
BEGIN
KEY "NUMERO GIORNI IN INCREMENTO"
PROMPT 35 5 ""
PICTURE "######"
FIELD 58->NGINC15
END
NUMERO 10
BEGIN
KEY "REDDITO CORRISPOSTO"
PROMPT 43 5 ""
MESSAGE ADD,FL->10
PICTURE "###.###.###.###^^^"
FIELD 58->REDCOR16
END
NUMERO 11
BEGIN
KEY "NUMERO GIORNI IN INCREMENTO"
PROMPT 69 5 ""
PICTURE "######"
FIELD 58->NGINC17
END
NUMERO 12
BEGIN
KEY "REDDITO CORRISPOSTO"
PROMPT 77 5 ""
MESSAGE ADD,FL->12
PICTURE "###.###.###.###^^^"
FIELD 58->REDCOR18
END
END
SECTION FOOTER LAST 2
NUMERO 10
BEGIN
KEY "REDDITO CORRISPOSTO"
PROMPT 43 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 12
BEGIN
KEY "REDDITO CORRISPOSTO"
PROMPT 77 1 ""
PICTURE "###.###.###.###^^^"
END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 4 ""
FIELD 106@->RAGSOC
END
END
END
USE 58
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 102 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)
JOIN 37 INTO CODDITTA=CODDITTA
END
DESCRIPTION
BEGIN
58->* "Quadro A3 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 100
BEGIN
KEY "Ditta trasformata"
FLAGS "H"
ITEM "1|Normale" MESSAGE ENABLE,10@|DISABLE,20@
ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@
FIELD 58->NPROG
END
LISTA 1
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 106@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,11@|HIDE,12@
ITEM "G|Giuridica" MESSAGE SHOW,12@|HIDE,11@
GROUP 10
END
STRINGA 2
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
FIELD 106@->COFI
GROUP 10
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 40 12 ""
FIELD 106@->RAGSOC
GROUP 10 12
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 12 ""
FIELD 106@->RAGSOC[1,30]
GROUP 10 11
END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 14 ""
FIELD 106@->RAGSOC[31,50]
GROUP 10 11
END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 59 14 ""
FIELD 108@->SESSO
GROUP 10 11
END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 14 ""
FIELD 108@->DATANASC
GROUP 10 11
END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
FIELD 113@->DENCOM
GROUP 10 11
END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 14 ""
FIELD 113@->PROVCOM
GROUP 10 11
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
FIELD 213@->DENCOM
GROUP 10
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 16 ""
FIELD 213@->PROVCOM
GROUP 10
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 16 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
GROUP 10
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 16 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
GROUP 10
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 123 16 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
GROUP 10
END
LISTA 101
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 106@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,21@|HIDE,22@
ITEM "G|Giuridica" MESSAGE SHOW,22@|HIDE,21@
GROUP 20
END
STRINGA 102
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
FIELD 102->CODFISC
GROUP 20
END
STRINGA 103
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
FIELD 102->DENOMIN
GROUP 20 22
END
STRINGA 104
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
FIELD 102->DENOMIN
GROUP 20 21
END
STRINGA 105
BEGIN
KEY "NOME"
PROMPT 17 14 ""
FIELD 102->NOME
GROUP 20 21
END
STRINGA 106
BEGIN
KEY "SESSO"
PROMPT 58 14 ""
FIELD 102->SESSO
GROUP 20 21
END
STRINGA 107
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 14 ""
FIELD 102->DATANAS
GROUP 20 21
END
STRINGA 108
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
FIELD 102->COMNAS
GROUP 20 21
END
STRINGA 109
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 14 ""
FIELD 102->PROVNAS
GROUP 20 21
END
STRINGA 110
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
FIELD 102->COMDOM
GROUP 20
END
STRINGA 111
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 16 ""
FIELD 102->PROVDOM
GROUP 20
END
STRINGA 112
BEGIN
KEY "VIA di RES."
PROMPT 66 16 ""
FIELD 102->INDDOM
GROUP 20
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 20 ""
END
NUMERO 15
BEGIN
KEY "CONSISTENZA BASE OCCUPAZIONALE AL 12/06/94"
PROMPT 56 22 ""
PICTURE "###.###"
FIELD 37->CONSBASOCC
END
NUMERO 16
BEGIN
KEY "LAVORATORI DIPENDENTI IN MOBILITA'"
PROMPT 56 23 ""
PICTURE "###.###"
FIELD 37->LAVDIPCIN
END
DATA 17
BEGIN
KEY "PERIODO D'IMPOSTA (DAL)"
PROMPT 96 23 ""
FORMAT "1442 "
FIELD 37->PIMPINI
END
DATA 18
BEGIN
KEY "PERIODO D'IMPOSTA (AL)"
PROMPT 117 23 ""
FORMAT "1442 "
FIELD 37->PIMPFINE
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 25 ""
END
END
SECTION BODY ODD 6
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 11 1 ""
FIELD 45->CODFI
END
STRINGA 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 45->COGNOME
END
STRINGA 3
BEGIN
KEY "NOME"
PROMPT 79 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
DATA 8
BEGIN
KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO"
PROMPT 11 5 ""
FIELD 58->DIRAPTI
FORMAT "1444-"
PICTURE "## ^ ##^^^##"
END
NUMERO 9
BEGIN
KEY "NUMERO GIORNI IN INCREMENTO"
PROMPT 35 5 ""
PICTURE "######"
FIELD 58->NGINC15
END
NUMERO 10
BEGIN
KEY "REDDITO CORRISPOSTO"
PROMPT 43 5 ""
MESSAGE ADD,FL->10
PICTURE "###.###.###.###^^^"
FIELD 58->REDCOR16
END
NUMERO 11
BEGIN
KEY "NUMERO GIORNI IN INCREMENTO"
PROMPT 69 5 ""
PICTURE "######"
FIELD 58->NGINC17
END
NUMERO 12
BEGIN
KEY "REDDITO CORRISPOSTO"
PROMPT 77 5 ""
MESSAGE ADD,FL->12
PICTURE "###.###.###.###^^^"
FIELD 58->REDCOR18
END
END
SECTION FOOTER LAST 2
NUMERO 10
BEGIN
KEY "REDDITO CORRISPOSTO"
PROMPT 43 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 12
BEGIN
KEY "REDDITO CORRISPOSTO"
PROMPT 77 1 ""
PICTURE "###.###.###.###^^^"
END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 4 ""
FIELD 106@->RAGSOC
END
END
END

1378
m770/77qb.frm
View File

File diff suppressed because it is too large Load Diff

798
m770/77qc.frm
View File

@ -1,399 +1,399 @@
USE 61
JOIN %CA7 TO 61 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 61 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
61->* "Quadro C 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone giuridiche"
313@->* "Comuni"
413@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 11
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 22
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 116@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 10 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 10 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 10 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 12 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 59 12 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 63 12 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 83 12 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 12 ""
FIELD 113@->PROVCOM
GROUP 1
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 14 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 14 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 14 ""
FIELD 116@->INDRF
FIELD 116@->INDRES
FLAGS "H"
MESSAGE COPY,17
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 103 14 ""
FIELD 116@->CIVRF
FIELD 116@->CIVRES
FLAGS "H"
MESSAGE APPEND,17
END
STRINGA 17
BEGIN
KEY "VIA + NUM CIV. DI RES."
PROMPT 67 14 ""
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 124 14 ""
FIELD 116@->CAPRF
FIELD 116@->CAPRES
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 17 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 20 ""
END
END
SECTION BODY ODD 6
LISTA 100
BEGIN
KEY "Tipo anagrafica"
FIELD 216@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 81 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 1 ""
FIELD 218@->DATANASC
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 129 1 ""
FIELD 218@->SESSO
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 3 ""
FIELD 313@->DENCOM
GROUP 1
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 47 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 53 3 ""
FIELD 413@->DENCOM
GROUP 1
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 88 3 ""
FIELD 413@->PROVCOM
END
STRING 101
BEGIN
KEY "VIA RES."
PROMPT 94 3 ""
FIELD 216@->INDRES[1,20]
FLAGS "H"
MESSAGE COPY,10
END
STRING 102
BEGIN
KEY "NUM.CIV"
PROMPT 93 3 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10
END
STRING 10
BEGIN
KEY "VIA RES. + numcivres"
PROMPT 95 3 ""
GROUP 1
END
STRING 11
BEGIN
KEY "DESCR. CAUSALE"
PROMPT 10 5 ""
FIELD 14@->S0[1,20]
END
STRING 12
BEGIN
KEY "FLAG C.T."
PROMPT 34 5 ""
FIELD 14@->B2
END
STRING 13
BEGIN
KEY "FLAG T.S."
PROMPT 39 5 ""
FIELD 14@->B3
END
NUMBER 14
BEGIN
KEY "AMMONTARE CORRISPOSTO"
PROMPT 45 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14
// FIELD 61->TOTALE
END
NUMBER 15
BEGIN
KEY "CONTRIBUTI S.S.N."
PROMPT 60 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15
// FIELD 61->CONTSSN
END
NUMBER 16
BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 76 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->16
// FIELD 61->SOMME
END
NUMBER 17
BEGIN
KEY "IMPONIBILE"
PROMPT 91 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
FIELD 61->IMPONIBILE
END
NUMBER 18
BEGIN
KEY "RITENUTE OPERATE"
PROMPT 105 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
FIELD 61->RITENUTE
END
NUMBER 19
BEGIN
KEY "NETTO CORRISPOSTO"
PROMPT 120 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->19
FIELD 61->NETTO
END
END
SECTION FOOTER LAST 2
NUMBER 14
BEGIN
KEY "TOTALE AMMONTARE CORRISPOSTO"
PROMPT 45 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE CONTRIBUTI S.S.N."
PROMPT 61 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 16
BEGIN
KEY "TOTALE SOMME NON SOGGETTE A RITENUTA"
PROMPT 76 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 91 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE RITENUTE OPERATE"
PROMPT 105 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 19
BEGIN
KEY "TOTALE NETTO CORRISPOSTO"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END
USE 61
JOIN %CA7 TO 61 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 61 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
61->* "Quadro C 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone giuridiche"
313@->* "Comuni"
413@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 11
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 22
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 116@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 10 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 10 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 10 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 12 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 59 12 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 63 12 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 83 12 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 12 ""
FIELD 113@->PROVCOM
GROUP 1
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 14 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 14 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 14 ""
FIELD 116@->INDRF
FIELD 116@->INDRES
FLAGS "H"
MESSAGE COPY,17
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 103 14 ""
FIELD 116@->CIVRF
FIELD 116@->CIVRES
FLAGS "H"
MESSAGE APPEND,17
END
STRINGA 17
BEGIN
KEY "VIA + NUM CIV. DI RES."
PROMPT 67 14 ""
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 124 14 ""
FIELD 116@->CAPRF
FIELD 116@->CAPRES
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 17 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 20 ""
END
END
SECTION BODY ODD 6
LISTA 100
BEGIN
KEY "Tipo anagrafica"
FIELD 216@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 81 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 1 ""
FIELD 218@->DATANASC
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 129 1 ""
FIELD 218@->SESSO
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 3 ""
FIELD 313@->DENCOM
GROUP 1
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 47 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 53 3 ""
FIELD 413@->DENCOM
GROUP 1
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 88 3 ""
FIELD 413@->PROVCOM
END
STRING 101
BEGIN
KEY "VIA RES."
PROMPT 94 3 ""
FIELD 216@->INDRES[1,20]
FLAGS "H"
MESSAGE COPY,10
END
STRING 102
BEGIN
KEY "NUM.CIV"
PROMPT 93 3 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10
END
STRING 10
BEGIN
KEY "VIA RES. + numcivres"
PROMPT 95 3 ""
GROUP 1
END
STRING 11
BEGIN
KEY "DESCR. CAUSALE"
PROMPT 10 5 ""
FIELD 14@->S0[1,20]
END
STRING 12
BEGIN
KEY "FLAG C.T."
PROMPT 34 5 ""
FIELD 14@->B2
END
STRING 13
BEGIN
KEY "FLAG T.S."
PROMPT 39 5 ""
FIELD 14@->B3
END
NUMBER 14
BEGIN
KEY "AMMONTARE CORRISPOSTO"
PROMPT 45 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14
// FIELD 61->TOTALE
END
NUMBER 15
BEGIN
KEY "CONTRIBUTI S.S.N."
PROMPT 60 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15
// FIELD 61->CONTSSN
END
NUMBER 16
BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 76 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->16
// FIELD 61->SOMME
END
NUMBER 17
BEGIN
KEY "IMPONIBILE"
PROMPT 91 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
FIELD 61->IMPONIBILE
END
NUMBER 18
BEGIN
KEY "RITENUTE OPERATE"
PROMPT 105 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
FIELD 61->RITENUTE
END
NUMBER 19
BEGIN
KEY "NETTO CORRISPOSTO"
PROMPT 120 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->19
FIELD 61->NETTO
END
END
SECTION FOOTER LAST 2
NUMBER 14
BEGIN
KEY "TOTALE AMMONTARE CORRISPOSTO"
PROMPT 45 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE CONTRIBUTI S.S.N."
PROMPT 61 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 16
BEGIN
KEY "TOTALE SOMME NON SOGGETTE A RITENUTA"
PROMPT 76 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 91 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE RITENUTE OPERATE"
PROMPT 105 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 19
BEGIN
KEY "TOTALE NETTO CORRISPOSTO"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END

894
m770/77qd.frm
View File

@ -1,447 +1,447 @@
USE 62
JOIN %CA7 TO 62 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 62 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
62->* "Quadro D 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone giuridiche"
313@->* "Comuni"
413@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 10
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 19
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FIELD 116@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 4 1 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 1 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 1 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 3 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 58 3 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 66 3 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 3 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 3 ""
FIELD 113@->PROVCOM
GROUP 1
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 5 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 5 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 66 5 ""
FIELD 116@->INDRF
FIELD 116@->INDRES
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 102 5 ""
FIELD 116@->CIVRF
FIELD 116@->CIVRES
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 122 5 ""
FIELD 116@->CAPRF
FIELD 116@->CAPRES
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 118 8 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 123 11 ""
END
END
SECTION BODY ODD 8
LISTA 100
BEGIN
KEY "Tipo anagrafica"
FIELD 216@->TIPOA
ITEM "F| " MESSAGE SHOW,1@|HIDE,2@
ITEM "G| " MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 81 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
STRING 102
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 54 1 ""
FIELD 216@->RAGSOC
GROUP 2
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 1 ""
FIELD 218@->DATANASC
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 129 1 ""
FIELD 218@->SESSO
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 3 ""
FIELD 313@->DENCOM
GROUP 1
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 47 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA FISICHE"
PROMPT 53 3 ""
FIELD 413@->DENCOM
GROUP 1
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA FISICHE"
PROMPT 88 3 ""
FIELD 413@->PROVCOM
GROUP 1
END
STRING 101
BEGIN
KEY "COMUNE RF/RES. GIURIDICHE"
PROMPT 10 3 ""
FIELD 513@->DENCOM
GROUP 2
END
STRING 106
BEGIN
KEY "PROV. RF/RES GIURIDICHE"
PROMPT 61 3 ""
FIELD 513@->PROVCOM
GROUP 2
END
STRING 108
BEGIN
KEY "VIA RES. FISICHE"
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,10
GROUP 1
END
STRING 109
BEGIN
KEY "NUM.CIV DI RESIDENZA FISICHE"
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10
GROUP 1
END
STRING 10
BEGIN
KEY "VIA RES. + NUMCIVRES FISICHE"
PROMPT 95 3 ""
GROUP 1
END
STRING 110
BEGIN
KEY "VIA RF/RES. GIURIDICHE"
FIELD 216@->INDRF[1,18]
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,107
GROUP 2
END
STRING 111
BEGIN
KEY "NUM.CIV RF/RES GIURIDICHE"
FLAGS "H"
FIELD 216@->CIVRF
FIELD 216@->CIVRES
MESSAGE APPEND,107
GROUP 2
END
STRING 107
BEGIN
KEY "VIA RES GIURIDICHE"
PROMPT 69 3 ""
GROUP 2
END
STRING 11
BEGIN
KEY "FLAG DI NON RESIDENTE"
PROMPT 12 5 ""
FIELD 216@->SOGGNRES
END
STRING 12
BEGIN
KEY "STATO ESTERO DI RES."
PROMPT 16 5 ""
FIELD 24@->S0
END
STRING 13
BEGIN
KEY "CODICE STATO ESTERO DI RES."
PROMPT 79 5 ""
FIELD 216@->STATORES
END
STRING 14
BEGIN
KEY "CODICE FISCALE ESTERO"
PROMPT 89 5 ""
FIELD 216@->COFIEST
END
STRING 15
BEGIN
KEY "DESCR. CAUSALE"
PROMPT 11 7 ""
FIELD 14@->S0[1,20]
END
NUMBER 16
BEGIN
KEY "TOTALE"
PROMPT 42 7 ""
// FIELD 62->TOTALE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->16
END
NUMBER 17
BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 61 7 ""
// FIELD 62->SOMME
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
END
NUMBER 18
BEGIN
KEY "IMPONIBILE"
PROMPT 82 7 ""
// FIELD 62->IMPONIBILE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
END
STRING 19
BEGIN
KEY "ALIQUOTA"
PROMPT 93 7 ""
FIELD 62->PERC
PICTURE "###@@"
END
NUMBER 20
BEGIN
KEY "IMPORTO"
PROMPT 106 7 ""
// FIELD 62->IMPORTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->20
END
NUMBER 21
BEGIN
KEY "NETTO"
PROMPT 126 7 ""
// FIELD 62->NETTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->21
END
END
SECTION FOOTER LAST 1
NUMBER 16
BEGIN
KEY "TOTALE TOTALE"
PROMPT 36 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN
KEY "TOTALE SOMME NON SOGGETTE"
PROMPT 55 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 75 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 20
BEGIN
KEY "TOTALE IMPORTO"
PROMPT 101 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 21
BEGIN
KEY "TOTALE NETTO"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END
USE 62
JOIN %CA7 TO 62 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 62 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
62->* "Quadro D 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone giuridiche"
313@->* "Comuni"
413@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 10
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 19
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FIELD 116@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 4 1 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 1 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 1 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 3 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 58 3 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 66 3 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 3 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 3 ""
FIELD 113@->PROVCOM
GROUP 1
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 5 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 5 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 66 5 ""
FIELD 116@->INDRF
FIELD 116@->INDRES
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 102 5 ""
FIELD 116@->CIVRF
FIELD 116@->CIVRES
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 122 5 ""
FIELD 116@->CAPRF
FIELD 116@->CAPRES
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 118 8 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 123 11 ""
END
END
SECTION BODY ODD 8
LISTA 100
BEGIN
KEY "Tipo anagrafica"
FIELD 216@->TIPOA
ITEM "F| " MESSAGE SHOW,1@|HIDE,2@
ITEM "G| " MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 81 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
STRING 102
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 54 1 ""
FIELD 216@->RAGSOC
GROUP 2
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 1 ""
FIELD 218@->DATANASC
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 129 1 ""
FIELD 218@->SESSO
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 3 ""
FIELD 313@->DENCOM
GROUP 1
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 47 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA FISICHE"
PROMPT 53 3 ""
FIELD 413@->DENCOM
GROUP 1
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA FISICHE"
PROMPT 88 3 ""
FIELD 413@->PROVCOM
GROUP 1
END
STRING 101
BEGIN
KEY "COMUNE RF/RES. GIURIDICHE"
PROMPT 10 3 ""
FIELD 513@->DENCOM
GROUP 2
END
STRING 106
BEGIN
KEY "PROV. RF/RES GIURIDICHE"
PROMPT 61 3 ""
FIELD 513@->PROVCOM
GROUP 2
END
STRING 108
BEGIN
KEY "VIA RES. FISICHE"
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,10
GROUP 1
END
STRING 109
BEGIN
KEY "NUM.CIV DI RESIDENZA FISICHE"
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10
GROUP 1
END
STRING 10
BEGIN
KEY "VIA RES. + NUMCIVRES FISICHE"
PROMPT 95 3 ""
GROUP 1
END
STRING 110
BEGIN
KEY "VIA RF/RES. GIURIDICHE"
FIELD 216@->INDRF[1,18]
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,107
GROUP 2
END
STRING 111
BEGIN
KEY "NUM.CIV RF/RES GIURIDICHE"
FLAGS "H"
FIELD 216@->CIVRF
FIELD 216@->CIVRES
MESSAGE APPEND,107
GROUP 2
END
STRING 107
BEGIN
KEY "VIA RES GIURIDICHE"
PROMPT 69 3 ""
GROUP 2
END
STRING 11
BEGIN
KEY "FLAG DI NON RESIDENTE"
PROMPT 12 5 ""
FIELD 216@->SOGGNRES
END
STRING 12
BEGIN
KEY "STATO ESTERO DI RES."
PROMPT 16 5 ""
FIELD 24@->S0
END
STRING 13
BEGIN
KEY "CODICE STATO ESTERO DI RES."
PROMPT 79 5 ""
FIELD 216@->STATORES
END
STRING 14
BEGIN
KEY "CODICE FISCALE ESTERO"
PROMPT 89 5 ""
FIELD 216@->COFIEST
END
STRING 15
BEGIN
KEY "DESCR. CAUSALE"
PROMPT 11 7 ""
FIELD 14@->S0[1,20]
END
NUMBER 16
BEGIN
KEY "TOTALE"
PROMPT 42 7 ""
// FIELD 62->TOTALE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->16
END
NUMBER 17
BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 61 7 ""
// FIELD 62->SOMME
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
END
NUMBER 18
BEGIN
KEY "IMPONIBILE"
PROMPT 82 7 ""
// FIELD 62->IMPONIBILE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
END
STRING 19
BEGIN
KEY "ALIQUOTA"
PROMPT 93 7 ""
FIELD 62->PERC
PICTURE "###@@"
END
NUMBER 20
BEGIN
KEY "IMPORTO"
PROMPT 106 7 ""
// FIELD 62->IMPORTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->20
END
NUMBER 21
BEGIN
KEY "NETTO"
PROMPT 126 7 ""
// FIELD 62->NETTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->21
END
END
SECTION FOOTER LAST 1
NUMBER 16
BEGIN
KEY "TOTALE TOTALE"
PROMPT 36 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN
KEY "TOTALE SOMME NON SOGGETTE"
PROMPT 55 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 75 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 20
BEGIN
KEY "TOTALE IMPORTO"
PROMPT 101 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 21
BEGIN
KEY "TOTALE NETTO"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END

894
m770/77qd1.frm
View File

@ -1,447 +1,447 @@
USE 63
JOIN %CA7 TO 63 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 63 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
63->* "Quadro D1 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone giuridiche"
313@->* "Comuni"
413@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 10
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 29
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FIELD 116@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 14 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 58 14 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 63 14 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 14 ""
FIELD 113@->PROVCOM
GROUP 1
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 67 16 ""
FIELD 116@->INDRF
FIELD 116@->INDRES
FLAGS "H"
MESSAGE COPY,17
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 103 16 ""
FIELD 116@->CIVRF
FIELD 116@->CIVRES
FLAGS "H"
MESSAGE APPEND,17
END
STRINGA 17
BEGIN
KEY "VIA RES. + NUM. RES."
PROMPT 67 16 ""
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 124 16 ""
FIELD 116@->CAPRF
FIELD 116@->CAPRES
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 19 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 22 ""
END
END
SECTION BODY ODD 6
LISTA 100
BEGIN
KEY "Tipo anagrafica"
FIELD 216@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 80 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
STRING 101
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 54 1 ""
FIELD 216@->RAGSOC
GROUP 2
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 1 ""
FIELD 218@->DATANASC
GROUP 1
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 128 1 ""
FIELD 218@->SESSO
GROUP 1
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 3 ""
FIELD 313@->DENCOM
GROUP 1
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 48 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA FISICHE"
PROMPT 53 3 ""
FIELD 413@->DENCOM
GROUP 1
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA FISICHE"
PROMPT 89 3 ""
FIELD 413@->PROVCOM
GROUP 1
END
STRING 102
BEGIN
KEY "COMUNE RF/RES. GIURIDICHE"
PROMPT 10 3 ""
FIELD 513@->DENCOM
GROUP 2
END
STRING 103
BEGIN
KEY "PROVINCIA RF/RES. GIURIDICHE"
PROMPT 51 3 ""
FIELD 513@->PROVCOM
GROUP 2
END
STRING 105
BEGIN
KEY "VIA RESIDENZA FISICHE"
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,10
GROUP 1
END
STRING 106
BEGIN
KEY "NUMERO CIVICO RES. FISICHE"
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10
GROUP 1
END
STRING 10
BEGIN
KEY "VIA + NUMERO CIVICO RESIDENZA FISICHE"
PROMPT 95 3 ""
GROUP 1
END
STRING 105
BEGIN
KEY "VIA RF/RES. GIURIDICHE"
FIELD 216@->INDRF[1,18]
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,104
GROUP 2
END
STRING 106
BEGIN
KEY "NUMERO CIVICO RF/RES. GIURIDICHE"
FLAGS "H"
FIELD 216@->CIVRF
FIELD 216@->CIVRES
MESSAGE APPEND,104
GROUP 2
END
STRING 104
BEGIN
KEY "VIA + NUMERO CIVICO RF/RES. GIURIDICHE"
PROMPT 75 3 ""
GROUP 2
END
STRING 11
BEGIN
KEY "CAUSALE DEL QUADRO D1"
PROMPT 13 5 ""
FIELD 14@->S3
END
NUMBER 12
BEGIN
KEY "TOTALE"
PROMPT 23 5 ""
// FIELD 63->TOTALE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->12
END
NUMBER 13
BEGIN
KEY "QUOTA PROVVIGIONI"
PROMPT 40 5 ""
// FIELD 63->QUOTAPRO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->13
END
NUMBER 14
BEGIN
KEY "SPESE ANTICIPATE"
PROMPT 57 5 ""
// FIELD 63->SPESEANT
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14
END
NUMBER 15
BEGIN
KEY "IMPONIBILE"
PROMPT 75 5 ""
// FIELD 63->IMPONIBILE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15
END
STRING 16
BEGIN
KEY "ALIQUOTA"
PROMPT 90 5 ""
FIELD 63->PERC
PICTURE "###@@"
END
NUMBER 17
BEGIN
KEY "IMPORTO"
PROMPT 104 5 ""
// FIELD 63->IMPORTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
END
NUMBER 18
BEGIN
KEY "NETTO"
PROMPT 120 5 ""
// FIELD 63->NETTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
END
END
SECTION FOOTER LAST 2
NUMBER 12
BEGIN
KEY "TOTALE TOTALE"
PROMPT 19 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 13
BEGIN
KEY "TOTALE QUOTA PROVVIGIONI"
PROMPT 36 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 14
BEGIN
KEY "TOTALE SPESE ANTICIPATE"
PROMPT 53 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 70 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN
KEY "TOTALE IMPORTO"
PROMPT 99 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE NETTO"
PROMPT 115 1 ""
PICTURE "###.###.###^^^"
END
END
USE 63
JOIN %CA7 TO 63 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 63 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
63->* "Quadro D1 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone giuridiche"
313@->* "Comuni"
413@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 10
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 29
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FIELD 116@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 14 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 58 14 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 63 14 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 14 ""
FIELD 113@->PROVCOM
GROUP 1
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 67 16 ""
FIELD 116@->INDRF
FIELD 116@->INDRES
FLAGS "H"
MESSAGE COPY,17
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 103 16 ""
FIELD 116@->CIVRF
FIELD 116@->CIVRES
FLAGS "H"
MESSAGE APPEND,17
END
STRINGA 17
BEGIN
KEY "VIA RES. + NUM. RES."
PROMPT 67 16 ""
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 124 16 ""
FIELD 116@->CAPRF
FIELD 116@->CAPRES
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 19 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 22 ""
END
END
SECTION BODY ODD 6
LISTA 100
BEGIN
KEY "Tipo anagrafica"
FIELD 216@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 80 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
STRING 101
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 54 1 ""
FIELD 216@->RAGSOC
GROUP 2
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 1 ""
FIELD 218@->DATANASC
GROUP 1
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 128 1 ""
FIELD 218@->SESSO
GROUP 1
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 3 ""
FIELD 313@->DENCOM
GROUP 1
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 48 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA FISICHE"
PROMPT 53 3 ""
FIELD 413@->DENCOM
GROUP 1
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA FISICHE"
PROMPT 89 3 ""
FIELD 413@->PROVCOM
GROUP 1
END
STRING 102
BEGIN
KEY "COMUNE RF/RES. GIURIDICHE"
PROMPT 10 3 ""
FIELD 513@->DENCOM
GROUP 2
END
STRING 103
BEGIN
KEY "PROVINCIA RF/RES. GIURIDICHE"
PROMPT 51 3 ""
FIELD 513@->PROVCOM
GROUP 2
END
STRING 105
BEGIN
KEY "VIA RESIDENZA FISICHE"
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,10
GROUP 1
END
STRING 106
BEGIN
KEY "NUMERO CIVICO RES. FISICHE"
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10
GROUP 1
END
STRING 10
BEGIN
KEY "VIA + NUMERO CIVICO RESIDENZA FISICHE"
PROMPT 95 3 ""
GROUP 1
END
STRING 105
BEGIN
KEY "VIA RF/RES. GIURIDICHE"
FIELD 216@->INDRF[1,18]
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,104
GROUP 2
END
STRING 106
BEGIN
KEY "NUMERO CIVICO RF/RES. GIURIDICHE"
FLAGS "H"
FIELD 216@->CIVRF
FIELD 216@->CIVRES
MESSAGE APPEND,104
GROUP 2
END
STRING 104
BEGIN
KEY "VIA + NUMERO CIVICO RF/RES. GIURIDICHE"
PROMPT 75 3 ""
GROUP 2
END
STRING 11
BEGIN
KEY "CAUSALE DEL QUADRO D1"
PROMPT 13 5 ""
FIELD 14@->S3
END
NUMBER 12
BEGIN
KEY "TOTALE"
PROMPT 23 5 ""
// FIELD 63->TOTALE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->12
END
NUMBER 13
BEGIN
KEY "QUOTA PROVVIGIONI"
PROMPT 40 5 ""
// FIELD 63->QUOTAPRO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->13
END
NUMBER 14
BEGIN
KEY "SPESE ANTICIPATE"
PROMPT 57 5 ""
// FIELD 63->SPESEANT
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14
END
NUMBER 15
BEGIN
KEY "IMPONIBILE"
PROMPT 75 5 ""
// FIELD 63->IMPONIBILE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15
END
STRING 16
BEGIN
KEY "ALIQUOTA"
PROMPT 90 5 ""
FIELD 63->PERC
PICTURE "###@@"
END
NUMBER 17
BEGIN
KEY "IMPORTO"
PROMPT 104 5 ""
// FIELD 63->IMPORTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
END
NUMBER 18
BEGIN
KEY "NETTO"
PROMPT 120 5 ""
// FIELD 63->NETTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
END
END
SECTION FOOTER LAST 2
NUMBER 12
BEGIN
KEY "TOTALE TOTALE"
PROMPT 19 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 13
BEGIN
KEY "TOTALE QUOTA PROVVIGIONI"
PROMPT 36 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 14
BEGIN
KEY "TOTALE SPESE ANTICIPATE"
PROMPT 53 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 70 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN
KEY "TOTALE IMPORTO"
PROMPT 99 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE NETTO"
PROMPT 115 1 ""
PICTURE "###.###.###^^^"
END
END

2356
m770/77qg.frm
View File

File diff suppressed because it is too large Load Diff

700
m770/77qgd.frm
View File

@ -1,350 +1,350 @@
USE 101
JOIN 6 TO 101 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
62->* "770 Quadro G distinta"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone giuridiche"
313@->* "Comuni"
413@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 10
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 17
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 19 ""
FLAGS "H"
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 123 5 ""
END
END
SECTION BODY ODD 8
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 43 1 ""
FIELD 216@->RAGSOC[1,30]
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 98 1 ""
FIELD 216@->RAGSOC[31,50]
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 10 3 ""
FIELD 218@->DATANASC
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 36 3 ""
FIELD 218@->SESSO
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 44 3 ""
FIELD 313@->DENCOM
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 117 3 ""
FIELD 313@->PROVCOM
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 10 5 ""
FIELD 413@->DENCOM
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 58 5 ""
FIELD 413@->PROVCOM
END
STRING 101
BEGIN
KEY "VIA RES."
PROMPT 94 5 ""
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,10
END
STRING 102
BEGIN
KEY "NUM.CIV"
PROMPT 93 5 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10
END
STRING 10
BEGIN
KEY "VIA RES. + numcivres"
PROMPT 66 5 ""
END
NUMBER 11
BEGIN
KEY "NUMERO QUOTE"
PROMPT 125 5 ""
FIELD 101->NUMQUOTE
PICTURE ".2"
END
NUMBER 12
BEGIN
KEY "UTILI SPETTANTI"
PROMPT 31 7 ""
FIELD 101->UTSPETT
PICTURE "###.###.###^^^"
MESSAGE ADD,FO->12
END
NUMBER 13
BEGIN
KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
PROMPT 59 7 ""
FIELD 101->ROPESPET
PICTURE "###.###.###^^^"
MESSAGE ADD,FO->13
END
NUMBER 14
BEGIN
KEY "UTILI PAGATI"
PROMPT 93 7 ""
FIELD 101->UTPAG
PICTURE "###.###.###^^^"
MESSAGE ADD,FO->14
END
NUMBER 15
BEGIN
KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
PROMPT 120 7 ""
FIELD 101->ROPE
PICTURE "###.###.###^^^"
MESSAGE ADD,FO->15
END
END
SECTION BODY EVEN 6
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 44 1 ""
FIELD 216@->RAGSOC
END
STRING 3
BEGIN
KEY "COMUNE DI RF/RES. GIURIDICHE"
PROMPT 10 3 ""
FIELD 513@->DENCOM
END
STRING 4
BEGIN
KEY "PROV. RF/RES. GIURIDICHE"
PROMPT 61 3 ""
FIELD 513@->PROVCOM
END
STRING 5
BEGIN
KEY "VIA RF/RES. GIURIDICHE"
PROMPT 94 3 ""
FIELD 216@->INDRF[1,18]
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,7
END
STRING 6
BEGIN
KEY "NUM.CIV RF/RES. GIURIDICHE"
PROMPT 93 3 ""
FLAGS "H"
FIELD 216@->CIVRF
FIELD 216@->CIVRES
MESSAGE APPEND,7
END
STRING 7
BEGIN
KEY "VIA RF/RES. + numcivres"
PROMPT 69 3 ""
END
NUMBER 11
BEGIN
KEY "NUMERO QUOTE"
PROMPT 128 3 ""
FIELD 101->NUMQUOTE
PICTURE ".2"
END
NUMBER 12
BEGIN
KEY "UTILI SPETTANTI"
PROMPT 31 5 ""
FIELD 101->UTSPETT
PICTURE "###.###.###^^^"
MESSAGE ADD,FE->12
END
NUMBER 13
BEGIN
KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
PROMPT 59 5 ""
FIELD 101->ROPESPET
PICTURE "###.###.###^^^"
MESSAGE ADD,FE->13
END
NUMBER 14
BEGIN
KEY "UTILI PAGATI"
PROMPT 93 5 ""
FIELD 101->UTPAG
PICTURE "###.###.###^^^"
MESSAGE ADD,FE->14
END
NUMBER 15
BEGIN
KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
PROMPT 120 5 ""
FIELD 101->ROPE
PICTURE "###.###.###^^^"
MESSAGE ADD,FE->15
END
END
SECTION FOOTER ODD 2
NUMBER 12
BEGIN
KEY "TOTALE UT.SPETT."
PROMPT 31 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 13
BEGIN
KEY "TOTALE R.OPE.SU UT.SPETT."
PROMPT 59 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 14
BEGIN
KEY "TOTALE UTILI PAGATI"
PROMPT 93 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE R.OPE.SU UT.PAGATI"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END
SECTION FOOTER EVEN 2
NUMBER 12
BEGIN
KEY "TOTALE UT.SPETT."
PROMPT 31 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 13
BEGIN
KEY "TOTALE R.OPE.SU UT.SPETT."
PROMPT 59 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 14
BEGIN
KEY "TOTALE UTILI PAGATI"
PROMPT 93 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE R.OPE.SU UT.PAGAI"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END
USE 101
JOIN 6 TO 101 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRES
JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
62->* "770 Quadro G distinta"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone giuridiche"
313@->* "Comuni"
413@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 10
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 17
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 19 ""
FLAGS "H"
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 123 5 ""
END
END
SECTION BODY ODD 8
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 43 1 ""
FIELD 216@->RAGSOC[1,30]
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 98 1 ""
FIELD 216@->RAGSOC[31,50]
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 10 3 ""
FIELD 218@->DATANASC
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 36 3 ""
FIELD 218@->SESSO
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 44 3 ""
FIELD 313@->DENCOM
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 117 3 ""
FIELD 313@->PROVCOM
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 10 5 ""
FIELD 413@->DENCOM
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 58 5 ""
FIELD 413@->PROVCOM
END
STRING 101
BEGIN
KEY "VIA RES."
PROMPT 94 5 ""
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,10
END
STRING 102
BEGIN
KEY "NUM.CIV"
PROMPT 93 5 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10
END
STRING 10
BEGIN
KEY "VIA RES. + numcivres"
PROMPT 66 5 ""
END
NUMBER 11
BEGIN
KEY "NUMERO QUOTE"
PROMPT 125 5 ""
FIELD 101->NUMQUOTE
PICTURE ".2"
END
NUMBER 12
BEGIN
KEY "UTILI SPETTANTI"
PROMPT 31 7 ""
FIELD 101->UTSPETT
PICTURE "###.###.###^^^"
MESSAGE ADD,FO->12
END
NUMBER 13
BEGIN
KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
PROMPT 59 7 ""
FIELD 101->ROPESPET
PICTURE "###.###.###^^^"
MESSAGE ADD,FO->13
END
NUMBER 14
BEGIN
KEY "UTILI PAGATI"
PROMPT 93 7 ""
FIELD 101->UTPAG
PICTURE "###.###.###^^^"
MESSAGE ADD,FO->14
END
NUMBER 15
BEGIN
KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
PROMPT 120 7 ""
FIELD 101->ROPE
PICTURE "###.###.###^^^"
MESSAGE ADD,FO->15
END
END
SECTION BODY EVEN 6
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 44 1 ""
FIELD 216@->RAGSOC
END
STRING 3
BEGIN
KEY "COMUNE DI RF/RES. GIURIDICHE"
PROMPT 10 3 ""
FIELD 513@->DENCOM
END
STRING 4
BEGIN
KEY "PROV. RF/RES. GIURIDICHE"
PROMPT 61 3 ""
FIELD 513@->PROVCOM
END
STRING 5
BEGIN
KEY "VIA RF/RES. GIURIDICHE"
PROMPT 94 3 ""
FIELD 216@->INDRF[1,18]
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,7
END
STRING 6
BEGIN
KEY "NUM.CIV RF/RES. GIURIDICHE"
PROMPT 93 3 ""
FLAGS "H"
FIELD 216@->CIVRF
FIELD 216@->CIVRES
MESSAGE APPEND,7
END
STRING 7
BEGIN
KEY "VIA RF/RES. + numcivres"
PROMPT 69 3 ""
END
NUMBER 11
BEGIN
KEY "NUMERO QUOTE"
PROMPT 128 3 ""
FIELD 101->NUMQUOTE
PICTURE ".2"
END
NUMBER 12
BEGIN
KEY "UTILI SPETTANTI"
PROMPT 31 5 ""
FIELD 101->UTSPETT
PICTURE "###.###.###^^^"
MESSAGE ADD,FE->12
END
NUMBER 13
BEGIN
KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
PROMPT 59 5 ""
FIELD 101->ROPESPET
PICTURE "###.###.###^^^"
MESSAGE ADD,FE->13
END
NUMBER 14
BEGIN
KEY "UTILI PAGATI"
PROMPT 93 5 ""
FIELD 101->UTPAG
PICTURE "###.###.###^^^"
MESSAGE ADD,FE->14
END
NUMBER 15
BEGIN
KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
PROMPT 120 5 ""
FIELD 101->ROPE
PICTURE "###.###.###^^^"
MESSAGE ADD,FE->15
END
END
SECTION FOOTER ODD 2
NUMBER 12
BEGIN
KEY "TOTALE UT.SPETT."
PROMPT 31 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 13
BEGIN
KEY "TOTALE R.OPE.SU UT.SPETT."
PROMPT 59 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 14
BEGIN
KEY "TOTALE UTILI PAGATI"
PROMPT 93 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE R.OPE.SU UT.PAGATI"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END
SECTION FOOTER EVEN 2
NUMBER 12
BEGIN
KEY "TOTALE UT.SPETT."
PROMPT 31 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 13
BEGIN
KEY "TOTALE R.OPE.SU UT.SPETT."
PROMPT 59 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 14
BEGIN
KEY "TOTALE UTILI PAGATI"
PROMPT 93 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE R.OPE.SU UT.PAGAI"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END

424
m770/77qh.frm
View File

@ -1,212 +1,212 @@
USE 43
JOIN 9 TO 43 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN %ENT TO 43 ALIAS 214 INTO CODTAB=H1ENTE
END
DESCRIPTION
BEGIN
61->* "Quadro H 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 11
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 22
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 116@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 10 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 10 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 10 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 12 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 58 12 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 66 12 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 83 12 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 12 ""
FIELD 113@->PROVCOM
GROUP 1
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 14 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 14 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 14 ""
FIELD 116@->INDRF
FIELD 116@->INDRES
FLAGS "H"
MESSAGE COPY,17
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 103 14 ""
FIELD 116@->CIVRF
FIELD 116@->CIVRES
FLAGS "H"
MESSAGE APPEND,17
END
STRINGA 17
BEGIN
KEY "VIA + NUM CIV. DI RES."
PROMPT 67 14 ""
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 124 14 ""
FIELD 116@->CAPRF
FIELD 116@->CAPRES
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 17 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 19 ""
FLAGS "H"
END
END
SECTION BODY ODD 2
STRINGA 1
BEGIN
KEY "ENTE PREVIDENZIALE"
PROMPT 8 1 ""
FIELD 214@->S0
END
NUMBER 2
BEGIN
KEY "CONTR.OBB. CARICO DATORE LAVORO"
PROMPT 88 1 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->2
FIELD 43->H1DAT
END
NUMBER 3
BEGIN
KEY "CONTR.OBB. CARICO DIPENDENTE"
PROMPT 119 1 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->3
FIELD 43->H1LAV
END
END
SECTION FOOTER LAST 2
NUMBER 2
BEGIN
KEY "TOTALE CONTR.OBB. DATORE LAVORO"
PROMPT 88 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 3
BEGIN
KEY "TOTALE CONTR.OBB DIPENDENTE."
PROMPT 119 1 ""
PICTURE "###.###.###^^^"
END
END
USE 43
JOIN 9 TO 43 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN %ENT TO 43 ALIAS 214 INTO CODTAB=H1ENTE
END
DESCRIPTION
BEGIN
61->* "Quadro H 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 11
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 22
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 116@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 10 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 10 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 10 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 12 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 58 12 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 66 12 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 83 12 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 12 ""
FIELD 113@->PROVCOM
GROUP 1
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 14 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 14 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 14 ""
FIELD 116@->INDRF
FIELD 116@->INDRES
FLAGS "H"
MESSAGE COPY,17
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 103 14 ""
FIELD 116@->CIVRF
FIELD 116@->CIVRES
FLAGS "H"
MESSAGE APPEND,17
END
STRINGA 17
BEGIN
KEY "VIA + NUM CIV. DI RES."
PROMPT 67 14 ""
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 124 14 ""
FIELD 116@->CAPRF
FIELD 116@->CAPRES
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 17 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 19 ""
FLAGS "H"
END
END
SECTION BODY ODD 2
STRINGA 1
BEGIN
KEY "ENTE PREVIDENZIALE"
PROMPT 8 1 ""
FIELD 214@->S0
END
NUMBER 2
BEGIN
KEY "CONTR.OBB. CARICO DATORE LAVORO"
PROMPT 88 1 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->2
FIELD 43->H1DAT
END
NUMBER 3
BEGIN
KEY "CONTR.OBB. CARICO DIPENDENTE"
PROMPT 119 1 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->3
FIELD 43->H1LAV
END
END
SECTION FOOTER LAST 2
NUMBER 2
BEGIN
KEY "TOTALE CONTR.OBB. DATORE LAVORO"
PROMPT 88 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 3
BEGIN
KEY "TOTALE CONTR.OBB DIPENDENTE."
PROMPT 119 1 ""
PICTURE "###.###.###^^^"
END
END

604
m770/77ql.frm
View File

@ -1,302 +1,302 @@
USE 42
JOIN 37 INTO CODDITTA=CODDITTA
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
36->* "Base 770"
37->* "Basebis 770"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 10
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 10
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 21 1 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE (o cognome)"
PROMPT 51 1 ""
GROUP 2
FIELD 106@->RAGSOC
END
STRINGA 4
BEGIN
KEY "COGNOME (o ragsoc)"
PROMPT 51 1 ""
GROUP 1
FIELD 106@->RAGSOC[1,30]
END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 21 4 ""
GROUP 1
FIELD 106@->RAGSOC[31,50]
END
LISTA 6
BEGIN
KEY "SESSO M"
PROMPT 53 4 ""
ITEM " | "
ITEM "M|X"
ITEM "F|"
FIELD 108@->SESSO
GROUP 1
END
LISTA 7
BEGIN
KEY "SESSO F"
PROMPT 62 4 ""
ITEM " | "
ITEM "M|"
ITEM "F|X"
FIELD 108@->SESSO
GROUP 1
END
STRINGA 8
BEGIN
KEY "DATA DI NASCITA"
PROMPT 68 4 ""
GROUP 1
FIELD 108@->DATANASC
PICTURE "## ^ ## ^^###"
END
STRINGA 9
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 85 4 ""
GROUP 1
FIELD 113@->DENCOM
END
STRINGA 10
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 129 4 ""
GROUP 1
FIELD 113@->PROVCOM
END
STRINGA 11
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 56 6 ""
END
STRINGA 12
BEGIN
KEY "Cod.Conc.1"
PROMPT 41 9 ""
FIELD 37->L0CCONC1
END
STRINGA 13
BEGIN
KEY "Cod.Conc.2"
PROMPT 53 9 ""
FIELD 37->L0CCONC2
END
STRINGA 14
BEGIN
KEY "Cod.Conc.3"
PROMPT 63 9 ""
FIELD 37->L0CCONC3
END
NUMERO 15
BEGIN
KEY "Cod.Tes.1"
PROMPT 102 9 ""
FIELD 37->L0CTES1
END
NUMERO 16
BEGIN
KEY "Cod.Tes.2"
PROMPT 114 9 ""
FIELD 37->L0CTES2
END
NUMERO 17
BEGIN
KEY "Cod.Tes.3"
PROMPT 126 9 ""
FIELD 37->L0CTES3
END
END
SECTION BODY ODD 4
NUMERO 1
BEGIN
KEY "Mese rif."
PROMPT 26 1 ""
FIELD 42->QLMP
END
NUMERO 2
BEGIN
KEY "Anno rif."
PROMPT 29 1 ""
FIELD 42->QLAP
END
NUMERO 3
BEGIN
KEY "Rit.eff"
PROMPT 48 1 ""
FIELD 42->QLRITEFF
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->1
END
NUMERO 4
BEGIN
KEY "Rit.ver"
PROMPT 79 1 ""
FIELD 42->QLRITVER
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->2
END
LISTA 5
BEGIN
KEY "RSS"
PROMPT 100 1 ""
ITEM " | "
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD 42->QLRSS
END
STRINGA 6
BEGIN
KEY "Note"
PROMPT 111 1 ""
FIELD 42->QLNOTE
END
STRINGA 7
BEGIN
KEY "Luogo Vers."
PROMPT 28 3 ""
FIELD 42->QLLV
END
STRINGA 8
BEGIN
KEY "Tipo Vers."
PROMPT 36 3 ""
FIELD 42->QLTV
END
STRINGA 9
BEGIN
KEY "CodTrib"
PROMPT 47 3 ""
FIELD 42->QLCT
END
STRINGA 10
BEGIN
KEY "Art.Bil."
PROMPT 54 3 ""
FIELD 42->QLAB
END
STRINGA 11
BEGIN
KEY "DATA VERS."
PROMPT 63 3 ""
FIELD 42->QLDV
PICTURE "## ^ ## ^####"
END
STRINGA 12
BEGIN
KEY "SERIE"
PROMPT 84 3 ""
FIELD 42->QLSERIE
END
STRINGA 13
BEGIN
KEY "NUMERO"
PROMPT 99 3 ""
FIELD 42->QLNUMERO[1,5]
END
END
SECTION FOOTER LAST 2
NUMERO 1
BEGIN
KEY "Tot.rit.eff"
PROMPT 51 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 2
BEGIN
KEY "Tot.rit.ver"
PROMPT 102 1 ""
PICTURE "###.###.###.###^^^"
END
STRINGA 3
BEGIN
KEY "DATA"
PROMPT 50 5 ""
END
STRINGA 4
BEGIN
KEY "FIRMA"
PROMPT 120 5 ""
END
END
END
USE 42
JOIN 37 INTO CODDITTA=CODDITTA
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
36->* "Base 770"
37->* "Basebis 770"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 10
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 10
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 21 1 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE (o cognome)"
PROMPT 51 1 ""
GROUP 2
FIELD 106@->RAGSOC
END
STRINGA 4
BEGIN
KEY "COGNOME (o ragsoc)"
PROMPT 51 1 ""
GROUP 1
FIELD 106@->RAGSOC[1,30]
END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 21 4 ""
GROUP 1
FIELD 106@->RAGSOC[31,50]
END
LISTA 6
BEGIN
KEY "SESSO M"
PROMPT 53 4 ""
ITEM " | "
ITEM "M|X"
ITEM "F|"
FIELD 108@->SESSO
GROUP 1
END
LISTA 7
BEGIN
KEY "SESSO F"
PROMPT 62 4 ""
ITEM " | "
ITEM "M|"
ITEM "F|X"
FIELD 108@->SESSO
GROUP 1
END
STRINGA 8
BEGIN
KEY "DATA DI NASCITA"
PROMPT 68 4 ""
GROUP 1
FIELD 108@->DATANASC
PICTURE "## ^ ## ^^###"
END
STRINGA 9
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 85 4 ""
GROUP 1
FIELD 113@->DENCOM
END
STRINGA 10
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 129 4 ""
GROUP 1
FIELD 113@->PROVCOM
END
STRINGA 11
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 56 6 ""
END
STRINGA 12
BEGIN
KEY "Cod.Conc.1"
PROMPT 41 9 ""
FIELD 37->L0CCONC1
END
STRINGA 13
BEGIN
KEY "Cod.Conc.2"
PROMPT 53 9 ""
FIELD 37->L0CCONC2
END
STRINGA 14
BEGIN
KEY "Cod.Conc.3"
PROMPT 63 9 ""
FIELD 37->L0CCONC3
END
NUMERO 15
BEGIN
KEY "Cod.Tes.1"
PROMPT 102 9 ""
FIELD 37->L0CTES1
END
NUMERO 16
BEGIN
KEY "Cod.Tes.2"
PROMPT 114 9 ""
FIELD 37->L0CTES2
END
NUMERO 17
BEGIN
KEY "Cod.Tes.3"
PROMPT 126 9 ""
FIELD 37->L0CTES3
END
END
SECTION BODY ODD 4
NUMERO 1
BEGIN
KEY "Mese rif."
PROMPT 26 1 ""
FIELD 42->QLMP
END
NUMERO 2
BEGIN
KEY "Anno rif."
PROMPT 29 1 ""
FIELD 42->QLAP
END
NUMERO 3
BEGIN
KEY "Rit.eff"
PROMPT 48 1 ""
FIELD 42->QLRITEFF
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->1
END
NUMERO 4
BEGIN
KEY "Rit.ver"
PROMPT 79 1 ""
FIELD 42->QLRITVER
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->2
END
LISTA 5
BEGIN
KEY "RSS"
PROMPT 100 1 ""
ITEM " | "
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD 42->QLRSS
END
STRINGA 6
BEGIN
KEY "Note"
PROMPT 111 1 ""
FIELD 42->QLNOTE
END
STRINGA 7
BEGIN
KEY "Luogo Vers."
PROMPT 28 3 ""
FIELD 42->QLLV
END
STRINGA 8
BEGIN
KEY "Tipo Vers."
PROMPT 36 3 ""
FIELD 42->QLTV
END
STRINGA 9
BEGIN
KEY "CodTrib"
PROMPT 47 3 ""
FIELD 42->QLCT
END
STRINGA 10
BEGIN
KEY "Art.Bil."
PROMPT 54 3 ""
FIELD 42->QLAB
END
STRINGA 11
BEGIN
KEY "DATA VERS."
PROMPT 63 3 ""
FIELD 42->QLDV
PICTURE "## ^ ## ^####"
END
STRINGA 12
BEGIN
KEY "SERIE"
PROMPT 84 3 ""
FIELD 42->QLSERIE
END
STRINGA 13
BEGIN
KEY "NUMERO"
PROMPT 99 3 ""
FIELD 42->QLNUMERO[1,5]
END
END
SECTION FOOTER LAST 2
NUMERO 1
BEGIN
KEY "Tot.rit.eff"
PROMPT 51 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 2
BEGIN
KEY "Tot.rit.ver"
PROMPT 102 1 ""
PICTURE "###.###.###.###^^^"
END
STRINGA 3
BEGIN
KEY "DATA"
PROMPT 50 5 ""
END
STRINGA 4
BEGIN
KEY "FIRMA"
PROMPT 120 5 ""
END
END
END

1131
m770/77qn.frm
View File

File diff suppressed because it is too large Load Diff

2544
m770/77stba.cpp
View File

File diff suppressed because it is too large Load Diff

46
m770/77stba.h
View File

@ -5,12 +5,6 @@
HIDDEN const int BASE_FORMLEN = 73;
HIDDEN const int BASE_PAGINE = 4;
const int _RIGHE_N = 6;
const int _RIGHE_R = 2;
const int _RIGHE_P = 4;
const int _RIGHE_Q = 4;
const int _RIGHE_S = 4;
const int _RIGHE_T = 4;
class TBase1 : public TDicForm
{
@ -194,11 +188,12 @@ class TBase4 : public TDicForm
{
private:
long _codditta;
bool _bAggN,_bAggP,_bAggR,_bAggQ,_bAggS,_bAggT;
protected:
int _IdFirma;
TRigheNR _righeNR; // array dei record N e R
TRigheQT _righeQT;
TRighePS _righePS;
bool _bAggN,_bAggP,_bAggR,_bAggQ,_bAggS,_bAggT;
protected:
void stampa_righe_vuote(TPrinter& pr,const int righe);
void fill_riga_QT(TPrint_section& sec,const int num);
void fill_riga_PS(TPrint_section& sec,const int num);
@ -218,7 +213,7 @@ class TBase4 : public TDicForm
int calcola_firma();
public:
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) : _IdFirma(824), TDicForm(sNomeForm, quadro) {}
virtual ~TBase4() {}
};
@ -283,5 +278,38 @@ class TStampaQuadroAggL : public TStampaQuadro
virtual ~TStampaQuadroAggL() { }
};
class TQuadroN : public TBase4
{
long _codditta;
public:
void stampa_fine(TPrinter& pr);
void stampa_N(TPrinter& pr);
void stampa_P(TPrinter& pr);
void stampa_Q(TPrinter& pr);
void stampa_R(TPrinter& pr);
void stampa_S(TPrinter& pr);
void stampa_T(TPrinter& pr);
void stampa_testata(TPrinter& pr);
virtual int prima_riga(PaginaQuadro p) const;
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TQuadroN(const char* sNomeForm, const char* quadro) : TBase4(sNomeForm, quadro) { _IdFirma=2; }
virtual ~TQuadroN() {}
};
class TStampaQuadroAggN : public TStampaQuadro
{
TQuadroN* _form;
TCursor* _cur;
protected:
virtual bool user_create();
virtual bool user_destroy();
virtual TDicForm* get_form() const { return _form; }
virtual TCursor* get_cursor() const { return _cur; }
virtual bool conta_tipi_per() const { return FALSE; }
public:
TStampaQuadroAggN(const char* quadro, char liv):TStampaQuadro(quadro, liv) {}
virtual ~TStampaQuadroAggN() { }
};
#endif

9
m770/77stq.cpp
View File

@ -50,11 +50,6 @@ void TDicForm::set_cofi_dic(const char* cofi)
_codditta_dic = sogg_estinto(_codditta);
}
/*TCursor& TDicForm::cur()
{
return *_cur;
} */
void TDicForm::set_cursor(TCursor* cur)
{
CHECK(cur, "NULL cursor in TDicForm");
@ -3950,6 +3945,10 @@ int stampa_quadro(int argc, char* argv[])
{
app = new TStampaQuadroAggL(quadro, livello);
}
else if (quadro == "N")
{
app = new TStampaQuadroAggN(quadro, livello);
}
if (app != NULL)
{

2
m770/menustq.uml
View File

@ -60,7 +60,7 @@ END
BUTTON B_NAGG 1 1
BEGIN
PROMPT 1 ROW3 ""
// MESSAGE RUN,771MOD,-7,2|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,772MOD,-4,N,D
PICTURE 123
FLAGS MYFLAGS
GROUP GRUPPO