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

Inserimento della stampa del quadro C

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3225 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale 1996-07-24 07:48:26 +00:00
parent b84f269f65
commit cafd14f200
6 changed files with 4758 additions and 4805 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
m770/772.pdb
View File

Binary file not shown.

321
m770/77qc.frm
View File

@ -7,14 +7,14 @@ JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES) JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 61 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 61 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO 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 313 INTO COM=COMNASC
JOIN 13 TO 218@ ALIAS 413 INTO COM=COMRF(COMRES) JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
61->* "Quadro D 770" 61->* "Quadro C 770"
9->* "Ditte" 9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche" 6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche" 8->* "Anagrafica persone fisiche"
@ -30,25 +30,34 @@ GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
FONT "Courier 17cpi" FONT "Courier 17cpi"
SIZE 10 SIZE 11
CA "X" CA "X"
IN 3 2 IN 3 2
FI 131 FI 131
END END
SECTION HEADER FIRST 28 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 STRINGA 1
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 4 9 "" PROMPT 3 11 ""
FIELD 116@->COFI FIELD 116@->COFI
END END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE"
PROMPT 39 9 "" PROMPT 39 11 ""
FIELD 116@->RAGSOC FIELD 116@->RAGSOC
GROUP 2 GROUP 2
END END
@ -56,7 +65,7 @@ END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 39 9 "" PROMPT 39 11 ""
FIELD 116@->RAGSOC[1,30] FIELD 116@->RAGSOC[1,30]
GROUP 1 GROUP 1
END END
@ -64,7 +73,7 @@ END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 17 11 "" PROMPT 17 13 ""
FIELD 116@->RAGSOC[31,50] FIELD 116@->RAGSOC[31,50]
GROUP 1 GROUP 1
END END
@ -72,7 +81,7 @@ END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 58 11 "" PROMPT 56 13 ""
FIELD 118@->SESSO FIELD 118@->SESSO
GROUP 1 GROUP 1
END END
@ -80,7 +89,7 @@ END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 66 11 "" PROMPT 63 13 ""
FIELD 118@->DATANASC FIELD 118@->DATANASC
GROUP 1 GROUP 1
END END
@ -88,7 +97,7 @@ END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 84 11 "" PROMPT 83 13 ""
FIELD 113@->DENCOM FIELD 113@->DENCOM
GROUP 1 GROUP 1
END END
@ -96,69 +105,71 @@ END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 126 11 "" PROMPT 122 13 ""
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
GROUP 1 GROUP 1
END END
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 10 STRINGA 10
BEGIN BEGIN
KEY "COMUNE DI RES.FISCALE" KEY "COMUNE DI RES.FISCALE"
PROMPT 17 13 "" PROMPT 17 15 ""
FIELD 213@->DENCOM FIELD 213@->DENCOM
END END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "PROV DI RES.FISCALE" KEY "PROV DI RES.FISCALE"
PROMPT 59 13 "" PROMPT 56 15 ""
FIELD 213@->PROVCOM FIELD 213@->PROVCOM
END END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 66 13 "" PROMPT 67 15 ""
FIELD 116@->INDRF FIELD 116@->INDRF
END FLAGS "H"
MESSAGE COPY,17
STRINGA 13
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 102 13 ""
FIELD 116@->CIVRF
END
STRINGA 14
BEGIN
KEY "CAP"
PROMPT 120 13 ""
FIELD 116@->CAPRF
END END
STRINGA 15 STRINGA 15
BEGIN BEGIN
KEY "CODICE FISCALE DICHIARANTE" KEY "NUM. CIVICO di RES."
PROMPT 118 16 "" PROMPT 103 15 ""
FIELD 116@->CIVRF
FLAGS "H"
MESSAGE APPEND,17
END END
NUMBER 16 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 BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 123 20 "" PROMPT 125 21 ""
END END
END END
SECTION BODY ODD 8 SECTION BODY ODD 6
LISTA 100 LISTA 100
BEGIN BEGIN
@ -171,14 +182,14 @@ END
STRINGA 1 STRINGA 1
BEGIN BEGIN
KEY "COD.FIS" KEY "COD.FIS"
PROMPT 10 2 "" PROMPT 10 1 ""
FIELD 216@->COFI FIELD 216@->COFI
END END
STRING 2 STRING 2
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 42 2 "" PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30] FIELD 216@->RAGSOC[1,30]
GROUP 1 GROUP 1
END END
@ -186,53 +197,37 @@ END
STRING 3 STRING 3
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 81 2 "" PROMPT 81 1 ""
FIELD 216@->RAGSOC[31,50] FIELD 216@->RAGSOC[31,50]
GROUP 1 GROUP 1
END END
STRING 102
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 54 2 ""
FIELD 216@->RAGSOC
GROUP 2
END
STRING 4 STRING 4
BEGIN BEGIN
KEY "DATA NASCITA" KEY "DATA NASCITA"
PROMPT 114 2 "" PROMPT 114 1 ""
FIELD 218@->DATANASC FIELD 218@->DATANASC
END END
STRING 5 STRING 5
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 129 2 "" PROMPT 129 1 ""
FIELD 218@->SESSO FIELD 218@->SESSO
END END
STRING 6 STRING 6
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 10 4 "" PROMPT 10 3 ""
FIELD 313@->DENCOM FIELD 313@->DENCOM
GROUP 1 GROUP 1
END END
STRING 101
BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE"
PROMPT 10 4 ""
FIELD 413@->DENCOM
GROUP 2
END
STRING 7 STRING 7
BEGIN BEGIN
KEY "PROV DI NASCITA" KEY "PROV DI NASCITA"
PROMPT 47 4 "" PROMPT 47 3 ""
FIELD 313@->PROVCOM FIELD 313@->PROVCOM
GROUP 1 GROUP 1
END END
@ -240,7 +235,7 @@ END
STRING 8 STRING 8
BEGIN BEGIN
KEY "COMUNE DI RESIDENZA" KEY "COMUNE DI RESIDENZA"
PROMPT 53 4 "" PROMPT 53 3 ""
FIELD 413@->DENCOM FIELD 413@->DENCOM
GROUP 1 GROUP 1
END END
@ -248,172 +243,154 @@ END
STRING 9 STRING 9
BEGIN BEGIN
KEY "PROV. RESIDENZA" KEY "PROV. RESIDENZA"
PROMPT 88 4 "" PROMPT 88 3 ""
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
END END
STRING 106 STRING 101
BEGIN BEGIN
KEY "PROV. RESIDENZA GIURIDICHE" KEY "VIA RES."
PROMPT 61 4 "" PROMPT 94 3 ""
FIELD 413@->PROVCOM FIELD 216@->INDRES[1,20]
GROUP 2 FLAGS "H"
MESSAGE COPY,10
END
STRING 102
BEGIN
KEY "NUM.CIV"
PROMPT 93 3 ""
FLAGS "H"
FIELD 216@->CIVRES
MESSAGE APPEND,10
END END
STRING 10 STRING 10
BEGIN BEGIN
KEY "VIA RES." KEY "VIA RES. + numcivres"
PROMPT 94 4 "" PROMPT 95 3 ""
FIELD 216@->INDRES[1,18] GROUP 1
FLAGS "H"
MESSAGE COPY,12|COPY,107
END END
STRING 11 STRING 11
BEGIN BEGIN
KEY "NUM.CIV" KEY "DESCR. CAUSALE"
PROMPT 93 4 "" PROMPT 10 5 ""
FLAGS "H" FIELD 14@->S0[1,20]
FIELD 216@->CIVRES
MESSAGE APPEND,12|APPEND,107
END END
STRING 12 STRING 12
BEGIN BEGIN
KEY "VIA RES. + numcivres" KEY "FLAG C.T."
PROMPT 95 4 "" PROMPT 34 5 ""
GROUP 1 FIELD 14@->B2
END
STRING 107
BEGIN
KEY "VIA RES GIURIDICHE"
PROMPT 69 4 ""
GROUP 2
END END
STRING 13 STRING 13
BEGIN BEGIN
KEY "FLAG I.C." KEY "FLAG T.S."
PROMPT 129 4 "" PROMPT 39 5 ""
FIELD 14@->B1 FIELD 14@->B3
END END
STRING 14 NUMBER 14
BEGIN BEGIN
KEY "FLAG DI NON RESIDENTE" KEY "AMMONTARE CORRISPOSTO"
PROMPT 11 6 "" PROMPT 45 5 ""
FIELD 216@->SOGGNRES PICTURE "###.###.###^^^"
END MESSAGE ADD,FL->14
STRING 15
BEGIN
KEY "STATO ESTERO DI RES."
PROMPT 16 6 ""
FIELD 24@->S0
END
STRING 16
BEGIN
KEY "CODICE STATO ESTERO DI RES."
PROMPT 75 6 ""
FIELD 216@->STATORES
END
STRING 17
BEGIN
KEY "CODICE FISCALE ESTERO"
PROMPT 89 6 ""
FIELD 216@->COFIEST
END
STRING 18
BEGIN
KEY "DESCR. CAUSALE"
PROMPT 10 8 ""
FIELD 14@->S0[1,20]
END
STRING 19
BEGIN
KEY "TOTALE"
PROMPT 36 8 ""
FIELD 61->TOTALE FIELD 61->TOTALE
PICTURE "#########^^^"
END END
STRING 20 NUMBER 15
BEGIN
KEY "CONTRIBUTI S.S.N."
PROMPT 60 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15
FIELD 61->CONTSSN
END
NUMBER 16
BEGIN BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA" KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 55 8 "" PROMPT 76 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->16
FIELD 61->SOMME FIELD 61->SOMME
PICTURE "#########^^^"
END END
STRING 21 NUMBER 17
BEGIN BEGIN
KEY "IMPONIBILE" KEY "IMPONIBILE"
PROMPT 75 8 "" PROMPT 91 5 ""
PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
FIELD 61->IMPONIBILE FIELD 61->IMPONIBILE
PICTURE "#########^^^"
END END
STRING 22 NUMBER 18
BEGIN BEGIN
KEY "ALIQUOTA" KEY "RITENUTE OPERATE"
PROMPT 88 8 "" PROMPT 105 5 ""
FIELD 61->PERC PICTURE "###.###.###^^^"
PICTURE "###@@" MESSAGE ADD,FL->18
FIELD 61->RITENUTE
END END
STRING 23 NUMBER 19
BEGIN BEGIN
KEY "IMPORTO" KEY "NETTO CORRISPOSTO"
PROMPT 100 8 "" PROMPT 120 5 ""
FIELD 61->IMPORTO PICTURE "###.###.###^^^"
PICTURE "#########^^^" MESSAGE ADD,FL->19
END
STRING 24
BEGIN
KEY "NETTO"
PROMPT 119 8 ""
FIELD 61->NETTO FIELD 61->NETTO
PICTURE "#########^^^"
END END
END END
SECTION BODY EVEN 2 SECTION FOOTER LAST 2
NUMBER 1 NUMBER 14
BEGIN BEGIN
KEY "TOTALE TOTALE" KEY "TOTALE AMMONTARE CORRISPOSTO"
PROMPT 36 1 "" PROMPT 45 1 ""
PICTURE "###.###.###^^^"
END END
NUMBER 2 NUMBER 15
BEGIN BEGIN
KEY "TOTALE SOMME NON SOGGETTE" KEY "TOTALE CONTRIBUTI S.S.N."
PROMPT 55 1 "" PROMPT 61 1 ""
PICTURE "###.###.###^^^"
END END
NUMBER 3 NUMBER 16
BEGIN
KEY "TOTALE SOMME NON SOGGETTE A RITENUTA"
PROMPT 76 1 ""
PICTURE "###.###.###^^^"
END
NUMBER 17
BEGIN BEGIN
KEY "TOTALE IMPONIBILE" KEY "TOTALE IMPONIBILE"
PROMPT 75 1 "" PROMPT 91 1 ""
PICTURE "###.###.###^^^"
END END
NUMBER 4 NUMBER 18
BEGIN BEGIN
KEY "TOTALE IMPORTO" KEY "TOTALE RITENUTE OPERATE"
PROMPT 101 1 "" PROMPT 105 1 ""
PICTURE "###.###.###^^^"
END END
NUMBER 5 NUMBER 19
BEGIN BEGIN
KEY "TOTALE NETTO" KEY "TOTALE NETTO CORRISPOSTO"
PROMPT 120 1 "" PROMPT 120 1 ""
PICTURE "###.###.###^^^"
END END
END END

