Corretti errori di Virgilio and Red Mountain
git-svn-id: svn://10.65.10.50/trunk@3338 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
edf7cbf467
commit
ce6869e681
352
m770/77busta.frm
Executable file
352
m770/77busta.frm
Executable file
@ -0,0 +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
|
||||||
|
FILED 213@->CAPCOM
|
||||||
|
GROUP 20
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 36
|
||||||
|
BEGIN
|
||||||
|
KEY "Comune Ufficio distrettuale"
|
||||||
|
PROMPT 170 46 ""
|
||||||
|
FIELD 204@->S0
|
||||||
|
GROUP 20
|
||||||
|
END
|
||||||
|
|
||||||
|
END
|
||||||
|
|
||||||
|
END
|
||||||
2261
m770/77qa.frm
2261
m770/77qa.frm
File diff suppressed because it is too large
Load Diff
930
m770/77qa1.frm
930
m770/77qa1.frm
@ -1,461 +1,469 @@
|
|||||||
USE 56
|
USE 56
|
||||||
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
||||||
JOIN %CAF ALIAS 104 INTO CODTAB=CODCAAF
|
JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
|
||||||
JOIN 9 INTO CODDITTA=CODDITTA
|
JOIN 9 INTO CODDITTA=CODDITTA
|
||||||
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||||
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
||||||
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
||||||
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
||||||
|
|
||||||
END
|
END
|
||||||
DESCRIPTION
|
DESCRIPTION
|
||||||
BEGIN
|
BEGIN
|
||||||
56->* "Quadro A1 770"
|
56->* "Quadro A1 770"
|
||||||
45->* "Anagrafica dei dipendenti"
|
45->* "Anagrafica dei dipendenti"
|
||||||
104@->* "Tabella CAAF"
|
104@->* "Tabella CAAF"
|
||||||
9->* "Ditte"
|
9->* "Ditte"
|
||||||
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
||||||
108@->* "Anagrafica persone fisiche (ditta)"
|
108@->* "Anagrafica persone fisiche (ditta)"
|
||||||
113@->* "Comuni DITTA (nascita)"
|
113@->* "Comuni DITTA (nascita)"
|
||||||
213@->* "Comuni DITTA (residenza)"
|
213@->* "Comuni DITTA (residenza)"
|
||||||
END
|
END
|
||||||
|
|
||||||
GENERAL
|
GENERAL
|
||||||
BEGIN
|
BEGIN
|
||||||
OFFSET 0 0
|
OFFSET 0 0
|
||||||
FONT "Courier New"
|
FONT "Courier New"
|
||||||
SIZE 11
|
SIZE 11
|
||||||
CARATTERE "X"
|
CARATTERE "X"
|
||||||
INIZIO_POS 3 2
|
INIZIO_POS 3 2
|
||||||
FINE_POS 131
|
FINE_POS 131
|
||||||
GRID "+++++++++-|"
|
GRID "+++++++++-|"
|
||||||
END
|
END
|
||||||
|
|
||||||
SECTION HEADER FIRST 28
|
SECTION HEADER FIRST 28
|
||||||
|
|
||||||
LISTA 1
|
LISTA 1
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Tipo anagrafica"
|
KEY "Tipo anagrafica"
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
FIELD 106@->TIPOA
|
FIELD 106@->TIPOA
|
||||||
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
|
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
|
||||||
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
|
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 2
|
STRINGA 2
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CODICE FISCALE"
|
KEY "CODICE FISCALE"
|
||||||
PROMPT 3 13 ""
|
PROMPT 3 13 ""
|
||||||
FIELD 106@->COFI
|
FIELD 106@->COFI
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 3
|
STRINGA 3
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "RAGIONE SOCIALE"
|
KEY "RAGIONE SOCIALE"
|
||||||
PROMPT 40 13 ""
|
PROMPT 40 13 ""
|
||||||
GROUP 2
|
GROUP 2
|
||||||
FIELD 106@->RAGSOC
|
FIELD 106@->RAGSOC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 4
|
STRINGA 4
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "COGNOME"
|
KEY "COGNOME"
|
||||||
PROMPT 40 13 ""
|
PROMPT 40 13 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 106@->RAGSOC[1,30]
|
FIELD 106@->RAGSOC[1,30]
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 5
|
STRINGA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "NOME"
|
KEY "NOME"
|
||||||
PROMPT 17 15 ""
|
PROMPT 17 15 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 106@->RAGSOC[31,50]
|
FIELD 106@->RAGSOC[31,50]
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 6
|
STRINGA 6
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "SESSO"
|
KEY "SESSO"
|
||||||
PROMPT 58 15 ""
|
PROMPT 58 15 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 108@->SESSO
|
FIELD 108@->SESSO
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 7
|
STRINGA 7
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DATA DI NASCITA"
|
KEY "DATA DI NASCITA"
|
||||||
PROMPT 67 15 ""
|
PROMPT 67 15 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 108@->DATANASC
|
FIELD 108@->DATANASC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 8
|
STRINGA 8
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "COMUNE DI NASCITA"
|
KEY "COMUNE DI NASCITA"
|
||||||
PROMPT 84 15 ""
|
PROMPT 84 15 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 113@->DENCOM
|
FIELD 113@->DENCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 9
|
STRINGA 9
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "PROV. DI NASCITA"
|
KEY "PROV. DI NASCITA"
|
||||||
PROMPT 126 15 ""
|
PROMPT 126 15 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 113@->PROVCOM
|
FIELD 113@->PROVCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 10
|
STRINGA 10
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "COMUNE DI RES.FISCALE"
|
KEY "COMUNE DI RES.FISCALE"
|
||||||
PROMPT 17 17 ""
|
PROMPT 17 17 ""
|
||||||
FIELD 213@->DENCOM
|
FIELD 213@->DENCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 11
|
STRINGA 11
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "PROV DI RES.FISCALE"
|
KEY "PROV DI RES.FISCALE"
|
||||||
PROMPT 59 17 ""
|
PROMPT 59 17 ""
|
||||||
FIELD 213@->PROVCOM
|
FIELD 213@->PROVCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 12
|
STRINGA 12
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "VIA di RES."
|
KEY "VIA di RES."
|
||||||
PROMPT 66 17 ""
|
PROMPT 66 17 ""
|
||||||
FIELD 106@->INDRF
|
FIELD 106@->INDRF
|
||||||
FIELD 106@->INDRES
|
FIELD 106@->INDRES
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 15
|
STRINGA 15
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "NUM. CIVICO di RES."
|
KEY "NUM. CIVICO di RES."
|
||||||
PROMPT 104 17 ""
|
PROMPT 104 17 ""
|
||||||
FIELD 106@->CIVRF
|
FIELD 106@->CIVRF
|
||||||
FIELD 106@->CIVRES
|
FIELD 106@->CIVRES
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 16
|
STRINGA 16
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CAP"
|
KEY "CAP"
|
||||||
PROMPT 125 17 ""
|
PROMPT 125 17 ""
|
||||||
FIELD 106@->CAPRF
|
FIELD 106@->CAPRF
|
||||||
FIELD 106@->CAPRES
|
FIELD 106@->CAPRES
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 13
|
STRINGA 13
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
||||||
PROMPT 87 20 ""
|
PROMPT 87 20 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 14
|
NUMERO 14
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "NUM. FOGLIO"
|
KEY "NUM. FOGLIO"
|
||||||
PROMPT 125 23 ""
|
PROMPT 125 23 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
END
|
END
|
||||||
|
|
||||||
SECTION BODY ODD 10
|
SECTION BODY ODD 10
|
||||||
|
|
||||||
STRINGA 1
|
STRINGA 1
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "COD.FIS"
|
KEY "COD.FIS"
|
||||||
PROMPT 11 1 ""
|
PROMPT 11 1 ""
|
||||||
FIELD 45->CODFI
|
FIELD 45->CODFI
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 2
|
STRINGA 2
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "COGNOME"
|
KEY "COGNOME"
|
||||||
PROMPT 43 1 ""
|
PROMPT 43 1 ""
|
||||||
FIELD 45->COGNOME
|
FIELD 45->COGNOME
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 3
|
STRINGA 3
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "NOME"
|
KEY "NOME"
|
||||||
PROMPT 80 1 ""
|
PROMPT 80 1 ""
|
||||||
FIELD 45->NOME
|
FIELD 45->NOME
|
||||||
END
|
END
|
||||||
|
|
||||||
DATA 4
|
DATA 4
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DATA NASCITA"
|
KEY "DATA NASCITA"
|
||||||
PROMPT 114 1 ""
|
PROMPT 114 1 ""
|
||||||
FIELD 45->DATANA
|
FIELD 45->DATANA
|
||||||
FORMAT "1444-"
|
FORMAT "1444-"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 5
|
STRINGA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "SESSO"
|
KEY "SESSO"
|
||||||
PROMPT 128 1 ""
|
PROMPT 128 1 ""
|
||||||
FIELD 45->SESSO
|
FIELD 45->SESSO
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 6
|
STRINGA 6
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "COMUNE DI NASCITA"
|
KEY "COMUNE DI NASCITA"
|
||||||
PROMPT 11 3 ""
|
PROMPT 11 3 ""
|
||||||
FIELD 45->COMUNENA
|
FIELD 45->COMUNENA
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 7
|
STRINGA 7
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "PROV DI NASCITA"
|
KEY "PROV DI NASCITA"
|
||||||
PROMPT 48 3 ""
|
PROMPT 48 3 ""
|
||||||
FIELD 45->PROVNA
|
FIELD 45->PROVNA
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 8
|
NUMERO 8
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "MESE DI RIFERIMENTO"
|
KEY "MESE DI RIFERIMENTO"
|
||||||
PROMPT 11 5 ""
|
PROMPT 13 5 ""
|
||||||
FIELD 56->MESERIF
|
FIELD 56->MESERIF
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 9
|
NUMERO 9
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "IMPOSTA RIMBORSATA"
|
KEY "IMPOSTA RIMBORSATA"
|
||||||
PROMPT 25 5 ""
|
PROMPT 25 5 ""
|
||||||
PICTURE "###.###.###.###^^^"
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 56->IMPRIMB9
|
FIELD 56->IMPRIMB9
|
||||||
MESSAGE ADD,FL->9
|
MESSAGE ADD,FL->9
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 10
|
NUMERO 10
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "IMPOSTA VERSATA"
|
KEY "IMPOSTA VERSATA"
|
||||||
PROMPT 44 5 ""
|
PROMPT 44 5 ""
|
||||||
PICTURE "###.###.###.###^^^"
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 56->IMPVERS10
|
FIELD 56->IMPVERS10
|
||||||
MESSAGE ADD,FL->10
|
MESSAGE ADD,FL->10
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 11
|
NUMERO 11
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "INTERESSI"
|
KEY "INTERESSI"
|
||||||
PROMPT 63 5 ""
|
PROMPT 63 5 ""
|
||||||
PICTURE "###.###.###.###^^^"
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 56->INTER11
|
FIELD 56->INTER11
|
||||||
MESSAGE ADD,FL->11
|
MESSAGE ADD,FL->11
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 12
|
NUMERO 12
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "IMPOSTA VERSATA"
|
KEY "IMPOSTA VERSATA"
|
||||||
PROMPT 81 5 ""
|
PROMPT 81 5 ""
|
||||||
PICTURE "###.###.###.###^^^"
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 56->IMPVERS12
|
FIELD 56->IMPVERS12
|
||||||
MESSAGE ADD,FL->12
|
MESSAGE ADD,FL->12
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 13
|
NUMERO 13
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "INTERESSI"
|
KEY "INTERESSI"
|
||||||
PROMPT 100 5 ""
|
PROMPT 100 5 ""
|
||||||
PICTURE "###.###.###.###^^^"
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 56->INTER13
|
FIELD 56->INTER13
|
||||||
MESSAGE ADD,FL->13
|
MESSAGE ADD,FL->13
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 14
|
NUMERO 14
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "SOPRATTASSA SU IRPEF"
|
KEY "SOPRATTASSA SU IRPEF"
|
||||||
PROMPT 116 5 ""
|
PROMPT 116 5 ""
|
||||||
PICTURE "###.###.###.###^^^"
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 56->STASSA14
|
FIELD 56->STASSA14
|
||||||
MESSAGE ADD,FL->14
|
MESSAGE ADD,FL->14
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 15
|
NUMERO 15
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CONTRIBUTO A RIMBORSO"
|
KEY "CONTRIBUTO A RIMBORSO"
|
||||||
PROMPT 11 7 ""
|
PROMPT 11 7 ""
|
||||||
PICTURE "###.###.###.###^^^"
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 56->CONTRIMB15
|
FIELD 56->CONTRIMB15
|
||||||
MESSAGE ADD,FL->15
|
MESSAGE ADD,FL->15
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 16
|
NUMERO 16
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CONTRIBUTO VERSATO"
|
KEY "CONTRIBUTO VERSATO"
|
||||||
PROMPT 30 7 ""
|
PROMPT 30 7 ""
|
||||||
PICTURE "###.###.###.###^^^"
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 56->CONTVERS16
|
FIELD 56->CONTVERS16
|
||||||
MESSAGE ADD,FL->16
|
MESSAGE ADD,FL->16
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 17
|
NUMERO 17
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "INTERESSI"
|
KEY "INTERESSI"
|
||||||
PROMPT 49 7 ""
|
PROMPT 49 7 ""
|
||||||
PICTURE "###.###.###.###^^^"
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 56->INTER17
|
FIELD 56->INTER17
|
||||||
MESSAGE ADD,FL->17
|
MESSAGE ADD,FL->17
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 18
|
NUMERO 18
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CONTRIBUTO VERSATO"
|
KEY "CONTRIBUTO VERSATO"
|
||||||
PROMPT 68 7 ""
|
PROMPT 68 7 ""
|
||||||
PICTURE "###.###.###.###^^^"
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 56->CONTVER18
|
FIELD 56->CONTVER18
|
||||||
MESSAGE ADD,FL->18
|
MESSAGE ADD,FL->18
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 19
|
NUMERO 19
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "INTERESSI"
|
KEY "INTERESSI"
|
||||||
PROMPT 86 7 ""
|
PROMPT 86 7 ""
|
||||||
PICTURE "###.###.###.###^^^"
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 56->INTER19
|
FIELD 56->INTER19
|
||||||
MESSAGE ADD,FL->19
|
MESSAGE ADD,FL->19
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 20
|
NUMERO 20
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "SOPRATTASSA SU IRPEF"
|
KEY "SOPRATTASSA SU IRPEF"
|
||||||
PROMPT 102 7 ""
|
PROMPT 102 7 ""
|
||||||
PICTURE "###.###.###.###^^^"
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 56->STASSA20
|
FIELD 56->STASSA20
|
||||||
MESSAGE ADD,FL->20
|
MESSAGE ADD,FL->20
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 21
|
STRINGA 21
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CONGUAGLI NON EFFETTUATI"
|
KEY "CONGUAGLI NON EFFETTUATI"
|
||||||
PROMPT 122 7 ""
|
PROMPT 121 7 ""
|
||||||
FIELD 56->CONNEFF21
|
FIELD 56->CONNEFF21
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 22
|
STRINGA 22
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "TIPO CONGUAGLIO"
|
KEY "TIPO CONGUAGLIO"
|
||||||
PROMPT 129 7 ""
|
PROMPT 128 7 ""
|
||||||
FIELD 56->TIPOCONG22
|
FIELD 56->TIPOCONG22
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 23
|
STRINGA 23
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CODICE FISCALE CAAF"
|
KEY "CODICE FISCALE CAAF"
|
||||||
PROMPT 11 9 ""
|
PROMPT 11 9 ""
|
||||||
FIELD 104@->S1
|
FIELD 104@->S1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 24
|
STRINGA 24
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DENOMINAZIONE CAAF"
|
KEY "DENOMINAZIONE CAAF"
|
||||||
PROMPT 43 9 ""
|
PROMPT 43 9 ""
|
||||||
FIELD 104@->S0
|
FIELD 104@->S0
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 25
|
NUMERO 25
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "NUMERO ISCRIZIONE ALBO"
|
KEY "NUMERO ISCRIZIONE ALBO"
|
||||||
PROMPT 101 9 ""
|
PROMPT 100 9 ""
|
||||||
FIELD 104@->I1
|
PICTURE "#####"
|
||||||
END
|
FIELD 104@->I1
|
||||||
|
END
|
||||||
DATA 26
|
|
||||||
BEGIN
|
DATA 26
|
||||||
KEY "DATA RICEZIONE MOD.730-5"
|
BEGIN
|
||||||
PROMPT 115 9 ""
|
KEY "DATA RICEZIONE MOD.730-5"
|
||||||
FORMAT "1444-"
|
PROMPT 115 9 ""
|
||||||
PICTURE "## ^ ##^^^^^"
|
FORMAT "1444-"
|
||||||
FIELD 56->DATARIC26
|
PICTURE "## ^ ##^^^^^"
|
||||||
END
|
FIELD 56->DATARIC26
|
||||||
|
END
|
||||||
END
|
|
||||||
|
END
|
||||||
SECTION FOOTER LAST 4
|
|
||||||
|
SECTION FOOTER LAST 4
|
||||||
NUMERO 9
|
|
||||||
BEGIN
|
NUMERO 9
|
||||||
KEY "IMPOSTA RIMBORSATA"
|
BEGIN
|
||||||
PROMPT 25 1 ""
|
KEY "IMPOSTA RIMBORSATA"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 25 1 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 10
|
|
||||||
BEGIN
|
NUMERO 10
|
||||||
KEY "IMPOSTA VERSATA"
|
BEGIN
|
||||||
PROMPT 44 1 ""
|
KEY "IMPOSTA VERSATA"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 44 1 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 11
|
|
||||||
BEGIN
|
NUMERO 11
|
||||||
KEY "INTERESSI"
|
BEGIN
|
||||||
PROMPT 63 1 ""
|
KEY "INTERESSI"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 63 1 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 12
|
|
||||||
BEGIN
|
NUMERO 12
|
||||||
KEY "IMPOSTA VERSATA"
|
BEGIN
|
||||||
PROMPT 81 1 ""
|
KEY "IMPOSTA VERSATA"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 81 1 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 13
|
|
||||||
BEGIN
|
NUMERO 13
|
||||||
KEY "INTERESSI"
|
BEGIN
|
||||||
PROMPT 100 1 ""
|
KEY "INTERESSI"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 100 1 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 14
|
|
||||||
BEGIN
|
NUMERO 14
|
||||||
KEY "SOPRATTASSA SU IRPEF"
|
BEGIN
|
||||||
PROMPT 116 1 ""
|
KEY "SOPRATTASSA SU IRPEF"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 116 1 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 15
|
|
||||||
BEGIN
|
NUMERO 15
|
||||||
KEY "CONTRIBUTO A RIMBORSO"
|
BEGIN
|
||||||
PROMPT 11 3 ""
|
KEY "CONTRIBUTO A RIMBORSO"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 11 3 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 16
|
|
||||||
BEGIN
|
NUMERO 16
|
||||||
KEY "CONTRIBUTO VERSATO"
|
BEGIN
|
||||||
PROMPT 30 3 ""
|
KEY "CONTRIBUTO VERSATO"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 30 3 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 17
|
|
||||||
BEGIN
|
NUMERO 17
|
||||||
KEY "INTERESSI"
|
BEGIN
|
||||||
PROMPT 49 3 ""
|
KEY "INTERESSI"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 49 3 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 18
|
|
||||||
BEGIN
|
NUMERO 18
|
||||||
KEY "CONTRIBUTO VERSATO"
|
BEGIN
|
||||||
PROMPT 68 3 ""
|
KEY "CONTRIBUTO VERSATO"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 68 3 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 19
|
|
||||||
BEGIN
|
NUMERO 19
|
||||||
KEY "INTERESSI"
|
BEGIN
|
||||||
PROMPT 86 3 ""
|
KEY "INTERESSI"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 86 3 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 20
|
|
||||||
BEGIN
|
NUMERO 20
|
||||||
KEY "SOPRATTASSA SU IRPEF"
|
BEGIN
|
||||||
PROMPT 102 3 ""
|
KEY "SOPRATTASSA SU IRPEF"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 102 3 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
END
|
|
||||||
|
STRINGA 2
|
||||||
END
|
BEGIN
|
||||||
|
KEY "FIRMA"
|
||||||
|
PROMPT 83 5 ""
|
||||||
|
FIELD 106@->RAGSOC
|
||||||
|
END
|
||||||
|
|
||||||
|
END
|
||||||
|
|
||||||
|
END
|
||||||
|
|||||||
918
m770/77qa2.frm
918
m770/77qa2.frm
@ -1,450 +1,468 @@
|
|||||||
USE 57
|
USE 57
|
||||||
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
||||||
JOIN %CAF ALIAS 104 INTO CODTAB=CODCAAF
|
JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
|
||||||
JOIN 9 INTO CODDITTA=CODDITTA
|
JOIN 9 INTO CODDITTA=CODDITTA
|
||||||
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||||
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
||||||
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
||||||
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
||||||
|
JOIN 36 INTO CODDITTA=CODDITTA
|
||||||
END
|
|
||||||
DESCRIPTION
|
END
|
||||||
BEGIN
|
DESCRIPTION
|
||||||
57->* "Quadro A2 770"
|
BEGIN
|
||||||
45->* "Anagrafica dei dipendenti"
|
57->* "Quadro A2 770"
|
||||||
104@->* "Tabella CAAF"
|
45->* "Anagrafica dei dipendenti"
|
||||||
9->* "Ditte"
|
104@->* "Tabella CAAF"
|
||||||
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
9->* "Ditte"
|
||||||
108@->* "Anagrafica persone fisiche (ditta)"
|
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
||||||
113@->* "Comuni DITTA (nascita)"
|
108@->* "Anagrafica persone fisiche (ditta)"
|
||||||
213@->* "Comuni DITTA (residenza)"
|
113@->* "Comuni DITTA (nascita)"
|
||||||
END
|
213@->* "Comuni DITTA (residenza)"
|
||||||
|
END
|
||||||
GENERAL
|
|
||||||
BEGIN
|
GENERAL
|
||||||
OFFSET 0 0
|
BEGIN
|
||||||
FONT "Courier New"
|
OFFSET 0 0
|
||||||
SIZE 11
|
FONT "Courier New"
|
||||||
CARATTERE "X"
|
SIZE 11
|
||||||
INIZIO_POS 3 2
|
CARATTERE "X"
|
||||||
FINE_POS 131
|
INIZIO_POS 3 2
|
||||||
GRID "+++++++++-|"
|
FINE_POS 131
|
||||||
END
|
GRID "+++++++++-|"
|
||||||
|
END
|
||||||
SECTION HEADER FIRST 28
|
|
||||||
|
SECTION HEADER FIRST 28
|
||||||
LISTA 1
|
|
||||||
BEGIN
|
LISTA 1
|
||||||
KEY "Tipo anagrafica"
|
BEGIN
|
||||||
FLAGS "H"
|
KEY "Tipo anagrafica"
|
||||||
FIELD 106@->TIPOA
|
FLAGS "H"
|
||||||
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
|
FIELD 106@->TIPOA
|
||||||
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
|
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
|
||||||
END
|
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
|
||||||
|
END
|
||||||
STRINGA 2
|
|
||||||
BEGIN
|
STRINGA 2
|
||||||
KEY "CODICE FISCALE"
|
BEGIN
|
||||||
PROMPT 3 13 ""
|
KEY "CODICE FISCALE"
|
||||||
FIELD 106@->COFI
|
PROMPT 3 13 ""
|
||||||
END
|
FIELD 106@->COFI
|
||||||
|
END
|
||||||
STRINGA 3
|
|
||||||
BEGIN
|
STRINGA 3
|
||||||
KEY "RAGIONE SOCIALE"
|
BEGIN
|
||||||
PROMPT 40 13 ""
|
KEY "RAGIONE SOCIALE"
|
||||||
GROUP 2
|
PROMPT 40 13 ""
|
||||||
FIELD 106@->RAGSOC
|
GROUP 2
|
||||||
END
|
FIELD 106@->RAGSOC
|
||||||
|
END
|
||||||
STRINGA 4
|
|
||||||
BEGIN
|
STRINGA 4
|
||||||
KEY "COGNOME"
|
BEGIN
|
||||||
PROMPT 40 13 ""
|
KEY "COGNOME"
|
||||||
GROUP 1
|
PROMPT 40 13 ""
|
||||||
FIELD 106@->RAGSOC[1,30]
|
GROUP 1
|
||||||
END
|
FIELD 106@->RAGSOC[1,30]
|
||||||
|
END
|
||||||
STRINGA 5
|
|
||||||
BEGIN
|
STRINGA 5
|
||||||
KEY "NOME"
|
BEGIN
|
||||||
PROMPT 17 15 ""
|
KEY "NOME"
|
||||||
GROUP 1
|
PROMPT 17 15 ""
|
||||||
FIELD 106@->RAGSOC[31,50]
|
GROUP 1
|
||||||
END
|
FIELD 106@->RAGSOC[31,50]
|
||||||
|
END
|
||||||
STRINGA 6
|
|
||||||
BEGIN
|
STRINGA 6
|
||||||
KEY "SESSO"
|
BEGIN
|
||||||
PROMPT 59 15 ""
|
KEY "SESSO"
|
||||||
GROUP 1
|
PROMPT 59 15 ""
|
||||||
FIELD 108@->SESSO
|
GROUP 1
|
||||||
END
|
FIELD 108@->SESSO
|
||||||
|
END
|
||||||
STRINGA 7
|
|
||||||
BEGIN
|
STRINGA 7
|
||||||
KEY "DATA DI NASCITA"
|
BEGIN
|
||||||
PROMPT 67 15 ""
|
KEY "DATA DI NASCITA"
|
||||||
GROUP 1
|
PROMPT 67 15 ""
|
||||||
FIELD 108@->DATANASC
|
GROUP 1
|
||||||
END
|
FIELD 108@->DATANASC
|
||||||
|
END
|
||||||
STRINGA 8
|
|
||||||
BEGIN
|
STRINGA 8
|
||||||
KEY "COMUNE DI NASCITA"
|
BEGIN
|
||||||
PROMPT 84 15 ""
|
KEY "COMUNE DI NASCITA"
|
||||||
GROUP 1
|
PROMPT 84 15 ""
|
||||||
FIELD 113@->DENCOM
|
GROUP 1
|
||||||
END
|
FIELD 113@->DENCOM
|
||||||
|
END
|
||||||
STRINGA 9
|
|
||||||
BEGIN
|
STRINGA 9
|
||||||
KEY "PROV. DI NASCITA"
|
BEGIN
|
||||||
PROMPT 125 15 ""
|
KEY "PROV. DI NASCITA"
|
||||||
GROUP 1
|
PROMPT 125 15 ""
|
||||||
FIELD 113@->PROVCOM
|
GROUP 1
|
||||||
END
|
FIELD 113@->PROVCOM
|
||||||
|
END
|
||||||
STRINGA 10
|
|
||||||
BEGIN
|
STRINGA 10
|
||||||
KEY "COMUNE DI RES.FISCALE"
|
BEGIN
|
||||||
PROMPT 17 17 ""
|
KEY "COMUNE DI RES.FISCALE"
|
||||||
FIELD 213@->DENCOM
|
PROMPT 17 17 ""
|
||||||
END
|
FIELD 213@->DENCOM
|
||||||
|
END
|
||||||
STRINGA 11
|
|
||||||
BEGIN
|
STRINGA 11
|
||||||
KEY "PROV DI RES.FISCALE"
|
BEGIN
|
||||||
PROMPT 59 17 ""
|
KEY "PROV DI RES.FISCALE"
|
||||||
FIELD 213@->PROVCOM
|
PROMPT 59 17 ""
|
||||||
END
|
FIELD 213@->PROVCOM
|
||||||
|
END
|
||||||
STRINGA 12
|
|
||||||
BEGIN
|
STRINGA 12
|
||||||
KEY "VIA di RES."
|
BEGIN
|
||||||
PROMPT 66 17 ""
|
KEY "VIA di RES."
|
||||||
FIELD 106@->INDRF
|
PROMPT 66 17 ""
|
||||||
FIELD 106@->INDRES
|
FIELD 106@->INDRF
|
||||||
END
|
FIELD 106@->INDRES
|
||||||
|
END
|
||||||
STRINGA 15
|
|
||||||
BEGIN
|
STRINGA 15
|
||||||
KEY "NUM. CIVICO di RES."
|
BEGIN
|
||||||
PROMPT 104 17 ""
|
KEY "NUM. CIVICO di RES."
|
||||||
FIELD 106@->CIVRF
|
PROMPT 104 17 ""
|
||||||
FIELD 106@->CIVRES
|
FIELD 106@->CIVRF
|
||||||
END
|
FIELD 106@->CIVRES
|
||||||
|
END
|
||||||
STRINGA 16
|
|
||||||
BEGIN
|
STRINGA 16
|
||||||
KEY "CAP"
|
BEGIN
|
||||||
PROMPT 123 17 ""
|
KEY "CAP"
|
||||||
FIELD 106@->CAPRF
|
PROMPT 123 17 ""
|
||||||
FIELD 106@->CAPRES
|
FIELD 106@->CAPRF
|
||||||
END
|
FIELD 106@->CAPRES
|
||||||
|
END
|
||||||
STRINGA 13
|
|
||||||
BEGIN
|
STRINGA 13
|
||||||
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
BEGIN
|
||||||
PROMPT 87 20 ""
|
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
||||||
END
|
PROMPT 87 20 ""
|
||||||
|
END
|
||||||
NUMERO 14
|
|
||||||
BEGIN
|
NUMERO 14
|
||||||
KEY "NUM. FOGLIO"
|
BEGIN
|
||||||
PROMPT 125 23 ""
|
KEY "NUM. FOGLIO"
|
||||||
END
|
PROMPT 125 23 ""
|
||||||
|
END
|
||||||
END
|
|
||||||
|
END
|
||||||
SECTION BODY ODD 10
|
|
||||||
|
SECTION BODY ODD 10
|
||||||
STRINGA 1
|
|
||||||
BEGIN
|
STRINGA 1
|
||||||
KEY "COD.FIS"
|
BEGIN
|
||||||
PROMPT 11 1 ""
|
KEY "COD.FIS"
|
||||||
FIELD 45->CODFI
|
PROMPT 11 1 ""
|
||||||
END
|
FIELD 45->CODFI
|
||||||
|
END
|
||||||
STRINGA 2
|
|
||||||
BEGIN
|
STRINGA 2
|
||||||
KEY "COGNOME"
|
BEGIN
|
||||||
PROMPT 43 1 ""
|
KEY "COGNOME"
|
||||||
FIELD 45->COGNOME
|
PROMPT 43 1 ""
|
||||||
END
|
FIELD 45->COGNOME
|
||||||
|
END
|
||||||
STRINGA 3
|
|
||||||
BEGIN
|
STRINGA 3
|
||||||
KEY "NOME"
|
BEGIN
|
||||||
PROMPT 80 1 ""
|
KEY "NOME"
|
||||||
FIELD 45->NOME
|
PROMPT 80 1 ""
|
||||||
END
|
FIELD 45->NOME
|
||||||
|
END
|
||||||
DATA 4
|
|
||||||
BEGIN
|
DATA 4
|
||||||
KEY "DATA NASCITA"
|
BEGIN
|
||||||
PROMPT 114 1 ""
|
KEY "DATA NASCITA"
|
||||||
FIELD 45->DATANA
|
PROMPT 114 1 ""
|
||||||
FORMAT "1444-"
|
FIELD 45->DATANA
|
||||||
END
|
FORMAT "1444-"
|
||||||
|
END
|
||||||
STRINGA 5
|
|
||||||
BEGIN
|
STRINGA 5
|
||||||
KEY "SESSO"
|
BEGIN
|
||||||
PROMPT 128 1 ""
|
KEY "SESSO"
|
||||||
FIELD 45->SESSO
|
PROMPT 128 1 ""
|
||||||
END
|
FIELD 45->SESSO
|
||||||
|
END
|
||||||
STRINGA 6
|
|
||||||
BEGIN
|
STRINGA 6
|
||||||
KEY "COMUNE DI NASCITA"
|
BEGIN
|
||||||
PROMPT 11 3 ""
|
KEY "COMUNE DI NASCITA"
|
||||||
FIELD 45->COMUNENA
|
PROMPT 11 3 ""
|
||||||
END
|
FIELD 45->COMUNENA
|
||||||
|
END
|
||||||
STRINGA 7
|
|
||||||
BEGIN
|
STRINGA 7
|
||||||
KEY "PROV. DI NASCITA"
|
BEGIN
|
||||||
PROMPT 51 3 ""
|
KEY "PROV. DI NASCITA"
|
||||||
FIELD 45->PROVNA
|
PROMPT 48 3 ""
|
||||||
END
|
FIELD 45->PROVNA
|
||||||
|
END
|
||||||
STRINGA 8
|
|
||||||
BEGIN
|
STRINGA 8
|
||||||
KEY "CONGUAGLI NON EFFETTUATI"
|
BEGIN
|
||||||
PROMPT 16 5 ""
|
KEY "CONGUAGLI NON EFFETTUATI"
|
||||||
FIELD 57->CONEFF
|
PROMPT 16 5 ""
|
||||||
END
|
FIELD 57->CONEFF
|
||||||
|
END
|
||||||
STRINGA 9
|
|
||||||
BEGIN
|
STRINGA 9
|
||||||
KEY "RETTIFICA CONGUAGLIO"
|
BEGIN
|
||||||
PROMPT 31 5 ""
|
KEY "RETTIFICA CONGUAGLIO"
|
||||||
FIELD 57->RETCON
|
PROMPT 31 5 ""
|
||||||
END
|
FIELD 57->RETCON
|
||||||
|
END
|
||||||
NUMERO 10
|
|
||||||
BEGIN
|
NUMERO 10
|
||||||
KEY "IMPOSTA RIMBORSATA"
|
BEGIN
|
||||||
PROMPT 39 5 ""
|
KEY "IMPOSTA RIMBORSATA"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 39 5 ""
|
||||||
MESSAGE ADD,FL->10
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 57->SIRPEFRIMB
|
MESSAGE ADD,FL->10
|
||||||
END
|
FIELD 57->SIRPEFRIMB
|
||||||
|
END
|
||||||
NUMERO 11
|
|
||||||
BEGIN
|
NUMERO 11
|
||||||
KEY "IMPOSTA VERSATA"
|
BEGIN
|
||||||
PROMPT 54 5 ""
|
KEY "IMPOSTA VERSATA"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 54 5 ""
|
||||||
MESSAGE ADD,FL->11
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 57->VIRPEF
|
MESSAGE ADD,FL->11
|
||||||
END
|
FIELD 57->VIRPEF
|
||||||
|
END
|
||||||
NUMERO 12
|
|
||||||
BEGIN
|
NUMERO 12
|
||||||
KEY "INTERESSI"
|
BEGIN
|
||||||
PROMPT 70 5 ""
|
KEY "INTERESSI"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 70 5 ""
|
||||||
MESSAGE ADD,FL->12
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 57->INTIRPEF
|
MESSAGE ADD,FL->12
|
||||||
END
|
FIELD 57->INTIRPEF
|
||||||
|
END
|
||||||
NUMERO 13
|
|
||||||
BEGIN
|
NUMERO 13
|
||||||
KEY "IMPOSTA VERSATA"
|
BEGIN
|
||||||
PROMPT 85 5 ""
|
KEY "IMPOSTA VERSATA"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 85 5 ""
|
||||||
MESSAGE ADD,FL->13
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 57->AIRPEFIV
|
MESSAGE ADD,FL->13
|
||||||
END
|
FIELD 57->AIRPEFIV
|
||||||
|
END
|
||||||
NUMERO 14
|
|
||||||
BEGIN
|
NUMERO 14
|
||||||
KEY "INTERESSI"
|
BEGIN
|
||||||
PROMPT 100 5 ""
|
KEY "INTERESSI"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 100 5 ""
|
||||||
MESSAGE ADD,FL->14
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 57->AIRPEFINT
|
MESSAGE ADD,FL->14
|
||||||
END
|
FIELD 57->AIRPEFINT
|
||||||
|
END
|
||||||
NUMERO 15
|
|
||||||
BEGIN
|
NUMERO 15
|
||||||
KEY "SOPRATTASSA SU IRPEF"
|
BEGIN
|
||||||
PROMPT 115 5 ""
|
KEY "SOPRATTASSA SU IRPEF"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 115 5 ""
|
||||||
MESSAGE ADD,FL->15
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 57->STASSA15
|
MESSAGE ADD,FL->15
|
||||||
END
|
FIELD 57->STASSA15
|
||||||
|
END
|
||||||
NUMERO 16
|
|
||||||
BEGIN
|
NUMERO 16
|
||||||
KEY "CONTRIBUTO A RIMBORSO"
|
BEGIN
|
||||||
PROMPT 8 7 ""
|
KEY "CONTRIBUTO A RIMBORSO"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 8 7 ""
|
||||||
MESSAGE ADD,FL->16
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 57->CONTR16
|
MESSAGE ADD,FL->16
|
||||||
END
|
FIELD 57->CONTR16
|
||||||
|
END
|
||||||
NUMERO 17
|
|
||||||
BEGIN
|
NUMERO 17
|
||||||
KEY "CONTRIBUTO VERSATO"
|
BEGIN
|
||||||
PROMPT 23 7 ""
|
KEY "CONTRIBUTO VERSATO"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 23 7 ""
|
||||||
MESSAGE ADD,FL->17
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 57->CONTRVER
|
MESSAGE ADD,FL->17
|
||||||
END
|
FIELD 57->CONTRVER
|
||||||
|
END
|
||||||
NUMERO 18
|
|
||||||
BEGIN
|
NUMERO 18
|
||||||
KEY "INTERESSI"
|
BEGIN
|
||||||
PROMPT 39 7 ""
|
KEY "INTERESSI"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 39 7 ""
|
||||||
MESSAGE ADD,FL->18
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 57->INTER18
|
MESSAGE ADD,FL->18
|
||||||
END
|
FIELD 57->INTER18
|
||||||
|
END
|
||||||
NUMERO 19
|
|
||||||
BEGIN
|
NUMERO 19
|
||||||
KEY "CONTRIBUTO VERSATO"
|
BEGIN
|
||||||
PROMPT 54 7 ""
|
KEY "CONTRIBUTO VERSATO"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 54 7 ""
|
||||||
MESSAGE ADD,FL->19
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 57->CONTV19
|
MESSAGE ADD,FL->19
|
||||||
END
|
FIELD 57->CONTV19
|
||||||
|
END
|
||||||
NUMERO 20
|
|
||||||
BEGIN
|
NUMERO 20
|
||||||
KEY "INTERESSI"
|
BEGIN
|
||||||
PROMPT 70 7 ""
|
KEY "INTERESSI"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 70 7 ""
|
||||||
MESSAGE ADD,FL->20
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 57->INTE20
|
MESSAGE ADD,FL->20
|
||||||
END
|
FIELD 57->INTE20
|
||||||
|
END
|
||||||
NUMERO 21
|
|
||||||
BEGIN
|
NUMERO 21
|
||||||
KEY "SOPRATTASSA SU CSSN"
|
BEGIN
|
||||||
PROMPT 85 7 ""
|
KEY "SOPRATTASSA SU CSSN"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 85 7 ""
|
||||||
MESSAGE ADD,FL->21
|
PICTURE "###.###.###.###^^^"
|
||||||
FIELD 57->SOPRAT21
|
MESSAGE ADD,FL->21
|
||||||
END
|
FIELD 57->SOPRAT21
|
||||||
|
END
|
||||||
NUMERO 22
|
|
||||||
BEGIN
|
NUMERO 22
|
||||||
KEY "MOD. 730/95 NON LIQUIDABILE"
|
BEGIN
|
||||||
PROMPT 108 7 ""
|
KEY "MOD. 730/95 NON LIQUIDABILE"
|
||||||
FIELD 57->M730NLIQ
|
PROMPT 108 7 ""
|
||||||
END
|
FIELD 57->M730NLIQ
|
||||||
|
END
|
||||||
STRINGA 23
|
|
||||||
BEGIN
|
STRINGA 23
|
||||||
KEY "CODICE FISCALE CAAF"
|
BEGIN
|
||||||
PROMPT 11 9 ""
|
KEY "CODICE FISCALE CAAF"
|
||||||
FIELD 104@->S1
|
PROMPT 11 9 ""
|
||||||
END
|
FIELD 104@->S1
|
||||||
|
END
|
||||||
STRINGA 24
|
|
||||||
BEGIN
|
STRINGA 24
|
||||||
KEY "DENOMINAZIONE CAAF"
|
BEGIN
|
||||||
PROMPT 44 9 ""
|
KEY "DENOMINAZIONE CAAF"
|
||||||
FIELD 104@->S0
|
PROMPT 44 9 ""
|
||||||
END
|
FIELD 104@->S0
|
||||||
|
END
|
||||||
NUMERO 25
|
|
||||||
BEGIN
|
NUMERO 25
|
||||||
KEY "NUMERO ISCRIZIONE ALBO"
|
BEGIN
|
||||||
PROMPT 119 9 ""
|
KEY "NUMERO ISCRIZIONE ALBO"
|
||||||
FIELD 104@->I1
|
PROMPT 119 9 ""
|
||||||
END
|
FIELD 104@->I1
|
||||||
|
END
|
||||||
END
|
|
||||||
|
END
|
||||||
SECTION FOOTER LAST 4
|
|
||||||
|
SECTION FOOTER LAST 4
|
||||||
NUMERO 10
|
|
||||||
BEGIN
|
NUMERO 10
|
||||||
KEY "IMPOSTA RIMBORSATA"
|
BEGIN
|
||||||
PROMPT 39 1 ""
|
KEY "IMPOSTA RIMBORSATA"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 39 1 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 11
|
|
||||||
BEGIN
|
NUMERO 11
|
||||||
KEY "IMPOSTA VERSATA"
|
BEGIN
|
||||||
PROMPT 54 1 ""
|
KEY "IMPOSTA VERSATA"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 54 1 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 12
|
|
||||||
BEGIN
|
NUMERO 12
|
||||||
KEY "INTERESSI"
|
BEGIN
|
||||||
PROMPT 70 1 ""
|
KEY "INTERESSI"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 70 1 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 13
|
|
||||||
BEGIN
|
NUMERO 13
|
||||||
KEY "IMPOSTA VERSATA"
|
BEGIN
|
||||||
PROMPT 85 1 ""
|
KEY "IMPOSTA VERSATA"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 85 1 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 14
|
|
||||||
BEGIN
|
NUMERO 14
|
||||||
KEY "INTERESSI"
|
BEGIN
|
||||||
PROMPT 100 1 ""
|
KEY "INTERESSI"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 100 1 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 15
|
|
||||||
BEGIN
|
NUMERO 15
|
||||||
KEY "SOPRATTASSA SU IRPEF"
|
BEGIN
|
||||||
PROMPT 115 1 ""
|
KEY "SOPRATTASSA SU IRPEF"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 115 1 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 16
|
|
||||||
BEGIN
|
NUMERO 16
|
||||||
KEY "CONTRIBUTO A RIMBORSO"
|
BEGIN
|
||||||
PROMPT 8 3 ""
|
KEY "CONTRIBUTO A RIMBORSO"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 8 3 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 17
|
|
||||||
BEGIN
|
NUMERO 17
|
||||||
KEY "CONTRIBUTO VERSATO"
|
BEGIN
|
||||||
PROMPT 23 3 ""
|
KEY "CONTRIBUTO VERSATO"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 23 3 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 18
|
|
||||||
BEGIN
|
NUMERO 18
|
||||||
KEY "INTERESSI"
|
BEGIN
|
||||||
PROMPT 39 3 ""
|
KEY "INTERESSI"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 39 3 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 19
|
|
||||||
BEGIN
|
NUMERO 19
|
||||||
KEY "CONTRIBUTO VERSATO"
|
BEGIN
|
||||||
PROMPT 54 3 ""
|
KEY "CONTRIBUTO VERSATO"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 54 3 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 20
|
|
||||||
BEGIN
|
NUMERO 20
|
||||||
KEY "INTERESSI"
|
BEGIN
|
||||||
PROMPT 70 3 ""
|
KEY "INTERESSI"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 70 3 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
NUMERO 21
|
|
||||||
BEGIN
|
NUMERO 21
|
||||||
KEY "SOPRATTASSA SU CSSN"
|
BEGIN
|
||||||
PROMPT 85 3 ""
|
KEY "SOPRATTASSA SU CSSN"
|
||||||
PICTURE "###.###.###.###^^^"
|
PROMPT 85 3 ""
|
||||||
END
|
PICTURE "###.###.###.###^^^"
|
||||||
|
END
|
||||||
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
|
||||||
|
|||||||
820
m770/77qa3.frm
820
m770/77qa3.frm
@ -1,388 +1,432 @@
|
|||||||
USE 58
|
USE 58
|
||||||
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
||||||
JOIN 9 INTO CODDITTA=CODDITTA
|
JOIN 9 INTO CODDITTA=CODDITTA
|
||||||
JOIN 102 INTO CODDITTA=CODDITTA
|
JOIN 102 INTO CODDITTA=CODDITTA
|
||||||
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||||
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
||||||
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
||||||
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
||||||
|
JOIN 37 INTO CODDITTA=CODDITTA
|
||||||
END
|
END
|
||||||
DESCRIPTION
|
|
||||||
BEGIN
|
DESCRIPTION
|
||||||
58->* "Quadro A3 770"
|
BEGIN
|
||||||
45->* "Anagrafica dei dipendenti"
|
58->* "Quadro A3 770"
|
||||||
9->* "Ditte"
|
45->* "Anagrafica dei dipendenti"
|
||||||
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
9->* "Ditte"
|
||||||
108@->* "Anagrafica persone fisiche (ditta)"
|
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
||||||
113@->* "Comuni DITTA (nascita)"
|
108@->* "Anagrafica persone fisiche (ditta)"
|
||||||
213@->* "Comuni DITTA (residenza)"
|
113@->* "Comuni DITTA (nascita)"
|
||||||
END
|
213@->* "Comuni DITTA (residenza)"
|
||||||
|
END
|
||||||
GENERAL
|
|
||||||
BEGIN
|
GENERAL
|
||||||
OFFSET 0 0
|
BEGIN
|
||||||
FONT "Courier New"
|
OFFSET 0 0
|
||||||
SIZE 11
|
FONT "Courier New"
|
||||||
CARATTERE "X"
|
SIZE 11
|
||||||
INIZIO_POS 3 2
|
CARATTERE "X"
|
||||||
FINE_POS 131
|
INIZIO_POS 3 2
|
||||||
GRID "+++++++++-|"
|
FINE_POS 131
|
||||||
END
|
GRID "+++++++++-|"
|
||||||
|
END
|
||||||
SECTION HEADER FIRST 28
|
|
||||||
|
SECTION HEADER FIRST 28
|
||||||
LISTA 100
|
|
||||||
BEGIN
|
LISTA 100
|
||||||
KEY "Ditta trasformata"
|
BEGIN
|
||||||
FLAGS "H"
|
KEY "Ditta trasformata"
|
||||||
ITEM "1|Normale" MESSAGE ENABLE,10@|DISABLE,20@
|
FLAGS "H"
|
||||||
ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@
|
ITEM "1|Normale" MESSAGE ENABLE,10@|DISABLE,20@
|
||||||
END
|
ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@
|
||||||
|
FIELD 58->NPROG
|
||||||
LISTA 1
|
END
|
||||||
BEGIN
|
|
||||||
KEY "Tipo anagrafica"
|
LISTA 1
|
||||||
FLAGS "H"
|
BEGIN
|
||||||
FIELD 106@->TIPOA
|
KEY "Tipo anagrafica"
|
||||||
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
|
FLAGS "H"
|
||||||
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
|
FIELD 106@->TIPOA
|
||||||
END
|
ITEM "F|Fisica" MESSAGE SHOW,11@|HIDE,12@
|
||||||
|
ITEM "G|Giuridica" MESSAGE SHOW,12@|HIDE,11@
|
||||||
STRINGA 2
|
GROUP 10
|
||||||
BEGIN
|
END
|
||||||
KEY "CODICE FISCALE"
|
|
||||||
PROMPT 3 13 ""
|
STRINGA 2
|
||||||
FIELD 106@->COFI
|
BEGIN
|
||||||
GROUP 10
|
KEY "CODICE FISCALE"
|
||||||
END
|
PROMPT 3 13 ""
|
||||||
|
FIELD 106@->COFI
|
||||||
STRINGA 3
|
GROUP 10
|
||||||
BEGIN
|
END
|
||||||
KEY "RAGIONE SOCIALE"
|
|
||||||
PROMPT 40 13 ""
|
STRINGA 3
|
||||||
GROUP 2
|
BEGIN
|
||||||
FIELD 106@->RAGSOC
|
KEY "RAGIONE SOCIALE"
|
||||||
GROUP 10
|
PROMPT 40 13 ""
|
||||||
END
|
FIELD 106@->RAGSOC
|
||||||
|
GROUP 10 12
|
||||||
STRINGA 4
|
END
|
||||||
BEGIN
|
|
||||||
KEY "COGNOME"
|
STRINGA 4
|
||||||
PROMPT 40 13 ""
|
BEGIN
|
||||||
GROUP 1
|
KEY "COGNOME"
|
||||||
FIELD 106@->RAGSOC[1,30]
|
PROMPT 40 13 ""
|
||||||
GROUP 10
|
FIELD 106@->RAGSOC[1,30]
|
||||||
END
|
GROUP 10 11
|
||||||
|
END
|
||||||
STRINGA 5
|
|
||||||
BEGIN
|
STRINGA 5
|
||||||
KEY "NOME"
|
BEGIN
|
||||||
PROMPT 17 15 ""
|
KEY "NOME"
|
||||||
GROUP 1
|
PROMPT 17 15 ""
|
||||||
FIELD 106@->RAGSOC[31,50]
|
FIELD 106@->RAGSOC[31,50]
|
||||||
GROUP 10
|
GROUP 10 11
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 6
|
STRINGA 6
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "SESSO"
|
KEY "SESSO"
|
||||||
PROMPT 59 15 ""
|
PROMPT 59 15 ""
|
||||||
GROUP 1
|
FIELD 108@->SESSO
|
||||||
FIELD 108@->SESSO
|
GROUP 10 11
|
||||||
GROUP 10
|
END
|
||||||
END
|
|
||||||
|
STRINGA 7
|
||||||
STRINGA 7
|
BEGIN
|
||||||
BEGIN
|
KEY "DATA DI NASCITA"
|
||||||
KEY "DATA DI NASCITA"
|
PROMPT 67 15 ""
|
||||||
PROMPT 67 15 ""
|
FIELD 108@->DATANASC
|
||||||
GROUP 1
|
GROUP 10 11
|
||||||
FIELD 108@->DATANASC
|
END
|
||||||
GROUP 10
|
|
||||||
END
|
STRINGA 8
|
||||||
|
BEGIN
|
||||||
STRINGA 8
|
KEY "COMUNE DI NASCITA"
|
||||||
BEGIN
|
PROMPT 84 15 ""
|
||||||
KEY "COMUNE DI NASCITA"
|
FIELD 113@->DENCOM
|
||||||
PROMPT 84 15 ""
|
GROUP 10 11
|
||||||
GROUP 1
|
END
|
||||||
FIELD 113@->DENCOM
|
|
||||||
GROUP 10
|
STRINGA 9
|
||||||
END
|
BEGIN
|
||||||
|
KEY "PROV. DI NASCITA"
|
||||||
STRINGA 9
|
PROMPT 126 15 ""
|
||||||
BEGIN
|
FIELD 113@->PROVCOM
|
||||||
KEY "PROV. DI NASCITA"
|
GROUP 10 11
|
||||||
PROMPT 126 15 ""
|
END
|
||||||
GROUP 1
|
|
||||||
FIELD 113@->PROVCOM
|
STRINGA 10
|
||||||
GROUP 10
|
BEGIN
|
||||||
END
|
KEY "COMUNE DI RES.FISCALE"
|
||||||
|
PROMPT 17 17 ""
|
||||||
STRINGA 10
|
FIELD 213@->DENCOM
|
||||||
BEGIN
|
GROUP 10
|
||||||
KEY "COMUNE DI RES.FISCALE"
|
END
|
||||||
PROMPT 17 17 ""
|
|
||||||
FIELD 213@->DENCOM
|
STRINGA 11
|
||||||
GROUP 10
|
BEGIN
|
||||||
END
|
KEY "PROV DI RES.FISCALE"
|
||||||
|
PROMPT 59 17 ""
|
||||||
STRINGA 11
|
FIELD 213@->PROVCOM
|
||||||
BEGIN
|
GROUP 10
|
||||||
KEY "PROV DI RES.FISCALE"
|
END
|
||||||
PROMPT 59 17 ""
|
|
||||||
FIELD 213@->PROVCOM
|
STRINGA 12
|
||||||
GROUP 10
|
BEGIN
|
||||||
END
|
KEY "VIA di RES."
|
||||||
|
PROMPT 67 17 ""
|
||||||
STRINGA 12
|
FIELD 106@->INDRF
|
||||||
BEGIN
|
FIELD 106@->INDRES
|
||||||
KEY "VIA di RES."
|
GROUP 10
|
||||||
PROMPT 67 17 ""
|
END
|
||||||
FIELD 106@->INDRF
|
|
||||||
FIELD 106@->INDRES
|
STRINGA 15
|
||||||
GROUP 10
|
BEGIN
|
||||||
END
|
KEY "NUM. CIVICO di RES."
|
||||||
|
PROMPT 104 17 ""
|
||||||
STRINGA 15
|
FIELD 106@->CIVRF
|
||||||
BEGIN
|
FIELD 106@->CIVRES
|
||||||
KEY "NUM. CIVICO di RES."
|
GROUP 10
|
||||||
PROMPT 104 17 ""
|
END
|
||||||
FIELD 106@->CIVRF
|
|
||||||
FIELD 106@->CIVRES
|
STRINGA 16
|
||||||
GROUP 10
|
BEGIN
|
||||||
END
|
KEY "CAP"
|
||||||
|
PROMPT 123 17 ""
|
||||||
STRINGA 16
|
FIELD 106@->CAPRF
|
||||||
BEGIN
|
FIELD 106@->CAPRES
|
||||||
KEY "CAP"
|
GROUP 10
|
||||||
PROMPT 123 17 ""
|
END
|
||||||
FIELD 106@->CAPRF
|
|
||||||
FIELD 106@->CAPRES
|
LISTA 101
|
||||||
GROUP 10
|
BEGIN
|
||||||
END
|
KEY "Tipo anagrafica"
|
||||||
|
FLAGS "H"
|
||||||
STRINGA 13
|
FIELD 106@->TIPOA
|
||||||
BEGIN
|
ITEM "F|Fisica" MESSAGE SHOW,21@|HIDE,22@
|
||||||
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
ITEM "G|Giuridica" MESSAGE SHOW,22@|HIDE,21@
|
||||||
PROMPT 87 20 ""
|
GROUP 20
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO 14
|
STRINGA 102
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "NUM. FOGLIO"
|
KEY "CODICE FISCALE"
|
||||||
PROMPT 125 25 ""
|
PROMPT 3 12 ""
|
||||||
END
|
FIELD 102->CODFISC
|
||||||
|
GROUP 20
|
||||||
STRINGA 102
|
END
|
||||||
BEGIN
|
|
||||||
KEY "CODICE FISCALE"
|
STRINGA 103
|
||||||
PROMPT 3 12 ""
|
BEGIN
|
||||||
FIELD 102->CODFISC
|
KEY "RAGIONE SOCIALE"
|
||||||
GROUP 20
|
PROMPT 39 12 ""
|
||||||
END
|
FIELD 102->DENOMIN
|
||||||
|
GROUP 20 22
|
||||||
STRINGA 103
|
END
|
||||||
BEGIN
|
|
||||||
KEY "RAGIONE SOCIALE"
|
STRINGA 104
|
||||||
PROMPT 39 12 ""
|
BEGIN
|
||||||
GROUP 2
|
KEY "COGNOME"
|
||||||
FIELD 102->DENOMIN
|
PROMPT 39 12 ""
|
||||||
GROUP 20
|
FIELD 102->DENOMIN
|
||||||
END
|
GROUP 20 21
|
||||||
|
END
|
||||||
STRINGA 104
|
|
||||||
BEGIN
|
STRINGA 105
|
||||||
KEY "COGNOME"
|
BEGIN
|
||||||
PROMPT 39 12 ""
|
KEY "NOME"
|
||||||
GROUP 1
|
PROMPT 17 14 ""
|
||||||
FIELD 102->DENOMIN
|
FIELD 102->NOME
|
||||||
GROUP 20
|
GROUP 20 21
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 105
|
STRINGA 106
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "NOME"
|
KEY "SESSO"
|
||||||
PROMPT 17 14 ""
|
PROMPT 58 14 ""
|
||||||
GROUP 1
|
FIELD 102->SESSO
|
||||||
FIELD 102->NOME
|
GROUP 20 21
|
||||||
GROUP 20
|
END
|
||||||
END
|
|
||||||
|
STRINGA 107
|
||||||
STRINGA 106
|
BEGIN
|
||||||
BEGIN
|
KEY "DATA DI NASCITA"
|
||||||
KEY "SESSO"
|
PROMPT 67 14 ""
|
||||||
PROMPT 58 14 ""
|
FIELD 102->DATANAS
|
||||||
GROUP 1
|
GROUP 20 21
|
||||||
FIELD 102->SESSO
|
END
|
||||||
GROUP 20
|
|
||||||
END
|
STRINGA 108
|
||||||
|
BEGIN
|
||||||
STRINGA 107
|
KEY "COMUNE DI NASCITA"
|
||||||
BEGIN
|
PROMPT 84 14 ""
|
||||||
KEY "DATA DI NASCITA"
|
FIELD 102->COMNAS
|
||||||
PROMPT 67 14 ""
|
GROUP 20 21
|
||||||
GROUP 1
|
END
|
||||||
FIELD 102->DATANAS
|
|
||||||
GROUP 20
|
STRINGA 109
|
||||||
END
|
BEGIN
|
||||||
|
KEY "PROV. DI NASCITA"
|
||||||
STRINGA 108
|
PROMPT 125 14 ""
|
||||||
BEGIN
|
FIELD 102->PROVNAS
|
||||||
KEY "COMUNE DI NASCITA"
|
GROUP 20 21
|
||||||
PROMPT 84 14 ""
|
END
|
||||||
GROUP 1
|
|
||||||
FIELD 102->COMNAS
|
STRINGA 110
|
||||||
GROUP 20
|
BEGIN
|
||||||
END
|
KEY "COMUNE DI RES.FISCALE"
|
||||||
|
PROMPT 17 16 ""
|
||||||
STRINGA 109
|
FIELD 102->COMDOM
|
||||||
BEGIN
|
GROUP 20
|
||||||
KEY "PROV. DI NASCITA"
|
END
|
||||||
PROMPT 125 14 ""
|
|
||||||
GROUP 1
|
STRINGA 111
|
||||||
FIELD 102->PROVNAS
|
BEGIN
|
||||||
GROUP 20
|
KEY "PROV DI RES.FISCALE"
|
||||||
END
|
PROMPT 59 16 ""
|
||||||
|
FIELD 102->PROVDOM
|
||||||
STRINGA 110
|
GROUP 20
|
||||||
BEGIN
|
END
|
||||||
KEY "COMUNE DI RES.FISCALE"
|
|
||||||
PROMPT 17 16 ""
|
STRINGA 112
|
||||||
FIELD 102->COMDOM
|
BEGIN
|
||||||
GROUP 20
|
KEY "VIA di RES."
|
||||||
END
|
PROMPT 66 16 ""
|
||||||
|
FIELD 102->INDDOM
|
||||||
STRINGA 111
|
GROUP 20
|
||||||
BEGIN
|
END
|
||||||
KEY "PROV DI RES.FISCALE"
|
|
||||||
PROMPT 59 16 ""
|
STRINGA 13
|
||||||
FIELD 102->PROVDOM
|
BEGIN
|
||||||
GROUP 20
|
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
||||||
END
|
PROMPT 87 20 ""
|
||||||
|
END
|
||||||
STRINGA 112
|
|
||||||
BEGIN
|
NUMERO 15
|
||||||
KEY "VIA di RES."
|
BEGIN
|
||||||
PROMPT 66 16 ""
|
KEY "CONSISTENZA BASE OCCUPAZIONALE AL 12/06/94"
|
||||||
FIELD 102->INDDOM
|
PROMPT 56 22 ""
|
||||||
GROUP 20
|
PICTURE "###.###"
|
||||||
END
|
FIELD 37->CONSBASOCC
|
||||||
|
END
|
||||||
END
|
|
||||||
|
NUMERO 16
|
||||||
SECTION BODY ODD 6
|
BEGIN
|
||||||
|
KEY "LAVORATORI DIPENDENTI IN MOBILITA'"
|
||||||
STRINGA 1
|
PROMPT 56 23 ""
|
||||||
BEGIN
|
PICTURE "###.###"
|
||||||
KEY "COD.FIS"
|
FIELD 37->LAVDIPCIN
|
||||||
PROMPT 11 1 ""
|
END
|
||||||
FIELD 45->CODFI
|
|
||||||
END
|
DATA 17
|
||||||
|
BEGIN
|
||||||
STRINGA 2
|
KEY "PERIODO D'IMPOSTA (DAL)"
|
||||||
BEGIN
|
PROMPT 96 23 ""
|
||||||
KEY "COGNOME"
|
FORMAT "1442 "
|
||||||
PROMPT 42 1 ""
|
FIELD 37->PIMPINI
|
||||||
FIELD 45->COGNOME
|
END
|
||||||
END
|
|
||||||
|
DATA 18
|
||||||
STRINGA 3
|
BEGIN
|
||||||
BEGIN
|
KEY "PERIODO D'IMPOSTA (AL)"
|
||||||
KEY "NOME"
|
PROMPT 117 23 ""
|
||||||
PROMPT 79 1 ""
|
FORMAT "1442 "
|
||||||
FIELD 45->NOME
|
FIELD 37->PIMPFINE
|
||||||
END
|
END
|
||||||
|
|
||||||
DATA 4
|
|
||||||
BEGIN
|
NUMERO 14
|
||||||
KEY "DATA NASCITA"
|
BEGIN
|
||||||
PROMPT 114 1 ""
|
KEY "NUM. FOGLIO"
|
||||||
FIELD 45->DATANA
|
PROMPT 125 25 ""
|
||||||
FORMAT "1444-"
|
END
|
||||||
END
|
|
||||||
|
|
||||||
STRINGA 5
|
END
|
||||||
BEGIN
|
|
||||||
KEY "SESSO"
|
SECTION BODY ODD 6
|
||||||
PROMPT 128 1 ""
|
|
||||||
FIELD 45->SESSO
|
STRINGA 1
|
||||||
END
|
BEGIN
|
||||||
|
KEY "COD.FIS"
|
||||||
STRINGA 6
|
PROMPT 11 1 ""
|
||||||
BEGIN
|
FIELD 45->CODFI
|
||||||
KEY "COMUNE DI NASCITA"
|
END
|
||||||
PROMPT 11 3 ""
|
|
||||||
FIELD 45->COMUNENA
|
STRINGA 2
|
||||||
END
|
BEGIN
|
||||||
|
KEY "COGNOME"
|
||||||
STRINGA 7
|
PROMPT 42 1 ""
|
||||||
BEGIN
|
FIELD 45->COGNOME
|
||||||
KEY "PROV DI NASCITA"
|
END
|
||||||
PROMPT 47 3 ""
|
|
||||||
FIELD 45->PROVNA
|
STRINGA 3
|
||||||
END
|
BEGIN
|
||||||
|
KEY "NOME"
|
||||||
DATA 8
|
PROMPT 79 1 ""
|
||||||
BEGIN
|
FIELD 45->NOME
|
||||||
KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO"
|
END
|
||||||
PROMPT 11 5 ""
|
|
||||||
FIELD 58->DIRAPTI
|
DATA 4
|
||||||
FORMAT "1444-"
|
BEGIN
|
||||||
PICTURE "## ^ ##^^^##"
|
KEY "DATA NASCITA"
|
||||||
END
|
PROMPT 114 1 ""
|
||||||
|
FIELD 45->DATANA
|
||||||
NUMERO 9
|
FORMAT "1444-"
|
||||||
BEGIN
|
END
|
||||||
KEY "NUMERO GIORNI IN INCREMENTO"
|
|
||||||
PROMPT 30 5 ""
|
STRINGA 5
|
||||||
FIELD 58->NGINC15
|
BEGIN
|
||||||
END
|
KEY "SESSO"
|
||||||
|
PROMPT 128 1 ""
|
||||||
NUMERO 10
|
FIELD 45->SESSO
|
||||||
BEGIN
|
END
|
||||||
KEY "REDDITO CORRISPOSTO"
|
|
||||||
PROMPT 42 5 ""
|
STRINGA 6
|
||||||
MESSAGE ADD,FL->10
|
BEGIN
|
||||||
PICTURE "###.###.###.###^^^"
|
KEY "COMUNE DI NASCITA"
|
||||||
FIELD 58->REDCOR16
|
PROMPT 11 3 ""
|
||||||
END
|
FIELD 45->COMUNENA
|
||||||
|
END
|
||||||
NUMERO 11
|
|
||||||
BEGIN
|
STRINGA 7
|
||||||
KEY "NUMERO GIORNI IN INCREMENTO"
|
BEGIN
|
||||||
PROMPT 64 5 ""
|
KEY "PROV DI NASCITA"
|
||||||
FIELD 58->NGINC17
|
PROMPT 47 3 ""
|
||||||
END
|
FIELD 45->PROVNA
|
||||||
|
END
|
||||||
NUMERO 12
|
|
||||||
BEGIN
|
DATA 8
|
||||||
KEY "REDDITO CORRISPOSTO"
|
BEGIN
|
||||||
PROMPT 76 5 ""
|
KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO"
|
||||||
MESSAGE ADD,FL->12
|
PROMPT 11 5 ""
|
||||||
PICTURE "###.###.###.###^^^"
|
FIELD 58->DIRAPTI
|
||||||
FIELD 58->REDCOR18
|
FORMAT "1444-"
|
||||||
END
|
PICTURE "## ^ ##^^^##"
|
||||||
|
END
|
||||||
END
|
|
||||||
|
NUMERO 9
|
||||||
SECTION FOOTER LAST 2
|
BEGIN
|
||||||
|
KEY "NUMERO GIORNI IN INCREMENTO"
|
||||||
NUMERO 10
|
PROMPT 35 5 ""
|
||||||
BEGIN
|
PICTURE "######"
|
||||||
KEY "REDDITO CORRISPOSTO"
|
FIELD 58->NGINC15
|
||||||
PROMPT 42 5 ""
|
END
|
||||||
PICTURE "###.###.###.###^^^"
|
|
||||||
END
|
NUMERO 10
|
||||||
|
BEGIN
|
||||||
NUMERO 12
|
KEY "REDDITO CORRISPOSTO"
|
||||||
BEGIN
|
PROMPT 43 5 ""
|
||||||
KEY "REDDITO CORRISPOSTO"
|
MESSAGE ADD,FL->10
|
||||||
PROMPT 76 5 ""
|
PICTURE "###.###.###.###^^^"
|
||||||
PICTURE "###.###.###.###^^^"
|
FIELD 58->REDCOR16
|
||||||
END
|
END
|
||||||
|
|
||||||
END
|
NUMERO 11
|
||||||
|
BEGIN
|
||||||
END
|
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
|
||||||
|
|||||||
@ -674,6 +674,13 @@ BEGIN
|
|||||||
PICTURE "###.###.###.###^^^"
|
PICTURE "###.###.###.###^^^"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
STRINGA 2
|
||||||
|
BEGIN
|
||||||
|
KEY "FIRMA"
|
||||||
|
PROMPT 83 23 ""
|
||||||
|
FIELD 106@->RAGSOC
|
||||||
|
END
|
||||||
|
|
||||||
END
|
END
|
||||||
|
|
||||||
END
|
END
|
||||||
160
m770/77stq.cpp
160
m770/77stq.cpp
@ -136,9 +136,6 @@ class TDicForm : public TForm
|
|||||||
int _RigaCorr; // contatore riga corrente
|
int _RigaCorr; // contatore riga corrente
|
||||||
TString16 _quadro; // codice quadro in stampa
|
TString16 _quadro; // codice quadro in stampa
|
||||||
|
|
||||||
virtual TCursor* cursor() const { return _cur; }
|
|
||||||
virtual TRelation* relation() const { return _cur->relation(); }
|
|
||||||
|
|
||||||
void stampa_testata(TPrinter& pr);
|
void stampa_testata(TPrinter& pr);
|
||||||
virtual void stampa_totali(TPrinter& pr);
|
virtual void stampa_totali(TPrinter& pr);
|
||||||
// virtual void aggiorna_totali(const char tipo);
|
// virtual void aggiorna_totali(const char tipo);
|
||||||
@ -153,6 +150,8 @@ class TDicForm : public TForm
|
|||||||
virtual bool InitPrint(const long codditta);
|
virtual bool InitPrint(const long codditta);
|
||||||
|
|
||||||
public:
|
public:
|
||||||
|
virtual TCursor* cursor() const { return _cur; }
|
||||||
|
virtual TRelation* relation() const { return _cur->relation(); }
|
||||||
|
|
||||||
virtual long filtra(const long codditta);
|
virtual long filtra(const long codditta);
|
||||||
|
|
||||||
@ -200,7 +199,8 @@ TCursor& TDicForm::cur()
|
|||||||
}
|
}
|
||||||
|
|
||||||
void TDicForm::set_cursor(TCursor* cur)
|
void TDicForm::set_cursor(TCursor* cur)
|
||||||
{
|
{
|
||||||
|
CHECK(cur, "NULL cursor in TDicForm");
|
||||||
_cur = cur;
|
_cur = cur;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -1553,6 +1553,8 @@ protected:
|
|||||||
bool singola_ditta() const { return _livello == 'D'; }
|
bool singola_ditta() const { return _livello == 'D'; }
|
||||||
const TString& quadro() const { return _quadro; }
|
const TString& quadro() const { return _quadro; }
|
||||||
|
|
||||||
|
void set_taitol(const char* t) { _title = t; }
|
||||||
|
|
||||||
TStampaQuadro(const char* quad, char liv);
|
TStampaQuadro(const char* quad, char liv);
|
||||||
|
|
||||||
public:
|
public:
|
||||||
@ -3854,6 +3856,10 @@ public:
|
|||||||
void reset_deceduto() { _codice_deceduto = -_codice_deceduto; }
|
void reset_deceduto() { _codice_deceduto = -_codice_deceduto; }
|
||||||
long codice() const { return _codice_dipendente; }
|
long codice() const { return _codice_dipendente; }
|
||||||
|
|
||||||
|
int anno_fine_rapporto() const { return _fine_rapporto.year(); }
|
||||||
|
bool lavoro_precedente() const { return _lavoro_precedente; }
|
||||||
|
char rettifica_conguaglio() const { return _rettifica_conguaglio; }
|
||||||
|
|
||||||
TDipendente(const TCursor& cur);
|
TDipendente(const TCursor& cur);
|
||||||
virtual ~TDipendente() { }
|
virtual ~TDipendente() { }
|
||||||
};
|
};
|
||||||
@ -3889,9 +3895,6 @@ TDipendente::TDipendente(const TCursor& cur)
|
|||||||
|
|
||||||
if (_rettifica_conguaglio == 'B' || !_fine_rapporto.ok())
|
if (_rettifica_conguaglio == 'B' || !_fine_rapporto.ok())
|
||||||
_fine_rapporto = eotime;
|
_fine_rapporto = eotime;
|
||||||
else
|
|
||||||
if (_fine_rapporto.year() != 1995)
|
|
||||||
_pos = -1; // Non stampare anni diversi dal 1995
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
@ -4098,7 +4101,7 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
|
|||||||
|
|
||||||
while (!stampati_totali)
|
while (!stampati_totali)
|
||||||
{
|
{
|
||||||
bool stampero_ultimo = stampato_ultimo == FALSE;
|
bool stampero_ultimo = (stampato_ultimo == FALSE);
|
||||||
if (stampero_ultimo)
|
if (stampero_ultimo)
|
||||||
{
|
{
|
||||||
if (indice.items() > 0) // Usa indice alternativo
|
if (indice.items() > 0) // Usa indice alternativo
|
||||||
@ -4107,6 +4110,25 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
|
|||||||
stampero_ultimo &= cur.pos() == cur.items()-1;
|
stampero_ultimo &= cur.pos() == cur.items()-1;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if (!stampato_ultimo)
|
||||||
|
{
|
||||||
|
if (quadro() == "A")
|
||||||
|
{
|
||||||
|
const TDipendente& dip = indice[pos];
|
||||||
|
const bool add = !dip.lavoro_precedente() && dip.rettifica_conguaglio() != 'B';
|
||||||
|
enable_message_add(add);
|
||||||
|
TForm_item& datafr = find_field('B', odd_page, 16);
|
||||||
|
datafr.enable(dip.anno_fine_rapporto() == 1995);
|
||||||
|
} else
|
||||||
|
if (quadro() == "A2")
|
||||||
|
{
|
||||||
|
const TRectype& rec = cur.curr();
|
||||||
|
const char retcon = rec.get_char("RETCON");
|
||||||
|
const bool add = retcon != 'B';
|
||||||
|
enable_message_add(add);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
switch(_PaginaCorrente)
|
switch(_PaginaCorrente)
|
||||||
{
|
{
|
||||||
case PRIMA:
|
case PRIMA:
|
||||||
@ -4194,8 +4216,8 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
|
|||||||
class TStampaQuadroA : public TStampaQuadro
|
class TStampaQuadroA : public TStampaQuadro
|
||||||
{
|
{
|
||||||
protected:
|
protected:
|
||||||
TQuadroA* _form;
|
TDicForm* _form;
|
||||||
TSorted_cursor* _cur;
|
TCursor* _cur;
|
||||||
|
|
||||||
protected:
|
protected:
|
||||||
virtual bool user_create();
|
virtual bool user_create();
|
||||||
@ -4222,9 +4244,12 @@ bool TStampaQuadroA::user_create()
|
|||||||
}
|
}
|
||||||
|
|
||||||
bool TStampaQuadroA::user_destroy()
|
bool TStampaQuadroA::user_destroy()
|
||||||
{
|
{
|
||||||
delete _cur;
|
if (_cur)
|
||||||
delete _form;
|
delete _cur;
|
||||||
|
|
||||||
|
if (_form)
|
||||||
|
delete _form;
|
||||||
|
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
@ -4429,6 +4454,109 @@ bool TStampaQuadroB::user_create()
|
|||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/////////////////////////////////////////////////////////////////////////////////
|
||||||
|
// Busta
|
||||||
|
/////////////////////////////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
class TBusta : public TDicForm
|
||||||
|
{
|
||||||
|
protected:
|
||||||
|
virtual bool print(const long codditta, const long, const long);
|
||||||
|
|
||||||
|
public:
|
||||||
|
TBusta(const char* form, const char* quadro) : TDicForm(form, quadro) { }
|
||||||
|
virtual ~TBusta() { }
|
||||||
|
};
|
||||||
|
|
||||||
|
bool TBusta::print(const long codditta, const long, const long)
|
||||||
|
{
|
||||||
|
const bool ok = InitPrint(codditta);
|
||||||
|
if (ok)
|
||||||
|
{
|
||||||
|
TForm_item& dietor = find_field('B', odd_page, 'L' * 10);
|
||||||
|
const int anno = anno_770();
|
||||||
|
const bool elle = esiste_record_L(codditta, anno);
|
||||||
|
dietor.set(elle ? "X" : "");
|
||||||
|
|
||||||
|
TForm::print(0);
|
||||||
|
}
|
||||||
|
return ok;
|
||||||
|
}
|
||||||
|
|
||||||
|
class TStampaBusta : public TStampaQuadro
|
||||||
|
{
|
||||||
|
TDicForm* _form;
|
||||||
|
|
||||||
|
protected: // TStampaQuadro
|
||||||
|
virtual bool user_create();
|
||||||
|
virtual bool user_destroy();
|
||||||
|
virtual bool conta_tipi_per() const { return FALSE; }
|
||||||
|
virtual TDicForm* get_form() const { return _form; }
|
||||||
|
virtual TCursor* get_cursor() const { return _form->TForm::cursor(); }
|
||||||
|
virtual bool print_quadro(const int OffsetDitta, const bool modulaser);
|
||||||
|
|
||||||
|
public:
|
||||||
|
TStampaBusta(const char* quadro, char livel);
|
||||||
|
virtual ~TStampaBusta() { }
|
||||||
|
};
|
||||||
|
|
||||||
|
TStampaBusta::TStampaBusta(const char* quadro, char livel)
|
||||||
|
: TStampaQuadro(quadro, livel), _form(NULL)
|
||||||
|
{
|
||||||
|
set_taitol("Stampa buste");
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TStampaBusta::user_create()
|
||||||
|
{
|
||||||
|
_form = new TBusta("77Busta", quadro());
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TStampaBusta::user_destroy()
|
||||||
|
{
|
||||||
|
delete _form;
|
||||||
|
_form = NULL;
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TStampaBusta::print_quadro(const int OffsetDitta, const bool modulaser)
|
||||||
|
{
|
||||||
|
TDicForm* ff = get_form();
|
||||||
|
ff->set_cursor(get_cursor());
|
||||||
|
|
||||||
|
// Setta formlen prima di printer.open per avere la lunghezza giusta nel caso di stampa a video
|
||||||
|
printer().formlen(ff->height());
|
||||||
|
bool ok = printer().open();
|
||||||
|
|
||||||
|
ff->set_modulaser(modulaser);
|
||||||
|
|
||||||
|
ff->set_arrange(FALSE);
|
||||||
|
ff->set_posiziona(TRUE);
|
||||||
|
|
||||||
|
int start = 0, last = 0;
|
||||||
|
if (OffsetDitta >= 0)
|
||||||
|
{
|
||||||
|
start = OffsetDitta;
|
||||||
|
last = OffsetDitta;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
last = ditte().items() - 1;
|
||||||
|
|
||||||
|
for (int i = start; i <= last; i++)
|
||||||
|
{
|
||||||
|
TToken_string& riga = ditte()[i];
|
||||||
|
const long codditta = riga.get_long(0);
|
||||||
|
const TipoDitta tipo = (TipoDitta)riga.get_int();
|
||||||
|
if (tipo != estinto)
|
||||||
|
ff->print(codditta, 0, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
printer().close();
|
||||||
|
return ok;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////////////////
|
/////////////////////////////////////////////////////////////////////////////////
|
||||||
// Quadro C
|
// Quadro C
|
||||||
/////////////////////////////////////////////////////////////////////////////////
|
/////////////////////////////////////////////////////////////////////////////////
|
||||||
@ -5220,7 +5348,11 @@ int stampa_quadro(int argc, char* argv[])
|
|||||||
}
|
}
|
||||||
else if (quadro[0] == 'B' && quadro[1] != 'a')
|
else if (quadro[0] == 'B' && quadro[1] != 'a')
|
||||||
{
|
{
|
||||||
app = new TStampaQuadroB(quadro, livello);
|
switch (quadro[1])
|
||||||
|
{
|
||||||
|
case 'U': app = new TStampaBusta(quadro, livello); break;
|
||||||
|
default : app = new TStampaQuadroB(quadro, livello); break;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
else if (quadro == "F")
|
else if (quadro == "F")
|
||||||
{
|
{
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user