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

Modifiche al quadro G e aggiunta Quadro H

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3318 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale 1996-08-02 09:24:23 +00:00
parent d79bae9f3e
commit afaf8fdc58
7 changed files with 2362 additions and 2074 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

792
m770/77qc.frm
View File

@ -1,396 +1,396 @@
USE 61
JOIN %CA7 TO 61 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 61 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
61->* "Quadro C 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone giuridiche"
313@->* "Comuni"
413@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 11
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 22
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 116@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 11 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 11 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 11 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 13 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 56 13 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 63 13 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 83 13 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 122 13 ""
FIELD 113@->PROVCOM
GROUP 1
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 15 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 56 15 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 15 ""
FIELD 116@->INDRF
FLAGS "H"
MESSAGE COPY,17
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 103 15 ""
FIELD 116@->CIVRF
FLAGS "H"
MESSAGE APPEND,17
END
STRINGA 17
BEGIN
KEY "VIA + NUM CIV. DI RES."
PROMPT 67 15 ""
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 124 15 ""
FIELD 116@->CAPRF
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 18 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 21 ""
END
END
SECTION BODY ODD 6
LISTA 100
BEGIN
KEY "Tipo anagrafica"
FIELD 216@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 81 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 1 ""
FIELD 218@->DATANASC
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 129 1 ""
FIELD 218@->SESSO
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 3 ""
FIELD 313@->DENCOM
GROUP 1
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 47 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 53 3 ""
FIELD 413@->DENCOM
GROUP 1
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 88 3 ""
FIELD 413@->PROVCOM
END
STRING 101
BEGIN
KEY "VIA RES."
PROMPT 94 3 ""
FIELD 216@->INDRES[1,20]
FLAGS "H"
MESSAGE COPY,10
END
STRING 102
BEGIN
KEY "NUM.CIV"
PROMPT 93 3 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10
END
STRING 10
BEGIN
KEY "VIA RES. + numcivres"
PROMPT 95 3 ""
GROUP 1
END
STRING 11
BEGIN
KEY "DESCR. CAUSALE"
PROMPT 10 5 ""
FIELD 14@->S0[1,20]
END
STRING 12
BEGIN
KEY "FLAG C.T."
PROMPT 34 5 ""
FIELD 14@->B2
END
STRING 13
BEGIN
KEY "FLAG T.S."
PROMPT 39 5 ""
FIELD 14@->B3
END
NUMBER 14
BEGIN
KEY "AMMONTARE CORRISPOSTO"
PROMPT 45 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14
// FIELD 61->TOTALE
END
NUMBER 15
BEGIN
KEY "CONTRIBUTI S.S.N."
PROMPT 60 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15
// FIELD 61->CONTSSN
END
NUMBER 16
BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 76 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->16
// FIELD 61->SOMME
END
NUMBER 17
BEGIN
KEY "IMPONIBILE"
PROMPT 91 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
FIELD 61->IMPONIBILE
END
NUMBER 18
BEGIN
KEY "RITENUTE OPERATE"
PROMPT 105 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
FIELD 61->RITENUTE
END
NUMBER 19
BEGIN
KEY "NETTO CORRISPOSTO"
PROMPT 120 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->19
FIELD 61->NETTO
END
END
SECTION FOOTER LAST 2
NUMBER 14
BEGIN
KEY "TOTALE AMMONTARE CORRISPOSTO"
PROMPT 45 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE CONTRIBUTI S.S.N."
PROMPT 61 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 16
BEGIN
KEY "TOTALE SOMME NON SOGGETTE A RITENUTA"
PROMPT 76 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 91 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE RITENUTE OPERATE"
PROMPT 105 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 19
BEGIN
KEY "TOTALE NETTO CORRISPOSTO"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END
USE 61
JOIN %CA7 TO 61 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 61 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
61->* "Quadro C 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone giuridiche"
313@->* "Comuni"
413@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 11
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 22
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 116@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 11 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 11 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 11 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 13 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 56 13 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 63 13 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 83 13 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 122 13 ""
FIELD 113@->PROVCOM
GROUP 1
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 15 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 56 15 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 15 ""
FIELD 116@->INDRF
FLAGS "H"
MESSAGE COPY,17
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 103 15 ""
FIELD 116@->CIVRF
FLAGS "H"
MESSAGE APPEND,17
END
STRINGA 17
BEGIN
KEY "VIA + NUM CIV. DI RES."
PROMPT 67 15 ""
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 124 15 ""
FIELD 116@->CAPRF
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 18 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 21 ""
END
END
SECTION BODY ODD 6
LISTA 100
BEGIN
KEY "Tipo anagrafica"
FIELD 216@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 81 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 1 ""
FIELD 218@->DATANASC
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 129 1 ""
FIELD 218@->SESSO
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 3 ""
FIELD 313@->DENCOM
GROUP 1
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 47 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 53 3 ""
FIELD 413@->DENCOM
GROUP 1
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 88 3 ""
FIELD 413@->PROVCOM
END
STRING 101
BEGIN
KEY "VIA RES."
PROMPT 94 3 ""
FIELD 216@->INDRES[1,20]
FLAGS "H"
MESSAGE COPY,10
END
STRING 102
BEGIN
KEY "NUM.CIV"
PROMPT 93 3 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10
END
STRING 10
BEGIN
KEY "VIA RES. + numcivres"
PROMPT 95 3 ""
GROUP 1
END
STRING 11
BEGIN
KEY "DESCR. CAUSALE"
PROMPT 10 5 ""
FIELD 14@->S0[1,20]
END
STRING 12
BEGIN
KEY "FLAG C.T."
PROMPT 34 5 ""
FIELD 14@->B2
END
STRING 13
BEGIN
KEY "FLAG T.S."
PROMPT 39 5 ""
FIELD 14@->B3
END
NUMBER 14
BEGIN
KEY "AMMONTARE CORRISPOSTO"
PROMPT 45 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14
// FIELD 61->TOTALE
END
NUMBER 15
BEGIN
KEY "CONTRIBUTI S.S.N."
PROMPT 60 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15
// FIELD 61->CONTSSN
END
NUMBER 16
BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 76 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->16
// FIELD 61->SOMME
END
NUMBER 17
BEGIN
KEY "IMPONIBILE"
PROMPT 91 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
FIELD 61->IMPONIBILE
END
NUMBER 18
BEGIN
KEY "RITENUTE OPERATE"
PROMPT 105 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
FIELD 61->RITENUTE
END
NUMBER 19
BEGIN
KEY "NETTO CORRISPOSTO"
PROMPT 120 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->19
FIELD 61->NETTO
END
END
SECTION FOOTER LAST 2
NUMBER 14
BEGIN
KEY "TOTALE AMMONTARE CORRISPOSTO"
PROMPT 45 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE CONTRIBUTI S.S.N."
PROMPT 61 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 16
BEGIN
KEY "TOTALE SOMME NON SOGGETTE A RITENUTA"
PROMPT 76 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 91 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE RITENUTE OPERATE"
PROMPT 105 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 19
BEGIN
KEY "TOTALE NETTO CORRISPOSTO"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END

