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
|
||||
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 11 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 122 7 ""
|
||||
FIELD 56->CONNEFF21
|
||||
END
|
||||
|
||||
STRINGA 22
|
||||
BEGIN
|
||||
KEY "TIPO CONGUAGLIO"
|
||||
PROMPT 129 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 101 9 ""
|
||||
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
|
||||
|
||||
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
|
||||
|
||||
918
m770/77qa2.frm
918
m770/77qa2.frm
@ -1,450 +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)
|
||||
|
||||
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 51 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
|
||||
|
||||
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
|
||||
|
||||
820
m770/77qa3.frm
820
m770/77qa3.frm
@ -1,388 +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)
|
||||
|
||||
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@
|
||||
END
|
||||
|
||||
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
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "RAGIONE SOCIALE"
|
||||
PROMPT 40 13 ""
|
||||
GROUP 2
|
||||
FIELD 106@->RAGSOC
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 40 13 ""
|
||||
GROUP 1
|
||||
FIELD 106@->RAGSOC[1,30]
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 17 15 ""
|
||||
GROUP 1
|
||||
FIELD 106@->RAGSOC[31,50]
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 59 15 ""
|
||||
GROUP 1
|
||||
FIELD 108@->SESSO
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 67 15 ""
|
||||
GROUP 1
|
||||
FIELD 108@->DATANASC
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 84 15 ""
|
||||
GROUP 1
|
||||
FIELD 113@->DENCOM
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 126 15 ""
|
||||
GROUP 1
|
||||
FIELD 113@->PROVCOM
|
||||
GROUP 10
|
||||
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
|
||||
|
||||
STRINGA 13
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
||||
PROMPT 87 20 ""
|
||||
END
|
||||
|
||||
NUMERO 14
|
||||
BEGIN
|
||||
KEY "NUM. FOGLIO"
|
||||
PROMPT 125 25 ""
|
||||
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 ""
|
||||
GROUP 2
|
||||
FIELD 102->DENOMIN
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 104
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 39 12 ""
|
||||
GROUP 1
|
||||
FIELD 102->DENOMIN
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 105
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 17 14 ""
|
||||
GROUP 1
|
||||
FIELD 102->NOME
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 106
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 58 14 ""
|
||||
GROUP 1
|
||||
FIELD 102->SESSO
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 107
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 67 14 ""
|
||||
GROUP 1
|
||||
FIELD 102->DATANAS
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 108
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 84 14 ""
|
||||
GROUP 1
|
||||
FIELD 102->COMNAS
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 109
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 125 14 ""
|
||||
GROUP 1
|
||||
FIELD 102->PROVNAS
|
||||
GROUP 20
|
||||
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
|
||||
|
||||
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 30 5 ""
|
||||
FIELD 58->NGINC15
|
||||
END
|
||||
|
||||
NUMERO 10
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 42 5 ""
|
||||
MESSAGE ADD,FL->10
|
||||
PICTURE "###.###.###.###^^^"
|
||||
FIELD 58->REDCOR16
|
||||
END
|
||||
|
||||
NUMERO 11
|
||||
BEGIN
|
||||
KEY "NUMERO GIORNI IN INCREMENTO"
|
||||
PROMPT 64 5 ""
|
||||
FIELD 58->NGINC17
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 76 5 ""
|
||||
MESSAGE ADD,FL->12
|
||||
PICTURE "###.###.###.###^^^"
|
||||
FIELD 58->REDCOR18
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER LAST 2
|
||||
|
||||
NUMERO 10
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 42 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 76 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
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
|
||||
|
||||
@ -674,6 +674,13 @@ BEGIN
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "FIRMA"
|
||||
PROMPT 83 23 ""
|
||||
FIELD 106@->RAGSOC
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
160
m770/77stq.cpp
160
m770/77stq.cpp
@ -136,9 +136,6 @@ class TDicForm : public TForm
|
||||
int _RigaCorr; // contatore riga corrente
|
||||
TString16 _quadro; // codice quadro in stampa
|
||||
|
||||
virtual TCursor* cursor() const { return _cur; }
|
||||
virtual TRelation* relation() const { return _cur->relation(); }
|
||||
|
||||
void stampa_testata(TPrinter& pr);
|
||||
virtual void stampa_totali(TPrinter& pr);
|
||||
// virtual void aggiorna_totali(const char tipo);
|
||||
@ -153,6 +150,8 @@ class TDicForm : public TForm
|
||||
virtual bool InitPrint(const long codditta);
|
||||
|
||||
public:
|
||||
virtual TCursor* cursor() const { return _cur; }
|
||||
virtual TRelation* relation() const { return _cur->relation(); }
|
||||
|
||||
virtual long filtra(const long codditta);
|
||||
|
||||
@ -200,7 +199,8 @@ TCursor& TDicForm::cur()
|
||||
}
|
||||
|
||||
void TDicForm::set_cursor(TCursor* cur)
|
||||
{
|
||||
{
|
||||
CHECK(cur, "NULL cursor in TDicForm");
|
||||
_cur = cur;
|
||||
}
|
||||
|
||||
@ -1553,6 +1553,8 @@ protected:
|
||||
bool singola_ditta() const { return _livello == 'D'; }
|
||||
const TString& quadro() const { return _quadro; }
|
||||
|
||||
void set_taitol(const char* t) { _title = t; }
|
||||
|
||||
TStampaQuadro(const char* quad, char liv);
|
||||
|
||||
public:
|
||||
@ -3854,6 +3856,10 @@ public:
|
||||
void reset_deceduto() { _codice_deceduto = -_codice_deceduto; }
|
||||
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);
|
||||
virtual ~TDipendente() { }
|
||||
};
|
||||
@ -3889,9 +3895,6 @@ TDipendente::TDipendente(const TCursor& cur)
|
||||
|
||||
if (_rettifica_conguaglio == 'B' || !_fine_rapporto.ok())
|
||||
_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)
|
||||
{
|
||||
bool stampero_ultimo = stampato_ultimo == FALSE;
|
||||
bool stampero_ultimo = (stampato_ultimo == FALSE);
|
||||
if (stampero_ultimo)
|
||||
{
|
||||
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;
|
||||
}
|
||||
|
||||
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)
|
||||
{
|
||||
case PRIMA:
|
||||
@ -4194,8 +4216,8 @@ bool TQuadroA::print(const long codditta, const long NumFis, const long NumNoFis
|
||||
class TStampaQuadroA : public TStampaQuadro
|
||||
{
|
||||
protected:
|
||||
TQuadroA* _form;
|
||||
TSorted_cursor* _cur;
|
||||
TDicForm* _form;
|
||||
TCursor* _cur;
|
||||
|
||||
protected:
|
||||
virtual bool user_create();
|
||||
@ -4222,9 +4244,12 @@ bool TStampaQuadroA::user_create()
|
||||
}
|
||||
|
||||
bool TStampaQuadroA::user_destroy()
|
||||
{
|
||||
delete _cur;
|
||||
delete _form;
|
||||
{
|
||||
if (_cur)
|
||||
delete _cur;
|
||||
|
||||
if (_form)
|
||||
delete _form;
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
@ -4429,6 +4454,109 @@ bool TStampaQuadroB::user_create()
|
||||
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
|
||||
/////////////////////////////////////////////////////////////////////////////////
|
||||
@ -5220,7 +5348,11 @@ int stampa_quadro(int argc, char* argv[])
|
||||
}
|
||||
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")
|
||||
{
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user