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