28
m770/77qd.frm
View File

@ -41,14 +41,14 @@ SECTION HEADER FIRST 28
STRINGA 1 STRINGA 1
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 4 9 "" PROMPT 4 13 ""
FIELD 116@->COFI FIELD 116@->COFI
END END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE"
PROMPT 39 9 "" PROMPT 39 13 ""
FIELD 116@->RAGSOC FIELD 116@->RAGSOC
GROUP 2 GROUP 2
END END
@ -56,7 +56,7 @@ END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 39 9 "" PROMPT 39 13 ""
FIELD 116@->RAGSOC[1,30] FIELD 116@->RAGSOC[1,30]
GROUP 1 GROUP 1
END END
@ -64,7 +64,7 @@ END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 17 11 "" PROMPT 17 15 ""
FIELD 116@->RAGSOC[31,50] FIELD 116@->RAGSOC[31,50]
GROUP 1 GROUP 1
END END
@ -72,7 +72,7 @@ END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 58 11 "" PROMPT 58 15 ""
FIELD 118@->SESSO FIELD 118@->SESSO
GROUP 1 GROUP 1
END END
@ -80,7 +80,7 @@ END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 66 11 "" PROMPT 66 15 ""
FIELD 118@->DATANASC FIELD 118@->DATANASC
GROUP 1 GROUP 1
END END
@ -88,7 +88,7 @@ END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 84 11 "" PROMPT 84 15 ""
FIELD 113@->DENCOM FIELD 113@->DENCOM
GROUP 1 GROUP 1
END END
@ -96,7 +96,7 @@ END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 126 11 "" PROMPT 126 15 ""
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
GROUP 1 GROUP 1
END END
@ -112,42 +112,42 @@ END
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "COMUNE DI RES.FISCALE" KEY "COMUNE DI RES.FISCALE"
PROMPT 17 13 "" PROMPT 17 17 ""
FIELD 213@->DENCOM FIELD 213@->DENCOM
END END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "PROV DI RES.FISCALE" KEY "PROV DI RES.FISCALE"
PROMPT 59 13 "" PROMPT 59 17 ""
FIELD 213@->PROVCOM FIELD 213@->PROVCOM
END END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 66 13 "" PROMPT 66 17 ""
FIELD 116@->INDRF FIELD 116@->INDRF
END END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 102 13 "" PROMPT 102 17 ""
FIELD 116@->CIVRF FIELD 116@->CIVRF
END END
STRINGA 14 STRINGA 14
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 120 13 "" PROMPT 120 17 ""
FIELD 116@->CAPRF FIELD 116@->CAPRF
END END
STRINGA 15 STRINGA 15
BEGIN BEGIN
KEY "CODICE FISCALE DICHIARANTE" KEY "CODICE FISCALE DICHIARANTE"
PROMPT 118 16 "" PROMPT 118 20 ""
END END
NUMBER 16 NUMBER 16