844
m770/77qd.frm
View File

@ -1,422 +1,422 @@
USE 62
JOIN %CA7 TO 62 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 62 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
62->* "Quadro D 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone giuridiche"
313@->* "Comuni"
413@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 10
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 31
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FIELD 116@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 4 12 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 14 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 58 14 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 66 14 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 14 ""
FIELD 113@->PROVCOM
GROUP 1
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 16 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 66 16 ""
FIELD 116@->INDRF
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 102 16 ""
FIELD 116@->CIVRF
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 120 16 ""
FIELD 116@->CAPRF
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 118 19 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 123 22 ""
END
END
SECTION BODY ODD 8
LISTA 100
BEGIN
KEY "Tipo anagrafica"
FIELD 216@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 81 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
STRING 102
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 54 1 ""
FIELD 216@->RAGSOC
GROUP 2
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 1 ""
FIELD 218@->DATANASC
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 129 1 ""
FIELD 218@->SESSO
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 3 ""
FIELD 313@->DENCOM
GROUP 1
END
STRING 101
BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE"
PROMPT 10 3 ""
FIELD 413@->DENCOM
GROUP 2
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 47 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 53 3 ""
FIELD 413@->DENCOM
GROUP 1
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 88 3 ""
FIELD 413@->PROVCOM
END
STRING 106
BEGIN
KEY "PROV. RESIDENZA GIURIDICHE"
PROMPT 61 3 ""
FIELD 413@->PROVCOM
GROUP 2
END
STRING 108
BEGIN
KEY "VIA RES."
PROMPT 94 3 ""
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,10|COPY,107
END
STRING 109
BEGIN
KEY "NUM.CIV"
PROMPT 93 3 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10|APPEND,107
END
STRING 10
BEGIN
KEY "VIA RES. + numcivres"
PROMPT 95 3 ""
GROUP 1
END
STRING 107
BEGIN
KEY "VIA RES GIURIDICHE"
PROMPT 69 3 ""
GROUP 2
END
STRING 11
BEGIN
KEY "FLAG DI NON RESIDENTE"
PROMPT 11 5 ""
FIELD 216@->SOGGNRES
END
STRING 12
BEGIN
KEY "STATO ESTERO DI RES."
PROMPT 16 5 ""
FIELD 24@->S0
END
STRING 13
BEGIN
KEY "CODICE STATO ESTERO DI RES."
PROMPT 75 5 ""
FIELD 216@->STATORES
END
STRING 14
BEGIN
KEY "CODICE FISCALE ESTERO"
PROMPT 89 5 ""
FIELD 216@->COFIEST
END
STRING 15
BEGIN
KEY "DESCR. CAUSALE"
PROMPT 10 7 ""
FIELD 14@->S0[1,20]
END
NUMBER 16
BEGIN
KEY "TOTALE"
PROMPT 36 7 ""
// FIELD 62->TOTALE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->16
END
NUMBER 17
BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 55 7 ""
// FIELD 62->SOMME
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
END
NUMBER 18
BEGIN
KEY "IMPONIBILE"
PROMPT 75 7 ""
// FIELD 62->IMPONIBILE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
END
STRING 19
BEGIN
KEY "ALIQUOTA"
PROMPT 88 7 ""
FIELD 62->PERC
PICTURE "###@@"
END
NUMBER 20
BEGIN
KEY "IMPORTO"
PROMPT 100 7 ""
// FIELD 62->IMPORTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->20
END
NUMBER 21
BEGIN
KEY "NETTO"
PROMPT 119 7 ""
// FIELD 62->NETTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->21
END
END
SECTION FOOTER LAST 1
NUMBER 16
BEGIN
KEY "TOTALE TOTALE"
PROMPT 36 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN
KEY "TOTALE SOMME NON SOGGETTE"
PROMPT 55 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 75 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 20
BEGIN
KEY "TOTALE IMPORTO"
PROMPT 101 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 21
BEGIN
KEY "TOTALE NETTO"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END
USE 62
JOIN %CA7 TO 62 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 62 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
62->* "Quadro D 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone giuridiche"
313@->* "Comuni"
413@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 10
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 31
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FIELD 116@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 4 12 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 14 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 58 14 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 66 14 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 14 ""
FIELD 113@->PROVCOM
GROUP 1
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 16 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 66 16 ""
FIELD 116@->INDRF
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 102 16 ""
FIELD 116@->CIVRF
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 120 16 ""
FIELD 116@->CAPRF
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 118 19 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 123 22 ""
END
END
SECTION BODY ODD 8
LISTA 100
BEGIN
KEY "Tipo anagrafica"
FIELD 216@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 81 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
STRING 102
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 54 1 ""
FIELD 216@->RAGSOC
GROUP 2
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 1 ""
FIELD 218@->DATANASC
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 129 1 ""
FIELD 218@->SESSO
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 3 ""
FIELD 313@->DENCOM
GROUP 1
END
STRING 101
BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE"
PROMPT 10 3 ""
FIELD 413@->DENCOM
GROUP 2
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 47 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 53 3 ""
FIELD 413@->DENCOM
GROUP 1
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 88 3 ""
FIELD 413@->PROVCOM
END
STRING 106
BEGIN
KEY "PROV. RESIDENZA GIURIDICHE"
PROMPT 61 3 ""
FIELD 413@->PROVCOM
GROUP 2
END
STRING 108
BEGIN
KEY "VIA RES."
PROMPT 94 3 ""
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,10|COPY,107
END
STRING 109
BEGIN
KEY "NUM.CIV"
PROMPT 93 3 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10|APPEND,107
END
STRING 10
BEGIN
KEY "VIA RES. + numcivres"
PROMPT 95 3 ""
GROUP 1
END
STRING 107
BEGIN
KEY "VIA RES GIURIDICHE"
PROMPT 69 3 ""
GROUP 2
END
STRING 11
BEGIN
KEY "FLAG DI NON RESIDENTE"
PROMPT 11 5 ""
FIELD 216@->SOGGNRES
END
STRING 12
BEGIN
KEY "STATO ESTERO DI RES."
PROMPT 16 5 ""
FIELD 24@->S0
END
STRING 13
BEGIN
KEY "CODICE STATO ESTERO DI RES."
PROMPT 75 5 ""
FIELD 216@->STATORES
END
STRING 14
BEGIN
KEY "CODICE FISCALE ESTERO"
PROMPT 89 5 ""
FIELD 216@->COFIEST
END
STRING 15
BEGIN
KEY "DESCR. CAUSALE"
PROMPT 10 7 ""
FIELD 14@->S0[1,20]
END
NUMBER 16
BEGIN
KEY "TOTALE"
PROMPT 36 7 ""
// FIELD 62->TOTALE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->16
END
NUMBER 17
BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 55 7 ""
// FIELD 62->SOMME
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
END
NUMBER 18
BEGIN
KEY "IMPONIBILE"
PROMPT 75 7 ""
// FIELD 62->IMPONIBILE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
END
STRING 19
BEGIN
KEY "ALIQUOTA"
PROMPT 88 7 ""
FIELD 62->PERC
PICTURE "###@@"
END
NUMBER 20
BEGIN
KEY "IMPORTO"
PROMPT 100 7 ""
// FIELD 62->IMPORTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->20
END
NUMBER 21
BEGIN
KEY "NETTO"
PROMPT 119 7 ""
// FIELD 62->NETTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->21
END
END
SECTION FOOTER LAST 1
NUMBER 16
BEGIN
KEY "TOTALE TOTALE"
PROMPT 36 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN
KEY "TOTALE SOMME NON SOGGETTE"
PROMPT 55 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 75 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 20
BEGIN
KEY "TOTALE IMPORTO"
PROMPT 101 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 21
BEGIN
KEY "TOTALE NETTO"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END

