Corrette stampe dei quadri A?
git-svn-id: svn://10.65.10.50/trunk@3629 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
d588908f71
commit
feaeb40e8b
2280
m770/77qa.frm
2280
m770/77qa.frm
File diff suppressed because it is too large
Load Diff
936
m770/77qa2.frm
936
m770/77qa2.frm
@ -1,468 +1,468 @@
|
||||
USE 57
|
||||
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
||||
JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
|
||||
JOIN 9 INTO CODDITTA=CODDITTA
|
||||
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
||||
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
||||
JOIN 36 INTO CODDITTA=CODDITTA
|
||||
|
||||
END
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
57->* "Quadro A2 770"
|
||||
45->* "Anagrafica dei dipendenti"
|
||||
104@->* "Tabella CAAF"
|
||||
9->* "Ditte"
|
||||
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
||||
108@->* "Anagrafica persone fisiche (ditta)"
|
||||
113@->* "Comuni DITTA (nascita)"
|
||||
213@->* "Comuni DITTA (residenza)"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT "Courier New"
|
||||
SIZE 11
|
||||
CARATTERE "X"
|
||||
INIZIO_POS 3 2
|
||||
FINE_POS 131
|
||||
GRID "+++++++++-|"
|
||||
END
|
||||
|
||||
SECTION HEADER FIRST 28
|
||||
|
||||
LISTA 1
|
||||
BEGIN
|
||||
KEY "Tipo anagrafica"
|
||||
FLAGS "H"
|
||||
FIELD 106@->TIPOA
|
||||
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
|
||||
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 3 13 ""
|
||||
FIELD 106@->COFI
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "RAGIONE SOCIALE"
|
||||
PROMPT 40 13 ""
|
||||
GROUP 2
|
||||
FIELD 106@->RAGSOC
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 40 13 ""
|
||||
GROUP 1
|
||||
FIELD 106@->RAGSOC[1,30]
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 17 15 ""
|
||||
GROUP 1
|
||||
FIELD 106@->RAGSOC[31,50]
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 59 15 ""
|
||||
GROUP 1
|
||||
FIELD 108@->SESSO
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 67 15 ""
|
||||
GROUP 1
|
||||
FIELD 108@->DATANASC
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 84 15 ""
|
||||
GROUP 1
|
||||
FIELD 113@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 125 15 ""
|
||||
GROUP 1
|
||||
FIELD 113@->PROVCOM
|
||||
END
|
||||
|
||||
STRINGA 10
|
||||
BEGIN
|
||||
KEY "COMUNE DI RES.FISCALE"
|
||||
PROMPT 17 17 ""
|
||||
FIELD 213@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA 11
|
||||
BEGIN
|
||||
KEY "PROV DI RES.FISCALE"
|
||||
PROMPT 59 17 ""
|
||||
FIELD 213@->PROVCOM
|
||||
END
|
||||
|
||||
STRINGA 12
|
||||
BEGIN
|
||||
KEY "VIA di RES."
|
||||
PROMPT 66 17 ""
|
||||
FIELD 106@->INDRF
|
||||
FIELD 106@->INDRES
|
||||
END
|
||||
|
||||
STRINGA 15
|
||||
BEGIN
|
||||
KEY "NUM. CIVICO di RES."
|
||||
PROMPT 104 17 ""
|
||||
FIELD 106@->CIVRF
|
||||
FIELD 106@->CIVRES
|
||||
END
|
||||
|
||||
STRINGA 16
|
||||
BEGIN
|
||||
KEY "CAP"
|
||||
PROMPT 123 17 ""
|
||||
FIELD 106@->CAPRF
|
||||
FIELD 106@->CAPRES
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
||||
PROMPT 87 20 ""
|
||||
END
|
||||
|
||||
NUMERO 14
|
||||
BEGIN
|
||||
KEY "NUM. FOGLIO"
|
||||
PROMPT 125 23 ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY ODD 10
|
||||
|
||||
STRINGA 1
|
||||
BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 11 1 ""
|
||||
FIELD 45->CODFI
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 43 1 ""
|
||||
FIELD 45->COGNOME
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 80 1 ""
|
||||
FIELD 45->NOME
|
||||
END
|
||||
|
||||
DATA 4
|
||||
BEGIN
|
||||
KEY "DATA NASCITA"
|
||||
PROMPT 114 1 ""
|
||||
FIELD 45->DATANA
|
||||
FORMAT "1444-"
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 128 1 ""
|
||||
FIELD 45->SESSO
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 11 3 ""
|
||||
FIELD 45->COMUNENA
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 48 3 ""
|
||||
FIELD 45->PROVNA
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "CONGUAGLI NON EFFETTUATI"
|
||||
PROMPT 16 5 ""
|
||||
FIELD 57->CONEFF
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
BEGIN
|
||||
KEY "RETTIFICA CONGUAGLIO"
|
||||
PROMPT 31 5 ""
|
||||
FIELD 57->RETCON
|
||||
END
|
||||
|
||||
NUMERO 10
|
||||
BEGIN
|
||||
KEY "IMPOSTA RIMBORSATA"
|
||||
PROMPT 39 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->10
|
||||
FIELD 57->SIRPEFRIMB
|
||||
END
|
||||
|
||||
NUMERO 11
|
||||
BEGIN
|
||||
KEY "IMPOSTA VERSATA"
|
||||
PROMPT 54 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->11
|
||||
FIELD 57->VIRPEF
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 70 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->12
|
||||
FIELD 57->INTIRPEF
|
||||
END
|
||||
|
||||
NUMERO 13
|
||||
BEGIN
|
||||
KEY "IMPOSTA VERSATA"
|
||||
PROMPT 85 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->13
|
||||
FIELD 57->AIRPEFIV
|
||||
END
|
||||
|
||||
NUMERO 14
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 100 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->14
|
||||
FIELD 57->AIRPEFINT
|
||||
END
|
||||
|
||||
NUMERO 15
|
||||
BEGIN
|
||||
KEY "SOPRATTASSA SU IRPEF"
|
||||
PROMPT 115 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->15
|
||||
FIELD 57->STASSA15
|
||||
END
|
||||
|
||||
NUMERO 16
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO A RIMBORSO"
|
||||
PROMPT 8 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->16
|
||||
FIELD 57->CONTR16
|
||||
END
|
||||
|
||||
NUMERO 17
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO VERSATO"
|
||||
PROMPT 23 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->17
|
||||
FIELD 57->CONTRVER
|
||||
END
|
||||
|
||||
NUMERO 18
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 39 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->18
|
||||
FIELD 57->INTER18
|
||||
END
|
||||
|
||||
NUMERO 19
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO VERSATO"
|
||||
PROMPT 54 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->19
|
||||
FIELD 57->CONTV19
|
||||
END
|
||||
|
||||
NUMERO 20
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 70 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->20
|
||||
FIELD 57->INTE20
|
||||
END
|
||||
|
||||
NUMERO 21
|
||||
BEGIN
|
||||
KEY "SOPRATTASSA SU CSSN"
|
||||
PROMPT 85 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->21
|
||||
FIELD 57->SOPRAT21
|
||||
END
|
||||
|
||||
NUMERO 22
|
||||
BEGIN
|
||||
KEY "MOD. 730/95 NON LIQUIDABILE"
|
||||
PROMPT 108 7 ""
|
||||
FIELD 57->M730NLIQ
|
||||
END
|
||||
|
||||
STRINGA 23
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE CAAF"
|
||||
PROMPT 11 9 ""
|
||||
FIELD 104@->S1
|
||||
END
|
||||
|
||||
STRINGA 24
|
||||
BEGIN
|
||||
KEY "DENOMINAZIONE CAAF"
|
||||
PROMPT 44 9 ""
|
||||
FIELD 104@->S0
|
||||
END
|
||||
|
||||
NUMERO 25
|
||||
BEGIN
|
||||
KEY "NUMERO ISCRIZIONE ALBO"
|
||||
PROMPT 119 9 ""
|
||||
FIELD 104@->I1
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER LAST 4
|
||||
|
||||
NUMERO 10
|
||||
BEGIN
|
||||
KEY "IMPOSTA RIMBORSATA"
|
||||
PROMPT 39 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 11
|
||||
BEGIN
|
||||
KEY "IMPOSTA VERSATA"
|
||||
PROMPT 54 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 70 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 13
|
||||
BEGIN
|
||||
KEY "IMPOSTA VERSATA"
|
||||
PROMPT 85 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 14
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 100 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 15
|
||||
BEGIN
|
||||
KEY "SOPRATTASSA SU IRPEF"
|
||||
PROMPT 115 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 16
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO A RIMBORSO"
|
||||
PROMPT 8 3 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 17
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO VERSATO"
|
||||
PROMPT 23 3 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 18
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 39 3 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 19
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO VERSATO"
|
||||
PROMPT 54 3 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 20
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 70 3 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 21
|
||||
BEGIN
|
||||
KEY "SOPRATTASSA SU CSSN"
|
||||
PROMPT 85 3 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 730
|
||||
BEGIN
|
||||
KEY "NUMERO MOD.730"
|
||||
PROMPT 20 5 ""
|
||||
PICTURE "######"
|
||||
FIELD 36->N730ALLA2
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "FIRMA"
|
||||
PROMPT 83 9 ""
|
||||
FIELD 106@->RAGSOC
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
USE 57
|
||||
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
||||
JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
|
||||
JOIN 9 INTO CODDITTA=CODDITTA
|
||||
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
||||
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
||||
JOIN 36 INTO CODDITTA=CODDITTA
|
||||
|
||||
END
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
57->* "Quadro A2 770"
|
||||
45->* "Anagrafica dei dipendenti"
|
||||
104@->* "Tabella CAAF"
|
||||
9->* "Ditte"
|
||||
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
||||
108@->* "Anagrafica persone fisiche (ditta)"
|
||||
113@->* "Comuni DITTA (nascita)"
|
||||
213@->* "Comuni DITTA (residenza)"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT "Courier New"
|
||||
SIZE 11
|
||||
CARATTERE "X"
|
||||
INIZIO_POS 3 2
|
||||
FINE_POS 131
|
||||
GRID "+++++++++-|"
|
||||
END
|
||||
|
||||
SECTION HEADER FIRST 28
|
||||
|
||||
LISTA 1
|
||||
BEGIN
|
||||
KEY "Tipo anagrafica"
|
||||
FLAGS "H"
|
||||
FIELD 106@->TIPOA
|
||||
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
|
||||
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 3 13 ""
|
||||
FIELD 106@->COFI
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "RAGIONE SOCIALE"
|
||||
PROMPT 40 13 ""
|
||||
GROUP 2
|
||||
FIELD 106@->RAGSOC
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 40 13 ""
|
||||
GROUP 1
|
||||
FIELD 106@->RAGSOC[1,30]
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 17 15 ""
|
||||
GROUP 1
|
||||
FIELD 106@->RAGSOC[31,50]
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 59 15 ""
|
||||
GROUP 1
|
||||
FIELD 108@->SESSO
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 67 15 ""
|
||||
GROUP 1
|
||||
FIELD 108@->DATANASC
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 84 15 ""
|
||||
GROUP 1
|
||||
FIELD 113@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 125 15 ""
|
||||
GROUP 1
|
||||
FIELD 113@->PROVCOM
|
||||
END
|
||||
|
||||
STRINGA 10
|
||||
BEGIN
|
||||
KEY "COMUNE DI RES.FISCALE"
|
||||
PROMPT 17 17 ""
|
||||
FIELD 213@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA 11
|
||||
BEGIN
|
||||
KEY "PROV DI RES.FISCALE"
|
||||
PROMPT 59 17 ""
|
||||
FIELD 213@->PROVCOM
|
||||
END
|
||||
|
||||
STRINGA 12
|
||||
BEGIN
|
||||
KEY "VIA di RES."
|
||||
PROMPT 66 17 ""
|
||||
FIELD 106@->INDRF
|
||||
FIELD 106@->INDRES
|
||||
END
|
||||
|
||||
STRINGA 15
|
||||
BEGIN
|
||||
KEY "NUM. CIVICO di RES."
|
||||
PROMPT 104 17 ""
|
||||
FIELD 106@->CIVRF
|
||||
FIELD 106@->CIVRES
|
||||
END
|
||||
|
||||
STRINGA 16
|
||||
BEGIN
|
||||
KEY "CAP"
|
||||
PROMPT 123 17 ""
|
||||
FIELD 106@->CAPRF
|
||||
FIELD 106@->CAPRES
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
||||
PROMPT 87 20 ""
|
||||
END
|
||||
|
||||
NUMERO 14
|
||||
BEGIN
|
||||
KEY "NUM. FOGLIO"
|
||||
PROMPT 125 23 ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY ODD 10
|
||||
|
||||
STRINGA 1
|
||||
BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 11 1 ""
|
||||
FIELD 45->CODFI
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 43 1 ""
|
||||
FIELD 45->COGNOME
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 80 1 ""
|
||||
FIELD 45->NOME
|
||||
END
|
||||
|
||||
DATA 4
|
||||
BEGIN
|
||||
KEY "DATA NASCITA"
|
||||
PROMPT 114 1 ""
|
||||
FIELD 45->DATANA
|
||||
FORMAT "1444-"
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 128 1 ""
|
||||
FIELD 45->SESSO
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 11 3 ""
|
||||
FIELD 45->COMUNENA
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 48 3 ""
|
||||
FIELD 45->PROVNA
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "CONGUAGLI NON EFFETTUATI"
|
||||
PROMPT 16 5 ""
|
||||
FIELD 57->CONEFF
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
BEGIN
|
||||
KEY "RETTIFICA CONGUAGLIO"
|
||||
PROMPT 31 5 ""
|
||||
FIELD 57->RETCON
|
||||
END
|
||||
|
||||
NUMERO 10
|
||||
BEGIN
|
||||
KEY "IMPOSTA RIMBORSATA"
|
||||
PROMPT 39 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->10
|
||||
FIELD 57->SIRPEFRIMB
|
||||
END
|
||||
|
||||
NUMERO 11
|
||||
BEGIN
|
||||
KEY "IMPOSTA VERSATA"
|
||||
PROMPT 54 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->11
|
||||
FIELD 57->VIRPEF
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 70 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->12
|
||||
FIELD 57->INTIRPEF
|
||||
END
|
||||
|
||||
NUMERO 13
|
||||
BEGIN
|
||||
KEY "IMPOSTA VERSATA"
|
||||
PROMPT 85 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->13
|
||||
FIELD 57->AIRPEFIV
|
||||
END
|
||||
|
||||
NUMERO 14
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 100 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->14
|
||||
FIELD 57->AIRPEFINT
|
||||
END
|
||||
|
||||
NUMERO 15
|
||||
BEGIN
|
||||
KEY "SOPRATTASSA SU IRPEF"
|
||||
PROMPT 115 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->15
|
||||
FIELD 57->STASSA15
|
||||
END
|
||||
|
||||
NUMERO 16
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO A RIMBORSO"
|
||||
PROMPT 8 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->16
|
||||
FIELD 57->CONTR16
|
||||
END
|
||||
|
||||
NUMERO 17
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO VERSATO"
|
||||
PROMPT 23 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->17
|
||||
FIELD 57->CONTRVER
|
||||
END
|
||||
|
||||
NUMERO 18
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 39 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->18
|
||||
FIELD 57->INTER18
|
||||
END
|
||||
|
||||
NUMERO 19
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO VERSATO"
|
||||
PROMPT 54 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->19
|
||||
FIELD 57->CONTV19
|
||||
END
|
||||
|
||||
NUMERO 20
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 70 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->20
|
||||
FIELD 57->INTE20
|
||||
END
|
||||
|
||||
NUMERO 21
|
||||
BEGIN
|
||||
KEY "SOPRATTASSA SU CSSN"
|
||||
PROMPT 85 7 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
MESSAGE ADD,FL->21
|
||||
FIELD 57->SOPRAT21
|
||||
END
|
||||
|
||||
NUMERO 22
|
||||
BEGIN
|
||||
KEY "MOD. 730/95 NON LIQUIDABILE"
|
||||
PROMPT 108 7 ""
|
||||
FIELD 57->M730NLIQ
|
||||
END
|
||||
|
||||
STRINGA 23
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE CAAF"
|
||||
PROMPT 11 9 ""
|
||||
FIELD 104@->S1
|
||||
END
|
||||
|
||||
STRINGA 24
|
||||
BEGIN
|
||||
KEY "DENOMINAZIONE CAAF"
|
||||
PROMPT 44 9 ""
|
||||
FIELD 104@->S0
|
||||
END
|
||||
|
||||
NUMERO 25
|
||||
BEGIN
|
||||
KEY "NUMERO ISCRIZIONE ALBO"
|
||||
PROMPT 125 9 ""
|
||||
FIELD 104@->I1
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER LAST 4
|
||||
|
||||
NUMERO 10
|
||||
BEGIN
|
||||
KEY "IMPOSTA RIMBORSATA"
|
||||
PROMPT 39 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 11
|
||||
BEGIN
|
||||
KEY "IMPOSTA VERSATA"
|
||||
PROMPT 54 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 70 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 13
|
||||
BEGIN
|
||||
KEY "IMPOSTA VERSATA"
|
||||
PROMPT 85 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 14
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 100 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 15
|
||||
BEGIN
|
||||
KEY "SOPRATTASSA SU IRPEF"
|
||||
PROMPT 115 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 16
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO A RIMBORSO"
|
||||
PROMPT 8 3 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 17
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO VERSATO"
|
||||
PROMPT 23 3 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 18
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 39 3 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 19
|
||||
BEGIN
|
||||
KEY "CONTRIBUTO VERSATO"
|
||||
PROMPT 54 3 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 20
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 70 3 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 21
|
||||
BEGIN
|
||||
KEY "SOPRATTASSA SU CSSN"
|
||||
PROMPT 85 3 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 730
|
||||
BEGIN
|
||||
KEY "NUMERO MOD.730"
|
||||
PROMPT 20 5 ""
|
||||
PICTURE "######"
|
||||
FIELD 36->N730ALLA2
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "FIRMA"
|
||||
PROMPT 83 9 ""
|
||||
FIELD 106@->RAGSOC
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
864
m770/77qa3.frm
864
m770/77qa3.frm
@ -1,432 +1,432 @@
|
||||
USE 58
|
||||
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
||||
JOIN 9 INTO CODDITTA=CODDITTA
|
||||
JOIN 102 INTO CODDITTA=CODDITTA
|
||||
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
||||
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
||||
JOIN 37 INTO CODDITTA=CODDITTA
|
||||
END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
58->* "Quadro A3 770"
|
||||
45->* "Anagrafica dei dipendenti"
|
||||
9->* "Ditte"
|
||||
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
||||
108@->* "Anagrafica persone fisiche (ditta)"
|
||||
113@->* "Comuni DITTA (nascita)"
|
||||
213@->* "Comuni DITTA (residenza)"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT "Courier New"
|
||||
SIZE 11
|
||||
CARATTERE "X"
|
||||
INIZIO_POS 3 2
|
||||
FINE_POS 131
|
||||
GRID "+++++++++-|"
|
||||
END
|
||||
|
||||
SECTION HEADER FIRST 28
|
||||
|
||||
LISTA 100
|
||||
BEGIN
|
||||
KEY "Ditta trasformata"
|
||||
FLAGS "H"
|
||||
ITEM "1|Normale" MESSAGE ENABLE,10@|DISABLE,20@
|
||||
ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@
|
||||
FIELD 58->NPROG
|
||||
END
|
||||
|
||||
LISTA 1
|
||||
BEGIN
|
||||
KEY "Tipo anagrafica"
|
||||
FLAGS "H"
|
||||
FIELD 106@->TIPOA
|
||||
ITEM "F|Fisica" MESSAGE SHOW,11@|HIDE,12@
|
||||
ITEM "G|Giuridica" MESSAGE SHOW,12@|HIDE,11@
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 3 13 ""
|
||||
FIELD 106@->COFI
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "RAGIONE SOCIALE"
|
||||
PROMPT 40 13 ""
|
||||
FIELD 106@->RAGSOC
|
||||
GROUP 10 12
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 40 13 ""
|
||||
FIELD 106@->RAGSOC[1,30]
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 17 15 ""
|
||||
FIELD 106@->RAGSOC[31,50]
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 59 15 ""
|
||||
FIELD 108@->SESSO
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 67 15 ""
|
||||
FIELD 108@->DATANASC
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 84 15 ""
|
||||
FIELD 113@->DENCOM
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 126 15 ""
|
||||
FIELD 113@->PROVCOM
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 10
|
||||
BEGIN
|
||||
KEY "COMUNE DI RES.FISCALE"
|
||||
PROMPT 17 17 ""
|
||||
FIELD 213@->DENCOM
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 11
|
||||
BEGIN
|
||||
KEY "PROV DI RES.FISCALE"
|
||||
PROMPT 59 17 ""
|
||||
FIELD 213@->PROVCOM
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 12
|
||||
BEGIN
|
||||
KEY "VIA di RES."
|
||||
PROMPT 67 17 ""
|
||||
FIELD 106@->INDRF
|
||||
FIELD 106@->INDRES
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 15
|
||||
BEGIN
|
||||
KEY "NUM. CIVICO di RES."
|
||||
PROMPT 104 17 ""
|
||||
FIELD 106@->CIVRF
|
||||
FIELD 106@->CIVRES
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 16
|
||||
BEGIN
|
||||
KEY "CAP"
|
||||
PROMPT 123 17 ""
|
||||
FIELD 106@->CAPRF
|
||||
FIELD 106@->CAPRES
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
LISTA 101
|
||||
BEGIN
|
||||
KEY "Tipo anagrafica"
|
||||
FLAGS "H"
|
||||
FIELD 106@->TIPOA
|
||||
ITEM "F|Fisica" MESSAGE SHOW,21@|HIDE,22@
|
||||
ITEM "G|Giuridica" MESSAGE SHOW,22@|HIDE,21@
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 102
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 3 12 ""
|
||||
FIELD 102->CODFISC
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 103
|
||||
BEGIN
|
||||
KEY "RAGIONE SOCIALE"
|
||||
PROMPT 39 12 ""
|
||||
FIELD 102->DENOMIN
|
||||
GROUP 20 22
|
||||
END
|
||||
|
||||
STRINGA 104
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 39 12 ""
|
||||
FIELD 102->DENOMIN
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 105
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 17 14 ""
|
||||
FIELD 102->NOME
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 106
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 58 14 ""
|
||||
FIELD 102->SESSO
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 107
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 67 14 ""
|
||||
FIELD 102->DATANAS
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 108
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 84 14 ""
|
||||
FIELD 102->COMNAS
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 109
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 125 14 ""
|
||||
FIELD 102->PROVNAS
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 110
|
||||
BEGIN
|
||||
KEY "COMUNE DI RES.FISCALE"
|
||||
PROMPT 17 16 ""
|
||||
FIELD 102->COMDOM
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 111
|
||||
BEGIN
|
||||
KEY "PROV DI RES.FISCALE"
|
||||
PROMPT 59 16 ""
|
||||
FIELD 102->PROVDOM
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 112
|
||||
BEGIN
|
||||
KEY "VIA di RES."
|
||||
PROMPT 66 16 ""
|
||||
FIELD 102->INDDOM
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
||||
PROMPT 87 20 ""
|
||||
END
|
||||
|
||||
NUMERO 15
|
||||
BEGIN
|
||||
KEY "CONSISTENZA BASE OCCUPAZIONALE AL 12/06/94"
|
||||
PROMPT 56 22 ""
|
||||
PICTURE "###.###"
|
||||
FIELD 37->CONSBASOCC
|
||||
END
|
||||
|
||||
NUMERO 16
|
||||
BEGIN
|
||||
KEY "LAVORATORI DIPENDENTI IN MOBILITA'"
|
||||
PROMPT 56 23 ""
|
||||
PICTURE "###.###"
|
||||
FIELD 37->LAVDIPCIN
|
||||
END
|
||||
|
||||
DATA 17
|
||||
BEGIN
|
||||
KEY "PERIODO D'IMPOSTA (DAL)"
|
||||
PROMPT 96 23 ""
|
||||
FORMAT "1442 "
|
||||
FIELD 37->PIMPINI
|
||||
END
|
||||
|
||||
DATA 18
|
||||
BEGIN
|
||||
KEY "PERIODO D'IMPOSTA (AL)"
|
||||
PROMPT 117 23 ""
|
||||
FORMAT "1442 "
|
||||
FIELD 37->PIMPFINE
|
||||
END
|
||||
|
||||
|
||||
NUMERO 14
|
||||
BEGIN
|
||||
KEY "NUM. FOGLIO"
|
||||
PROMPT 125 25 ""
|
||||
END
|
||||
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY ODD 6
|
||||
|
||||
STRINGA 1
|
||||
BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 11 1 ""
|
||||
FIELD 45->CODFI
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 42 1 ""
|
||||
FIELD 45->COGNOME
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 79 1 ""
|
||||
FIELD 45->NOME
|
||||
END
|
||||
|
||||
DATA 4
|
||||
BEGIN
|
||||
KEY "DATA NASCITA"
|
||||
PROMPT 114 1 ""
|
||||
FIELD 45->DATANA
|
||||
FORMAT "1444-"
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 128 1 ""
|
||||
FIELD 45->SESSO
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 11 3 ""
|
||||
FIELD 45->COMUNENA
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "PROV DI NASCITA"
|
||||
PROMPT 47 3 ""
|
||||
FIELD 45->PROVNA
|
||||
END
|
||||
|
||||
DATA 8
|
||||
BEGIN
|
||||
KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO"
|
||||
PROMPT 11 5 ""
|
||||
FIELD 58->DIRAPTI
|
||||
FORMAT "1444-"
|
||||
PICTURE "## ^ ##^^^##"
|
||||
END
|
||||
|
||||
NUMERO 9
|
||||
BEGIN
|
||||
KEY "NUMERO GIORNI IN INCREMENTO"
|
||||
PROMPT 35 5 ""
|
||||
PICTURE "######"
|
||||
FIELD 58->NGINC15
|
||||
END
|
||||
|
||||
NUMERO 10
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 43 5 ""
|
||||
MESSAGE ADD,FL->10
|
||||
PICTURE "###.###.###.###^^^"
|
||||
FIELD 58->REDCOR16
|
||||
END
|
||||
|
||||
NUMERO 11
|
||||
BEGIN
|
||||
KEY "NUMERO GIORNI IN INCREMENTO"
|
||||
PROMPT 69 5 ""
|
||||
PICTURE "######"
|
||||
FIELD 58->NGINC17
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 77 5 ""
|
||||
MESSAGE ADD,FL->12
|
||||
PICTURE "###.###.###.###^^^"
|
||||
FIELD 58->REDCOR18
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER LAST 2
|
||||
|
||||
NUMERO 10
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 43 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 77 5 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "FIRMA"
|
||||
PROMPT 83 8 ""
|
||||
FIELD 106@->RAGSOC
|
||||
END
|
||||
|
||||
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
USE 58
|
||||
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
||||
JOIN 9 INTO CODDITTA=CODDITTA
|
||||
JOIN 102 INTO CODDITTA=CODDITTA
|
||||
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
||||
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
||||
JOIN 37 INTO CODDITTA=CODDITTA
|
||||
END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
58->* "Quadro A3 770"
|
||||
45->* "Anagrafica dei dipendenti"
|
||||
9->* "Ditte"
|
||||
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
||||
108@->* "Anagrafica persone fisiche (ditta)"
|
||||
113@->* "Comuni DITTA (nascita)"
|
||||
213@->* "Comuni DITTA (residenza)"
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT "Courier New"
|
||||
SIZE 11
|
||||
CARATTERE "X"
|
||||
INIZIO_POS 3 2
|
||||
FINE_POS 131
|
||||
GRID "+++++++++-|"
|
||||
END
|
||||
|
||||
SECTION HEADER FIRST 28
|
||||
|
||||
LISTA 100
|
||||
BEGIN
|
||||
KEY "Ditta trasformata"
|
||||
FLAGS "H"
|
||||
ITEM "1|Normale" MESSAGE ENABLE,10@|DISABLE,20@
|
||||
ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@
|
||||
FIELD 58->NPROG
|
||||
END
|
||||
|
||||
LISTA 1
|
||||
BEGIN
|
||||
KEY "Tipo anagrafica"
|
||||
FLAGS "H"
|
||||
FIELD 106@->TIPOA
|
||||
ITEM "F|Fisica" MESSAGE SHOW,11@|HIDE,12@
|
||||
ITEM "G|Giuridica" MESSAGE SHOW,12@|HIDE,11@
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 3 13 ""
|
||||
FIELD 106@->COFI
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "RAGIONE SOCIALE"
|
||||
PROMPT 40 13 ""
|
||||
FIELD 106@->RAGSOC
|
||||
GROUP 10 12
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 40 13 ""
|
||||
FIELD 106@->RAGSOC[1,30]
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 17 15 ""
|
||||
FIELD 106@->RAGSOC[31,50]
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 59 15 ""
|
||||
FIELD 108@->SESSO
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 67 15 ""
|
||||
FIELD 108@->DATANASC
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 84 15 ""
|
||||
FIELD 113@->DENCOM
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 126 15 ""
|
||||
FIELD 113@->PROVCOM
|
||||
GROUP 10 11
|
||||
END
|
||||
|
||||
STRINGA 10
|
||||
BEGIN
|
||||
KEY "COMUNE DI RES.FISCALE"
|
||||
PROMPT 17 17 ""
|
||||
FIELD 213@->DENCOM
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 11
|
||||
BEGIN
|
||||
KEY "PROV DI RES.FISCALE"
|
||||
PROMPT 59 17 ""
|
||||
FIELD 213@->PROVCOM
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 12
|
||||
BEGIN
|
||||
KEY "VIA di RES."
|
||||
PROMPT 67 17 ""
|
||||
FIELD 106@->INDRF
|
||||
FIELD 106@->INDRES
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 15
|
||||
BEGIN
|
||||
KEY "NUM. CIVICO di RES."
|
||||
PROMPT 104 17 ""
|
||||
FIELD 106@->CIVRF
|
||||
FIELD 106@->CIVRES
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
STRINGA 16
|
||||
BEGIN
|
||||
KEY "CAP"
|
||||
PROMPT 123 17 ""
|
||||
FIELD 106@->CAPRF
|
||||
FIELD 106@->CAPRES
|
||||
GROUP 10
|
||||
END
|
||||
|
||||
LISTA 101
|
||||
BEGIN
|
||||
KEY "Tipo anagrafica"
|
||||
FLAGS "H"
|
||||
FIELD 106@->TIPOA
|
||||
ITEM "F|Fisica" MESSAGE SHOW,21@|HIDE,22@
|
||||
ITEM "G|Giuridica" MESSAGE SHOW,22@|HIDE,21@
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 102
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 3 12 ""
|
||||
FIELD 102->CODFISC
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 103
|
||||
BEGIN
|
||||
KEY "RAGIONE SOCIALE"
|
||||
PROMPT 39 12 ""
|
||||
FIELD 102->DENOMIN
|
||||
GROUP 20 22
|
||||
END
|
||||
|
||||
STRINGA 104
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 39 12 ""
|
||||
FIELD 102->DENOMIN
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 105
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 17 14 ""
|
||||
FIELD 102->NOME
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 106
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 58 14 ""
|
||||
FIELD 102->SESSO
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 107
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 67 14 ""
|
||||
FIELD 102->DATANAS
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 108
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 84 14 ""
|
||||
FIELD 102->COMNAS
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 109
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 125 14 ""
|
||||
FIELD 102->PROVNAS
|
||||
GROUP 20 21
|
||||
END
|
||||
|
||||
STRINGA 110
|
||||
BEGIN
|
||||
KEY "COMUNE DI RES.FISCALE"
|
||||
PROMPT 17 16 ""
|
||||
FIELD 102->COMDOM
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 111
|
||||
BEGIN
|
||||
KEY "PROV DI RES.FISCALE"
|
||||
PROMPT 59 16 ""
|
||||
FIELD 102->PROVDOM
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 112
|
||||
BEGIN
|
||||
KEY "VIA di RES."
|
||||
PROMPT 66 16 ""
|
||||
FIELD 102->INDDOM
|
||||
GROUP 20
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
||||
PROMPT 87 20 ""
|
||||
END
|
||||
|
||||
NUMERO 15
|
||||
BEGIN
|
||||
KEY "CONSISTENZA BASE OCCUPAZIONALE AL 12/06/94"
|
||||
PROMPT 56 22 ""
|
||||
PICTURE "###.###"
|
||||
FIELD 37->CONSBASOCC
|
||||
END
|
||||
|
||||
NUMERO 16
|
||||
BEGIN
|
||||
KEY "LAVORATORI DIPENDENTI IN MOBILITA'"
|
||||
PROMPT 56 23 ""
|
||||
PICTURE "###.###"
|
||||
FIELD 37->LAVDIPCIN
|
||||
END
|
||||
|
||||
DATA 17
|
||||
BEGIN
|
||||
KEY "PERIODO D'IMPOSTA (DAL)"
|
||||
PROMPT 96 23 ""
|
||||
FORMAT "1442 "
|
||||
FIELD 37->PIMPINI
|
||||
END
|
||||
|
||||
DATA 18
|
||||
BEGIN
|
||||
KEY "PERIODO D'IMPOSTA (AL)"
|
||||
PROMPT 117 23 ""
|
||||
FORMAT "1442 "
|
||||
FIELD 37->PIMPFINE
|
||||
END
|
||||
|
||||
|
||||
NUMERO 14
|
||||
BEGIN
|
||||
KEY "NUM. FOGLIO"
|
||||
PROMPT 125 25 ""
|
||||
END
|
||||
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY ODD 6
|
||||
|
||||
STRINGA 1
|
||||
BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 11 1 ""
|
||||
FIELD 45->CODFI
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 42 1 ""
|
||||
FIELD 45->COGNOME
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 79 1 ""
|
||||
FIELD 45->NOME
|
||||
END
|
||||
|
||||
DATA 4
|
||||
BEGIN
|
||||
KEY "DATA NASCITA"
|
||||
PROMPT 114 1 ""
|
||||
FIELD 45->DATANA
|
||||
FORMAT "1444-"
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 128 1 ""
|
||||
FIELD 45->SESSO
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 11 3 ""
|
||||
FIELD 45->COMUNENA
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "PROV DI NASCITA"
|
||||
PROMPT 47 3 ""
|
||||
FIELD 45->PROVNA
|
||||
END
|
||||
|
||||
DATA 8
|
||||
BEGIN
|
||||
KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO"
|
||||
PROMPT 11 5 ""
|
||||
FIELD 58->DIRAPTI
|
||||
FORMAT "1444-"
|
||||
PICTURE "## ^ ##^^^##"
|
||||
END
|
||||
|
||||
NUMERO 9
|
||||
BEGIN
|
||||
KEY "NUMERO GIORNI IN INCREMENTO"
|
||||
PROMPT 35 5 ""
|
||||
PICTURE "######"
|
||||
FIELD 58->NGINC15
|
||||
END
|
||||
|
||||
NUMERO 10
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 43 5 ""
|
||||
MESSAGE ADD,FL->10
|
||||
PICTURE "###.###.###.###^^^"
|
||||
FIELD 58->REDCOR16
|
||||
END
|
||||
|
||||
NUMERO 11
|
||||
BEGIN
|
||||
KEY "NUMERO GIORNI IN INCREMENTO"
|
||||
PROMPT 69 5 ""
|
||||
PICTURE "######"
|
||||
FIELD 58->NGINC17
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 77 5 ""
|
||||
MESSAGE ADD,FL->12
|
||||
PICTURE "###.###.###.###^^^"
|
||||
FIELD 58->REDCOR18
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER LAST 2
|
||||
|
||||
NUMERO 10
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 43 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
KEY "REDDITO CORRISPOSTO"
|
||||
PROMPT 77 1 ""
|
||||
PICTURE "###.###.###.###^^^"
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "FIRMA"
|
||||
PROMPT 83 4 ""
|
||||
FIELD 106@->RAGSOC
|
||||
END
|
||||
|
||||
|
||||
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
@ -81,13 +81,13 @@ bool TDicForm::InitPrint(const long codditta)
|
||||
}
|
||||
|
||||
const bool was_open = pr.isopen();
|
||||
|
||||
if (!was_open && !pr.open())
|
||||
return FALSE;
|
||||
|
||||
set_last_page(FALSE);
|
||||
set_background(1, TRUE);
|
||||
set_curr_page(PRIMA);
|
||||
|
||||
if (!was_open && !pr.open())
|
||||
return FALSE;
|
||||
do_events();
|
||||
|
||||
_Items = filtra(codditta);
|
||||
@ -103,7 +103,7 @@ bool TDicForm::InitPrint(const long codditta)
|
||||
if (pr.printtype() != screenvis)
|
||||
{
|
||||
TString msg(60);
|
||||
msg.format("Elaborazione in corso ditta %ld", codditta);
|
||||
msg.format("Elaborazione della ditta %ld", codditta);
|
||||
_prog = new TProgind(_Items, msg, FALSE,TRUE);
|
||||
}
|
||||
return TRUE;
|
||||
@ -508,7 +508,7 @@ bool TDicForm::PaginaPosizionamento() const
|
||||
|
||||
int TDicForm::dic_form_len() const
|
||||
{
|
||||
if (curr_page() == PRIMA)
|
||||
if (curr_page() == PRIMA && _PaginaPosizionamento && !_GiaPosizionato)
|
||||
return QD_FORMLEN_PRIMA;
|
||||
else
|
||||
return QD_FORMLEN;
|
||||
@ -524,16 +524,12 @@ void TDicForm::fill_page(TPrinter& pr, const int righe)
|
||||
// form feed
|
||||
if (righe < 0)
|
||||
{
|
||||
// const int stop = PaginaPosizionamento() ? QD_FORMLEN_PRIMA : QD_FORMLEN;
|
||||
const int stop = dic_form_len();
|
||||
for (int i = _RigaCorr; i < stop; i++)
|
||||
{
|
||||
if (i == 0)
|
||||
if (_modulaser)
|
||||
{
|
||||
if (!_GiaMessoStartPage[pagina])
|
||||
put_modulaser(row, STARTPAGE, pagina);
|
||||
}
|
||||
if (i == 0 && _modulaser && !_GiaMessoStartPage[pagina])
|
||||
put_modulaser(row, STARTPAGE, pagina);
|
||||
|
||||
// Sull'ultima riga metto il codice ditta
|
||||
if (i == stop - 2)
|
||||
{
|
||||
@ -543,25 +539,24 @@ void TDicForm::fill_page(TPrinter& pr, const int righe)
|
||||
|
||||
TString16 ditta; ditta << _codditta;
|
||||
row.put(ditta, POS_DITTA);
|
||||
pr.print(row);
|
||||
}
|
||||
else
|
||||
pr.print(row);
|
||||
pr.print(row);
|
||||
row.reset();
|
||||
}
|
||||
_RigaCorr = 0;
|
||||
return;
|
||||
}
|
||||
else // righe > 0
|
||||
{
|
||||
for (int i=0; i < righe; i++)
|
||||
{
|
||||
if (i == 0 && _modulaser && !_GiaMessoStartPage[pagina])
|
||||
{
|
||||
put_modulaser(row, STARTPAGE, pagina);
|
||||
else
|
||||
pr.print(row);
|
||||
row.reset();
|
||||
pr.print(row);
|
||||
row.reset();
|
||||
}
|
||||
else
|
||||
pr.print(row);
|
||||
_RigaCorr++;
|
||||
}
|
||||
}
|
||||
@ -605,7 +600,7 @@ void TDicForm::stampa_testata(TPrinter& pr)
|
||||
}
|
||||
// Righe da saltare nelle prime pag. dei moduli successivi al primo (che' son
|
||||
// senza le righe del posizionamento...)
|
||||
int HEADER_PRIMA_NOPOS = 3;
|
||||
int HEADER_PRIMA_NOPOS = 2;
|
||||
head.update();
|
||||
for (word j = 0; j <= r; j++)
|
||||
{
|
||||
@ -626,11 +621,9 @@ void TDicForm::stampa_testata(TPrinter& pr)
|
||||
if (!PaginaPosizionamento())
|
||||
fill_page(pr, HEADER_PRIMA_NOPOS);
|
||||
}
|
||||
else
|
||||
{
|
||||
pr.print(head.row(j));
|
||||
_RigaCorr++;
|
||||
}
|
||||
|
||||
pr.print(head.row(j));
|
||||
_RigaCorr++;
|
||||
}
|
||||
}
|
||||
|
||||
@ -720,7 +713,7 @@ class TQuadroG : public TDicForm
|
||||
void stampa_prospetti3_4(TPrinter& pr);
|
||||
|
||||
protected:
|
||||
virtual bool ultima_pagina() const { return _PaginaCorrente==SECONDA; }
|
||||
virtual bool ultima_pagina() const { return _PaginaCorrente==SECONDA; }
|
||||
virtual void inc_curr_page();
|
||||
virtual void next_page(TPrinter& pr);
|
||||
virtual void stampa_totali(TPrinter& pr) {}
|
||||
@ -1558,7 +1551,8 @@ bool TStampaQuadro::print_quadro(const int OffsetDitta, const bool modulaser)
|
||||
// Setta formlen prima di printer.open per avere la lunghezza giusta nel caso di
|
||||
// stampa a video
|
||||
printer().formlen(QD_FORMLEN);
|
||||
bool ok = printer().open();
|
||||
const bool ok = printer().open();
|
||||
CHECK(ok, "La stampante non si apre");
|
||||
|
||||
ff->set_cursor(get_cursor());
|
||||
ff->azzera_totali();
|
||||
@ -2680,7 +2674,8 @@ bool TStampaQuadroG::print_quadro(const int OffsetDitta, const bool modulaser)
|
||||
// Setta formlen prima di printer.open per avere la lunghezza giusta nel caso di
|
||||
// stampa a video
|
||||
printer().formlen(QG_FORMLEN);
|
||||
bool ok = printer().open();
|
||||
const bool ok = printer().open();
|
||||
CHECK(ok, "La stampante non si apre");
|
||||
|
||||
_form_g->set_cursor(_cur_g);
|
||||
_form_gd->set_cursor(_cur_gd);
|
||||
@ -3124,7 +3119,7 @@ class TQuadroF : public TDicForm
|
||||
void azzera_contatori();
|
||||
void aggiorna_totali(char tipoprosp, TRectype& r);
|
||||
void stampa_totali(char tipoprosp, TPrinter& pr);
|
||||
virtual bool ultima_pagina() const { return _PaginaCorrente==SECONDA; }
|
||||
virtual bool ultima_pagina() const { return _PaginaCorrente==SECONDA; }
|
||||
|
||||
public:
|
||||
virtual bool print(const long codditta, const long numfis=0L, const long numnofis=0L);
|
||||
@ -3742,7 +3737,8 @@ bool TStampaBusta::print_quadro(const int OffsetDitta, const bool modulaser)
|
||||
|
||||
// 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();
|
||||
const bool ok = printer().open();
|
||||
CHECK(ok, "La stampante non si apre");
|
||||
|
||||
ff->set_modulaser(modulaser);
|
||||
|
||||
@ -3816,10 +3812,11 @@ int stampa_quadro(int argc, char* argv[])
|
||||
default: app = new TStampaQuadroA(quadro, livello); break;
|
||||
}
|
||||
}
|
||||
else if (quadro[0] == 'B' && quadro[1] != 'a')
|
||||
else if (quadro[0] == 'B')
|
||||
{
|
||||
switch (quadro[1])
|
||||
{
|
||||
switch (toupper(quadro[1]))
|
||||
{
|
||||
case 'A': app = new TStampaBase(livello); break;
|
||||
case 'U': app = new TStampaBusta(quadro, livello); break;
|
||||
default : app = new TStampaQuadroB(quadro, livello); break;
|
||||
}
|
||||
@ -3836,10 +3833,6 @@ int stampa_quadro(int argc, char* argv[])
|
||||
{
|
||||
app = new TStampaQuadroG1(livello);
|
||||
}
|
||||
else if (quadro == "Base")
|
||||
{
|
||||
app = new TStampaBase(livello);
|
||||
}
|
||||
else if (quadro == "H")
|
||||
{
|
||||
app = new TStampaQuadroH(quadro, livello);
|
||||
|
||||
1283
m770/77stqab.cpp
1283
m770/77stqab.cpp
File diff suppressed because it is too large
Load Diff
Loading…
x
Reference in New Issue
Block a user