328
m770/77qd1.frm
View File

@ -7,14 +7,14 @@ JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES) JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN 6 TO 63 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 63 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 216@ ALIAS 218 INTO 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 313 INTO COM=COMNASC
JOIN 13 TO 218@ ALIAS 413 INTO COM=COMRF(COMRES) JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES)
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
63->* "Quadro D 770" 63->* "Quadro D1 770"
9->* "Ditte" 9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche" 6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche" 8->* "Anagrafica persone fisiche"
@ -36,70 +36,7 @@ BEGIN
FI 131 FI 131
END END
SECTION HEADER FIRST 28 SECTION HEADER FIRST 27
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 4 9 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 9 ""
FIELD 116@->RAGSOC
GROUP 2
END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 9 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 11 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 58 11 ""
FIELD 118@->SESSO
GROUP 1
END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 66 11 ""
FIELD 118@->DATANASC
GROUP 1
END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 11 ""
FIELD 113@->DENCOM
GROUP 1
END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 126 11 ""
FIELD 113@->PROVCOM
GROUP 1
END
LISTA 9 LISTA 9
BEGIN BEGIN
@ -109,56 +46,129 @@ BEGIN
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@ ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END 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 STRINGA 10
BEGIN BEGIN
KEY "COMUNE DI RES.FISCALE" KEY "COMUNE DI RES.FISCALE"
PROMPT 17 13 "" PROMPT 17 16 ""
FIELD 213@->DENCOM FIELD 213@->DENCOM
END END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "PROV DI RES.FISCALE" KEY "PROV DI RES.FISCALE"
PROMPT 59 13 "" PROMPT 56 16 ""
FIELD 213@->PROVCOM FIELD 213@->PROVCOM
END END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 66 13 "" PROMPT 67 16 ""
FIELD 116@->INDRF FIELD 116@->INDRF
END FLAGS "H"
MESSAGE COPY,17
STRINGA 13
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 102 13 ""
FIELD 116@->CIVRF
END
STRINGA 14
BEGIN
KEY "CAP"
PROMPT 120 13 ""
FIELD 116@->CAPRF
END END
STRINGA 15 STRINGA 15
BEGIN BEGIN
KEY "CODICE FISCALE DICHIARANTE" KEY "NUM. CIVICO di RES."
PROMPT 118 16 "" PROMPT 103 16 ""
FIELD 116@->CIVRF
FLAGS "H"
MESSAGE APPEND,17
END END
NUMBER 16 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 BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 123 20 "" PROMPT 125 22 ""
END END
END END
SECTION BODY ODD 8 SECTION BODY ODD 6
LISTA 100 LISTA 100
BEGIN BEGIN
@ -171,7 +181,7 @@ END
STRINGA 1 STRINGA 1
BEGIN BEGIN
KEY "COD.FIS" KEY "COD.FIS"
PROMPT 10 2 "" PROMPT 10 1 ""
FIELD 216@->COFI FIELD 216@->COFI
END END
@ -191,7 +201,7 @@ BEGIN
GROUP 1 GROUP 1
END END
STRING 102 STRING 101
BEGIN BEGIN
KEY "RAGSOC GIURIDICHE" KEY "RAGSOC GIURIDICHE"
PROMPT 54 2 "" PROMPT 54 2 ""
@ -204,6 +214,7 @@ BEGIN
KEY "DATA NASCITA" KEY "DATA NASCITA"
PROMPT 114 2 "" PROMPT 114 2 ""
FIELD 218@->DATANASC FIELD 218@->DATANASC
GROUP 1
END END
STRING 5 STRING 5
@ -211,6 +222,7 @@ BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 129 2 "" PROMPT 129 2 ""
FIELD 218@->SESSO FIELD 218@->SESSO
GROUP 1
END END
STRING 6 STRING 6
@ -221,14 +233,6 @@ BEGIN
GROUP 1 GROUP 1
END END
STRING 101
BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE"
PROMPT 10 4 ""
FIELD 413@->DENCOM
GROUP 2
END
STRING 7 STRING 7
BEGIN BEGIN
KEY "PROV DI NASCITA" KEY "PROV DI NASCITA"
@ -245,128 +249,106 @@ BEGIN
GROUP 1 GROUP 1
END END
STRING 102
BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE"
PROMPT 10 4 ""
FIELD 413@->DENCOM
GROUP 2
END
STRING 9 STRING 9
BEGIN BEGIN
KEY "PROV. RESIDENZA" KEY "PROV. RESIDENZA"
PROMPT 88 4 "" PROMPT 88 4 ""
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
GROUP 1
END END
STRING 106 STRING 103
BEGIN BEGIN
KEY "PROV. RESIDENZA GIURIDICHE" KEY "PROVINCIA DI RESIDENZA GIURIDICHE"
PROMPT 61 4 "" PROMPT 88 4 ""
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
GROUP 2 GROUP 2
END END
STRING 10 STRING 105
BEGIN BEGIN
KEY "VIA RES." KEY "VIA RESIDENZA"
PROMPT 94 4 "" PROMPT 94 4 ""
FIELD 216@->INDRES[1,18] FIELD 216@->INDRES[1,18]
FLAGS "H" FLAGS "H"
MESSAGE COPY,12|COPY,107 MESSAGE COPY,10|COPY,104
END END
STRING 11 STRING 106
BEGIN BEGIN
KEY "NUM.CIV" KEY "NUMERO CIVICO"
PROMPT 93 4 "" PROMPT 93 4 ""
FLAGS "H" FLAGS "H"
FIELD 216@->CIVRES FIELD 216@->CIVRES
MESSAGE APPEND,12|APPEND,107 MESSAGE APPEND,10|APPEND,104
END END
STRING 12 STRING 10
BEGIN BEGIN
KEY "VIA RES. + numcivres" KEY "VIA + NUMERO CIVICO RESIDENZA"
PROMPT 95 4 "" PROMPT 95 4 ""
GROUP 1 GROUP 1
END END
STRING 107 STRING 104
BEGIN BEGIN
KEY "VIA RES GIURIDICHE" KEY "VIA + NUMERO CIVICO RESIDENZA GIURIDICHE"
PROMPT 69 4 "" PROMPT 69 4 ""
GROUP 2 GROUP 2
END END
STRING 13 STRING 11
BEGIN BEGIN
KEY "FLAG I.C." KEY "CAUSALE DEL QUADRO D1"
PROMPT 129 4 ""
FIELD 14@->B1
END
STRING 14
BEGIN
KEY "FLAG DI NON RESIDENTE"
PROMPT 11 6 ""
FIELD 216@->SOGGNRES
END
STRING 15
BEGIN
KEY "STATO ESTERO DI RES."
PROMPT 16 6 ""
FIELD 24@->S0
END
STRING 16
BEGIN
KEY "CODICE STATO ESTERO DI RES."
PROMPT 75 6 ""
FIELD 216@->STATORES
END
STRING 17
BEGIN
KEY "CODICE FISCALE ESTERO"
PROMPT 89 6 ""
FIELD 216@->COFIEST
END
STRING 18
BEGIN
KEY "DESCR. CAUSALE"
PROMPT 10 8 "" PROMPT 10 8 ""
FIELD 14@->S0[1,20] FIELD 14@->S3
END END
STRING 19 NUMBER 12
BEGIN BEGIN
KEY "TOTALE" KEY "TOTALE"
PROMPT 36 8 "" PROMPT 36 8 ""
FIELD 63->TOTALE FIELD 63->TOTALE
PICTURE "#########^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->12
END END
STRING 20 NUMBER 13
BEGIN BEGIN
KEY "QUOTA PROVVIGIONI" KEY "QUOTA PROVVIGIONI"
PROMPT 55 8 "" PROMPT 55 8 ""
FIELD 63->QUOTAPRO FIELD 63->QUOTAPRO
PICTURE "#########^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->13
END END
STRING 21 NUMBER 14
BEGIN BEGIN
KEY "SPESE ANTICIPATE" KEY "SPESE ANTICIPATE"
PROMPT 65 8 "" PROMPT 65 8 ""
FIELD 63->SPESEANT FIELD 63->SPESEANT
PICTURE "#########^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->14
END END
STRING 22 NUMBER 15
BEGIN BEGIN
KEY "IMPONIBILE" KEY "IMPONIBILE"
PROMPT 75 8 "" PROMPT 75 8 ""
FIELD 63->IMPONIBILE FIELD 63->IMPONIBILE
PICTURE "#########^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->15
END END
STRING 23 NUMBER 16
BEGIN BEGIN
KEY "ALIQUOTA" KEY "ALIQUOTA"
PROMPT 88 8 "" PROMPT 88 8 ""
@ -374,51 +356,59 @@ BEGIN
PICTURE "###@@" PICTURE "###@@"
END END
STRING 24 NUMBER 17
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
PROMPT 100 8 "" PROMPT 100 8 ""
FIELD 63->IMPORTO FIELD 63->IMPORTO
PICTURE "#########^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->17
END END
STRING 25 NUMBER 18
BEGIN BEGIN
KEY "NETTO" KEY "NETTO"
PROMPT 119 8 "" PROMPT 119 8 ""
FIELD 63->NETTO FIELD 63->NETTO
PICTURE "#########^^^" PICTURE "###.###.###^^^"
MESSAGE ADD,FL->18
END END
END END
SECTION BODY EVEN 2 SECTION BODY EVEN 2
NUMBER 1 NUMBER 12
BEGIN BEGIN
KEY "TOTALE TOTALE" KEY "TOTALE TOTALE"
PROMPT 36 1 "" PROMPT 36 1 ""
END END
NUMBER 2 NUMBER 13
BEGIN BEGIN
KEY "TOTALE SOMME NON SOGGETTE" KEY "TOTALE QUOTA PROVVIGIONI"
PROMPT 55 1 "" PROMPT 55 1 ""
END END
NUMBER 3 NUMBER 14
BEGIN
KEY "TOTALE SPESE ANTICIPATE"
PROMPT 75 1 ""
END
NUMBER 15
BEGIN BEGIN
KEY "TOTALE IMPONIBILE" KEY "TOTALE IMPONIBILE"
PROMPT 75 1 "" PROMPT 75 1 ""
END END
NUMBER 4 NUMBER 17
BEGIN BEGIN
KEY "TOTALE IMPORTO" KEY "TOTALE IMPORTO"
PROMPT 101 1 "" PROMPT 101 1 ""
END END
NUMBER 5 NUMBER 18
BEGIN BEGIN
KEY "TOTALE NETTO" KEY "TOTALE NETTO"
PROMPT 120 1 "" PROMPT 120 1 ""