846
m770/77qd1.frm
View File

@ -1,423 +1,423 @@
USE 63
JOIN %CA7 TO 63 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 63 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
63->* "Quadro D1 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone giuridiche"
313@->* "Comuni"
413@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 10
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 29
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FIELD 116@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 14 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 56 14 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 63 14 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 83 14 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 122 14 ""
FIELD 113@->PROVCOM
GROUP 1
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 56 16 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 16 ""
FIELD 116@->INDRF
FLAGS "H"
MESSAGE COPY,17
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 103 16 ""
FIELD 116@->CIVRF
FLAGS "H"
MESSAGE APPEND,17
END
STRINGA 17
BEGIN
KEY "VIA RES. + NUM. RES."
PROMPT 67 16 ""
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 124 16 ""
FIELD 116@->CAPRF
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 19 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 22 ""
END
END
SECTION BODY ODD 6
LISTA 100
BEGIN
KEY "Tipo anagrafica"
FIELD 216@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 80 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
STRING 101
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 54 1 ""
FIELD 216@->RAGSOC
GROUP 2
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 112 1 ""
FIELD 218@->DATANASC
GROUP 1
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 126 1 ""
FIELD 218@->SESSO
GROUP 1
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 3 ""
FIELD 313@->DENCOM
GROUP 1
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 46 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 53 3 ""
FIELD 413@->DENCOM
GROUP 1
END
STRING 102
BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE"
PROMPT 10 3 ""
FIELD 413@->DENCOM
GROUP 2
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 87 3 ""
FIELD 413@->PROVCOM
GROUP 1
END
STRING 103
BEGIN
KEY "PROVINCIA DI RESIDENZA GIURIDICHE"
PROMPT 51 3 ""
FIELD 413@->PROVCOM
GROUP 2
END
STRING 105
BEGIN
KEY "VIA RESIDENZA"
PROMPT 94 3 ""
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,10|COPY,104
END
STRING 106
BEGIN
KEY "NUMERO CIVICO"
PROMPT 93 3 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10|APPEND,104
END
STRING 10
BEGIN
KEY "VIA + NUMERO CIVICO RESIDENZA"
PROMPT 95 3 ""
GROUP 1
END
STRING 104
BEGIN
KEY "VIA + NUMERO CIVICO RESIDENZA GIURIDICHE"
PROMPT 75 3 ""
GROUP 2
END
STRING 11
BEGIN
KEY "CAUSALE DEL QUADRO D1"
PROMPT 12 5 ""
FIELD 14@->S3
END
NUMBER 12
BEGIN
KEY "TOTALE"
PROMPT 19 5 ""
// FIELD 63->TOTALE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->12
END
NUMBER 13
BEGIN
KEY "QUOTA PROVVIGIONI"
PROMPT 36 5 ""
// FIELD 63->QUOTAPRO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->13
END
NUMBER 14
BEGIN
KEY "SPESE ANTICIPATE"
PROMPT 53 5 ""
// FIELD 63->SPESEANT
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14
END
NUMBER 15
BEGIN
KEY "IMPONIBILE"
PROMPT 70 5 ""
// FIELD 63->IMPONIBILE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15
END
STRING 16
BEGIN
KEY "ALIQUOTA"
PROMPT 87 5 ""
FIELD 63->PERC
PICTURE "###@@"
END
NUMBER 17
BEGIN
KEY "IMPORTO"
PROMPT 99 5 ""
// FIELD 63->IMPORTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
END
NUMBER 18
BEGIN
KEY "NETTO"
PROMPT 115 5 ""
// FIELD 63->NETTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
END
END
SECTION FOOTER LAST 2
NUMBER 12
BEGIN
KEY "TOTALE TOTALE"
PROMPT 19 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 13
BEGIN
KEY "TOTALE QUOTA PROVVIGIONI"
PROMPT 36 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 14
BEGIN
KEY "TOTALE SPESE ANTICIPATE"
PROMPT 53 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 70 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN
KEY "TOTALE IMPORTO"
PROMPT 99 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE NETTO"
PROMPT 115 1 ""
PICTURE "###.###.###^^^"
END
END
USE 63
JOIN %CA7 TO 63 ALIAS 14 INTO CODTAB=CODCAUS
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 63 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
63->* "Quadro D1 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone giuridiche"
313@->* "Comuni"
413@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 10
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 29
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FIELD 116@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 14 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 56 14 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 63 14 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 83 14 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 122 14 ""
FIELD 113@->PROVCOM
GROUP 1
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 56 16 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 16 ""
FIELD 116@->INDRF
FLAGS "H"
MESSAGE COPY,17
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 103 16 ""
FIELD 116@->CIVRF
FLAGS "H"
MESSAGE APPEND,17
END
STRINGA 17
BEGIN
KEY "VIA RES. + NUM. RES."
PROMPT 67 16 ""
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 124 16 ""
FIELD 116@->CAPRF
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 19 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 22 ""
END
END
SECTION BODY ODD 6
LISTA 100
BEGIN
KEY "Tipo anagrafica"
FIELD 216@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 80 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
STRING 101
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 54 1 ""
FIELD 216@->RAGSOC
GROUP 2
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 112 1 ""
FIELD 218@->DATANASC
GROUP 1
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 126 1 ""
FIELD 218@->SESSO
GROUP 1
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 3 ""
FIELD 313@->DENCOM
GROUP 1
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 46 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 53 3 ""
FIELD 413@->DENCOM
GROUP 1
END
STRING 102
BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE"
PROMPT 10 3 ""
FIELD 413@->DENCOM
GROUP 2
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 87 3 ""
FIELD 413@->PROVCOM
GROUP 1
END
STRING 103
BEGIN
KEY "PROVINCIA DI RESIDENZA GIURIDICHE"
PROMPT 51 3 ""
FIELD 413@->PROVCOM
GROUP 2
END
STRING 105
BEGIN
KEY "VIA RESIDENZA"
PROMPT 94 3 ""
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,10|COPY,104
END
STRING 106
BEGIN
KEY "NUMERO CIVICO"
PROMPT 93 3 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10|APPEND,104
END
STRING 10
BEGIN
KEY "VIA + NUMERO CIVICO RESIDENZA"
PROMPT 95 3 ""
GROUP 1
END
STRING 104
BEGIN
KEY "VIA + NUMERO CIVICO RESIDENZA GIURIDICHE"
PROMPT 75 3 ""
GROUP 2
END
STRING 11
BEGIN
KEY "CAUSALE DEL QUADRO D1"
PROMPT 12 5 ""
FIELD 14@->S3
END
NUMBER 12
BEGIN
KEY "TOTALE"
PROMPT 19 5 ""
// FIELD 63->TOTALE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->12
END
NUMBER 13
BEGIN
KEY "QUOTA PROVVIGIONI"
PROMPT 36 5 ""
// FIELD 63->QUOTAPRO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->13
END
NUMBER 14
BEGIN
KEY "SPESE ANTICIPATE"
PROMPT 53 5 ""
// FIELD 63->SPESEANT
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14
END
NUMBER 15
BEGIN
KEY "IMPONIBILE"
PROMPT 70 5 ""
// FIELD 63->IMPONIBILE
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15
END
STRING 16
BEGIN
KEY "ALIQUOTA"
PROMPT 87 5 ""
FIELD 63->PERC
PICTURE "###@@"
END
NUMBER 17
BEGIN
KEY "IMPORTO"
PROMPT 99 5 ""
// FIELD 63->IMPORTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
END
NUMBER 18
BEGIN
KEY "NETTO"
PROMPT 115 5 ""
// FIELD 63->NETTO
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
END
END
SECTION FOOTER LAST 2
NUMBER 12
BEGIN
KEY "TOTALE TOTALE"
PROMPT 19 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 13
BEGIN
KEY "TOTALE QUOTA PROVVIGIONI"
PROMPT 36 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 14
BEGIN
KEY "TOTALE SPESE ANTICIPATE"
PROMPT 53 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE IMPONIBILE"
PROMPT 70 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN
KEY "TOTALE IMPORTO"
PROMPT 99 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 18
BEGIN
KEY "TOTALE NETTO"
PROMPT 115 1 ""
PICTURE "###.###.###^^^"
END
END

