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

Stampa base

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3562 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1996-09-10 08:32:13 +00:00
parent b5c5ee0a72
commit 8bc5cff872
15 changed files with 5974 additions and 3650 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
m770/771200.cpp
View File

@ -983,6 +983,9 @@ void TQuadroA::init_modify_mode(TMask& m)
void TQuadroA::init_insert_mode(TMask& m)
{
if (QuadroA1())
m.set(QA1F_ANNORIF, _anno_dic);
if (QuadroA3())
{
_codditta = m.get_long(QAF_CODDITTA);

6
m770/771400a.uml
View File

@ -61,7 +61,6 @@ BEGIN
FLAGS "D"
KEY 1
FIELD LF_BASEBIS->TIPOQUA
// CHECKTYPE REQUIRED
END
@ -97,7 +96,6 @@ BEGIN
FIELD LF_BASEBIS->CRIMPDL
PICTURE "."
FLAGS "R"
// MESSAGE K_TAB,F_M6
END
NUMBER F_M4 15
@ -106,7 +104,7 @@ BEGIN
FIELD LF_BASEBIS->CRIMPIVA
PICTURE "."
FLAGS "R"
// MESSAGE K_TAB,F_M6
END
NUMBER F_M5 15
@ -115,7 +113,6 @@ BEGIN
FIELD LF_BASEBIS->CRIMPRIT
PICTURE "."
FLAGS "R"
// MESSAGE K_TAB,F_M6
END
NUMBER F_M6 15
@ -124,7 +121,6 @@ BEGIN
FIELD LF_BASEBIS->CRIMPRES
PICTURE "."
FLAGS "D"
// NUM_CALC {#F_M3-#F_M4-#F_M5}
END
ENDPAGE

18
m770/77base1.frm
View File

@ -36,9 +36,9 @@ BEGIN
CA "X"
IN 3 2
FI 131
END
END
SECTION BODY FIRST 67
SECTION BODY FIRST 40
LISTA 1
BEGIN
@ -693,43 +693,43 @@ SECTION FOOTER FIRST 4
STRINGA 82
BEGIN
KEY "AMMIN. 1 NOME"
PROMPT 25 54 ""
PROMPT 25 1 ""
END
STRINGA 83
BEGIN
KEY "AMMIN. 1 SESSO"
PROMPT 52 54 ""
PROMPT 52 1 ""
END
STRINGA 84
BEGIN
KEY "AMMIN. 1 COMUNENA"
PROMPT 56 54 ""
PROMPT 56 1 ""
END
STRINGA 85
BEGIN
KEY "AMMIN. 1 PROVNA"
PROMPT 81 54 ""
PROMPT 81 1 ""
END
STRINGA 86
BEGIN
KEY "AMMIN. 1 DATANA"
PROMPT 87 54 ""
PROMPT 87 1 ""
END
STRINGA 87
BEGIN
KEY "AMMIN. 1 CODFIS"
PROMPT 100 54 ""
PROMPT 100 1 ""
END
STRINGA 88
BEGIN
KEY "AMMIN. 1 QUALIFICA"
PROMPT 127 54 ""
PROMPT 127 1 ""
END
END

858
m770/77base2.frm
View File

File diff suppressed because it is too large Load Diff

181
m770/77base3.frm Executable file
View File

@ -0,0 +1,181 @@
USE 42
JOIN 37 INTO CODDITTA=CODDITTA
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 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
NUMERO 5
BEGIN
KEY "RSS"
PROMPT 100 1 ""
FIELD 42->QLRSS
END
NUMERO 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 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
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
END
END

688
m770/77base4.frm Executable file
View File

@ -0,0 +1,688 @@
USE 37
JOIN 72 INTO CODDITTA=CODDITTA
JOIN 73 TO 37 INTO CODDITTA=CODDITTA
JOIN 74 TO 37 INTO CODDITTA=CODDITTA
JOIN 75 TO 37 INTO CODDITTA=CODDITTA
JOIN 76 TO 37 INTO CODDITTA=CODDITTA
JOIN 77 TO 37 INTO CODDITTA=CODDITTA
JOIN 36 TO 37 INTO CODDITTA=CODDITTA
JOIN %CAF TO 36 ALIAS 104 INTO CODTAB==CODCAAF
JOIN 9 TO 36 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 36 ALIAS 108 INTO CODANAGR==CODPRO
JOIN 6 TO 8 ALIAS 106 INTO TIPOA="F" CODANAGR=CODANAGR
END
DESCRIPTION
BEGIN
36->* "Base 770"
37->* "Basebis 770"
72->* "Quadro N"
73->* "Quadro P"
74->* "Quadro Q"
75->* "Quadro R"
76->* "Quadro S"
77->* "Quadro T"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 10
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 7
NUMERO 1
BEGIN
KEY "M1"
PROMPT 61 1 ""
FIELD 37->ECCRIT12
PICTURE "###.###.###.###^^^"
END
NUMERO 2
BEGIN
KEY "M2"
PROMPT 117 1 ""
FIELD 37->ECCRIT23
PICTURE "###.###.###.###^^^"
END
NUMERO 3
BEGIN
KEY "M3"
PROMPT 61 3 ""
FIELD 37->CRIMPDL
PICTURE "###.###.###.###^^^"
END
NUMERO 4
BEGIN
KEY "M4"
PROMPT 61 5 ""
FIELD 37->CRIMPIVA
PICTURE "###.###.###.###^^^"
END
NUMERO 5
BEGIN
KEY "M5"
PROMPT 117 3 ""
FIELD 37->CRIMPRIT
PICTURE "###.###.###.###^^^"
END
NUMERO 6
BEGIN
KEY "M6"
PROMPT 117 5 ""
FIELD 37->CRIMPRES
PICTURE "###.###.###.###^^^"
END
END
SECTION BODY ODD 1
NUMERO 1
BEGIN
KEY "MeseRif"
PROMPT 27 1 ""
FIELD 72->MESERIF
END
NUMERO 2
BEGIN
KEY "AnnoRif"
PROMPT 31 1 ""
FIELD 72->ANNORIF
END
NUMERO 3
BEGIN
KEY "imp. rimb"
PROMPT 39 1 ""
FIELD 72->IMPOSTA
PICTURE "###.###.###.###^^^"
END
NUMERO 4
BEGIN
KEY "Compensi"
PROMPT 60 1 ""
FIELD 72->COMPENSI
PICTURE "###.###.###.###^^^"
END
NUMERO 5
BEGIN
KEY "MeseRif"
PROMPT 85 1 ""
FIELD 72->MESERIF
END
NUMERO 6
BEGIN
KEY "AnnoRif"
PROMPT 89 1 ""
FIELD 72->ANNORIF
END
NUMERO 7
BEGIN
KEY "imp. rimb"
PROMPT 99 1 ""
FIELD 72->IMPOSTA
PICTURE "###.###.###.###^^^"
END
NUMERO 8
BEGIN
KEY "Compensi"
PROMPT 119 1 ""
FIELD 72->COMPENSI
PICTURE "###.###.###.###^^^"
END
END
SECTION BODY EVEN 1
NUMERO 1
BEGIN
KEY "R - MeseRif"
PROMPT 27 1 ""
FIELD 75->MESERIF
END
NUMERO 2
BEGIN
KEY "R - AnnoRif"
PROMPT 31 1 ""
FIELD 75->ANNORIF
END
NUMERO 3
BEGIN
KEY "R - imp. rimb"
PROMPT 41 1 ""
FIELD 75->IMPRIMB
PICTURE "###.###.###.###^^^"
END
NUMERO 4
BEGIN
KEY "R - Compensi"
PROMPT 62 1 ""
FIELD 75->COMPENSI
PICTURE "###.###.###.###^^^"
END
NUMERO 5
BEGIN
KEY "R - MeseRif"
PROMPT 85 1 ""
FIELD 75->MESERIF
END
NUMERO 6
BEGIN
KEY "R - AnnoRif"
PROMPT 89 1 ""
FIELD 75->ANNORIF
END
NUMERO 7
BEGIN
KEY "R - imp. rimb"
PROMPT 99 1 ""
FIELD 75->IMPRIMB
PICTURE "###.###.###.###^^^"
END
NUMERO 8
BEGIN
KEY "R - Compensi"
PROMPT 120 1 ""
FIELD 75->COMPENSI
PICTURE "###.###.###.###^^^"
END
END
SECTION HEADER EVEN 1
NUMERO 1
BEGIN
KEY "P Imp.versata"
PROMPT 24 1 ""
FIELD 73->IMPOSTA
PICTURE "###.###.###.###^^^"
END
NUMERO 2
BEGIN
KEY "P Inter.lav.dip"
PROMPT 41 1 ""
FIELD 73->INTERDIP
PICTURE "###.###.###.###^^^"
END
NUMERO 3
BEGIN
KEY "P Inter.dat.lav."
PROMPT 56 1 ""
FIELD 73->INTERDAT
PICTURE "###.###.###.###^^^"
END
STRINGA 4
BEGIN
KEY "P Modalita' vers"
PROMPT 76 1 ""
FIELD 73->TIPOVERS
END
STRINGA 5
BEGIN
KEY "P Cod.trib"
PROMPT 82 1 ""
FIELD 73->CODTRIB
END
STRINGA 6
BEGIN
KEY "P DATA VERS."
PROMPT 89 1 ""
FIELD 73->DATAVERS
PICTURE "## ^ ## ^####"
END
STRINGA 7
BEGIN
KEY "P Serie"
PROMPT 108 1 ""
FIELD 73->SERIE
END
STRINGA 8
BEGIN
KEY "P Numero"
PROMPT 117 1 ""
FIELD 73->NUMERO
END
END
SECTION HEADER ODD 1
NUMERO 1
BEGIN
KEY "S Imp.versata"
PROMPT 24 1 ""
FIELD 76->IMPOSTA
PICTURE "###.###.###.###^^^"
END
NUMERO 2
BEGIN
KEY "S Inter.lav.dip"
PROMPT 41 1 ""
FIELD 76->INTERDIP
PICTURE "###.###.###.###^^^"
END
NUMERO 3
BEGIN
KEY "S Inter.dat.lav."
PROMPT 56 1 ""
FIELD 76->INTERDAT
PICTURE "###.###.###.###^^^"
END
STRINGA 4
BEGIN
KEY "S Modalita' vers"
PROMPT 76 1 ""
FIELD 73->TIPOVERS
END
STRINGA 5
BEGIN
KEY "S Cod.trib"
PROMPT 82 1 ""
FIELD 76->CODTRIB
END
STRINGA 6
BEGIN
KEY "S DATA VERS."
PROMPT 89 1 ""
FIELD 76->DATAVERS
PICTURE "## ^ ## ^####"
END
STRINGA 7
BEGIN
KEY "S Serie"
PROMPT 108 1 ""
FIELD 76->SERIE
END
STRINGA 8
BEGIN
KEY "S Numero"
PROMPT 117 1 ""
FIELD 76->NUMERO
END
END
SECTION FOOTER EVEN 1
NUMERO 1
BEGIN
KEY "Q Mese paga"
PROMPT 27 1 ""
FIELD 74->MESEPAG
END
NUMERO 2
BEGIN
KEY "Q Anno paga"
PROMPT 32 1 ""
FIELD 74->ANNOPAG
END
NUMERO 3
BEGIN
KEY "Q Contr.versato"
PROMPT 41 1 ""
FIELD 74->CONTVERS
PICTURE "###.###.###.###^^^"
END
NUMERO 4
BEGIN
KEY "Q Contr.rimborsati"
PROMPT 65 1 ""
FIELD 74->CONTRIMB
PICTURE "###.###.###.###^^^"
END
NUMERO 5
BEGIN
KEY "Q Interes.e/o soprattasse"
PROMPT 94 1 ""
FIELD 74->INTERESSI
PICTURE "###.###.###.###^^^"
END
STRINGA 6
BEGIN
KEY "Q Cod.Reg"
PROMPT 123 1 ""
FIELD 74->CODREG
END
END
SECTION FOOTER ODD 1
NUMERO 1
BEGIN
KEY "T Mese paga"
PROMPT 27 1 ""
FIELD 77->MESEPAG
END
NUMERO 2
BEGIN
KEY "T Anno paga"
PROMPT 32 1 ""
FIELD 77->ANNOPAG
END
NUMERO 3
BEGIN
KEY "T Contr.versato"
PROMPT 41 1 ""
FIELD 77->CONTVERS
PICTURE "###.###.###.###^^^"
END
NUMERO 4
BEGIN
KEY "T Contr.rimborsati"
PROMPT 65 1 ""
FIELD 77->CONTRIMB
PICTURE "###.###.###.###^^^"
END
NUMERO 5
BEGIN
KEY "T Interes.e/o soprattasse"
PROMPT 94 1 ""
FIELD 77->INTERESSI
PICTURE "###.###.###.###^^^"
END
STRINGA 6
BEGIN
KEY "T Cod.Reg"
PROMPT 123 1 ""
FIELD 77->CODREG
END
END
SECTION FOOTER FIRST 25
STRINGA 650
BEGIN
KEY "Quadro A"
PROMPT 19 3 ""
FIELD 37->QCOMP[1,1]
END
STRINGA 653
BEGIN
KEY "Quadro A3"
PROMPT 24 3 ""
FIELD 37->QCOMP[4,4]
END
STRINGA 660
BEGIN
KEY "Quadro B"
PROMPT 29 3 ""
FIELD 37->QCOMP[5,5]
END
STRINGA 661
BEGIN
KEY "Quadro B1"
PROMPT 34 3 ""
FIELD 37->QCOMP[6,6]
END
STRINGA 670
BEGIN
KEY "Quadro C"
PROMPT 39 3 ""
FIELD 37->QCOMP[7,7]
END
STRINGA 680
BEGIN
KEY "Quadro D"
PROMPT 44 3 ""
FIELD 37->QCOMP[8,8]
END
STRINGA 681
BEGIN
KEY "Quadro D1"
PROMPT 49 3 ""
FIELD 37->QCOMP[9,9]
END
STRINGA 690
BEGIN
KEY "Quadro E"
PROMPT 54 3 ""
FIELD 37->QCOMP[10,10]
END
STRINGA 691
BEGIN
KEY "Quadro E1"
PROMPT 60 3 ""
FIELD 37->QCOMP[11,11]
END
STRINGA 692
BEGIN
KEY "Quadro E2"
PROMPT 65 3 ""
FIELD 37->QCOMP[12,12]
END
STRINGA 700
BEGIN
KEY "Quadro F"
PROMPT 70 3 ""
FIELD 37->QCOMP[13,13]
END
STRINGA 701
BEGIN
KEY "Quadro F1"
PROMPT 75 3 ""
FIELD 37->QCOMP[14,14]
END
STRINGA 702
BEGIN
KEY "Quadro F2"
PROMPT 80 3 ""
FIELD 37->QCOMP[15,15]
END
STRINGA 710
BEGIN
KEY "Quadro G"
PROMPT 85 3 ""
FIELD 37->QCOMP[16,16]
END
STRINGA 711
BEGIN
KEY "Quadro G1"
PROMPT 90 3 ""
FIELD 37->QCOMP[17,17]
END
STRINGA 720
BEGIN
KEY "Quadro H"
PROMPT 95 3 ""
FIELD 37->QCOMP[18,18]
END
STRINGA 730
BEGIN
KEY "Quadro I"
PROMPT 100 3 ""
FIELD 37->QCOMP[19,19]
END
STRINGA 651
BEGIN
KEY "Quadro A1"
PROMPT 19 7 ""
FIELD 37->QCOMP[2,2]
END
STRINGA 652
BEGIN
KEY "Quadro A2"
PROMPT 24 7 ""
FIELD 37->QCOMP[3,3]
END
STRINGA 760
BEGIN
KEY "Quadro N"
PROMPT 29 7 ""
FIELD 37->QCOMP[20,20]
END
STRINGA 780
BEGIN
KEY "Quadro P"
PROMPT 35 7 ""
FIELD 37->QCOMP[21,21]
END
STRINGA 790
BEGIN
KEY "Quadro Q"
PROMPT 40 7 ""
FIELD 37->QCOMP[22,22]
END
STRINGA 800
BEGIN
KEY "Quadro R"
PROMPT 45 7 ""
FIELD 37->QCOMP[23,23]
END
STRINGA 810
BEGIN
KEY "Quadro S"
PROMPT 50 7 ""
FIELD 37->QCOMP[24,24]
END
STRINGA 820
BEGIN
KEY "Quadro T"
PROMPT 55 7 ""
FIELD 37->QCOMP[25,25]
END
STRINGA 821
BEGIN
PROMPT 80 9 ""
KEY "Numero quadri aggiuntivi"
FIELD 37->H0NQLAGG
END
STRINGA 822
BEGIN
PROMPT 72 11 ""
KEY "Numero quadri su supporto magnetico"
FIELD 37->NSUPPM
END
DATA 823
BEGIN
KEY "Data"
PROMPT 29 16 ""
END
STRINGA 824
BEGIN
KEY "Presidente"
PROMPT 51 15 ""
END
STRINGA 825
BEGIN
KEY "Dichiarante"
PROMPT 95 15 ""
FIELD 6->RAGSOC
END
STRINGA 826
BEGIN
KEY "CODICE FISCALE CAAF"
PROMPT 48 18 ""
FIELD 104@->S1
END
NUMERO 827
BEGIN
KEY "NUMERO ISCRIZIONE ALBO"
PROMPT 122 18 ""
FIELD 104@->I1
PICTURE "#####"
END
STRINGA 828
BEGIN
KEY "CODICE FISCALE PROF."
PROMPT 92 20 ""
FIELD 106@->COFI
END
STRINGA 829
BEGIN
KEY "FIRMA"
PROMPT 84 25 ""
FIELD 106@->RAGSOC
END
END
END

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

936
m770/77qa2.frm
View File

@ -1,468 +1,468 @@
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 13 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 40 13 ""
GROUP 2
FIELD 106@->RAGSOC
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 13 ""
GROUP 1
FIELD 106@->RAGSOC[1,30]
END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 15 ""
GROUP 1
FIELD 106@->RAGSOC[31,50]
END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 59 15 ""
GROUP 1
FIELD 108@->SESSO
END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 15 ""
GROUP 1
FIELD 108@->DATANASC
END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 15 ""
GROUP 1
FIELD 113@->DENCOM
END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 15 ""
GROUP 1
FIELD 113@->PROVCOM
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 17 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 17 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 66 17 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 17 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 123 17 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 20 ""
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 23 ""
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 119 9 ""
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 13 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 40 13 ""
GROUP 2
FIELD 106@->RAGSOC
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 13 ""
GROUP 1
FIELD 106@->RAGSOC[1,30]
END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 15 ""
GROUP 1
FIELD 106@->RAGSOC[31,50]
END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 59 15 ""
GROUP 1
FIELD 108@->SESSO
END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 15 ""
GROUP 1
FIELD 108@->DATANASC
END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 15 ""
GROUP 1
FIELD 113@->DENCOM
END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 15 ""
GROUP 1
FIELD 113@->PROVCOM
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 17 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 17 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 66 17 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 17 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 123 17 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 20 ""
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 23 ""
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 119 9 ""
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 13 ""
FIELD 106@->COFI
GROUP 10
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 40 13 ""
FIELD 106@->RAGSOC
GROUP 10 12
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 13 ""
FIELD 106@->RAGSOC[1,30]
GROUP 10 11
END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 15 ""
FIELD 106@->RAGSOC[31,50]
GROUP 10 11
END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 59 15 ""
FIELD 108@->SESSO
GROUP 10 11
END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 15 ""
FIELD 108@->DATANASC
GROUP 10 11
END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 15 ""
FIELD 113@->DENCOM
GROUP 10 11
END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 15 ""
FIELD 113@->PROVCOM
GROUP 10 11
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 17 ""
FIELD 213@->DENCOM
GROUP 10
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 17 ""
FIELD 213@->PROVCOM
GROUP 10
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 17 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
GROUP 10
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 17 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
GROUP 10
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 123 17 ""
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 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 12
BEGIN
KEY "REDDITO CORRISPOSTO"
PROMPT 77 5 ""
PICTURE "###.###.###.###^^^"
END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 8 ""
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 13 ""
FIELD 106@->COFI
GROUP 10
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 40 13 ""
FIELD 106@->RAGSOC
GROUP 10 12
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 40 13 ""
FIELD 106@->RAGSOC[1,30]
GROUP 10 11
END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 15 ""
FIELD 106@->RAGSOC[31,50]
GROUP 10 11
END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 59 15 ""
FIELD 108@->SESSO
GROUP 10 11
END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 15 ""
FIELD 108@->DATANASC
GROUP 10 11
END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 15 ""
FIELD 113@->DENCOM
GROUP 10 11
END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 15 ""
FIELD 113@->PROVCOM
GROUP 10 11
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 17 ""
FIELD 213@->DENCOM
GROUP 10
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 17 ""
FIELD 213@->PROVCOM
GROUP 10
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 17 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
GROUP 10
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 17 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
GROUP 10
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 123 17 ""
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 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 12
BEGIN
KEY "REDDITO CORRISPOSTO"
PROMPT 77 5 ""
PICTURE "###.###.###.###^^^"
END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 8 ""
FIELD 106@->RAGSOC
END
END
END

688
m770/77qb.frm
View File

@ -1,3 +1,690 @@
<<<<<<< 77qb.frm
USE 59
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
END
DESCRIPTION
BEGIN
59->* "Quadro B 770"
45->* "Anagrafica dei dipendenti"
9->* "Ditte"
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
108@->* "Anagrafica persone fisiche (ditta)"
113@->* "Comuni DITTA (nascita)"
213@->* "Comuni DITTA (residenza)"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 11
CARATTERE "X"
INIZIO_POS 3 2
FINE_POS 131
GRID "+++++++++-|"
END
SECTION HEADER FIRST 28
LISTA 1
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 106@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 2
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
FIELD 106@->COFI
END
STRINGA 3
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
GROUP 2
FIELD 106@->RAGSOC
END
STRINGA 4
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
GROUP 1
FIELD 106@->RAGSOC[1,30]
END
STRINGA 5
BEGIN
KEY "NOME"
PROMPT 17 14 ""
GROUP 1
FIELD 106@->RAGSOC[31,50]
END
STRINGA 6
BEGIN
KEY "SESSO"
PROMPT 58 14 ""
GROUP 1
FIELD 108@->SESSO
END
STRINGA 7
BEGIN
KEY "DATA DI NASCITA"
PROMPT 67 14 ""
GROUP 1
FIELD 108@->DATANASC
END
STRINGA 8
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
GROUP 1
FIELD 113@->DENCOM
END
STRINGA 9
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 14 ""
GROUP 1
FIELD 113@->PROVCOM
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 16 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 66 16 ""
FIELD 106@->INDRF
FIELD 106@->INDRES
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 104 16 ""
FIELD 106@->CIVRF
FIELD 106@->CIVRES
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 123 16 ""
FIELD 106@->CAPRF
FIELD 106@->CAPRES
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 85 19 ""
END
NUMERO 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 22 ""
END
END
SECTION BODY ODD 12
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 11 1 ""
FIELD 45->CODFI
END
STRINGA 2
BEGIN
KEY "COGNOME"
PROMPT 44 1 ""
FIELD 45->COGNOME
END
STRINGA 3
BEGIN
KEY "NOME"
PROMPT 82 1 ""
FIELD 45->NOME
END
DATA 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 1 ""
FIELD 45->DATANA
FORMAT "1444-"
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 128 1 ""
FIELD 45->SESSO
END
STRINGA 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 11 3 ""
FIELD 45->COMUNENA
END
STRINGA 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 47 3 ""
FIELD 45->PROVNA
END
STRINGA 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 54 3 ""
FIELD 45->COMRES
END
STRINGA 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 88 3 ""
FIELD 45->PROVRES
END
STRINGA 10
BEGIN
KEY "INDIRIZZO RES."
PROMPT 95 3 ""
FIELD 45->INDRES
END
DATA 11
BEGIN
KEY "DATA INIZIO RAPPORTO"
PROMPT 12 5 ""
PICTURE "## ^ ## ^ ^^##"
FIELD DATAINI
END
DATA 12
BEGIN
KEY "DATA FINE RAPPORTO"
PROMPT 31 5 ""
PICTURE "## ^ ## ^ ^^##"
FIELD DATAFIN
END
NUMERO 131
BEGIN
KEY "ANNI COMMISURAZIONE"
PROMPT 49 5 ""
FIELD ANNICOMM
END
NUMERO 132
BEGIN
KEY "MESI COMMISURAZIONE"
PROMPT 55 5 ""
FIELD MESICOMM
END
NUMERO 141
BEGIN
KEY "ANNI CONVENZIONALI"
PROMPT 61 5 ""
FIELD ANNICONV
END
NUMERO 142
BEGIN
KEY "MESI CONVENZIONALI"
PROMPT 66 5 ""
FIELD MESICONV
END
NUMERO 151
BEGIN
KEY "ANNI PARZIALI"
PROMPT 73 5 ""
FIELD ANNIPARZ
END
NUMERO 152
BEGIN
KEY "MESI PARZIALI"
PROMPT 80 5 ""
FIELD MESIPARZ
END
NUMERO 153
BEGIN
KEY "PERCENTUALE TEMPO PARZIALE"
PROMPT 85 5 ""
FIELD PERCPARZ
END
NUMERO 16
BEGIN
KEY "QUOTA ECCEDENTE"
PROMPT 90 5 ""
PICTURE "###.###.###^^^"
FIELD QUOTAECC
MESSAGE ADD,FL->16
END
NUMERO 17
BEGIN
KEY "MESE EROGAZIONE"
PROMPT 103 5 ""
FIELD MESEEROG
END
STRINGA 18
BEGIN
KEY "TITOLO EROGAZIONE"
PROMPT 109 5 ""
FIELD TITEROG
END
NUMERO 19
BEGIN
KEY "PERCENTUALE ABBATTIMENTO"
PROMPT 114 5 ""
FIELD PERCABB
END
NUMERO 20
BEGIN
KEY "AMMONTARE NETTO"
PROMPT 117 5 ""
PICTURE "###.###.###.###^^^"
FIELD AMMNETTO
MESSAGE ADD,FL->20
END
NUMERO 21
BEGIN
KEY "MESE EROGAZIONE"
PROMPT 11 7 ""
FIELD MESEEROG2
END
STRINGA 22
BEGIN
KEY "TITOLO EROGAZIONE"
PROMPT 16 7 ""
FIELD TITEROG2
END
NUMERO 23
BEGIN
KEY "PERCENTUALE ABBATTIMENTO"
PROMPT 21 7 ""
FIELD PERCABB2
END
NUMERO 24
BEGIN
KEY "AMMONTARE NETTO"
PROMPT 34 7 ""
PICTURE "###.###.###^^^"
FIELD AMMNETTO2
MESSAGE ADD,FL->24
END
NUMERO 25
BEGIN
KEY "CONTRIBUTI OBBLIGATORI LAVORATORE"
PROMPT 48 7 ""
PICTURE "###.###.###.###^^^"
FIELD CONTLAV
MESSAGE ADD,FL->25
END
NUMERO 26
BEGIN
KEY "T.F.R."
PROMPT 67 7 ""
PICTURE "###.###.###.###^^^"
FIELD TFR7494
MESSAGE ADD,FL->26
END
NUMERO 27
BEGIN
KEY "ALTRE INDENNITA'"
PROMPT 84 7 ""
PICTURE "###.###.###.###^^^"
FIELD INDEN7494
MESSAGE ADD,FL->27
END
NUMERO 28
BEGIN
KEY "TOTALE INDENNITA'"
PROMPT 103 7 ""
PICTURE "###.###.###^^^"
FIELD TIND7494
MESSAGE ADD,FL->28
END
NUMERO 29
BEGIN
KEY "TOTALE RIDUZIONI"
PROMPT 117 7 ""
PICTURE "###.###.###.###^^^"
FIELD TRID
MESSAGE ADD,FL->29
END
NUMERO 30
BEGIN
KEY "T.F.R. PER REDDITO DI RIFERIMENTO"
PROMPT 10 9 ""
PICTURE "###.###.###.###^^^"
FIELD TFRIND
MESSAGE ADD,FL->30
END
NUMERO 31
BEGIN
KEY "ALIQUOTA"
PROMPT 27 9 ""
FIELD ALIQUOTA
END
NUMERO 32
BEGIN
KEY "RETRIBUZIONE MEDIA BIENNIO PRECEDENTE"
PROMPT 32 9 ""
PICTURE "###.###.###.###^^^"
FIELD RETRMEDIA
END
NUMERO 33
BEGIN
KEY "ALIQUOTA"
PROMPT 50 9 ""
FIELD ALIQUOTA2
END
NUMERO 34
BEGIN
KEY "IMPONIBILE T.F.R."
PROMPT 54 9 ""
PICTURE "###.###.###.###^^^"
FIELD IMPTFR
MESSAGE ADD,FL->34
END
NUMERO 35
BEGIN
KEY "IMPONIBILE ALTRE INDENNITA'"
PROMPT 71 9 ""
PICTURE "###.###.###.###^^^"
FIELD IMPIND
MESSAGE ADD,FL->35
END
NUMERO 36
BEGIN
KEY "IMPONIBILE DELL'ANNO"
PROMPT 85 9 ""
PICTURE "###.###.###.###^^^"
FIELD IMPANNO
MESSAGE ADD,FL->36
END
NUMERO 37
BEGIN
KEY "TOTALE REDDITO IMPONIBILE"
PROMPT 101 9 ""
PICTURE "###.###.###.###^^^"
FIELD TOTIMP
MESSAGE ADD,FL->37
END
NUMERO 38
BEGIN
KEY "RITENUTE OPERATE"
PROMPT 117 9 ""
PICTURE "###.###.###.###^^^"
FIELD ROPEACC
MESSAGE ADD,FL->38
END
NUMERO 39
BEGIN
KEY "IMPOSTA DOVUTA"
PROMPT 10 11 ""
PICTURE "###.###.###.###^^^"
FIELD IMPDOV
MESSAGE ADD,FL->39
END
NUMERO 40
BEGIN
KEY "RITENUTE FISCALI"
PROMPT 27 11 ""
PICTURE "###.###.###.###^^^"
FIELD RITECC
MESSAGE ADD,FL->40
END
NUMERO 41
BEGIN
KEY "QUOTA SPETTANTE"
PROMPT 44 11 ""
PICTURE "###.###.###.###^^^"
FIELD QUOTASPET
END
NUMERO 42
BEGIN
KEY "INDENNITA' SPETTANTE"
PROMPT 61 11 ""
PICTURE "###.###.###.###^^^"
FIELD INDSPETT
MESSAGE ADD,FL->42
END
NUMERO 43
BEGIN
KEY "RITENUTE OPERATE"
PROMPT 78 11 ""
PICTURE "###.###.###.###^^^"
FIELD ROPE
MESSAGE ADD,FL->43
END
NUMERO 44
BEGIN
KEY "IMPONIBILE C.S.S.N."
PROMPT 95 11 ""
PICTURE "###.###.###.###^^^"
FIELD IMPOCSSN
MESSAGE ADD,FL->44
END
END
SECTION FOOTER LAST 8
NUMERO 16
BEGIN
KEY "QUOTA ECCEDENTE"
PROMPT 90 1 ""
PICTURE "###.###.###^^^"
END
NUMERO 20
BEGIN
KEY "AMMONTARE NETTO"
PROMPT 117 1 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 24
BEGIN
KEY "AMMONTARE NETTO"
PROMPT 26 3 ""
PICTURE "###.###.###^^^"
END
NUMERO 25
BEGIN
KEY "CONTRIBUTI OBBLIGATORI LAVORATORE"
PROMPT 41 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 26
BEGIN
KEY "T.F.R."
PROMPT 60 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 27
BEGIN
KEY "ALTRE INDENNITA'"
PROMPT 72 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 28
BEGIN
KEY "TOTALE INDENNITA'"
PROMPT 103 3 ""
PICTURE "###.###.###^^^"
END
NUMERO 29
BEGIN
KEY "TOTALE INDENNITA'"
PROMPT 117 3 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 30
BEGIN
KEY "T.F.R. PER REDDITO DI RIFERIMENTO"
PROMPT 10 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 34
BEGIN
KEY "IMPONIBILE T.F.R."
PROMPT 54 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 35
BEGIN
KEY "IMPONIBILE ALTRE INDENNITA'"
PROMPT 71 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 36
BEGIN
KEY "IMPONIBILE DELL'ANNO"
PROMPT 85 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 37
BEGIN
KEY "TOTALE REDDITO IMPONIBILE"
PROMPT 101 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 38
BEGIN
KEY "RITENUTE OPERATE"
PROMPT 117 5 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 39
BEGIN
KEY "IMPOSTA DOVUTA"
PROMPT 10 7 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 40
BEGIN
KEY "RITENUTE FISCALI"
PROMPT 27 7 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 42
BEGIN
KEY "INDENNITA' SPETTANTE"
PROMPT 61 7 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 43
BEGIN
KEY "RITENUTE OPERATE"
PROMPT 78 7 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 44
BEGIN
KEY "IMPONIBILE C.S.S.N."
PROMPT 95 7 ""
PICTURE "###.###.###.###^^^"
END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 23 ""
FIELD 106@->RAGSOC
END
END
=======
USE 59
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN 9 INTO CODDITTA=CODDITTA
@ -687,4 +1374,5 @@ END
END
>>>>>>> 1.3
END

1420
m770/77qbb.uml
View File

File diff suppressed because it is too large Load Diff

38
m770/menu_st.uml
View File

@ -42,7 +42,7 @@ END
BUTTON B_BASE 1 1
BEGIN
PROMPT 1 ROW1 ""
MESSAGE RUN,772MOD,-4,Base,S|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,772MOD,-4,Base,S
PICTURE 123
GROUP 1
END
@ -56,7 +56,7 @@ END
BUTTON B_LAGG 1 1
BEGIN
PROMPT 1 ROW2 ""
// MESSAGE RUN,771MOD,-7,1|K_TAB,RILEGGI_QUADRI
// MESSAGE RUN,771MOD,-7,1
PICTURE 123
GROUP 1
END
@ -70,7 +70,7 @@ END
BUTTON B_NAGG 1 1
BEGIN
PROMPT 1 ROW3 ""
// MESSAGE RUN,771MOD,-7,2|K_TAB,RILEGGI_QUADRI
// MESSAGE RUN,771MOD,-7,2
PICTURE 123
GROUP 1
END
@ -85,7 +85,7 @@ END
BUTTON B_ALLSOC 1 1
BEGIN
PROMPT 1 ROW4 ""
// MESSAGE RUN,771MOD,-7,3|K_TAB,RILEGGI_QUADRI
// MESSAGE RUN,771MOD,-7,3
PICTURE 123
GROUP 1
END
@ -114,7 +114,7 @@ BUTTON B_BUST 1 1
BEGIN
PROMPT 1 ROW6 ""
PICTURE 123
// MESSAGE RUN,771MOD,-1
MESSAGE RUN,772MOD,-4,Busta,S
GROUP 1
END
// Fine prima colonna
@ -131,7 +131,7 @@ BUTTON B_A 1 1
BEGIN
PROMPT 20 ROW1 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,A,S|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,772MOD,-4,A,S
GROUP 1
END
@ -145,7 +145,7 @@ BUTTON B_A1 1 1
BEGIN
PROMPT 20 ROW2 ""
PICTURE 123
MESSAGE RUN,771MOD,-4,A1,S|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,771MOD,-4,A1,S
GROUP 1
END
@ -159,7 +159,7 @@ BUTTON B_A2 1 1
BEGIN
PROMPT 20 ROW3 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,A2,S|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,772MOD,-4,A2,S
GROUP 1
END
@ -173,7 +173,7 @@ BUTTON B_A3 1 1
BEGIN
PROMPT 20 ROW4 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,A3,S|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,772MOD,-4,A3,S
GROUP 1
END
@ -187,7 +187,7 @@ BUTTON B_B 1 1
BEGIN
PROMPT 20 ROW5 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,B,S|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,772MOD,-4,B,S
GROUP 1
END
@ -201,7 +201,7 @@ BUTTON B_B1 1 1
BEGIN
PROMPT 20 ROW6 ""
PICTURE 123
// MESSAGE RUN,771MOD,-6,0|K_TAB,RILEGGI_QUADRI
// MESSAGE RUN,771MOD,-6,0
GROUP 1
END
// Fine seconda colonna
@ -217,7 +217,7 @@ BUTTON B_C 1 1
BEGIN
PROMPT 39 ROW1 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,C,S|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,772MOD,-4,C,S
GROUP 1
END
@ -230,7 +230,7 @@ BUTTON B_D 1 1
BEGIN
PROMPT 39 ROW2 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,D,S|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,772MOD,-4,D,S
GROUP 1
END
@ -244,7 +244,7 @@ BUTTON B_D1 1 1
BEGIN
PROMPT 39 ROW3 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,D1,S|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,772MOD,-4,D1,S
GROUP 1
END
@ -258,7 +258,7 @@ BUTTON B_E 1 1
BEGIN
PROMPT 39 ROW4 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,E,S|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,772MOD,-4,E,S
GROUP 1
END
@ -272,7 +272,7 @@ BUTTON B_E1 1 1
BEGIN
PROMPT 39 ROW5 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,E1,S|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,772MOD,-4,E1,S
GROUP 1
END
@ -286,7 +286,7 @@ BUTTON B_E2 1 1
BEGIN
PROMPT 39 ROW6 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,E2,S|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,772MOD,-4,E2,S
GROUP 1
END
// Fine terza colonna
@ -364,13 +364,13 @@ END
TEXT T_H
BEGIN
PROMPT 62 ROW5 "Quadro H"
PROMPT 62 ROW6 "Quadro H"
GROUP 1
END
BUTTON B_H 1 1
BEGIN
PROMPT 58 ROW5 ""
PROMPT 58 ROW6 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,H,S
GROUP 1

4
m770/menustq.uml
View File

@ -379,14 +379,14 @@ END
TEXT T_H
BEGIN
PROMPT 62 ROW5 "Quadro H"
PROMPT 62 ROW6 "Quadro H"
FLAGS MYFLAGS
GROUP GRUPPO
END
BUTTON B_H 1 1
BEGIN
PROMPT 58 ROW5 ""
PROMPT 58 ROW6 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,H,D
FLAGS MYFLAGS