134
m770/77stq.cpp
View File

@ -1,4 +1,3 @@
// Stampa quadro
#include <xvt.h> #include <xvt.h>
#include <applicat.h> #include <applicat.h>
@ -70,6 +69,8 @@ HIDDEN const int HEADER_QUARTA = 14; // 15 col righello...
typedef enum { PRIMA=1, SECONDA, TERZA, QUARTA } PaginaQuadro; typedef enum { PRIMA=1, SECONDA, TERZA, QUARTA } PaginaQuadro;
typedef enum { fisiche, nofisiche } TipoPagina; typedef enum { fisiche, nofisiche } TipoPagina;
// Stampa quadro
/////////////////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////////////////
// //
// Quadro D // Quadro D
@ -81,7 +82,6 @@ class TDicForm : public TForm
private: private:
real _f_tot_totale, _f_tot_snsrit, _f_tot_impon, _f_tot_impor, _f_tot_netto; real _f_tot_totale, _f_tot_snsrit, _f_tot_impon, _f_tot_impor, _f_tot_netto;
real _nf_tot_totale, _nf_tot_snsrit, _nf_tot_impon, _nf_tot_impor, _nf_tot_netto; real _nf_tot_totale, _nf_tot_snsrit, _nf_tot_impon, _nf_tot_impor, _nf_tot_netto;
void aggiorna_totali_C(const char tipo);
void aggiorna_totali_D(const char tipo); void aggiorna_totali_D(const char tipo);
void aggiorna_totali_D1(const char tipo); void aggiorna_totali_D1(const char tipo);
void aggiorna_totali_E(const char tipo); void aggiorna_totali_E(const char tipo);
@ -863,48 +863,11 @@ void TDicForm::aggiorna_totali_D1(const char tipo)
} }
} }
void TDicForm::aggiorna_totali_C(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) void TDicForm::aggiorna_totali(const char tipo)
{ {
if (_quadro == "C")
aggiorna_totali_C(tipo);
if (_quadro == "D") if (_quadro == "D")
aggiorna_totali_D(tipo); aggiorna_totali_D(tipo);
if (_quadro == "D1")
aggiorna_totali_D1(tipo);
if (_quadro == "E") if (_quadro == "E")
aggiorna_totali_E(tipo); aggiorna_totali_E(tipo);
@ -2094,23 +2057,6 @@ TStampaQuadroD::TStampaQuadroD(const char* quadro, char liv)
bool TStampaQuadroD::user_create() bool TStampaQuadroD::user_create()
{ {
if (quadro() == "C")
{
_rel = new TRelation(LF_QUAC);
_rel->add("%CA7", "CODTAB=CODCAUS", 1, LF_QUAC, 14);
_rel->add(LF_NDITTE, "CODDITTA=CODDITTA");
_rel->add(LF_ANAG, "TIPOA=TIPOA|CODANAGR=CODANAGR", 1, LF_NDITTE, 116);
_rel->add(LF_ANAGFIS, "CODANAGR=CODANAGR", 1, LF_ANAG, 118);
_rel->add(LF_COMUNI, "COM=COMNASC", 1, LF_ANAGFIS, 113);
_rel->add(LF_COMUNI, "COM=COMRF(COMRES)", 1, LF_ANAG, 213);
_rel->add(LF_ANAG, "TIPOA=TIPOA|CODANAGR=CODANAGR", 1, LF_QUAC, 216);
_rel->add("%STA", "CODTAB=STATORES", 1, -216, 24);
_rel->add(LF_ANAGFIS, "CODANAGR=CODANAGR", 1, -216, 218);
_rel->add(LF_COMUNI, "COM=COMNASC", 1, -218, 313);
_rel->add(LF_COMUNI, "COM=COMRF(COMRES)", 1, -216, 413);
_cur = new TSorted_cursor(_rel, "CODDITTA|TIPOA|216@->RAGSOC|CODANAGR|CODCAUS|PERC");
}
if (quadro() == "D") if (quadro() == "D")
{ {
_rel = new TRelation(LF_QUAD); _rel = new TRelation(LF_QUAD);
@ -2128,23 +2074,6 @@ bool TStampaQuadroD::user_create()
_cur = new TSorted_cursor(_rel, "CODDITTA|TIPOA|216@->RAGSOC|CODANAGR|CODCAUS|PERC"); _cur = new TSorted_cursor(_rel, "CODDITTA|TIPOA|216@->RAGSOC|CODANAGR|CODCAUS|PERC");
} }
if (quadro() == "D1")
{
_rel = new TRelation(LF_QUAD1);
_rel->add("%CA7", "CODTAB=CODCAUS", 1, LF_QUAD1, 14);
_rel->add(LF_NDITTE, "CODDITTA=CODDITTA");
_rel->add(LF_ANAG, "TIPOA=TIPOA|CODANAGR=CODANAGR", 1, LF_NDITTE, 116);
_rel->add(LF_ANAGFIS, "CODANAGR=CODANAGR", 1, LF_ANAG, 118);
_rel->add(LF_COMUNI, "COM=COMNASC", 1, LF_ANAGFIS, 113);
_rel->add(LF_COMUNI, "COM=COMRF(COMRES)", 1, LF_ANAG, 213);
_rel->add(LF_ANAG, "TIPOA=TIPOA|CODANAGR=CODANAGR", 1, LF_QUAD1, 216);
_rel->add("%STA", "CODTAB=STATORES", 1, -216, 24);
_rel->add(LF_ANAGFIS, "CODANAGR=CODANAGR", 1, -216, 218);
_rel->add(LF_COMUNI, "COM=COMNASC", 1, -218, 313);
_rel->add(LF_COMUNI, "COM=COMRF(COMRES)", 1, -216, 413);
_cur = new TSorted_cursor(_rel, "CODDITTA|TIPOA|216@->RAGSOC|CODANAGR|CODCAUS|PERC");
}
if (quadro() == "E") if (quadro() == "E")
{ {
_rel = new TRelation(LF_QUAE); _rel = new TRelation(LF_QUAE);
@ -3877,6 +3806,52 @@ bool TStampaQuadroB::user_create()
return TRUE; return TRUE;
} }
/////////////////////////////////////////////////////////////////////////////////
// Quadro C
/////////////////////////////////////////////////////////////////////////////////
class TQuadroC : public TQuadroA
{
protected:
virtual int elementi_pagina(PaginaQuadro p) const;
virtual int prima_riga(PaginaQuadro p) const;
public:
TQuadroC(const char* form, const char* quadro) : TQuadroA(form, quadro) { }
virtual ~TQuadroC() { }
};
int TQuadroC::elementi_pagina(PaginaQuadro p) const
{
const int n[4] = { 6, 10, 10, 9 };
return n[p-PRIMA];
}
int TQuadroC::prima_riga(PaginaQuadro p) const
{
return p == PRIMA ? 27 : 8;
}
class TStampaQuadroC : public TStampaQuadroA
{
protected:
virtual bool user_create();
public:
TStampaQuadroC(const char* quadro, char livel) : TStampaQuadroA(quadro, livel) { }
virtual ~TStampaQuadroC() { }
};
bool TStampaQuadroC::user_create()
{
_form = new TQuadroC("77QC", quadro());
TString sortkey(80);
sortkey.format("CODDITTA|TIPOA|216@->RAGSOC|CODANAGR|CODCAUS|PERC", LF_QUAC, LF_QUAC);
_cur = new TSorted_cursor(_form->TForm::relation(), sortkey);
return TRUE;
}
///////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////
// //
@ -3896,10 +3871,18 @@ int stampa_quadro(int argc, char* argv[])
TStampaQuadro* app = NULL; TStampaQuadro* app = NULL;
if ( quadro == "C" || quadro == "D" || quadro == "D1" || quadro == "E" || quadro == "E1" ) if ( quadro == "C" )
{
app = new TStampaQuadroC(quadro, livello);
}
else if ( quadro == "D" )
{ {
app = new TStampaQuadroD(quadro, livello); app = new TStampaQuadroD(quadro, livello);
} }
// else if (quadro == "D1")
// {
// app = new TStampaQuadroD1(quadro, livello);
// }
else if (quadro[0] == 'A') else if (quadro[0] == 'A')
{ {
switch (quadro[1] - '0') switch (quadro[1] - '0')
@ -3943,3 +3926,6 @@ int stampa_quadro(int argc, char* argv[])
} }

BIN
m770/77stq.sbr
View File

Binary file not shown.