764
m770/77qg.frm
View File

File diff suppressed because it is too large Load Diff

302
m770/77qgd.frm
View File

@ -30,7 +30,7 @@ BEGIN
FI 131
END
SECTION HEADER FIRST 28
SECTION HEADER FIRST 17
NUMBER 14
BEGIN
@ -42,204 +42,300 @@ END
SECTION BODY ODD 8
LISTA 100
BEGIN
KEY "Tipo anagrafica"
FIELD 216@->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 2 ""
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "COGNOME"
PROMPT 42 2 ""
PROMPT 43 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
END
STRING 3
BEGIN
KEY "NOME"
PROMPT 81 2 ""
PROMPT 82 1 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
END
STRING 102
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 54 2 ""
FIELD 216@->RAGSOC
GROUP 2
END
STRING 4
BEGIN
KEY "DATA NASCITA"
PROMPT 114 2 ""
PROMPT 10 3 ""
FIELD 218@->DATANASC
END
STRING 5
BEGIN
KEY "SESSO"
PROMPT 129 2 ""
PROMPT 36 3 ""
FIELD 218@->SESSO
END
STRING 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 10 4 ""
PROMPT 44 3 ""
FIELD 313@->DENCOM
GROUP 1
END
STRING 101
BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE"
PROMPT 10 4 ""
FIELD 413@->DENCOM
GROUP 2
END
STRING 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 47 4 ""
PROMPT 117 3 ""
FIELD 313@->PROVCOM
GROUP 1
END
STRING 8
BEGIN
KEY "COMUNE DI RESIDENZA"
PROMPT 53 4 ""
PROMPT 10 5 ""
FIELD 413@->DENCOM
GROUP 1
END
STRING 9
BEGIN
KEY "PROV. RESIDENZA"
PROMPT 88 4 ""
PROMPT 58 5 ""
FIELD 413@->PROVCOM
END
STRING 106
STRING 101
BEGIN
KEY "PROV. RESIDENZA GIURIDICHE"
PROMPT 61 4 ""
FIELD 413@->PROVCOM
GROUP 2
KEY "VIA RES."
PROMPT 94 5 ""
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,10
END
STRING 102
BEGIN
KEY "NUM.CIV"
PROMPT 93 5 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10
END
STRING 10
BEGIN
KEY "VIA RES."
PROMPT 94 4 ""
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,12|COPY,107
KEY "VIA RES. + numcivres"
PROMPT 66 5 ""
END
STRING 11
BEGIN
KEY "NUM.CIV"
PROMPT 93 4 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,12|APPEND,107
END
STRING 12
BEGIN
KEY "VIA RES. + numcivres"
PROMPT 95 4 ""
GROUP 1
END
STRING 107
BEGIN
KEY "VIA RES GIURIDICHE"
PROMPT 69 4 ""
GROUP 2
END
STRING 19
BEGIN
KEY "NUMERO QUOTE"
PROMPT 128 4 ""
PROMPT 125 5 ""
FIELD 101->NUMQUOTE
PICTURE "####^^^"
END
STRING 20
NUMBER 12
BEGIN
KEY "UTILI SPETTANTI"
PROMPT 55 5 ""
PROMPT 31 7 ""
FIELD 101->UTSPETT
PICTURE "#########^^^"
PICTURE "###.###.###^^^"
MESSAGE ADD,FO->12
END
STRING 21
BEGIN
KEY "UTILI PAGATI"
PROMPT 75 5 ""
FIELD 101->UTPAG
PICTURE "#########^^^"
END
STRING 22
BEGIN
KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
PROMPT 88 5 ""
FIELD 101->ROPE
PICTURE "###@@"
END
STRING 23
NUMBER 13
BEGIN
KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
PROMPT 100 5 ""
PROMPT 59 7 ""
FIELD 101->ROPESPET
PICTURE "#########^^^"
PICTURE "###.###.###^^^"
MESSAGE ADD,FO->13
END
NUMBER 14
BEGIN
KEY "UTILI PAGATI"
PROMPT 93 7 ""
FIELD 101->UTPAG
PICTURE "###.###.###^^^"
MESSAGE ADD,FO->14
END
NUMBER 15
BEGIN
KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
PROMPT 120 7 ""
FIELD 101->ROPE
PICTURE "###.###.###^^^"
MESSAGE ADD,FO->15
END
END
SECTION BODY EVEN 2
SECTION BODY EVEN 6
NUMBER 1
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
END
STRING 2
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 44 1 ""
FIELD 216@->RAGSOC
END
STRING 3
BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE"
PROMPT 10 3 ""
FIELD 413@->DENCOM
END
STRING 4
BEGIN
KEY "PROV. RESIDENZA GIURIDICHE"
PROMPT 61 3 ""
FIELD 413@->PROVCOM
END
STRING 5
BEGIN
KEY "VIA RES. GIURIDICHE"
PROMPT 94 3 ""
FIELD 216@->INDRES[1,18]
FLAGS "H"
MESSAGE COPY,7
END
STRING 6
BEGIN
KEY "NUM.CIV GIURIDICHE"
PROMPT 93 3 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,7
END
STRING 7
BEGIN
KEY "VIA RES. + numcivres"
PROMPT 69 3 ""
END
STRING 11
BEGIN
KEY "NUMERO QUOTE"
PROMPT 128 3 ""
FIELD 101->NUMQUOTE
PICTURE "####^^^"
END
NUMBER 12
BEGIN
KEY "UTILI SPETTANTI"
PROMPT 31 5 ""
FIELD 101->UTSPETT
PICTURE "###.###.###^^^"
MESSAGE ADD,FE->12
END
NUMBER 13
BEGIN
KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
PROMPT 59 5 ""
FIELD 101->ROPESPET
PICTURE "###.###.###^^^"
MESSAGE ADD,FE->13
END
NUMBER 14
BEGIN
KEY "UTILI PAGATI"
PROMPT 93 5 ""
FIELD 101->UTPAG
PICTURE "###.###.###^^^"
MESSAGE ADD,FE->14
END
NUMBER 15
BEGIN
KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
PROMPT 120 5 ""
FIELD 101->ROPE
PICTURE "###.###.###^^^"
MESSAGE ADD,FE->15
END
END
SECTION FOOTER ODD 2
NUMBER 12
BEGIN
KEY "TOTALE UT.SPETT."
PROMPT 36 1 ""
PROMPT 31 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 2
NUMBER 13
BEGIN
KEY "TOTALE R.OPE.SU UT.SPETT."
PROMPT 55 1 ""
PROMPT 59 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 3
NUMBER 14
BEGIN
KEY "TOTALE UTILI PAGATI"
PROMPT 75 1 ""
PROMPT 93 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 4
NUMBER 15
BEGIN
KEY "TOTALE R.OPE.SU UT.PAGATI"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END
SECTION FOOTER EVEN 2
NUMBER 12
BEGIN
KEY "TOTALE UT.SPETT."
PROMPT 31 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 13
BEGIN
KEY "TOTALE R.OPE.SU UT.SPETT."
PROMPT 101 1 ""
PROMPT 59 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 14
BEGIN
KEY "TOTALE UTILI PAGATI"
PROMPT 93 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 15
BEGIN
KEY "TOTALE R.OPE.SU UT.PAGAI"
PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END
END

