Correzione errori
git-svn-id: svn://10.65.10.50/trunk@3641 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale
parent
35cab21772
commit
32d69eef40
@ -8,7 +8,7 @@ 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 13 TO 216@ ALIAS 413 INTO COM=COMRES
|
||||
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
|
||||
END
|
||||
|
||||
@ -129,6 +129,7 @@ BEGIN
|
||||
KEY "VIA di RES."
|
||||
PROMPT 67 14 ""
|
||||
FIELD 116@->INDRF
|
||||
FIELD 116@->INDRES
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,17
|
||||
END
|
||||
@ -137,7 +138,8 @@ STRINGA 15
|
||||
BEGIN
|
||||
KEY "NUM. CIVICO di RES."
|
||||
PROMPT 103 14 ""
|
||||
FIELD 116@->CIVRF
|
||||
FIELD 116@->CIVRF
|
||||
FIELD 116@->CIVRES
|
||||
FLAGS "H"
|
||||
MESSAGE APPEND,17
|
||||
END
|
||||
@ -152,7 +154,8 @@ STRINGA 16
|
||||
BEGIN
|
||||
KEY "CAP"
|
||||
PROMPT 124 14 ""
|
||||
FIELD 116@->CAPRF
|
||||
FIELD 116@->CAPRF
|
||||
FIELD 116@->CAPRES
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
|
||||
869
m770/77qd.frm
869
m770/77qd.frm
@ -1,422 +1,447 @@
|
||||
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=COMRES
|
||||
JOIN 13 TO 216@ ALIAS 513 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
|
||||
FIELD 116@->INDRES
|
||||
END
|
||||
|
||||
STRINGA 15
|
||||
BEGIN
|
||||
KEY "NUM. CIVICO di RES."
|
||||
PROMPT 102 16 ""
|
||||
FIELD 116@->CIVRF
|
||||
FIELD 116@->CIVRES
|
||||
END
|
||||
|
||||
STRINGA 16
|
||||
BEGIN
|
||||
KEY "CAP"
|
||||
PROMPT 122 16 ""
|
||||
FIELD 116@->CAPRF
|
||||
FIELD 116@->CAPRES
|
||||
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 SHOW,1@|HIDE,2@
|
||||
ITEM "G| " MESSAGE SHOW,2@|HIDE,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 7
|
||||
BEGIN
|
||||
KEY "PROV DI NASCITA"
|
||||
PROMPT 47 3 ""
|
||||
FIELD 313@->PROVCOM
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 8
|
||||
BEGIN
|
||||
KEY "COMUNE DI RESIDENZA FISICHE"
|
||||
PROMPT 53 3 ""
|
||||
FIELD 413@->DENCOM
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 9
|
||||
BEGIN
|
||||
KEY "PROV. RESIDENZA FISICHE"
|
||||
PROMPT 88 3 ""
|
||||
FIELD 413@->PROVCOM
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 101
|
||||
BEGIN
|
||||
KEY "COMUNE RF/RES. GIURIDICHE"
|
||||
PROMPT 10 3 ""
|
||||
FIELD 513@->DENCOM
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 106
|
||||
BEGIN
|
||||
KEY "PROV. RF/RES GIURIDICHE"
|
||||
PROMPT 61 3 ""
|
||||
FIELD 513@->PROVCOM
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 108
|
||||
BEGIN
|
||||
KEY "VIA RES. FISICHE"
|
||||
FIELD 216@->INDRES[1,18]
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,10
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 109
|
||||
BEGIN
|
||||
KEY "NUM.CIV DI RESIDENZA FISICHE"
|
||||
FLAGS "H"
|
||||
FIELD 216@->CIVRES
|
||||
MESSAGE APPEND,10
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 10
|
||||
BEGIN
|
||||
KEY "VIA RES. + NUMCIVRES FISICHE"
|
||||
PROMPT 95 3 ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 110
|
||||
BEGIN
|
||||
KEY "VIA RF/RES. GIURIDICHE"
|
||||
FIELD 216@->INDRF[1,18]
|
||||
FIELD 216@->INDRES[1,18]
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,107
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 111
|
||||
BEGIN
|
||||
KEY "NUM.CIV RF/RES GIURIDICHE"
|
||||
FLAGS "H"
|
||||
FIELD 216@->CIVRF
|
||||
FIELD 216@->CIVRES
|
||||
MESSAGE APPEND,107
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 107
|
||||
BEGIN
|
||||
KEY "VIA RES GIURIDICHE"
|
||||
PROMPT 69 3 ""
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 11
|
||||
BEGIN
|
||||
KEY "FLAG DI NON RESIDENTE"
|
||||
PROMPT 12 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 79 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 11 7 ""
|
||||
FIELD 14@->S0[1,20]
|
||||
END
|
||||
|
||||
NUMBER 16
|
||||
BEGIN
|
||||
KEY "TOTALE"
|
||||
PROMPT 42 7 ""
|
||||
// FIELD 62->TOTALE
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->16
|
||||
END
|
||||
|
||||
NUMBER 17
|
||||
BEGIN
|
||||
KEY "SOMME NON SOGGETTE A RITENUTA"
|
||||
PROMPT 61 7 ""
|
||||
// FIELD 62->SOMME
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->17
|
||||
END
|
||||
|
||||
NUMBER 18
|
||||
BEGIN
|
||||
KEY "IMPONIBILE"
|
||||
PROMPT 82 7 ""
|
||||
// FIELD 62->IMPONIBILE
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->18
|
||||
END
|
||||
|
||||
STRING 19
|
||||
BEGIN
|
||||
KEY "ALIQUOTA"
|
||||
PROMPT 93 7 ""
|
||||
FIELD 62->PERC
|
||||
PICTURE "###@@"
|
||||
END
|
||||
|
||||
NUMBER 20
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
PROMPT 106 7 ""
|
||||
// FIELD 62->IMPORTO
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->20
|
||||
END
|
||||
|
||||
NUMBER 21
|
||||
BEGIN
|
||||
KEY "NETTO"
|
||||
PROMPT 126 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
|
||||
|
||||
870
m770/77qd1.frm
870
m770/77qd1.frm
@ -1,423 +1,447 @@
|
||||
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=COMRES
|
||||
JOIN 13 TO 216@ ALIAS 513 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 58 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 84 14 ""
|
||||
FIELD 113@->DENCOM
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 125 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 67 16 ""
|
||||
FIELD 116@->INDRF
|
||||
FIELD 116@->INDRES
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,17
|
||||
END
|
||||
|
||||
STRINGA 15
|
||||
BEGIN
|
||||
KEY "NUM. CIVICO di RES."
|
||||
PROMPT 103 16 ""
|
||||
FIELD 116@->CIVRF
|
||||
FIELD 116@->CIVRES
|
||||
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
|
||||
FIELD 116@->CAPRES
|
||||
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 114 1 ""
|
||||
FIELD 218@->DATANASC
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 5
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 128 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 48 3 ""
|
||||
FIELD 313@->PROVCOM
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 8
|
||||
BEGIN
|
||||
KEY "COMUNE DI RESIDENZA FISICHE"
|
||||
PROMPT 53 3 ""
|
||||
FIELD 413@->DENCOM
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 9
|
||||
BEGIN
|
||||
KEY "PROV. RESIDENZA FISICHE"
|
||||
PROMPT 89 3 ""
|
||||
FIELD 413@->PROVCOM
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 102
|
||||
BEGIN
|
||||
KEY "COMUNE RF/RES. GIURIDICHE"
|
||||
PROMPT 10 3 ""
|
||||
FIELD 513@->DENCOM
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 103
|
||||
BEGIN
|
||||
KEY "PROVINCIA RF/RES. GIURIDICHE"
|
||||
PROMPT 51 3 ""
|
||||
FIELD 513@->PROVCOM
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 105
|
||||
BEGIN
|
||||
KEY "VIA RESIDENZA FISICHE"
|
||||
FIELD 216@->INDRES[1,18]
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,10
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 106
|
||||
BEGIN
|
||||
KEY "NUMERO CIVICO RES. FISICHE"
|
||||
FLAGS "H"
|
||||
FIELD 216@->CIVRES
|
||||
MESSAGE APPEND,10
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 10
|
||||
BEGIN
|
||||
KEY "VIA + NUMERO CIVICO RESIDENZA FISICHE"
|
||||
PROMPT 95 3 ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 105
|
||||
BEGIN
|
||||
KEY "VIA RF/RES. GIURIDICHE"
|
||||
FIELD 216@->INDRF[1,18]
|
||||
FIELD 216@->INDRES[1,18]
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,104
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 106
|
||||
BEGIN
|
||||
KEY "NUMERO CIVICO RF/RES. GIURIDICHE"
|
||||
FLAGS "H"
|
||||
FIELD 216@->CIVRF
|
||||
FIELD 216@->CIVRES
|
||||
MESSAGE APPEND,104
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 104
|
||||
BEGIN
|
||||
KEY "VIA + NUMERO CIVICO RF/RES. GIURIDICHE"
|
||||
PROMPT 75 3 ""
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 11
|
||||
BEGIN
|
||||
KEY "CAUSALE DEL QUADRO D1"
|
||||
PROMPT 13 5 ""
|
||||
FIELD 14@->S3
|
||||
END
|
||||
|
||||
NUMBER 12
|
||||
BEGIN
|
||||
KEY "TOTALE"
|
||||
PROMPT 23 5 ""
|
||||
// FIELD 63->TOTALE
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->12
|
||||
END
|
||||
|
||||
NUMBER 13
|
||||
BEGIN
|
||||
KEY "QUOTA PROVVIGIONI"
|
||||
PROMPT 40 5 ""
|
||||
// FIELD 63->QUOTAPRO
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->13
|
||||
END
|
||||
|
||||
NUMBER 14
|
||||
BEGIN
|
||||
KEY "SPESE ANTICIPATE"
|
||||
PROMPT 57 5 ""
|
||||
// FIELD 63->SPESEANT
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->14
|
||||
END
|
||||
|
||||
NUMBER 15
|
||||
BEGIN
|
||||
KEY "IMPONIBILE"
|
||||
PROMPT 75 5 ""
|
||||
// FIELD 63->IMPONIBILE
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->15
|
||||
END
|
||||
|
||||
STRING 16
|
||||
BEGIN
|
||||
KEY "ALIQUOTA"
|
||||
PROMPT 90 5 ""
|
||||
FIELD 63->PERC
|
||||
PICTURE "###@@"
|
||||
END
|
||||
|
||||
NUMBER 17
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
PROMPT 104 5 ""
|
||||
// FIELD 63->IMPORTO
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->17
|
||||
END
|
||||
|
||||
NUMBER 18
|
||||
BEGIN
|
||||
KEY "NETTO"
|
||||
PROMPT 120 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
|
||||
|
||||
2355
m770/77qg.frm
2355
m770/77qg.frm
File diff suppressed because it is too large
Load Diff
691
m770/77qgd.frm
691
m770/77qgd.frm
@ -1,341 +1,350 @@
|
||||
USE 101
|
||||
JOIN 6 TO 101 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 216@ ALIAS 313 INTO COM=COMNASC
|
||||
JOIN 13 TO 218@ ALIAS 413 INTO COM=COMRF(COMRES)
|
||||
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
|
||||
END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
62->* "770 Quadro G distinta"
|
||||
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 17
|
||||
|
||||
NUMBER 14
|
||||
BEGIN
|
||||
KEY "NUM. FOGLIO"
|
||||
PROMPT 123 20 ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY ODD 8
|
||||
|
||||
STRINGA 1
|
||||
BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 10 1 ""
|
||||
FIELD 216@->COFI
|
||||
END
|
||||
|
||||
STRING 2
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 43 1 ""
|
||||
FIELD 216@->RAGSOC[1,30]
|
||||
END
|
||||
|
||||
STRING 3
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 82 1 ""
|
||||
FIELD 216@->RAGSOC[31,50]
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 4
|
||||
BEGIN
|
||||
KEY "DATA NASCITA"
|
||||
PROMPT 10 3 ""
|
||||
FIELD 218@->DATANASC
|
||||
END
|
||||
|
||||
STRING 5
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 36 3 ""
|
||||
FIELD 218@->SESSO
|
||||
END
|
||||
|
||||
STRING 6
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 44 3 ""
|
||||
FIELD 313@->DENCOM
|
||||
END
|
||||
|
||||
STRING 7
|
||||
BEGIN
|
||||
KEY "PROV DI NASCITA"
|
||||
PROMPT 117 3 ""
|
||||
FIELD 313@->PROVCOM
|
||||
END
|
||||
|
||||
STRING 8
|
||||
BEGIN
|
||||
KEY "COMUNE DI RESIDENZA"
|
||||
PROMPT 10 5 ""
|
||||
FIELD 413@->DENCOM
|
||||
END
|
||||
|
||||
STRING 9
|
||||
BEGIN
|
||||
KEY "PROV. RESIDENZA"
|
||||
PROMPT 58 5 ""
|
||||
FIELD 413@->PROVCOM
|
||||
END
|
||||
|
||||
STRING 101
|
||||
BEGIN
|
||||
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. + numcivres"
|
||||
PROMPT 66 5 ""
|
||||
END
|
||||
|
||||
STRING 11
|
||||
BEGIN
|
||||
KEY "NUMERO QUOTE"
|
||||
PROMPT 125 5 ""
|
||||
FIELD 101->NUMQUOTE
|
||||
PICTURE "####^^^"
|
||||
END
|
||||
|
||||
NUMBER 12
|
||||
BEGIN
|
||||
KEY "UTILI SPETTANTI"
|
||||
PROMPT 31 7 ""
|
||||
FIELD 101->UTSPETT
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FO->12
|
||||
END
|
||||
|
||||
NUMBER 13
|
||||
BEGIN
|
||||
KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
|
||||
PROMPT 59 7 ""
|
||||
FIELD 101->ROPESPET
|
||||
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 6
|
||||
|
||||
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 31 1 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMBER 13
|
||||
BEGIN
|
||||
KEY "TOTALE R.OPE.SU UT.SPETT."
|
||||
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.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 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
|
||||
USE 101
|
||||
JOIN 6 TO 101 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=COMRES
|
||||
JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
|
||||
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
|
||||
END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
62->* "770 Quadro G distinta"
|
||||
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 17
|
||||
|
||||
STRINGA 13
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE DICHIARANTE"
|
||||
PROMPT 105 19 ""
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMBER 14
|
||||
BEGIN
|
||||
KEY "NUM. FOGLIO"
|
||||
PROMPT 123 5 ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY ODD 8
|
||||
|
||||
STRINGA 1
|
||||
BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 10 1 ""
|
||||
FIELD 216@->COFI
|
||||
END
|
||||
|
||||
STRING 2
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 43 1 ""
|
||||
FIELD 216@->RAGSOC[1,30]
|
||||
END
|
||||
|
||||
STRING 3
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 98 1 ""
|
||||
FIELD 216@->RAGSOC[31,50]
|
||||
END
|
||||
|
||||
STRING 4
|
||||
BEGIN
|
||||
KEY "DATA NASCITA"
|
||||
PROMPT 10 3 ""
|
||||
FIELD 218@->DATANASC
|
||||
END
|
||||
|
||||
STRING 5
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 36 3 ""
|
||||
FIELD 218@->SESSO
|
||||
END
|
||||
|
||||
STRING 6
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 44 3 ""
|
||||
FIELD 313@->DENCOM
|
||||
END
|
||||
|
||||
STRING 7
|
||||
BEGIN
|
||||
KEY "PROV DI NASCITA"
|
||||
PROMPT 117 3 ""
|
||||
FIELD 313@->PROVCOM
|
||||
END
|
||||
|
||||
STRING 8
|
||||
BEGIN
|
||||
KEY "COMUNE DI RESIDENZA"
|
||||
PROMPT 10 5 ""
|
||||
FIELD 413@->DENCOM
|
||||
END
|
||||
|
||||
STRING 9
|
||||
BEGIN
|
||||
KEY "PROV. RESIDENZA"
|
||||
PROMPT 58 5 ""
|
||||
FIELD 413@->PROVCOM
|
||||
END
|
||||
|
||||
STRING 101
|
||||
BEGIN
|
||||
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. + numcivres"
|
||||
PROMPT 66 5 ""
|
||||
END
|
||||
|
||||
NUMBER 11
|
||||
BEGIN
|
||||
KEY "NUMERO QUOTE"
|
||||
PROMPT 125 5 ""
|
||||
FIELD 101->NUMQUOTE
|
||||
PICTURE "###@@"
|
||||
END
|
||||
|
||||
NUMBER 12
|
||||
BEGIN
|
||||
KEY "UTILI SPETTANTI"
|
||||
PROMPT 31 7 ""
|
||||
FIELD 101->UTSPETT
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FO->12
|
||||
END
|
||||
|
||||
NUMBER 13
|
||||
BEGIN
|
||||
KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
|
||||
PROMPT 59 7 ""
|
||||
FIELD 101->ROPESPET
|
||||
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 6
|
||||
|
||||
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 RF/RES. GIURIDICHE"
|
||||
PROMPT 10 3 ""
|
||||
FIELD 513@->DENCOM
|
||||
END
|
||||
|
||||
STRING 4
|
||||
BEGIN
|
||||
KEY "PROV. RF/RES. GIURIDICHE"
|
||||
PROMPT 61 3 ""
|
||||
FIELD 513@->PROVCOM
|
||||
END
|
||||
|
||||
STRING 5
|
||||
BEGIN
|
||||
KEY "VIA RF/RES. GIURIDICHE"
|
||||
PROMPT 94 3 ""
|
||||
FIELD 216@->INDRF[1,18]
|
||||
FIELD 216@->INDRES[1,18]
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,7
|
||||
END
|
||||
|
||||
STRING 6
|
||||
BEGIN
|
||||
KEY "NUM.CIV RF/RES. GIURIDICHE"
|
||||
PROMPT 93 3 ""
|
||||
FLAGS "H"
|
||||
FIELD 216@->CIVRF
|
||||
FIELD 216@->CIVRES
|
||||
MESSAGE APPEND,7
|
||||
END
|
||||
|
||||
STRING 7
|
||||
BEGIN
|
||||
KEY "VIA RF/RES. + numcivres"
|
||||
PROMPT 69 3 ""
|
||||
END
|
||||
|
||||
NUMBER 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 31 1 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMBER 13
|
||||
BEGIN
|
||||
KEY "TOTALE R.OPE.SU UT.SPETT."
|
||||
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.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 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
|
||||
|
||||
421
m770/77qh.frm
421
m770/77qh.frm
@ -1,209 +1,212 @@
|
||||
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
|
||||
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 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 83 14 ""
|
||||
FIELD 113@->DENCOM
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 125 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 67 16 ""
|
||||
FIELD 116@->INDRF
|
||||
FIELD 116@->INDRES
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,17
|
||||
END
|
||||
|
||||
STRINGA 15
|
||||
BEGIN
|
||||
KEY "NUM. CIVICO di RES."
|
||||
PROMPT 103 16 ""
|
||||
FIELD 116@->CIVRF
|
||||
FIELD 116@->CIVRES
|
||||
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
|
||||
FIELD 116@->CAPRES
|
||||
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
|
||||
|
||||
3939
m770/77stq.cpp
3939
m770/77stq.cpp
File diff suppressed because it is too large
Load Diff
@ -64,8 +64,9 @@ typedef enum { STARTDOC, STARTDITTA, STARTPAGE, ENDDOC } ModulaserKey;
|
||||
#define C_RITENUTE 18
|
||||
#define C_NETTO 19
|
||||
|
||||
#define H_COFI_DIC 13
|
||||
#define H_NUM_FOGLIO 14
|
||||
#define H_COFI_DIC 13
|
||||
#define H_NUM_FOGLIO 14
|
||||
#define QD_STATO_ESTERO 12
|
||||
|
||||
// Quadro D
|
||||
HIDDEN const int QD_FORMLEN_PRIMA = 70; // 72 - 3 (3 e' la posizione della X di posiz.)
|
||||
@ -92,6 +93,8 @@ HIDDEN const int HEADER_D1_QUARTA = 14;
|
||||
typedef enum { PRIMA=1, SECONDA, TERZA, QUARTA } PaginaQuadro;
|
||||
typedef enum { fisiche, nofisiche } TipoPagina;
|
||||
|
||||
const char* get_ragsoc_anagr(char tipo, long codanagr);
|
||||
|
||||
class TDicForm : public TForm
|
||||
{
|
||||
private:
|
||||
|
||||
115
m770/77stqc.cpp
115
m770/77stqc.cpp
@ -11,32 +11,56 @@
|
||||
bool TQuadroC::controlla_percentuale(TCursor& cur, const real& perc_p)
|
||||
{
|
||||
bool stampa = TRUE;
|
||||
|
||||
long ditta_p = cur.curr().get_long(QUC_CODDITTA);
|
||||
char tipo_p = cur.curr().get_char(QUC_TIPOA);
|
||||
long codana_p = cur.curr().get_long(QUC_CODANAGR);
|
||||
TString codcaus_p = cur.curr().get (QUC_CODCAUS);
|
||||
TString ragsoc_p = get_ragsoc_anagr(tipo_p,codana_p);
|
||||
|
||||
if (perc_p == ZERO)
|
||||
{
|
||||
long ditta_p = cur.curr().get_long(QUC_CODDITTA);
|
||||
char tipo_p = cur.curr().get_char(QUC_TIPOA);
|
||||
long codana_p = cur.curr().get_long(QUC_CODANAGR);
|
||||
TString codcaus_p = cur.curr().get (QUC_CODCAUS);
|
||||
|
||||
++(cur);
|
||||
long ditta = cur.curr().get_long(QUC_CODDITTA);
|
||||
char tipo = cur.curr().get_char(QUC_TIPOA);
|
||||
long codana = cur.curr().get_long(QUC_CODANAGR);
|
||||
TString codcaus = cur.curr().get (QUC_CODCAUS);
|
||||
real perc = cur.curr().get_real(QUC_PERC);
|
||||
|
||||
if (ditta == ditta_p && tipo == tipo_p &&
|
||||
codana == codana_p && codcaus == codcaus_p)
|
||||
TString ragsoc = get_ragsoc_anagr(tipo,codana);
|
||||
real perc = cur.curr().get_real(QUC_PERC);
|
||||
|
||||
if (ditta == ditta_p && tipo == tipo_p && ragsoc == ragsoc_p
|
||||
&& codana == codana_p && codcaus == codcaus_p)
|
||||
{
|
||||
if (perc != ZERO)
|
||||
{
|
||||
stampa = FALSE;
|
||||
_devo_sommare = TRUE;
|
||||
}
|
||||
}
|
||||
else
|
||||
stampa = FALSE;
|
||||
}
|
||||
--(cur);
|
||||
}
|
||||
}
|
||||
else
|
||||
if (perc_p != ZERO)
|
||||
{
|
||||
++(cur);
|
||||
long ditta = cur.curr().get_long(QUC_CODDITTA);
|
||||
char tipo = cur.curr().get_char(QUC_TIPOA);
|
||||
long codana = cur.curr().get_long(QUC_CODANAGR);
|
||||
TString codcaus = cur.curr().get (QUC_CODCAUS);
|
||||
TString ragsoc = get_ragsoc_anagr(tipo,codana);
|
||||
real perc = cur.curr().get_real(QUC_PERC);
|
||||
|
||||
if (ditta == ditta_p && tipo == tipo_p && ragsoc == ragsoc_p &&
|
||||
codana == codana_p && codcaus == codcaus_p && perc_p == perc)
|
||||
stampa = FALSE;
|
||||
else
|
||||
_devo_sommare = TRUE;
|
||||
|
||||
--(cur);
|
||||
}
|
||||
|
||||
return stampa;
|
||||
}
|
||||
|
||||
@ -44,12 +68,12 @@ void TQuadroC::leggi_importi()
|
||||
{
|
||||
TCursor* cur = cursor();
|
||||
|
||||
_totale = cur->curr().get_real(QUC_TOTALE);
|
||||
_contssn = cur->curr().get_real(QUC_CONTSSN);
|
||||
_somme = cur->curr().get_real(QUC_SOMME);
|
||||
_imponibile = cur->curr().get_real(QUC_IMPONIBILE);
|
||||
_ritenute = cur->curr().get_real(QUC_RITENUTE);
|
||||
_netto = cur->curr().get_real(QUC_NETTO);
|
||||
_totale += cur->curr().get_real(QUC_TOTALE);
|
||||
_contssn += cur->curr().get_real(QUC_CONTSSN);
|
||||
_somme += cur->curr().get_real(QUC_SOMME);
|
||||
_imponibile += cur->curr().get_real(QUC_IMPONIBILE);
|
||||
_ritenute += cur->curr().get_real(QUC_RITENUTE);
|
||||
_netto += cur->curr().get_real(QUC_NETTO);
|
||||
}
|
||||
|
||||
void TQuadroC::setta_importi(TPrint_section& body)
|
||||
@ -69,9 +93,15 @@ void TQuadroC::setta_importi(TPrint_section& body)
|
||||
contssn += _contssn;
|
||||
somme += _somme;
|
||||
imponibile += _imponibile;
|
||||
ritenute += _ritenute;
|
||||
ritenute += _ritenute;
|
||||
netto += _netto;
|
||||
_devo_sommare = FALSE;
|
||||
_devo_sommare = FALSE;
|
||||
_totale = ZERO;
|
||||
_contssn = ZERO;
|
||||
_somme = ZERO;
|
||||
_imponibile = ZERO;
|
||||
_ritenute = ZERO;
|
||||
_netto = ZERO;
|
||||
}
|
||||
|
||||
TForm_item& ftotale = body.find_field(C_TOTALE);
|
||||
@ -137,7 +167,8 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
|
||||
|
||||
pr.formlen(QA_FORMLEN);
|
||||
|
||||
int elementi = 0; // Numero di elementi stampati in questa pagina
|
||||
int elementi = 0; // Numero di elementi stampati in questa pagina
|
||||
int ele_bis = 0;
|
||||
bool stampato_ultimo = FALSE;
|
||||
bool stampati_totali = FALSE;
|
||||
|
||||
@ -178,7 +209,7 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
|
||||
if (_modulaser)
|
||||
ClearFlagModulaser();
|
||||
|
||||
if (elementi == 0)
|
||||
if (ele_bis == 0)
|
||||
{
|
||||
stampa_testata(pr);
|
||||
jump_to_line(pr, prima_riga(PRIMA));
|
||||
@ -190,24 +221,28 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
|
||||
stampa = controlla_percentuale(cur,perc_p);
|
||||
if (stampa)
|
||||
stampa_corpo(pr);
|
||||
else
|
||||
leggi_importi();
|
||||
|
||||
else
|
||||
{
|
||||
leggi_importi();
|
||||
elementi--;
|
||||
}
|
||||
stampato_ultimo = stampero_ultimo;
|
||||
}
|
||||
|
||||
elementi++;
|
||||
ele_bis++;
|
||||
if (elementi >= elementi_pagina(PRIMA))
|
||||
{
|
||||
next_page(pr);
|
||||
elementi = 0;
|
||||
elementi = 0;
|
||||
ele_bis = 0;
|
||||
}
|
||||
break;
|
||||
case SECONDA:
|
||||
case TERZA:
|
||||
if (!stampato_ultimo)
|
||||
{
|
||||
if (elementi == 0)
|
||||
if (ele_bis == 0)
|
||||
jump_to_line(pr, prima_riga(_PaginaCorrente));
|
||||
|
||||
real perc_p = cur.curr().get_real(QUC_PERC);
|
||||
@ -215,34 +250,41 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
|
||||
if (stampa)
|
||||
stampa_corpo(pr);
|
||||
else
|
||||
leggi_importi();
|
||||
|
||||
{
|
||||
leggi_importi();
|
||||
elementi--;
|
||||
}
|
||||
stampato_ultimo = stampero_ultimo;
|
||||
}
|
||||
elementi++;
|
||||
elementi++;
|
||||
ele_bis++;
|
||||
if (elementi >= elementi_pagina(_PaginaCorrente))
|
||||
{
|
||||
next_page(pr);
|
||||
elementi = 0;
|
||||
elementi = 0;
|
||||
ele_bis = 0;
|
||||
}
|
||||
break;
|
||||
case QUARTA:
|
||||
if (!stampato_ultimo)
|
||||
{
|
||||
if (elementi == 0)
|
||||
if (ele_bis == 0)
|
||||
jump_to_line(pr, prima_riga(QUARTA));
|
||||
|
||||
real perc_p = cur.curr().get_real(QUC_PERC);
|
||||
stampa = controlla_percentuale(cur,perc_p);
|
||||
if (stampa)
|
||||
stampa_corpo(pr);
|
||||
else
|
||||
leggi_importi();
|
||||
|
||||
else
|
||||
{
|
||||
leggi_importi();
|
||||
elementi--;
|
||||
}
|
||||
stampato_ultimo = stampero_ultimo;
|
||||
}
|
||||
|
||||
elementi++;
|
||||
elementi++;
|
||||
ele_bis++;
|
||||
|
||||
if (elementi >= elementi_pagina(QUARTA))
|
||||
{
|
||||
@ -253,7 +295,8 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
|
||||
stampati_totali = TRUE;
|
||||
}
|
||||
next_page(pr);
|
||||
elementi = 0;
|
||||
elementi = 0;
|
||||
ele_bis = 0;
|
||||
}
|
||||
break;
|
||||
default:
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user