Inserimento della stampa del quadro C
git-svn-id: svn://10.65.10.50/trunk@3225 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale
parent
b84f269f65
commit
cafd14f200
BIN
m770/772.pdb
BIN
m770/772.pdb
Binary file not shown.
321
m770/77qc.frm
321
m770/77qc.frm
@ -7,14 +7,14 @@ JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
|
||||
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
||||
JOIN 6 TO 61 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 216@ ALIAS 313 INTO COM=COMNASC
|
||||
JOIN 13 TO 218@ ALIAS 413 INTO COM=COMRF(COMRES)
|
||||
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
|
||||
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES)
|
||||
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
|
||||
END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
61->* "Quadro D 770"
|
||||
61->* "Quadro C 770"
|
||||
9->* "Ditte"
|
||||
6->* "Anagrafica persone fisiche e giuridiche"
|
||||
8->* "Anagrafica persone fisiche"
|
||||
@ -30,25 +30,34 @@ GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT "Courier 17cpi"
|
||||
SIZE 10
|
||||
SIZE 11
|
||||
CA "X"
|
||||
IN 3 2
|
||||
FI 131
|
||||
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
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 4 9 ""
|
||||
PROMPT 3 11 ""
|
||||
FIELD 116@->COFI
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "RAGIONE SOCIALE"
|
||||
PROMPT 39 9 ""
|
||||
PROMPT 39 11 ""
|
||||
FIELD 116@->RAGSOC
|
||||
GROUP 2
|
||||
END
|
||||
@ -56,7 +65,7 @@ END
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 39 9 ""
|
||||
PROMPT 39 11 ""
|
||||
FIELD 116@->RAGSOC[1,30]
|
||||
GROUP 1
|
||||
END
|
||||
@ -64,7 +73,7 @@ END
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 17 11 ""
|
||||
PROMPT 17 13 ""
|
||||
FIELD 116@->RAGSOC[31,50]
|
||||
GROUP 1
|
||||
END
|
||||
@ -72,7 +81,7 @@ END
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 58 11 ""
|
||||
PROMPT 56 13 ""
|
||||
FIELD 118@->SESSO
|
||||
GROUP 1
|
||||
END
|
||||
@ -80,7 +89,7 @@ END
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 66 11 ""
|
||||
PROMPT 63 13 ""
|
||||
FIELD 118@->DATANASC
|
||||
GROUP 1
|
||||
END
|
||||
@ -88,7 +97,7 @@ END
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 84 11 ""
|
||||
PROMPT 83 13 ""
|
||||
FIELD 113@->DENCOM
|
||||
GROUP 1
|
||||
END
|
||||
@ -96,69 +105,71 @@ END
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 126 11 ""
|
||||
PROMPT 122 13 ""
|
||||
FIELD 113@->PROVCOM
|
||||
GROUP 1
|
||||
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
|
||||
BEGIN
|
||||
KEY "COMUNE DI RES.FISCALE"
|
||||
PROMPT 17 13 ""
|
||||
PROMPT 17 15 ""
|
||||
FIELD 213@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA 11
|
||||
BEGIN
|
||||
KEY "PROV DI RES.FISCALE"
|
||||
PROMPT 59 13 ""
|
||||
PROMPT 56 15 ""
|
||||
FIELD 213@->PROVCOM
|
||||
END
|
||||
|
||||
STRINGA 12
|
||||
BEGIN
|
||||
KEY "VIA di RES."
|
||||
PROMPT 66 13 ""
|
||||
PROMPT 67 15 ""
|
||||
FIELD 116@->INDRF
|
||||
END
|
||||
|
||||
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
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,17
|
||||
END
|
||||
|
||||
STRINGA 15
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE DICHIARANTE"
|
||||
PROMPT 118 16 ""
|
||||
KEY "NUM. CIVICO di RES."
|
||||
PROMPT 103 15 ""
|
||||
FIELD 116@->CIVRF
|
||||
FLAGS "H"
|
||||
MESSAGE APPEND,17
|
||||
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
|
||||
KEY "NUM. FOGLIO"
|
||||
PROMPT 123 20 ""
|
||||
PROMPT 125 21 ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY ODD 8
|
||||
SECTION BODY ODD 6
|
||||
|
||||
LISTA 100
|
||||
BEGIN
|
||||
@ -171,14 +182,14 @@ END
|
||||
STRINGA 1
|
||||
BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 10 2 ""
|
||||
PROMPT 10 1 ""
|
||||
FIELD 216@->COFI
|
||||
END
|
||||
|
||||
STRING 2
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 42 2 ""
|
||||
PROMPT 42 1 ""
|
||||
FIELD 216@->RAGSOC[1,30]
|
||||
GROUP 1
|
||||
END
|
||||
@ -186,53 +197,37 @@ END
|
||||
STRING 3
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 81 2 ""
|
||||
PROMPT 81 1 ""
|
||||
FIELD 216@->RAGSOC[31,50]
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 102
|
||||
BEGIN
|
||||
KEY "RAGSOC GIURIDICHE"
|
||||
PROMPT 54 2 ""
|
||||
FIELD 216@->RAGSOC
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 4
|
||||
BEGIN
|
||||
KEY "DATA NASCITA"
|
||||
PROMPT 114 2 ""
|
||||
PROMPT 114 1 ""
|
||||
FIELD 218@->DATANASC
|
||||
END
|
||||
|
||||
STRING 5
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 129 2 ""
|
||||
PROMPT 129 1 ""
|
||||
FIELD 218@->SESSO
|
||||
END
|
||||
|
||||
STRING 6
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 10 4 ""
|
||||
PROMPT 10 3 ""
|
||||
FIELD 313@->DENCOM
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 101
|
||||
BEGIN
|
||||
KEY "COMUNE DI RESIDENZA GIURIDICHE"
|
||||
PROMPT 10 4 ""
|
||||
FIELD 413@->DENCOM
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 7
|
||||
BEGIN
|
||||
KEY "PROV DI NASCITA"
|
||||
PROMPT 47 4 ""
|
||||
PROMPT 47 3 ""
|
||||
FIELD 313@->PROVCOM
|
||||
GROUP 1
|
||||
END
|
||||
@ -240,7 +235,7 @@ END
|
||||
STRING 8
|
||||
BEGIN
|
||||
KEY "COMUNE DI RESIDENZA"
|
||||
PROMPT 53 4 ""
|
||||
PROMPT 53 3 ""
|
||||
FIELD 413@->DENCOM
|
||||
GROUP 1
|
||||
END
|
||||
@ -248,172 +243,154 @@ END
|
||||
STRING 9
|
||||
BEGIN
|
||||
KEY "PROV. RESIDENZA"
|
||||
PROMPT 88 4 ""
|
||||
PROMPT 88 3 ""
|
||||
FIELD 413@->PROVCOM
|
||||
END
|
||||
|
||||
STRING 106
|
||||
STRING 101
|
||||
BEGIN
|
||||
KEY "PROV. RESIDENZA GIURIDICHE"
|
||||
PROMPT 61 4 ""
|
||||
FIELD 413@->PROVCOM
|
||||
GROUP 2
|
||||
KEY "VIA RES."
|
||||
PROMPT 94 3 ""
|
||||
FIELD 216@->INDRES[1,20]
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,10
|
||||
END
|
||||
|
||||
STRING 102
|
||||
BEGIN
|
||||
KEY "NUM.CIV"
|
||||
PROMPT 93 3 ""
|
||||
FLAGS "H"
|
||||
FIELD 216@->CIVRES
|
||||
MESSAGE APPEND,10
|
||||
END
|
||||
|
||||
STRING 10
|
||||
BEGIN
|
||||
KEY "VIA RES."
|
||||
PROMPT 94 4 ""
|
||||
FIELD 216@->INDRES[1,18]
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,12|COPY,107
|
||||
KEY "VIA RES. + numcivres"
|
||||
PROMPT 95 3 ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 11
|
||||
BEGIN
|
||||
KEY "NUM.CIV"
|
||||
PROMPT 93 4 ""
|
||||
FLAGS "H"
|
||||
FIELD 216@->CIVRES
|
||||
MESSAGE APPEND,12|APPEND,107
|
||||
KEY "DESCR. CAUSALE"
|
||||
PROMPT 10 5 ""
|
||||
FIELD 14@->S0[1,20]
|
||||
END
|
||||
|
||||
STRING 12
|
||||
BEGIN
|
||||
KEY "VIA RES. + numcivres"
|
||||
PROMPT 95 4 ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 107
|
||||
BEGIN
|
||||
KEY "VIA RES GIURIDICHE"
|
||||
PROMPT 69 4 ""
|
||||
GROUP 2
|
||||
KEY "FLAG C.T."
|
||||
PROMPT 34 5 ""
|
||||
FIELD 14@->B2
|
||||
END
|
||||
|
||||
STRING 13
|
||||
BEGIN
|
||||
KEY "FLAG I.C."
|
||||
PROMPT 129 4 ""
|
||||
FIELD 14@->B1
|
||||
KEY "FLAG T.S."
|
||||
PROMPT 39 5 ""
|
||||
FIELD 14@->B3
|
||||
END
|
||||
|
||||
STRING 14
|
||||
NUMBER 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 ""
|
||||
FIELD 14@->S0[1,20]
|
||||
END
|
||||
|
||||
STRING 19
|
||||
BEGIN
|
||||
KEY "TOTALE"
|
||||
PROMPT 36 8 ""
|
||||
KEY "AMMONTARE CORRISPOSTO"
|
||||
PROMPT 45 5 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->14
|
||||
FIELD 61->TOTALE
|
||||
PICTURE "#########^^^"
|
||||
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
|
||||
KEY "SOMME NON SOGGETTE A RITENUTA"
|
||||
PROMPT 55 8 ""
|
||||
PROMPT 76 5 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->16
|
||||
FIELD 61->SOMME
|
||||
PICTURE "#########^^^"
|
||||
END
|
||||
|
||||
STRING 21
|
||||
NUMBER 17
|
||||
BEGIN
|
||||
KEY "IMPONIBILE"
|
||||
PROMPT 75 8 ""
|
||||
PROMPT 91 5 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->17
|
||||
FIELD 61->IMPONIBILE
|
||||
PICTURE "#########^^^"
|
||||
END
|
||||
|
||||
STRING 22
|
||||
NUMBER 18
|
||||
BEGIN
|
||||
KEY "ALIQUOTA"
|
||||
PROMPT 88 8 ""
|
||||
FIELD 61->PERC
|
||||
PICTURE "###@@"
|
||||
KEY "RITENUTE OPERATE"
|
||||
PROMPT 105 5 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->18
|
||||
FIELD 61->RITENUTE
|
||||
END
|
||||
|
||||
STRING 23
|
||||
NUMBER 19
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
PROMPT 100 8 ""
|
||||
FIELD 61->IMPORTO
|
||||
PICTURE "#########^^^"
|
||||
END
|
||||
|
||||
STRING 24
|
||||
BEGIN
|
||||
KEY "NETTO"
|
||||
PROMPT 119 8 ""
|
||||
KEY "NETTO CORRISPOSTO"
|
||||
PROMPT 120 5 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->19
|
||||
FIELD 61->NETTO
|
||||
PICTURE "#########^^^"
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY EVEN 2
|
||||
SECTION FOOTER LAST 2
|
||||
|
||||
NUMBER 1
|
||||
NUMBER 14
|
||||
BEGIN
|
||||
KEY "TOTALE TOTALE"
|
||||
PROMPT 36 1 ""
|
||||
KEY "TOTALE AMMONTARE CORRISPOSTO"
|
||||
PROMPT 45 1 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMBER 2
|
||||
NUMBER 15
|
||||
BEGIN
|
||||
KEY "TOTALE SOMME NON SOGGETTE"
|
||||
PROMPT 55 1 ""
|
||||
KEY "TOTALE CONTRIBUTI S.S.N."
|
||||
PROMPT 61 1 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMBER 3
|
||||
NUMBER 16
|
||||
BEGIN
|
||||
KEY "TOTALE SOMME NON SOGGETTE A RITENUTA"
|
||||
PROMPT 76 1 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMBER 17
|
||||
BEGIN
|
||||
KEY "TOTALE IMPONIBILE"
|
||||
PROMPT 75 1 ""
|
||||
PROMPT 91 1 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMBER 4
|
||||
NUMBER 18
|
||||
BEGIN
|
||||
KEY "TOTALE IMPORTO"
|
||||
PROMPT 101 1 ""
|
||||
KEY "TOTALE RITENUTE OPERATE"
|
||||
PROMPT 105 1 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
|
||||
NUMBER 5
|
||||
NUMBER 19
|
||||
BEGIN
|
||||
KEY "TOTALE NETTO"
|
||||
KEY "TOTALE NETTO CORRISPOSTO"
|
||||
PROMPT 120 1 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
@ -41,14 +41,14 @@ SECTION HEADER FIRST 28
|
||||
STRINGA 1
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 4 9 ""
|
||||
PROMPT 4 13 ""
|
||||
FIELD 116@->COFI
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "RAGIONE SOCIALE"
|
||||
PROMPT 39 9 ""
|
||||
PROMPT 39 13 ""
|
||||
FIELD 116@->RAGSOC
|
||||
GROUP 2
|
||||
END
|
||||
@ -56,7 +56,7 @@ END
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 39 9 ""
|
||||
PROMPT 39 13 ""
|
||||
FIELD 116@->RAGSOC[1,30]
|
||||
GROUP 1
|
||||
END
|
||||
@ -64,7 +64,7 @@ END
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 17 11 ""
|
||||
PROMPT 17 15 ""
|
||||
FIELD 116@->RAGSOC[31,50]
|
||||
GROUP 1
|
||||
END
|
||||
@ -72,7 +72,7 @@ END
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 58 11 ""
|
||||
PROMPT 58 15 ""
|
||||
FIELD 118@->SESSO
|
||||
GROUP 1
|
||||
END
|
||||
@ -80,7 +80,7 @@ END
|
||||
STRINGA 6
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 66 11 ""
|
||||
PROMPT 66 15 ""
|
||||
FIELD 118@->DATANASC
|
||||
GROUP 1
|
||||
END
|
||||
@ -88,7 +88,7 @@ END
|
||||
STRINGA 7
|
||||
BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 84 11 ""
|
||||
PROMPT 84 15 ""
|
||||
FIELD 113@->DENCOM
|
||||
GROUP 1
|
||||
END
|
||||
@ -96,7 +96,7 @@ END
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA"
|
||||
PROMPT 126 11 ""
|
||||
PROMPT 126 15 ""
|
||||
FIELD 113@->PROVCOM
|
||||
GROUP 1
|
||||
END
|
||||
@ -112,42 +112,42 @@ END
|
||||
STRINGA 10
|
||||
BEGIN
|
||||
KEY "COMUNE DI RES.FISCALE"
|
||||
PROMPT 17 13 ""
|
||||
PROMPT 17 17 ""
|
||||
FIELD 213@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA 11
|
||||
BEGIN
|
||||
KEY "PROV DI RES.FISCALE"
|
||||
PROMPT 59 13 ""
|
||||
PROMPT 59 17 ""
|
||||
FIELD 213@->PROVCOM
|
||||
END
|
||||
|
||||
STRINGA 12
|
||||
BEGIN
|
||||
KEY "VIA di RES."
|
||||
PROMPT 66 13 ""
|
||||
PROMPT 66 17 ""
|
||||
FIELD 116@->INDRF
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
BEGIN
|
||||
KEY "NUM. CIVICO di RES."
|
||||
PROMPT 102 13 ""
|
||||
PROMPT 102 17 ""
|
||||
FIELD 116@->CIVRF
|
||||
END
|
||||
|
||||
STRINGA 14
|
||||
BEGIN
|
||||
KEY "CAP"
|
||||
PROMPT 120 13 ""
|
||||
PROMPT 120 17 ""
|
||||
FIELD 116@->CAPRF
|
||||
END
|
||||
|
||||
STRINGA 15
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE DICHIARANTE"
|
||||
PROMPT 118 16 ""
|
||||
PROMPT 118 20 ""
|
||||
END
|
||||
|
||||
NUMBER 16
|
||||
|
||||
328
m770/77qd1.frm
328
m770/77qd1.frm
@ -7,14 +7,14 @@ 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 216@ ALIAS 313 INTO COM=COMNASC
|
||||
JOIN 13 TO 218@ ALIAS 413 INTO COM=COMRF(COMRES)
|
||||
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 D 770"
|
||||
63->* "Quadro D1 770"
|
||||
9->* "Ditte"
|
||||
6->* "Anagrafica persone fisiche e giuridiche"
|
||||
8->* "Anagrafica persone fisiche"
|
||||
@ -36,70 +36,7 @@ BEGIN
|
||||
FI 131
|
||||
END
|
||||
|
||||
SECTION HEADER FIRST 28
|
||||
|
||||
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
|
||||
SECTION HEADER FIRST 27
|
||||
|
||||
LISTA 9
|
||||
BEGIN
|
||||
@ -109,56 +46,129 @@ BEGIN
|
||||
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 13 ""
|
||||
PROMPT 17 16 ""
|
||||
FIELD 213@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA 11
|
||||
BEGIN
|
||||
KEY "PROV DI RES.FISCALE"
|
||||
PROMPT 59 13 ""
|
||||
PROMPT 56 16 ""
|
||||
FIELD 213@->PROVCOM
|
||||
END
|
||||
|
||||
STRINGA 12
|
||||
BEGIN
|
||||
KEY "VIA di RES."
|
||||
PROMPT 66 13 ""
|
||||
PROMPT 67 16 ""
|
||||
FIELD 116@->INDRF
|
||||
END
|
||||
|
||||
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
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,17
|
||||
END
|
||||
|
||||
STRINGA 15
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE DICHIARANTE"
|
||||
PROMPT 118 16 ""
|
||||
KEY "NUM. CIVICO di RES."
|
||||
PROMPT 103 16 ""
|
||||
FIELD 116@->CIVRF
|
||||
FLAGS "H"
|
||||
MESSAGE APPEND,17
|
||||
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
|
||||
KEY "NUM. FOGLIO"
|
||||
PROMPT 123 20 ""
|
||||
PROMPT 125 22 ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY ODD 8
|
||||
SECTION BODY ODD 6
|
||||
|
||||
LISTA 100
|
||||
BEGIN
|
||||
@ -171,7 +181,7 @@ END
|
||||
STRINGA 1
|
||||
BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 10 2 ""
|
||||
PROMPT 10 1 ""
|
||||
FIELD 216@->COFI
|
||||
END
|
||||
|
||||
@ -191,7 +201,7 @@ BEGIN
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 102
|
||||
STRING 101
|
||||
BEGIN
|
||||
KEY "RAGSOC GIURIDICHE"
|
||||
PROMPT 54 2 ""
|
||||
@ -204,6 +214,7 @@ BEGIN
|
||||
KEY "DATA NASCITA"
|
||||
PROMPT 114 2 ""
|
||||
FIELD 218@->DATANASC
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 5
|
||||
@ -211,6 +222,7 @@ BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 129 2 ""
|
||||
FIELD 218@->SESSO
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 6
|
||||
@ -221,14 +233,6 @@ BEGIN
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 101
|
||||
BEGIN
|
||||
KEY "COMUNE DI RESIDENZA GIURIDICHE"
|
||||
PROMPT 10 4 ""
|
||||
FIELD 413@->DENCOM
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 7
|
||||
BEGIN
|
||||
KEY "PROV DI NASCITA"
|
||||
@ -245,128 +249,106 @@ BEGIN
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 102
|
||||
BEGIN
|
||||
KEY "COMUNE DI RESIDENZA GIURIDICHE"
|
||||
PROMPT 10 4 ""
|
||||
FIELD 413@->DENCOM
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 9
|
||||
BEGIN
|
||||
KEY "PROV. RESIDENZA"
|
||||
PROMPT 88 4 ""
|
||||
FIELD 413@->PROVCOM
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 106
|
||||
STRING 103
|
||||
BEGIN
|
||||
KEY "PROV. RESIDENZA GIURIDICHE"
|
||||
PROMPT 61 4 ""
|
||||
KEY "PROVINCIA DI RESIDENZA GIURIDICHE"
|
||||
PROMPT 88 4 ""
|
||||
FIELD 413@->PROVCOM
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 10
|
||||
STRING 105
|
||||
BEGIN
|
||||
KEY "VIA RES."
|
||||
KEY "VIA RESIDENZA"
|
||||
PROMPT 94 4 ""
|
||||
FIELD 216@->INDRES[1,18]
|
||||
FLAGS "H"
|
||||
MESSAGE COPY,12|COPY,107
|
||||
MESSAGE COPY,10|COPY,104
|
||||
END
|
||||
|
||||
STRING 11
|
||||
STRING 106
|
||||
BEGIN
|
||||
KEY "NUM.CIV"
|
||||
KEY "NUMERO CIVICO"
|
||||
PROMPT 93 4 ""
|
||||
FLAGS "H"
|
||||
FIELD 216@->CIVRES
|
||||
MESSAGE APPEND,12|APPEND,107
|
||||
MESSAGE APPEND,10|APPEND,104
|
||||
END
|
||||
|
||||
STRING 12
|
||||
STRING 10
|
||||
BEGIN
|
||||
KEY "VIA RES. + numcivres"
|
||||
KEY "VIA + NUMERO CIVICO RESIDENZA"
|
||||
PROMPT 95 4 ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING 107
|
||||
STRING 104
|
||||
BEGIN
|
||||
KEY "VIA RES GIURIDICHE"
|
||||
KEY "VIA + NUMERO CIVICO RESIDENZA GIURIDICHE"
|
||||
PROMPT 69 4 ""
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING 13
|
||||
STRING 11
|
||||
BEGIN
|
||||
KEY "FLAG I.C."
|
||||
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"
|
||||
KEY "CAUSALE DEL QUADRO D1"
|
||||
PROMPT 10 8 ""
|
||||
FIELD 14@->S0[1,20]
|
||||
FIELD 14@->S3
|
||||
END
|
||||
|
||||
STRING 19
|
||||
NUMBER 12
|
||||
BEGIN
|
||||
KEY "TOTALE"
|
||||
PROMPT 36 8 ""
|
||||
FIELD 63->TOTALE
|
||||
PICTURE "#########^^^"
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->12
|
||||
END
|
||||
|
||||
STRING 20
|
||||
NUMBER 13
|
||||
BEGIN
|
||||
KEY "QUOTA PROVVIGIONI"
|
||||
PROMPT 55 8 ""
|
||||
FIELD 63->QUOTAPRO
|
||||
PICTURE "#########^^^"
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->13
|
||||
END
|
||||
|
||||
STRING 21
|
||||
NUMBER 14
|
||||
BEGIN
|
||||
KEY "SPESE ANTICIPATE"
|
||||
PROMPT 65 8 ""
|
||||
FIELD 63->SPESEANT
|
||||
PICTURE "#########^^^"
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->14
|
||||
END
|
||||
|
||||
STRING 22
|
||||
NUMBER 15
|
||||
BEGIN
|
||||
KEY "IMPONIBILE"
|
||||
PROMPT 75 8 ""
|
||||
FIELD 63->IMPONIBILE
|
||||
PICTURE "#########^^^"
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->15
|
||||
END
|
||||
|
||||
STRING 23
|
||||
NUMBER 16
|
||||
BEGIN
|
||||
KEY "ALIQUOTA"
|
||||
PROMPT 88 8 ""
|
||||
@ -374,51 +356,59 @@ BEGIN
|
||||
PICTURE "###@@"
|
||||
END
|
||||
|
||||
STRING 24
|
||||
NUMBER 17
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
PROMPT 100 8 ""
|
||||
FIELD 63->IMPORTO
|
||||
PICTURE "#########^^^"
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->17
|
||||
END
|
||||
|
||||
STRING 25
|
||||
NUMBER 18
|
||||
BEGIN
|
||||
KEY "NETTO"
|
||||
PROMPT 119 8 ""
|
||||
FIELD 63->NETTO
|
||||
PICTURE "#########^^^"
|
||||
PICTURE "###.###.###^^^"
|
||||
MESSAGE ADD,FL->18
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY EVEN 2
|
||||
|
||||
NUMBER 1
|
||||
NUMBER 12
|
||||
BEGIN
|
||||
KEY "TOTALE TOTALE"
|
||||
PROMPT 36 1 ""
|
||||
END
|
||||
|
||||
NUMBER 2
|
||||
NUMBER 13
|
||||
BEGIN
|
||||
KEY "TOTALE SOMME NON SOGGETTE"
|
||||
KEY "TOTALE QUOTA PROVVIGIONI"
|
||||
PROMPT 55 1 ""
|
||||
END
|
||||
|
||||
NUMBER 3
|
||||
NUMBER 14
|
||||
BEGIN
|
||||
KEY "TOTALE SPESE ANTICIPATE"
|
||||
PROMPT 75 1 ""
|
||||
END
|
||||
|
||||
NUMBER 15
|
||||
BEGIN
|
||||
KEY "TOTALE IMPONIBILE"
|
||||
PROMPT 75 1 ""
|
||||
END
|
||||
|
||||
NUMBER 4
|
||||
NUMBER 17
|
||||
BEGIN
|
||||
KEY "TOTALE IMPORTO"
|
||||
PROMPT 101 1 ""
|
||||
END
|
||||
|
||||
NUMBER 5
|
||||
NUMBER 18
|
||||
BEGIN
|
||||
KEY "TOTALE NETTO"
|
||||
PROMPT 120 1 ""
|
||||
|
||||
134
m770/77stq.cpp
134
m770/77stq.cpp
@ -1,4 +1,3 @@
|
||||
// Stampa quadro
|
||||
#include <xvt.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 { fisiche, nofisiche } TipoPagina;
|
||||
|
||||
// Stampa quadro
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// Quadro D
|
||||
@ -81,7 +82,6 @@ class TDicForm : public TForm
|
||||
private:
|
||||
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;
|
||||
void aggiorna_totali_C(const char tipo);
|
||||
void aggiorna_totali_D(const char tipo);
|
||||
void aggiorna_totali_D1(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)
|
||||
{
|
||||
if (_quadro == "C")
|
||||
aggiorna_totali_C(tipo);
|
||||
|
||||
if (_quadro == "D")
|
||||
aggiorna_totali_D(tipo);
|
||||
|
||||
if (_quadro == "D1")
|
||||
aggiorna_totali_D1(tipo);
|
||||
|
||||
if (_quadro == "E")
|
||||
aggiorna_totali_E(tipo);
|
||||
|
||||
@ -2094,23 +2057,6 @@ TStampaQuadroD::TStampaQuadroD(const char* quadro, char liv)
|
||||
|
||||
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")
|
||||
{
|
||||
_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");
|
||||
}
|
||||
|
||||
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")
|
||||
{
|
||||
_rel = new TRelation(LF_QUAE);
|
||||
@ -3877,6 +3806,52 @@ bool TStampaQuadroB::user_create()
|
||||
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;
|
||||
|
||||
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);
|
||||
}
|
||||
// else if (quadro == "D1")
|
||||
// {
|
||||
// app = new TStampaQuadroD1(quadro, livello);
|
||||
// }
|
||||
else if (quadro[0] == 'A')
|
||||
{
|
||||
switch (quadro[1] - '0')
|
||||
@ -3943,3 +3926,6 @@ int stampa_quadro(int argc, char* argv[])
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
BIN
m770/77stq.sbr
BIN
m770/77stq.sbr
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user