209
m770/77qh.frm Executable file
View File

@ -0,0 +1,209 @@
USE 43
JOIN 9 TO 43 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN %ENT TO 43 ALIAS 214 INTO CODTAB=H1ENTE
END
DESCRIPTION
BEGIN
61->* "Quadro H 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
113@->* "Comuni"
213@->* "Comuni"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier 17cpi"
SIZE 11
CA "X"
IN 3 2
FI 131
END
SECTION HEADER FIRST 22
LISTA 9
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 116@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 14 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 56 14 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 63 14 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 83 14 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 122 14 ""
FIELD 113@->PROVCOM
GROUP 1
END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 56 16 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 16 ""
FIELD 116@->INDRF
FLAGS "H"
MESSAGE COPY,17
END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 103 16 ""
FIELD 116@->CIVRF
FLAGS "H"
MESSAGE APPEND,17
END
STRINGA 17
BEGIN
KEY "VIA + NUM CIV. DI RES."
PROMPT 67 16 ""
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 124 16 ""
FIELD 116@->CAPRF
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 19 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 21 ""
FLAGS "H"
END
END
SECTION BODY ODD 2
STRINGA 1
BEGIN
KEY "ENTE PREVIDENZIALE"
PROMPT 8 1 ""
FIELD 214@->S0
END
NUMBER 2
BEGIN
KEY "CONTR.OBB. CARICO DATORE LAVORO"
PROMPT 88 1 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->2
FIELD 43->H1DAT
END
NUMBER 3
BEGIN
KEY "CONTR.OBB. CARICO DIPENDENTE"
PROMPT 119 1 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->3
FIELD 43->H1LAV
END
END
SECTION FOOTER LAST 2
NUMBER 2
BEGIN
KEY "TOTALE CONTR.OBB. DATORE LAVORO"
PROMPT 88 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 3
BEGIN
KEY "TOTALE CONTR.OBB DIPENDENTE."
PROMPT 119 1 ""
PICTURE "###.###.###^^^"
END
END

679
m770/77stq.cpp
View File

@ -674,100 +674,6 @@ void TDicForm::stampa_totali(TPrinter& pr)
pr.print(totali.row(i));
_RigaCorr++;
}
/*
PaginaQuadro PagCorr = curr_page();
TPrint_section& foot = section('B', even_page);
const char* pic = "############";
bool stampa = FALSE;
TForm_item& ttotale = foot.find_field(TOT_TOTALE);
TForm_item& tsnsrit = foot.find_field(TOT_SNSRIT);
TForm_item& timpon = foot.find_field(TOT_IMPON);
TForm_item& timpor = foot.find_field(TOT_IMPOR);
TForm_item& tnetto = foot.find_field(TOT_NETTO);
const bool stampa_tot_fis = ultima_fis();
const bool stampa_tot_nofis = ultima_nofis();
if (stampa_tot_fis)
if (PagCorr == TERZA) // Scrive totali p.fisiche
{
stampa=TRUE;
TString ftot(_f_tot_totale.string(pic));
TString fsnsrit(_f_tot_snsrit.string(pic));
TString fimpon(_f_tot_impon.string(pic));
TString fimpor(_f_tot_impor.string(pic));
TString fnetto(_f_tot_netto.string(pic));
// Toglie le migliaia
ftot.cut(ftot.len() - 3);
fsnsrit.cut(fsnsrit.len()-3);
fimpon.cut(fimpon.len()-3);
fimpor.cut(fimpor.len()-3);
fnetto.cut(fnetto.len()-3);
if (ftot.empty()) ftot = "0";
if (fsnsrit.empty()) fsnsrit = "0";
if (fimpon.empty()) fimpon = "0";
if (fimpor.empty()) fimpor = "0";
if (fnetto.empty()) fnetto = "0";
// Setta i campi
ttotale.set(ftot);
tsnsrit.set(fsnsrit);
timpon.set(fimpon);
timpor.set(fimpor);
tnetto.set(fnetto);
_GiaStampatiFis = TRUE;
const int NUMPER_TERZA = 6;
const int NUM_RIGHE = 8;
const int gap = ((NUMPER_TERZA - _CtrFisStampati) * NUM_RIGHE)+1;
if (gap>0)
fill_page(pr,gap);
}
if (stampa_tot_nofis)
if (PagCorr == QUARTA) // Scrive totali p.non fisiche
{
stampa=TRUE;
TString ftot(_nf_tot_totale.string(pic));
TString fsnsrit(_nf_tot_snsrit.string(pic));
TString fimpon(_nf_tot_impon.string(pic));
TString fimpor(_nf_tot_impor.string(pic));
TString fnetto(_nf_tot_netto.string(pic));
// Toglie le migliaia
ftot.cut(ftot.len() - 3);
fsnsrit.cut(fsnsrit.len()-3);
fimpon.cut(fimpon.len()-3);
fimpor.cut(fimpor.len()-3);
fnetto.cut(fnetto.len()-3);
if (ftot.empty()) ftot = "0";
if (fsnsrit.empty()) fsnsrit = "0";
if (fimpon.empty()) fimpon = "0";
if (fimpor.empty()) fimpor = "0";
if (fnetto.empty()) fnetto = "0";
// Setta i campi
ttotale.set(ftot);
tsnsrit.set(fsnsrit);
timpon.set(fimpon);
timpor.set(fimpor);
tnetto.set(fnetto);
_GiaStampatiNoFis = TRUE;
const int NUMPER_QUARTA = 6;
const int NUM_RIGHE = 8;
const int gap = ((NUMPER_QUARTA - _CtrNoFisStampati) * NUM_RIGHE)+1;
if (gap > 0)
fill_page(pr,gap);
}
if (stampa)
{
foot.update();
for (word j = 0; j < foot.height(); j++)
{
pr.print(foot.row(j));
_RigaCorr++;
}
foot.reset(); // non stampare piu' questi totali!
}
*/
}
void TDicForm::stampa_testata(TPrinter& pr)
@ -834,57 +740,7 @@ void TDicForm::azzera_totali()
for (int f = foot.fields()-1; f >= 0; f--)
foot.field(f).set("");
}
/*
void TDicForm::aggiorna_totali_E(const char tipo)
{
}
void TDicForm::aggiorna_totali_E1(const char tipo)
{
}
void TDicForm::aggiorna_totali_D(const char tipo)
{
real totale, netto, impon, nsrit, impor;
TCursor* cur = cursor();
TRectype& crr = cur->curr();
totale = crr.get_real(QUD_TOTALE);
netto = crr.get_real(QUD_NETTO);
impon = crr.get_real(QUD_IMPONIBILE);
impor = crr.get_real(QUD_IMPORTO);
nsrit = crr.get_real(QUD_SOMME);
if (tipo == 'F')
{
_f_tot_totale += totale;
_f_tot_netto += netto;
_f_tot_impon += impon;
_f_tot_snsrit += nsrit;
_f_tot_impor += impor;
}
else
{
_nf_tot_totale += totale;
_nf_tot_netto += netto;
_nf_tot_impon += impon;
_nf_tot_snsrit += nsrit;
_nf_tot_impor += impor;
}
}
void TDicForm::aggiorna_totali(const char tipo)
{
if (_quadro == "D")
aggiorna_totali_D(tipo);
if (_quadro == "E")
aggiorna_totali_E(tipo);
if (_quadro == "E1")
aggiorna_totali_E1(tipo);
}
*/
void TDicForm::set_body(TPrinter& pr, const char tipo)
{
TPrint_section& body = section('B', odd_page);
@ -1095,65 +951,103 @@ void TQuadroG::stampa_prospetti3_4(TPrinter& pr)
TToken_string p36a(r.get("P36A"));
TToken_string p36b(r.get("P36B"));
// colonna 2 e 7
for (int i=1; i<=5; i++)
{
TForm_item& c2 = sez.find_field(i);
TForm_item& c7 = sez.find_field(i+65);
int src=0; // determina quale posizione va letta dalla token-string per il campo corrente
switch (i)
{
case 1:
src = 0;
break;
case 2:
src = 7;
break;
case 3:
src = 10;
break;
case 4:
src = 12;
break;
case 5:
src = 14;
break;
}
// colonna 2 e 7
int k = 1;
real tot2,tot7,tot_tot2,tot_tot7;
tot2 = ZERO;
tot7 = ZERO;
tot_tot2 = ZERO;
tot_tot7 = ZERO;
for (int i=0; i<19; i++)
{
if (i == 6 || i == 10 || i == 13 || i ==16) continue;
c2.set(p33a.get(src));
c7.set(p36b.get(src));
real token2 (p33a.get(i));
real token7 (p36b.get(i));
tot2 += token2;
tot7 += token7;
tot_tot2 += token2;
tot_tot7 += token7;
if (i == 5 || i == 9 || i == 12 || i == 15 || i == 18)
{
TForm_item& c2 = sez.find_field(k);
TForm_item& c7 = sez.find_field(k+54);
c2.set(tot2.string());
c7.set(tot7.string());
k++;
tot2 = ZERO;
tot7 = ZERO;
if (i == 18)
{
TForm_item& t2 = sez.find_field(k);
TForm_item& t7 = sez.find_field(k+54);
t2.set(tot_tot2.string());
t7.set(tot_tot7.string());
}
}
}
const int RIGHE_P3 = 20;
const int RIGHE_P3 = 21;
// Colonna 3
const int START_P3_COL3 = 6;
int c3=0;
for (i = 0; i < RIGHE_P3; i++)
{
c3 = START_P3_COL3 + i;
TForm_item& c5a = sez.find_field(c3);
c5a.set(p33b.get(i));
const int START_P3_COL3 = 7;
int c3=0;
real totale = ZERO;
for (i = 0, k = 0; i < RIGHE_P3; i++)
{
if (i == 6 || i == 10 || i == 13 || i ==16 || i == 19) continue;
c3 = START_P3_COL3 + k;
TForm_item& c5a = sez.find_field(c3);
real importo (p33b.get(i));
if (i != 20)
c5a.set(importo.string());
else
c5a.set(totale.string());
totale += importo;
k++;
}
// Colonna 5
const int START_P3_COL5 = c3 + 1;
int c5=0;
for (i = 0; i < RIGHE_P3; i++)
{
c5 = START_P3_COL5 + i;
TForm_item& c6a = sez.find_field(c5);
c6a.set(p35b.get(i));
const int START_P3_COL5 = c3 + 1;
int c5=0;
totale = ZERO;
for (i = 0, k = 0; i < RIGHE_P3; i++)
{
if (i == 6 || i == 10 || i == 13 || i ==16 || i == 19) continue;
c5 = START_P3_COL5 + k;
TForm_item& c5a = sez.find_field(c5);
real importo (p35b.get(i));
if (i != 20)
c5a.set(importo.string());
else
c5a.set(totale.string());
totale += importo;
k++;
}
// Colonna 6
const int START_P3_COL6 = c5 + 1;
int c6=0;
for (i = 0; i < RIGHE_P3; i++)
{
c6 = START_P3_COL6 + i;
int c6=0;
totale = ZERO;
for (i = 0, k = 0; i < RIGHE_P3; i++)
{
if (i == 6 || i == 10 || i == 13 || i ==16 || i == 19) continue;
c6 = START_P3_COL6 + k;
TForm_item& c6a = sez.find_field(c6);
c6a.set(p36a.get(i));
real importo (p36a.get(i));
if (i != 20)
c6a.set(importo.string());
else
c6a.set(totale.string());
totale += importo;
k++;
}
sez.update();
@ -1215,29 +1109,28 @@ bool TQuadroG::print(const long codditta, const long NumFis, const long NumNoFis
return TRUE;
}
///////////////////////////////////////////////////////////////////////////////////////////
//
// Distinta G
//
///////////////////////////////////////////////////////////////////////////////////////////
HIDDEN const int QGD_FORMLEN = 72;
HIDDEN const int QGD_PAGINE = 2;
HIDDEN const int HEADER_SECONDA_GD = 7;
HIDDEN const int QGD_RIGHE_PRIMA = 8;
HIDDEN const int QGD_FORMLEN = 72;
HIDDEN const int QGD_PAGINE = 2;
HIDDEN const int HEADER_PRIMA_GD = 17;
HIDDEN const int HEADER_SECONDA_GD = 15;
HIDDEN const int QGD_RIGHE_PRIMA = 5;
HIDDEN const int QGD_RIGHE_SECONDA = 6;
class TDistintaG : public TQuadroG
{
private:
real _f_tot_utspet, _f_tot_utpag, _f_tot_rope, _f_tot_ropespet;
real _nf_tot_utspet, _nf_tot_utpag, _nf_tot_rope, _nf_tot_ropespet;
void aggiorna_totali(const char tipo);
void stampa_totali(TPrinter& pr);
void stampa_testata(TPrinter& pr);
virtual void stampa_totali(TPrinter& pr);
virtual void next_page(TPrinter& pr);
virtual void set_body(TPrinter& pr, const char tipo);
void stampa_testata(TPrinter& pr);
public:
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
@ -1245,136 +1138,47 @@ class TDistintaG : public TQuadroG
virtual ~TDistintaG() {}
};
void TDistintaG::stampa_totali(TPrinter& pr)
{
PaginaQuadro PagCorr = curr_page();
if (PagCorr == PRIMA)
{
TPrint_section& totali = section('F', odd_page);
totali.update();
for (int i = 0; i < totali.items(); i++)
{
pr.print(totali.row(i));
_RigaCorr++;
}
}
else
if (PagCorr == SECONDA)
{
TPrint_section& totali = section('F', even_page);
totali.update();
for (int i = 0; i < totali.items(); i++)
{
pr.print(totali.row(i));
_RigaCorr++;
}
}
}
void TDistintaG::next_page(TPrinter& pr)
{
PaginaQuadro PagCorr = curr_page();
// if (PagCorr == SECONDA)
stampa_totali(pr);
if (PagCorr == PRIMA)
jump_to_line(pr,57);
else
if (PagCorr == SECONDA)
jump_to_line(pr,51);
stampa_totali(pr);
TPrint_section& body = section('F', last_page);
body.reset();
fill_page(pr, -1); // formfeed "adattato"
inc_curr_page();
}
void TDistintaG::aggiorna_totali(const char tipo)
{
real utspet, utpag, rope, ropespet;
TCursor* cur = cursor();
TRectype& crr = cur->curr();
utspet = crr.get_real(QGD_UTSPETT);
utpag = crr.get_real(QGD_UTPAG);
rope = crr.get_real(QGD_ROPE);
ropespet = crr.get_real(QGD_ROPESPET);
if (tipo == 'F')
{
_f_tot_utspet += utspet;
_f_tot_utpag += utpag;
_f_tot_rope += rope;
_f_tot_ropespet += ropespet;
}
else
{
_nf_tot_utspet += utspet;
_nf_tot_utpag += utpag;
_nf_tot_rope += rope;
_nf_tot_ropespet += ropespet;
}
}
void TDistintaG::stampa_totali(TPrinter& pr)
{
PaginaQuadro PagCorr = curr_page();
TPrint_section& foot = section('B', even_page);
const word righe = foot.height();
const char* pic = "############";
bool stampa = FALSE;
TForm_item& ttotale = foot.find_field(TOT_TOTALE);
TForm_item& tsnsrit = foot.find_field(TOT_SNSRIT);
TForm_item& timpon = foot.find_field(TOT_IMPON);
TForm_item& timpor = foot.find_field(TOT_IMPOR);
const bool stampa_tot_fis = ultima_fis();
const bool stampa_tot_nofis = ultima_nofis();
if (stampa_tot_fis)
if (PagCorr == PRIMA) // Scrive totali p.fisiche
{
stampa=TRUE;
TString ftot(_f_tot_utspet.string(pic));
TString fsnsrit(_f_tot_utpag.string(pic));
TString fimpon(_f_tot_rope.string(pic));
TString fimpor(_f_tot_ropespet.string(pic));
// Toglie le migliaia
ftot.cut(ftot.len() - 3);
fsnsrit.cut(fsnsrit.len()-3);
fimpon.cut(fimpon.len()-3);
fimpor.cut(fimpor.len()-3);
if (ftot.empty()) ftot = "0";
if (fsnsrit.empty()) fsnsrit = "0";
if (fimpon.empty()) fimpon = "0";
if (fimpor.empty()) fimpor = "0";
// Setta i campi
ttotale.set(ftot);
tsnsrit.set(fsnsrit);
timpon.set(fimpon);
timpor.set(fimpor);
_GiaStampatiFis = TRUE;
const int NUMPER_TERZA = 6;
const int NUM_RIGHE = 8;
const int gap = ((NUMPER_TERZA - _CtrFisStampati) * NUM_RIGHE)+1;
if (gap>0)
fill_page(pr,gap);
}
if (stampa_tot_nofis)
if (PagCorr == SECONDA) // Scrive totali p.non fisiche
{
stampa=TRUE;
TString ftot (_nf_tot_utspet.string(pic));
TString fsnsrit(_nf_tot_utpag.string(pic));
TString fimpon (_nf_tot_rope.string(pic));
TString fimpor (_nf_tot_ropespet.string(pic));
// Toglie le migliaia
ftot.cut(ftot.len() - 3);
fsnsrit.cut(fsnsrit.len()-3);
fimpon.cut(fimpon.len()-3);
fimpor.cut(fimpor.len()-3);
if (ftot.empty()) ftot = "0";
if (fsnsrit.empty()) fsnsrit = "0";
if (fimpon.empty()) fimpon = "0";
if (fimpor.empty()) fimpor = "0";
// Setta i campi
ttotale.set(ftot);
tsnsrit.set(fsnsrit);
timpon.set(fimpon);
timpor.set(fimpor);
_GiaStampatiNoFis = TRUE;
const int NUMPER_QUARTA = 6;
const int NUM_RIGHE = 8;
const int gap = ((NUMPER_QUARTA - _CtrNoFisStampati) * NUM_RIGHE)+1;
if (gap > 0)
fill_page(pr,gap);
}
if (stampa)
{
foot.update();
for (word j = 0; j < righe; j++)
{
pr.print(foot.row(j));
_RigaCorr++;
}
foot.reset(); // non stampare piu' questi totali!
}
}
void TDistintaG::stampa_testata(TPrinter& pr)
@ -1387,22 +1191,38 @@ void TDistintaG::stampa_testata(TPrinter& pr)
TForm_item& nf = head.find_field(H_NUM_FOGLIO);
TString fstr(10); fstr << _num_foglio;
nf.set(fstr);
_num_foglio++;
_num_foglio++;
fill_page(pr, HEADER_PRIMA_GD);
}
void TDistintaG::set_body(TPrinter& pr, const char tipo)
{
TPrint_section& body = section('B', odd_page);
body.reset();
body.update();
aggiorna_totali(tipo);
const int body_righe = body.height();
for (int i=0; i < body_righe; i++)
if (tipo == 'F')
{
pr.print(body.row(i));
_RigaCorr++;
TPrint_section& body = section('B', odd_page);
body.reset();
body.update();
const int body_righe = body.height();
for (int i=0; i < body_righe; i++)
{
pr.print(body.row(i));
_RigaCorr++;
}
}
if (usa_progind())
else
if (tipo == 'G')
{
TPrint_section& body = section('B', even_page);
body.reset();
body.update();
const int body_righe = body.height();
for (int i=0; i < body_righe; i++)
{
pr.print(body.row(i));
_RigaCorr++;
}
}
if (usa_progind())
progind()->addstatus(1);
}
@ -1506,7 +1326,7 @@ bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoF
{
// Reset del flag di pagina con posiz.
if (_posiziona && _PaginaPosizionamento) _PaginaPosizionamento = FALSE;
for (int righe=0; righe < QD_RIGHE_SECONDA; righe++)
for (int righe=0; righe < QGD_RIGHE_SECONDA; righe++)
{
if (!righe)
_CtrNoFisStampati = 0;
@ -4005,40 +3825,6 @@ bool TStampaQuadroF::user_destroy()
return TRUE;
}
///////////////////////////////////////////////////////////////////////////////////////////
//
// Quadro H
//
///////////////////////////////////////////////////////////////////////////////////////////
HIDDEN const int QH_FORMLEN = 72;
HIDDEN const int QH_PAGINE = 2;
HIDDEN const int HEADER_SECONDA_H = 7;
class TQuadroH : public TDicForm
{
private:
real _rC2t, _rC3t; // totali colonna 2 e 3
long _items;
void azzera_contatori();
// void aggiorna_totali(char tipoprosp, TRectype& r);
// void stampa_totali(char tipoprosp, TPrinter& pr);
public:
virtual bool print(const long codditta, const long numfis=0L, const long numnofis=0L);
virtual void inc_curr_page();
virtual void next_page(TPrinter& pr);
TQuadroH(const char* form, const char* quadro) : TDicForm(form, quadro) {}
virtual ~TQuadroH() {}
};
void TQuadroH::azzera_contatori()
{
_rC2t = _rC3t = ZERO;
}
///////////////////////////////////////////////////////////
// Quadro 770/A
///////////////////////////////////////////////////////////
@ -4951,6 +4737,153 @@ bool TStampaQuadroC::user_create()
return TRUE;
}
///////////////////////////////////////////////////////////////////////////////////////////
//
// Quadro H
//
///////////////////////////////////////////////////////////////////////////////////////////
class TQuadroH : public TQuadroA
{
enum { QH_FORMLEN = 72 };
protected:
virtual int elementi_pagina(PaginaQuadro p) const;
virtual int prima_riga(PaginaQuadro p) const;
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
virtual void inc_curr_page();
public:
TQuadroH(const char* form, const char* quadro) : TQuadroA(form, quadro) { }
virtual ~TQuadroH() { }
};
void TQuadroH::inc_curr_page()
{
if (_PaginaCorrente == PRIMA)
_PaginaCorrente = SECONDA;
else
if (_PaginaCorrente == SECONDA)
_PaginaCorrente = PRIMA;
}
int TQuadroH::elementi_pagina(PaginaQuadro p) const
{
const int n[2] = { 21, 27 };
return n[p-PRIMA];
}
int TQuadroH::prima_riga(PaginaQuadro p) const
{
return p == PRIMA ? 24 : 9;
}
bool TQuadroH::print(const long codditta, const long NumFis, const long NumNoFis)
{
TCursor& cur = *cursor();
TPrinter& pr = printer();
if (!InitPrint(codditta))
return FALSE;
pr.formlen(QH_FORMLEN);
int elementi = 0; // Numero di elementi stampati in questa pagina
bool stampato_ultimo = FALSE;
bool stampati_totali = FALSE;
cur = 0;
while (!stampati_totali)
{
bool stampero_ultimo = stampato_ultimo == FALSE;
if (stampero_ultimo)
stampero_ultimo &= cur.pos() == cur.items()-1;
switch(_PaginaCorrente)
{
case PRIMA:
if (_modulaser)
ClearFlagModulaser();
if (elementi == 0)
{
stampa_testata(pr);
jump_to_line(pr, prima_riga(PRIMA));
}
if (!stampato_ultimo)
{
stampa_corpo(pr);
stampato_ultimo = stampero_ultimo;
}
elementi++;
if (elementi >= elementi_pagina(PRIMA))
{
next_page(pr);
elementi = 0;
}
break;
case SECONDA:
if (!stampato_ultimo)
{
if (elementi == 0)
jump_to_line(pr, prima_riga(SECONDA));
stampa_corpo(pr);
stampato_ultimo = stampero_ultimo;
}
elementi++;
if (elementi >= elementi_pagina(SECONDA))
{
if (stampato_ultimo)
{
jump_to_line(pr, riga_totali(SECONDA));
stampa_totali(pr);
stampati_totali = TRUE;
}
next_page(pr);
elementi = 0;
}
break;
default:
CHECK(0, "Invalid Quadro A page");
break;
}
if (!stampato_ultimo)
++cur;
}
close_print();
return TRUE;
}
class TStampaQuadroH : public TStampaQuadroA
{
protected:
virtual bool user_create();
public:
TStampaQuadroH(const char* quadro, char livel) : TStampaQuadroA(quadro, livel) { }
virtual ~TStampaQuadroH() { }
};
bool TStampaQuadroH::user_create()
{
_form = new TQuadroH("77QH", quadro());
TString sortkey(80);
sortkey.format("CODDITTA|H1ANNO|H1ENTE", LF_QUAH, LF_QUAH);
_cur = new TSorted_cursor(_form->TForm::relation(), sortkey);
return TRUE;
}
/////////////////////////////////////////////////////////////////////////////////
//
@ -5008,12 +4941,11 @@ int stampa_quadro(int argc, char* argv[])
{
app = new TStampaQuadroG1(livello);
}
/*
else if (quadro == "H")
{
app = new TStampaQuadroH app(quadro, livello);
app = new TStampaQuadroH(quadro, livello);
}
*/
if (app != NULL)
{
app->run(argc, argv, app->taitol());
@ -5022,3 +4954,4 @@ int stampa_quadro(int argc, char* argv[])
}
return 0;
}