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

Correzioni varie

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3713 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1996-10-04 17:04:00 +00:00
parent c6784f584a
commit 2c820aa0c5
22 changed files with 6063 additions and 6590 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
m770/770101.cpp
View File

@ -5,7 +5,6 @@
#include "scperc.h" #include "scperc.h"
#include "rver.h" #include "rver.h"
#include "rpag.h" #include "rpag.h"
#include "../cg/cg2103.h"
// Calcola l'anno di esercizio di una data // Calcola l'anno di esercizio di una data
// Certified 99% // Certified 99%

1581
m770/77base1.frm
View File

File diff suppressed because it is too large Load Diff

2
m770/77base2.frm
View File

@ -991,7 +991,7 @@ END
NUMERO 123 NUMERO 123
BEGIN BEGIN
KEY "I27-12 Ritenuta acc.(pr.3) " KEY "I27-12 Ritenuta acc.(pr.3) "
PROMPT 23 53 "" PROMPT 27 53 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 37->G0RACC3 FIELD 37->G0RACC3
END END

18
m770/77base3.frm
View File

@ -98,14 +98,18 @@ BEGIN
MESSAGE ADD,FL->2 MESSAGE ADD,FL->2
END END
NUMERO 5 LISTA 5
BEGIN BEGIN
KEY "RSS" KEY "RSS"
PROMPT 100 1 "" PROMPT 100 1 ""
ITEM " | "
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD 42->QLRSS FIELD 42->QLRSS
END END
NUMERO 6 STRINGA 6
BEGIN BEGIN
KEY "Note" KEY "Note"
PROMPT 111 1 "" PROMPT 111 1 ""
@ -133,6 +137,13 @@ BEGIN
FIELD 42->QLCT FIELD 42->QLCT
END END
STRINGA 10
BEGIN
KEY "Art.Bil."
PROMPT 54 3 ""
FIELD 42->QLAB
END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "DATA VERS." KEY "DATA VERS."
@ -152,8 +163,7 @@ STRINGA 13
BEGIN BEGIN
KEY "NUMERO" KEY "NUMERO"
PROMPT 99 3 "" PROMPT 99 3 ""
FIELD 42->QLNUMERO FIELD 42->QLNUMERO[1,5]
PICTURE "#####^^^^^^"
END END
END END

1232
m770/77base4.frm
View File

File diff suppressed because it is too large Load Diff

88
m770/77busta.frm
View File

@ -40,21 +40,21 @@ END
STRINGA 1 STRINGA 1
BEGIN BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 48 11 "" PROMPT 48 10 ""
FIELD 106@->COFI FIELD 106@->COFI
END END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE"
PROMPT 22 14 "" PROMPT 22 13 ""
FIELD 106@->RAGSOC FIELD 106@->RAGSOC
END END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 22 17 "" PROMPT 22 16 ""
FIELD 106@->INDRF FIELD 106@->INDRF
FIELD 106@->INDRES FIELD 106@->INDRES
END END
@ -62,7 +62,7 @@ END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 104 17 "" PROMPT 104 16 ""
FIELD 106@->CIVRF FIELD 106@->CIVRF
FIELD 106@->CIVRES FIELD 106@->CIVRES
END END
@ -70,7 +70,7 @@ END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 22 20 "" PROMPT 22 19 ""
FIELD 106@->CAPRF FIELD 106@->CAPRF
FIELD 106@->CAPRES FIELD 106@->CAPRES
END END
@ -78,202 +78,202 @@ END
STRINGA 9 STRINGA 9
BEGIN BEGIN
KEY "COMUNE DI RES.FISCALE" KEY "COMUNE DI RES.FISCALE"
PROMPT 34 20 "" PROMPT 34 19 ""
FIELD 113@->DENCOM FIELD 113@->DENCOM
END END
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "PROV DI RES.FISCALE" KEY "PROV DI RES.FISCALE"
PROMPT 116 20 "" PROMPT 119 19 ""
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
END END
STRINGA 650 STRINGA 650
BEGIN BEGIN
KEY "Quadro A" KEY "Quadro A"
PROMPT 95 24 "" PROMPT 96 23 ""
FIELD 37->QCOMP[1,1] FIELD 37->QCOMP[1,1]
END END
STRINGA 651 STRINGA 651
BEGIN BEGIN
KEY "Quadro A1" KEY "Quadro A1"
PROMPT 100 24 "" PROMPT 101 23 ""
FIELD 37->QCOMP[2,2] FIELD 37->QCOMP[2,2]
END END
STRINGA 652 STRINGA 652
BEGIN BEGIN
KEY "Quadro A2" KEY "Quadro A2"
PROMPT 105 24 "" PROMPT 106 23 ""
FIELD 37->QCOMP[3,3] FIELD 37->QCOMP[3,3]
END END
STRINGA 653 STRINGA 653
BEGIN BEGIN
KEY "Quadro A3" KEY "Quadro A3"
PROMPT 110 24 "" PROMPT 111 23 ""
FIELD 37->QCOMP[4,4] FIELD 37->QCOMP[4,4]
END END
STRINGA 660 STRINGA 660
BEGIN BEGIN
KEY "Quadro B" KEY "Quadro B"
PROMPT 116 24 "" PROMPT 116 23 ""
FIELD 37->QCOMP[5,5] FIELD 37->QCOMP[5,5]
END END
STRINGA 661 STRINGA 661
BEGIN BEGIN
KEY "Quadro B1" KEY "Quadro B1"
PROMPT 121 24 "" PROMPT 121 23 ""
FIELD 37->QCOMP[6,6] FIELD 37->QCOMP[6,6]
END END
STRINGA 670 STRINGA 670
BEGIN BEGIN
KEY "Quadro C" KEY "Quadro C"
PROMPT 24 26 "" PROMPT 24 25 ""
FIELD 37->QCOMP[7,7] FIELD 37->QCOMP[7,7]
END END
STRINGA 680 STRINGA 680
BEGIN BEGIN
KEY "Quadro D" KEY "Quadro D"
PROMPT 29 26 "" PROMPT 29 25 ""
FIELD 37->QCOMP[8,8] FIELD 37->QCOMP[8,8]
END END
STRINGA 681 STRINGA 681
BEGIN BEGIN
KEY "Quadro D1" KEY "Quadro D1"
PROMPT 34 26 "" PROMPT 34 25 ""
FIELD 37->QCOMP[9,9] FIELD 37->QCOMP[9,9]
END END
STRINGA 690 STRINGA 690
BEGIN BEGIN
KEY "Quadro E" KEY "Quadro E"
PROMPT 39 26 "" PROMPT 39 25 ""
FIELD 37->QCOMP[10,10] FIELD 37->QCOMP[10,10]
END END
STRINGA 691 STRINGA 691
BEGIN BEGIN
KEY "Quadro E1" KEY "Quadro E1"
PROMPT 44 26 "" PROMPT 44 25 ""
FIELD 37->QCOMP[11,11] FIELD 37->QCOMP[11,11]
END END
STRINGA 692 STRINGA 692
BEGIN BEGIN
KEY "Quadro E2" KEY "Quadro E2"
PROMPT 49 26 "" PROMPT 49 25 ""
FIELD 37->QCOMP[12,12] FIELD 37->QCOMP[12,12]
END END
STRINGA 700 STRINGA 700
BEGIN BEGIN
KEY "Quadro F" KEY "Quadro F"
PROMPT 54 26 "" PROMPT 54 25 ""
FIELD 37->QCOMP[13,13] FIELD 37->QCOMP[13,13]
END END
STRINGA 701 STRINGA 701
BEGIN BEGIN
KEY "Quadro F1" KEY "Quadro F1"
PROMPT 59 26 "" PROMPT 59 25 ""
FIELD 37->QCOMP[14,14] FIELD 37->QCOMP[14,14]
END END
STRINGA 702 STRINGA 702
BEGIN BEGIN
KEY "Quadro F2" KEY "Quadro F2"
PROMPT 64 26 "" PROMPT 64 25 ""
FIELD 37->QCOMP[15,15] FIELD 37->QCOMP[15,15]
END END
STRINGA 710 STRINGA 710
BEGIN BEGIN
KEY "Quadro G" KEY "Quadro G"
PROMPT 70 26 "" PROMPT 70 25 ""
FIELD 37->QCOMP[16,16] FIELD 37->QCOMP[16,16]
END END
STRINGA 711 STRINGA 711
BEGIN BEGIN
KEY "Quadro G1" KEY "Quadro G1"
PROMPT 75 26 "" PROMPT 75 25 ""
FIELD 37->QCOMP[17,17] FIELD 37->QCOMP[17,17]
END END
STRINGA 720 STRINGA 720
BEGIN BEGIN
KEY "Quadro H" KEY "Quadro H"
PROMPT 80 26 "" PROMPT 80 25 ""
FIELD 37->QCOMP[18,18] FIELD 37->QCOMP[18,18]
END END
STRINGA 730 STRINGA 730
BEGIN BEGIN
KEY "Quadro I" KEY "Quadro I"
PROMPT 85 26 "" PROMPT 85 25 ""
FIELD 37->QCOMP[19,19] FIELD 37->QCOMP[19,19]
END END
STRINGA 740 STRINGA 740
BEGIN BEGIN
KEY "Quadro L" KEY "Quadro L"
PROMPT 95 26 "" PROMPT 90 25 ""
END END
STRINGA 760 STRINGA 760
BEGIN BEGIN
KEY "Quadro N" KEY "Quadro N"
PROMPT 100 26 "" PROMPT 96 25 ""
FIELD 37->QCOMP[20,20] FIELD 37->QCOMP[20,20]
END END
STRINGA 780 STRINGA 780
BEGIN BEGIN
KEY "Quadro P" KEY "Quadro P"
PROMPT 105 26 "" PROMPT 101 25 ""
FIELD 37->QCOMP[21,21] FIELD 37->QCOMP[21,21]
END END
STRINGA 790 STRINGA 790
BEGIN BEGIN
KEY "Quadro Q" KEY "Quadro Q"
PROMPT 110 26 "" PROMPT 106 25 ""
FIELD 37->QCOMP[22,22] FIELD 37->QCOMP[22,22]
END END
STRINGA 800 STRINGA 800
BEGIN BEGIN
KEY "Quadro R" KEY "Quadro R"
PROMPT 116 26 "" PROMPT 111 25 ""
FIELD 37->QCOMP[23,23] FIELD 37->QCOMP[23,23]
END END
STRINGA 810 STRINGA 810
BEGIN BEGIN
KEY "Quadro S" KEY "Quadro S"
PROMPT 121 26 "" PROMPT 116 25 ""
FIELD 37->QCOMP[24,24] FIELD 37->QCOMP[24,24]
END END
STRINGA 820 STRINGA 820
BEGIN BEGIN
KEY "Quadro T" KEY "Quadro T"
PROMPT 126 26 "" PROMPT 121 25 ""
FIELD 37->QCOMP[25,25] FIELD 37->QCOMP[25,25]
END END
STRINGA 20 STRINGA 20
BEGIN BEGIN
KEY "Allegati mod.730" KEY "Allegati mod.730"
PROMPT 116 28 "" PROMPT 111 27 ""
END END
STRINGA 21 STRINGA 21
@ -287,8 +287,8 @@ END
STRINGA 22 STRINGA 22
BEGIN BEGIN
KEY "Dischiarazione su supporto magnetico" KEY "Dichiarazione su supporto magnetico"
PROMPT 116 30 "" PROMPT 111 29 ""
END END
STRINGA 30 STRINGA 30
@ -296,21 +296,21 @@ BEGIN
KEY "Codice centro di servizio" KEY "Codice centro di servizio"
FLAGS "H" FLAGS "H"
FIELD 113@->UFFCSERV FIELD 113@->UFFCSERV
MESSAGE EMPTY ENABLE,10@|DISABLE,20@ MESSAGE EMPTY DISABLE,10@|ENABLE,20@
MESSAGE ENABLE,20@|DISABLE,10@ MESSAGE DISABLE,20@|ENABLE,10@
END END
STRINGA 31 STRINGA 31
BEGIN BEGIN
KEY "Centro servizio" KEY "Centro servizio"
PROMPT 142 41 "CENTRO SERVIZIO" PROMPT 142 40 "CENTRO SERVIZIO"
GROUP 10 GROUP 10
END END
STRINGA 32 STRINGA 32
BEGIN BEGIN
KEY "C.A.P. Centro servizio" KEY "C.A.P. Centro servizio"
PROMPT 138 46 "" PROMPT 138 45 ""
FIELD 104@->S7 FIELD 104@->S7
GROUP 10 GROUP 10
END END
@ -318,7 +318,7 @@ END
STRINGA 33 STRINGA 33
BEGIN BEGIN
KEY "Comune Centro servizio" KEY "Comune Centro servizio"
PROMPT 170 46 "" PROMPT 170 45 ""
FIELD 104@->S0 FIELD 104@->S0
GROUP 10 GROUP 10
END END
@ -326,14 +326,14 @@ END
STRINGA 34 STRINGA 34
BEGIN BEGIN
KEY "Ufficio distrettuale" KEY "Ufficio distrettuale"
PROMPT 142 41 "UFFICIO DISTRETTUALE" PROMPT 142 40 "UFFICIO DISTRETTUALE"
GROUP 20 GROUP 20
END END
STRINGA 35 STRINGA 35
BEGIN BEGIN
KEY "C.A.P. Ufficio distrettuale" KEY "C.A.P. Ufficio distrettuale"
PROMPT 138 46 "" PROMPT 138 45 ""
FIELD 204@->S7 FIELD 204@->S7
FIELD 213@->CAPCOM FIELD 213@->CAPCOM
GROUP 20 GROUP 20
@ -342,7 +342,7 @@ END
STRINGA 36 STRINGA 36
BEGIN BEGIN
KEY "Comune Ufficio distrettuale" KEY "Comune Ufficio distrettuale"
PROMPT 170 46 "" PROMPT 170 45 ""
FIELD 204@->S0 FIELD 204@->S0
GROUP 20 GROUP 20
END END

2280
m770/77qa.frm
View File

File diff suppressed because it is too large Load Diff

30
m770/77qa1.frm
View File

@ -45,14 +45,14 @@ END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 3 13 "" PROMPT 3 12 ""
FIELD 106@->COFI FIELD 106@->COFI
END END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE"
PROMPT 40 13 "" PROMPT 40 12 ""
GROUP 2 GROUP 2
FIELD 106@->RAGSOC FIELD 106@->RAGSOC
END END
@ -60,7 +60,7 @@ END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 40 13 "" PROMPT 40 12 ""
GROUP 1 GROUP 1
FIELD 106@->RAGSOC[1,30] FIELD 106@->RAGSOC[1,30]
END END
@ -68,7 +68,7 @@ END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 17 15 "" PROMPT 17 14 ""
GROUP 1 GROUP 1
FIELD 106@->RAGSOC[31,50] FIELD 106@->RAGSOC[31,50]
END END
@ -76,7 +76,7 @@ END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 58 15 "" PROMPT 58 14 ""
GROUP 1 GROUP 1
FIELD 108@->SESSO FIELD 108@->SESSO
END END
@ -84,7 +84,7 @@ END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 67 15 "" PROMPT 67 14 ""
GROUP 1 GROUP 1
FIELD 108@->DATANASC FIELD 108@->DATANASC
END END
@ -92,7 +92,7 @@ END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 84 15 "" PROMPT 84 14 ""
GROUP 1 GROUP 1
FIELD 113@->DENCOM FIELD 113@->DENCOM
END END
@ -100,7 +100,7 @@ END
STRINGA 9 STRINGA 9
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 126 15 "" PROMPT 126 14 ""
GROUP 1 GROUP 1
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
END END
@ -108,21 +108,21 @@ END
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "COMUNE DI RES.FISCALE" KEY "COMUNE DI RES.FISCALE"
PROMPT 17 17 "" 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 17 "" PROMPT 59 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 17 "" PROMPT 66 16 ""
FIELD 106@->INDRF FIELD 106@->INDRF
FIELD 106@->INDRES FIELD 106@->INDRES
END END
@ -130,7 +130,7 @@ END
STRINGA 15 STRINGA 15
BEGIN BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 104 17 "" PROMPT 104 16 ""
FIELD 106@->CIVRF FIELD 106@->CIVRF
FIELD 106@->CIVRES FIELD 106@->CIVRES
END END
@ -138,7 +138,7 @@ END
STRINGA 16 STRINGA 16
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 125 17 "" PROMPT 125 16 ""
FIELD 106@->CAPRF FIELD 106@->CAPRF
FIELD 106@->CAPRES FIELD 106@->CAPRES
END END
@ -146,13 +146,13 @@ END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 20 "" PROMPT 87 19 ""
END END
NUMERO 14 NUMERO 14
BEGIN BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 125 23 "" PROMPT 125 22 ""
END END
END END

937
m770/77qa2.frm
View File

@ -1,468 +1,469 @@
USE 57 USE 57
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
JOIN 9 INTO CODDITTA=CODDITTA JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES) JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
JOIN 36 INTO CODDITTA=CODDITTA JOIN 36 INTO CODDITTA=CODDITTA
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
57->* "Quadro A2 770" 57->* "Quadro A2 770"
45->* "Anagrafica dei dipendenti" 45->* "Anagrafica dei dipendenti"
104@->* "Tabella CAAF" 104@->* "Tabella CAAF"
9->* "Ditte" 9->* "Ditte"
106@->* "Anagrafica persone fisiche e giuridiche (ditta)" 106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
108@->* "Anagrafica persone fisiche (ditta)" 108@->* "Anagrafica persone fisiche (ditta)"
113@->* "Comuni DITTA (nascita)" 113@->* "Comuni DITTA (nascita)"
213@->* "Comuni DITTA (residenza)" 213@->* "Comuni DITTA (residenza)"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
FONT "Courier New" FONT "Courier New"
SIZE 11 SIZE 11
CARATTERE "X" CARATTERE "X"
INIZIO_POS 3 2 INIZIO_POS 3 2
FINE_POS 131 FINE_POS 131
GRID "+++++++++-|" GRID "+++++++++-|"
END END
SECTION HEADER FIRST 28 SECTION HEADER FIRST 28
LISTA 1 LISTA 1
BEGIN BEGIN
KEY "Tipo anagrafica" KEY "Tipo anagrafica"
FLAGS "H" FLAGS "H"
FIELD 106@->TIPOA FIELD 106@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@ ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@ ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 3 13 "" PROMPT 3 12 ""
FIELD 106@->COFI FIELD 106@->COFI
END END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE"
PROMPT 40 13 "" PROMPT 40 12 ""
GROUP 2 GROUP 2
FIELD 106@->RAGSOC FIELD 106@->RAGSOC
END END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 40 13 "" PROMPT 40 12 ""
GROUP 1 GROUP 1
FIELD 106@->RAGSOC[1,30] FIELD 106@->RAGSOC[1,30]
END END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 17 15 "" PROMPT 17 14 ""
GROUP 1 GROUP 1
FIELD 106@->RAGSOC[31,50] FIELD 106@->RAGSOC[31,50]
END END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 59 15 "" PROMPT 59 14 ""
GROUP 1 GROUP 1
FIELD 108@->SESSO FIELD 108@->SESSO
END END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 67 15 "" PROMPT 67 14 ""
GROUP 1 GROUP 1
FIELD 108@->DATANASC FIELD 108@->DATANASC
END END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 84 15 "" PROMPT 84 14 ""
GROUP 1 GROUP 1
FIELD 113@->DENCOM FIELD 113@->DENCOM
END END
STRINGA 9 STRINGA 9
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 125 15 "" PROMPT 125 14 ""
GROUP 1 GROUP 1
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
END END
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "COMUNE DI RES.FISCALE" KEY "COMUNE DI RES.FISCALE"
PROMPT 17 17 "" PROMPT 17 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 17 "" PROMPT 59 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 17 "" PROMPT 66 16 ""
FIELD 106@->INDRF FIELD 106@->INDRF
FIELD 106@->INDRES FIELD 106@->INDRES
END END
STRINGA 15 STRINGA 15
BEGIN BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 104 17 "" PROMPT 104 16 ""
FIELD 106@->CIVRF FIELD 106@->CIVRF
FIELD 106@->CIVRES FIELD 106@->CIVRES
END END
STRINGA 16 STRINGA 16
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 123 17 "" PROMPT 123 16 ""
FIELD 106@->CAPRF FIELD 106@->CAPRF
FIELD 106@->CAPRES FIELD 106@->CAPRES
END END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 20 "" PROMPT 87 19 ""
END END
NUMERO 14 NUMERO 14
BEGIN BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 125 23 "" PROMPT 125 22 ""
END END
END END
SECTION BODY ODD 10 SECTION BODY ODD 10
STRINGA 1 STRINGA 1
BEGIN BEGIN
KEY "COD.FIS" KEY "COD.FIS"
PROMPT 11 1 "" PROMPT 11 1 ""
FIELD 45->CODFI FIELD 45->CODFI
END END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 43 1 "" PROMPT 43 1 ""
FIELD 45->COGNOME FIELD 45->COGNOME
END END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 80 1 "" PROMPT 80 1 ""
FIELD 45->NOME FIELD 45->NOME
END END
DATA 4 DATA 4
BEGIN BEGIN
KEY "DATA NASCITA" KEY "DATA NASCITA"
PROMPT 114 1 "" PROMPT 114 1 ""
FIELD 45->DATANA FIELD 45->DATANA
FORMAT "1444-" FORMAT "1444-"
END END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 128 1 "" PROMPT 128 1 ""
FIELD 45->SESSO FIELD 45->SESSO
END END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 11 3 "" PROMPT 11 3 ""
FIELD 45->COMUNENA FIELD 45->COMUNENA
END END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 48 3 "" PROMPT 48 3 ""
FIELD 45->PROVNA FIELD 45->PROVNA
END END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "CONGUAGLI NON EFFETTUATI" KEY "CONGUAGLI NON EFFETTUATI"
PROMPT 16 5 "" PROMPT 16 5 ""
FIELD 57->CONEFF FIELD 57->CONEFF
END END
STRINGA 9 STRINGA 9
BEGIN BEGIN
KEY "RETTIFICA CONGUAGLIO" KEY "RETTIFICA CONGUAGLIO"
PROMPT 31 5 "" PROMPT 31 5 ""
FIELD 57->RETCON FIELD 57->RETCON
END END
NUMERO 10 NUMERO 10
BEGIN BEGIN
KEY "IMPOSTA RIMBORSATA" KEY "IMPOSTA RIMBORSATA"
PROMPT 39 5 "" PROMPT 39 5 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->10 MESSAGE ADD,FL->10
FIELD 57->SIRPEFRIMB FIELD 57->SIRPEFRIMB
END END
NUMERO 11 NUMERO 11
BEGIN BEGIN
KEY "IMPOSTA VERSATA" KEY "IMPOSTA VERSATA"
PROMPT 54 5 "" PROMPT 54 5 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->11 MESSAGE ADD,FL->11
FIELD 57->VIRPEF FIELD 57->VIRPEF
END END
NUMERO 12 NUMERO 12
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 70 5 "" PROMPT 70 5 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->12 MESSAGE ADD,FL->12
FIELD 57->INTIRPEF FIELD 57->INTIRPEF
END END
NUMERO 13 NUMERO 13
BEGIN BEGIN
KEY "IMPOSTA VERSATA" KEY "IMPOSTA VERSATA"
PROMPT 85 5 "" PROMPT 85 5 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->13 MESSAGE ADD,FL->13
FIELD 57->AIRPEFIV FIELD 57->AIRPEFIV
END END
NUMERO 14 NUMERO 14
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 100 5 "" PROMPT 100 5 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->14 MESSAGE ADD,FL->14
FIELD 57->AIRPEFINT FIELD 57->AIRPEFINT
END END
NUMERO 15 NUMERO 15
BEGIN BEGIN
KEY "SOPRATTASSA SU IRPEF" KEY "SOPRATTASSA SU IRPEF"
PROMPT 115 5 "" PROMPT 115 5 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->15 MESSAGE ADD,FL->15
FIELD 57->STASSA15 FIELD 57->STASSA15
END END
NUMERO 16 NUMERO 16
BEGIN BEGIN
KEY "CONTRIBUTO A RIMBORSO" KEY "CONTRIBUTO A RIMBORSO"
PROMPT 8 7 "" PROMPT 8 7 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->16 MESSAGE ADD,FL->16
FIELD 57->CONTR16 FIELD 57->CONTR16
END END
NUMERO 17 NUMERO 17
BEGIN BEGIN
KEY "CONTRIBUTO VERSATO" KEY "CONTRIBUTO VERSATO"
PROMPT 23 7 "" PROMPT 23 7 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->17 MESSAGE ADD,FL->17
FIELD 57->CONTRVER FIELD 57->CONTRVER
END END
NUMERO 18 NUMERO 18
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 39 7 "" PROMPT 39 7 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->18 MESSAGE ADD,FL->18
FIELD 57->INTER18 FIELD 57->INTER18
END END
NUMERO 19 NUMERO 19
BEGIN BEGIN
KEY "CONTRIBUTO VERSATO" KEY "CONTRIBUTO VERSATO"
PROMPT 54 7 "" PROMPT 54 7 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->19 MESSAGE ADD,FL->19
FIELD 57->CONTV19 FIELD 57->CONTV19
END END
NUMERO 20 NUMERO 20
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 70 7 "" PROMPT 70 7 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->20 MESSAGE ADD,FL->20
FIELD 57->INTE20 FIELD 57->INTE20
END END
NUMERO 21 NUMERO 21
BEGIN BEGIN
KEY "SOPRATTASSA SU CSSN" KEY "SOPRATTASSA SU CSSN"
PROMPT 85 7 "" PROMPT 85 7 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->21 MESSAGE ADD,FL->21
FIELD 57->SOPRAT21 FIELD 57->SOPRAT21
END END
NUMERO 22 NUMERO 22
BEGIN BEGIN
KEY "MOD. 730/95 NON LIQUIDABILE" KEY "MOD. 730/95 NON LIQUIDABILE"
PROMPT 108 7 "" PROMPT 108 7 ""
FIELD 57->M730NLIQ FIELD 57->M730NLIQ
END END
STRINGA 23 STRINGA 23
BEGIN BEGIN
KEY "CODICE FISCALE CAAF" KEY "CODICE FISCALE CAAF"
PROMPT 11 9 "" PROMPT 11 9 ""
FIELD 104@->S1 FIELD 104@->S1
END END
STRINGA 24 STRINGA 24
BEGIN BEGIN
KEY "DENOMINAZIONE CAAF" KEY "DENOMINAZIONE CAAF"
PROMPT 44 9 "" PROMPT 44 9 ""
FIELD 104@->S0 FIELD 104@->S0
END END
NUMERO 25 NUMERO 25
BEGIN BEGIN
KEY "NUMERO ISCRIZIONE ALBO" KEY "NUMERO ISCRIZIONE ALBO"
PROMPT 125 9 "" PROMPT 125 9 ""
FIELD 104@->I1 PICTURE "#####"
END FIELD 104@->I1
END
END
END
SECTION FOOTER LAST 4
SECTION FOOTER LAST 4
NUMERO 10
BEGIN NUMERO 10
KEY "IMPOSTA RIMBORSATA" BEGIN
PROMPT 39 1 "" KEY "IMPOSTA RIMBORSATA"
PICTURE "###.###.###.###^^^" PROMPT 39 1 ""
END PICTURE "###.###.###.###^^^"
END
NUMERO 11
BEGIN NUMERO 11
KEY "IMPOSTA VERSATA" BEGIN
PROMPT 54 1 "" KEY "IMPOSTA VERSATA"
PICTURE "###.###.###.###^^^" PROMPT 54 1 ""
END PICTURE "###.###.###.###^^^"
END
NUMERO 12
BEGIN NUMERO 12
KEY "INTERESSI" BEGIN
PROMPT 70 1 "" KEY "INTERESSI"
PICTURE "###.###.###.###^^^" PROMPT 70 1 ""
END PICTURE "###.###.###.###^^^"
END
NUMERO 13
BEGIN NUMERO 13
KEY "IMPOSTA VERSATA" BEGIN
PROMPT 85 1 "" KEY "IMPOSTA VERSATA"
PICTURE "###.###.###.###^^^" PROMPT 85 1 ""
END PICTURE "###.###.###.###^^^"
END
NUMERO 14
BEGIN NUMERO 14
KEY "INTERESSI" BEGIN
PROMPT 100 1 "" KEY "INTERESSI"
PICTURE "###.###.###.###^^^" PROMPT 100 1 ""
END PICTURE "###.###.###.###^^^"
END
NUMERO 15
BEGIN NUMERO 15
KEY "SOPRATTASSA SU IRPEF" BEGIN
PROMPT 115 1 "" KEY "SOPRATTASSA SU IRPEF"
PICTURE "###.###.###.###^^^" PROMPT 115 1 ""
END PICTURE "###.###.###.###^^^"
END
NUMERO 16
BEGIN NUMERO 16
KEY "CONTRIBUTO A RIMBORSO" BEGIN
PROMPT 8 3 "" KEY "CONTRIBUTO A RIMBORSO"
PICTURE "###.###.###.###^^^" PROMPT 8 3 ""
END PICTURE "###.###.###.###^^^"
END
NUMERO 17
BEGIN NUMERO 17
KEY "CONTRIBUTO VERSATO" BEGIN
PROMPT 23 3 "" KEY "CONTRIBUTO VERSATO"
PICTURE "###.###.###.###^^^" PROMPT 23 3 ""
END PICTURE "###.###.###.###^^^"
END
NUMERO 18
BEGIN NUMERO 18
KEY "INTERESSI" BEGIN
PROMPT 39 3 "" KEY "INTERESSI"
PICTURE "###.###.###.###^^^" PROMPT 39 3 ""
END PICTURE "###.###.###.###^^^"
END
NUMERO 19
BEGIN NUMERO 19
KEY "CONTRIBUTO VERSATO" BEGIN
PROMPT 54 3 "" KEY "CONTRIBUTO VERSATO"
PICTURE "###.###.###.###^^^" PROMPT 54 3 ""
END PICTURE "###.###.###.###^^^"
END
NUMERO 20
BEGIN NUMERO 20
KEY "INTERESSI" BEGIN
PROMPT 70 3 "" KEY "INTERESSI"
PICTURE "###.###.###.###^^^" PROMPT 70 3 ""
END PICTURE "###.###.###.###^^^"
END
NUMERO 21
BEGIN NUMERO 21
KEY "SOPRATTASSA SU CSSN" BEGIN
PROMPT 85 3 "" KEY "SOPRATTASSA SU CSSN"
PICTURE "###.###.###.###^^^" PROMPT 85 3 ""
END PICTURE "###.###.###.###^^^"
END
NUMERO 730
BEGIN NUMERO 730
KEY "NUMERO MOD.730" BEGIN
PROMPT 20 5 "" KEY "NUMERO MOD.730"
PICTURE "######" PROMPT 20 5 ""
FIELD 36->N730ALLA2 PICTURE "######"
END FIELD 36->N730ALLA2
END
STRINGA 2
BEGIN STRINGA 2
KEY "FIRMA" BEGIN
PROMPT 83 9 "" KEY "FIRMA"
FIELD 106@->RAGSOC PROMPT 83 9 ""
END FIELD 106@->RAGSOC
END
END
END
END
END

864
m770/77qa3.frm
View File

@ -1,432 +1,432 @@
USE 58 USE 58
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN 9 INTO CODDITTA=CODDITTA JOIN 9 INTO CODDITTA=CODDITTA
JOIN 102 INTO CODDITTA=CODDITTA JOIN 102 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES) JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
JOIN 37 INTO CODDITTA=CODDITTA JOIN 37 INTO CODDITTA=CODDITTA
END END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
58->* "Quadro A3 770" 58->* "Quadro A3 770"
45->* "Anagrafica dei dipendenti" 45->* "Anagrafica dei dipendenti"
9->* "Ditte" 9->* "Ditte"
106@->* "Anagrafica persone fisiche e giuridiche (ditta)" 106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
108@->* "Anagrafica persone fisiche (ditta)" 108@->* "Anagrafica persone fisiche (ditta)"
113@->* "Comuni DITTA (nascita)" 113@->* "Comuni DITTA (nascita)"
213@->* "Comuni DITTA (residenza)" 213@->* "Comuni DITTA (residenza)"
END END
GENERAL GENERAL
BEGIN BEGIN
OFFSET 0 0 OFFSET 0 0
FONT "Courier New" FONT "Courier New"
SIZE 11 SIZE 11
CARATTERE "X" CARATTERE "X"
INIZIO_POS 3 2 INIZIO_POS 3 2
FINE_POS 131 FINE_POS 131
GRID "+++++++++-|" GRID "+++++++++-|"
END END
SECTION HEADER FIRST 28 SECTION HEADER FIRST 28
LISTA 100 LISTA 100
BEGIN BEGIN
KEY "Ditta trasformata" KEY "Ditta trasformata"
FLAGS "H" FLAGS "H"
ITEM "1|Normale" MESSAGE ENABLE,10@|DISABLE,20@ ITEM "1|Normale" MESSAGE ENABLE,10@|DISABLE,20@
ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@ ITEM "2|Trasformata" MESSAGE ENABLE,20@|DISABLE,10@
FIELD 58->NPROG FIELD 58->NPROG
END END
LISTA 1 LISTA 1
BEGIN BEGIN
KEY "Tipo anagrafica" KEY "Tipo anagrafica"
FLAGS "H" FLAGS "H"
FIELD 106@->TIPOA FIELD 106@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,11@|HIDE,12@ ITEM "F|Fisica" MESSAGE SHOW,11@|HIDE,12@
ITEM "G|Giuridica" MESSAGE SHOW,12@|HIDE,11@ ITEM "G|Giuridica" MESSAGE SHOW,12@|HIDE,11@
GROUP 10 GROUP 10
END END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 3 13 "" PROMPT 3 12 ""
FIELD 106@->COFI FIELD 106@->COFI
GROUP 10 GROUP 10
END END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE"
PROMPT 40 13 "" PROMPT 40 12 ""
FIELD 106@->RAGSOC FIELD 106@->RAGSOC
GROUP 10 12 GROUP 10 12
END END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 40 13 "" PROMPT 40 12 ""
FIELD 106@->RAGSOC[1,30] FIELD 106@->RAGSOC[1,30]
GROUP 10 11 GROUP 10 11
END END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 17 15 "" PROMPT 17 14 ""
FIELD 106@->RAGSOC[31,50] FIELD 106@->RAGSOC[31,50]
GROUP 10 11 GROUP 10 11
END END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 59 15 "" PROMPT 59 14 ""
FIELD 108@->SESSO FIELD 108@->SESSO
GROUP 10 11 GROUP 10 11
END END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 67 15 "" PROMPT 67 14 ""
FIELD 108@->DATANASC FIELD 108@->DATANASC
GROUP 10 11 GROUP 10 11
END END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 84 15 "" PROMPT 84 14 ""
FIELD 113@->DENCOM FIELD 113@->DENCOM
GROUP 10 11 GROUP 10 11
END END
STRINGA 9 STRINGA 9
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 126 15 "" PROMPT 126 14 ""
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
GROUP 10 11 GROUP 10 11
END END
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "COMUNE DI RES.FISCALE" KEY "COMUNE DI RES.FISCALE"
PROMPT 17 17 "" PROMPT 17 16 ""
FIELD 213@->DENCOM FIELD 213@->DENCOM
GROUP 10 GROUP 10
END END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "PROV DI RES.FISCALE" KEY "PROV DI RES.FISCALE"
PROMPT 59 17 "" PROMPT 59 16 ""
FIELD 213@->PROVCOM FIELD 213@->PROVCOM
GROUP 10 GROUP 10
END END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 67 17 "" PROMPT 67 16 ""
FIELD 106@->INDRF FIELD 106@->INDRF
FIELD 106@->INDRES FIELD 106@->INDRES
GROUP 10 GROUP 10
END END
STRINGA 15 STRINGA 15
BEGIN BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 104 17 "" PROMPT 104 16 ""
FIELD 106@->CIVRF FIELD 106@->CIVRF
FIELD 106@->CIVRES FIELD 106@->CIVRES
GROUP 10 GROUP 10
END END
STRINGA 16 STRINGA 16
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 123 17 "" PROMPT 123 16 ""
FIELD 106@->CAPRF FIELD 106@->CAPRF
FIELD 106@->CAPRES FIELD 106@->CAPRES
GROUP 10 GROUP 10
END END
LISTA 101 LISTA 101
BEGIN BEGIN
KEY "Tipo anagrafica" KEY "Tipo anagrafica"
FLAGS "H" FLAGS "H"
FIELD 106@->TIPOA FIELD 106@->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,21@|HIDE,22@ ITEM "F|Fisica" MESSAGE SHOW,21@|HIDE,22@
ITEM "G|Giuridica" MESSAGE SHOW,22@|HIDE,21@ ITEM "G|Giuridica" MESSAGE SHOW,22@|HIDE,21@
GROUP 20 GROUP 20
END END
STRINGA 102 STRINGA 102
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 3 12 "" PROMPT 3 12 ""
FIELD 102->CODFISC FIELD 102->CODFISC
GROUP 20 GROUP 20
END END
STRINGA 103 STRINGA 103
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE"
PROMPT 39 12 "" PROMPT 39 12 ""
FIELD 102->DENOMIN FIELD 102->DENOMIN
GROUP 20 22 GROUP 20 22
END END
STRINGA 104 STRINGA 104
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 39 12 "" PROMPT 39 12 ""
FIELD 102->DENOMIN FIELD 102->DENOMIN
GROUP 20 21 GROUP 20 21
END END
STRINGA 105 STRINGA 105
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 17 14 "" PROMPT 17 14 ""
FIELD 102->NOME FIELD 102->NOME
GROUP 20 21 GROUP 20 21
END END
STRINGA 106 STRINGA 106
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 58 14 "" PROMPT 58 14 ""
FIELD 102->SESSO FIELD 102->SESSO
GROUP 20 21 GROUP 20 21
END END
STRINGA 107 STRINGA 107
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 67 14 "" PROMPT 67 14 ""
FIELD 102->DATANAS FIELD 102->DATANAS
GROUP 20 21 GROUP 20 21
END END
STRINGA 108 STRINGA 108
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 84 14 "" PROMPT 84 14 ""
FIELD 102->COMNAS FIELD 102->COMNAS
GROUP 20 21 GROUP 20 21
END END
STRINGA 109 STRINGA 109
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 125 14 "" PROMPT 125 14 ""
FIELD 102->PROVNAS FIELD 102->PROVNAS
GROUP 20 21 GROUP 20 21
END END
STRINGA 110 STRINGA 110
BEGIN BEGIN
KEY "COMUNE DI RES.FISCALE" KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 "" PROMPT 17 16 ""
FIELD 102->COMDOM FIELD 102->COMDOM
GROUP 20 GROUP 20
END END
STRINGA 111 STRINGA 111
BEGIN BEGIN
KEY "PROV DI RES.FISCALE" KEY "PROV DI RES.FISCALE"
PROMPT 59 16 "" PROMPT 59 16 ""
FIELD 102->PROVDOM FIELD 102->PROVDOM
GROUP 20 GROUP 20
END END
STRINGA 112 STRINGA 112
BEGIN BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 66 16 "" PROMPT 66 16 ""
FIELD 102->INDDOM FIELD 102->INDDOM
GROUP 20 GROUP 20
END END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 87 20 "" PROMPT 87 20 ""
END END
NUMERO 15 NUMERO 15
BEGIN BEGIN
KEY "CONSISTENZA BASE OCCUPAZIONALE AL 12/06/94" KEY "CONSISTENZA BASE OCCUPAZIONALE AL 12/06/94"
PROMPT 56 22 "" PROMPT 56 22 ""
PICTURE "###.###" PICTURE "###.###"
FIELD 37->CONSBASOCC FIELD 37->CONSBASOCC
END END
NUMERO 16 NUMERO 16
BEGIN BEGIN
KEY "LAVORATORI DIPENDENTI IN MOBILITA'" KEY "LAVORATORI DIPENDENTI IN MOBILITA'"
PROMPT 56 23 "" PROMPT 56 23 ""
PICTURE "###.###" PICTURE "###.###"
FIELD 37->LAVDIPCIN FIELD 37->LAVDIPCIN
END END
DATA 17 DATA 17
BEGIN BEGIN
KEY "PERIODO D'IMPOSTA (DAL)" KEY "PERIODO D'IMPOSTA (DAL)"
PROMPT 96 23 "" PROMPT 96 23 ""
FORMAT "1442 " FORMAT "1442 "
FIELD 37->PIMPINI FIELD 37->PIMPINI
END END
DATA 18 DATA 18
BEGIN BEGIN
KEY "PERIODO D'IMPOSTA (AL)" KEY "PERIODO D'IMPOSTA (AL)"
PROMPT 117 23 "" PROMPT 117 23 ""
FORMAT "1442 " FORMAT "1442 "
FIELD 37->PIMPFINE FIELD 37->PIMPFINE
END END
NUMERO 14 NUMERO 14
BEGIN BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 125 25 "" PROMPT 125 25 ""
END END
END END
SECTION BODY ODD 6 SECTION BODY ODD 6
STRINGA 1 STRINGA 1
BEGIN BEGIN
KEY "COD.FIS" KEY "COD.FIS"
PROMPT 11 1 "" PROMPT 11 1 ""
FIELD 45->CODFI FIELD 45->CODFI
END END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 42 1 "" PROMPT 42 1 ""
FIELD 45->COGNOME FIELD 45->COGNOME
END END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 79 1 "" PROMPT 79 1 ""
FIELD 45->NOME FIELD 45->NOME
END END
DATA 4 DATA 4
BEGIN BEGIN
KEY "DATA NASCITA" KEY "DATA NASCITA"
PROMPT 114 1 "" PROMPT 114 1 ""
FIELD 45->DATANA FIELD 45->DATANA
FORMAT "1444-" FORMAT "1444-"
END END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 128 1 "" PROMPT 128 1 ""
FIELD 45->SESSO FIELD 45->SESSO
END END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 11 3 "" PROMPT 11 3 ""
FIELD 45->COMUNENA FIELD 45->COMUNENA
END END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "PROV DI NASCITA" KEY "PROV DI NASCITA"
PROMPT 47 3 "" PROMPT 47 3 ""
FIELD 45->PROVNA FIELD 45->PROVNA
END END
DATA 8 DATA 8
BEGIN BEGIN
KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO" KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO"
PROMPT 11 5 "" PROMPT 11 5 ""
FIELD 58->DIRAPTI FIELD 58->DIRAPTI
FORMAT "1444-" FORMAT "1444-"
PICTURE "## ^ ##^^^##" PICTURE "## ^ ##^^^##"
END END
NUMERO 9 NUMERO 9
BEGIN BEGIN
KEY "NUMERO GIORNI IN INCREMENTO" KEY "NUMERO GIORNI IN INCREMENTO"
PROMPT 35 5 "" PROMPT 35 5 ""
PICTURE "######" PICTURE "######"
FIELD 58->NGINC15 FIELD 58->NGINC15
END END
NUMERO 10 NUMERO 10
BEGIN BEGIN
KEY "REDDITO CORRISPOSTO" KEY "REDDITO CORRISPOSTO"
PROMPT 43 5 "" PROMPT 43 5 ""
MESSAGE ADD,FL->10 MESSAGE ADD,FL->10
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 58->REDCOR16 FIELD 58->REDCOR16
END END
NUMERO 11 NUMERO 11
BEGIN BEGIN
KEY "NUMERO GIORNI IN INCREMENTO" KEY "NUMERO GIORNI IN INCREMENTO"
PROMPT 69 5 "" PROMPT 69 5 ""
PICTURE "######" PICTURE "######"
FIELD 58->NGINC17 FIELD 58->NGINC17
END END
NUMERO 12 NUMERO 12
BEGIN BEGIN
KEY "REDDITO CORRISPOSTO" KEY "REDDITO CORRISPOSTO"
PROMPT 77 5 "" PROMPT 77 5 ""
MESSAGE ADD,FL->12 MESSAGE ADD,FL->12
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
FIELD 58->REDCOR18 FIELD 58->REDCOR18
END END
END END
SECTION FOOTER LAST 2 SECTION FOOTER LAST 2
NUMERO 10 NUMERO 10
BEGIN BEGIN
KEY "REDDITO CORRISPOSTO" KEY "REDDITO CORRISPOSTO"
PROMPT 43 1 "" PROMPT 43 1 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 12 NUMERO 12
BEGIN BEGIN
KEY "REDDITO CORRISPOSTO" KEY "REDDITO CORRISPOSTO"
PROMPT 77 1 "" PROMPT 77 1 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "FIRMA" KEY "FIRMA"
PROMPT 83 4 "" PROMPT 83 4 ""
FIELD 106@->RAGSOC FIELD 106@->RAGSOC
END END
END END
END END

836
m770/77qb.frm
View File

File diff suppressed because it is too large Load Diff

32
m770/77qd.frm
View File

@ -37,7 +37,7 @@ BEGIN
FI 131 FI 131
END END
SECTION HEADER FIRST 31 SECTION HEADER FIRST 19
LISTA 9 LISTA 9
BEGIN BEGIN
@ -50,14 +50,14 @@ END
STRINGA 1 STRINGA 1
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 4 12 "" PROMPT 4 1 ""
FIELD 116@->COFI FIELD 116@->COFI
END END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE"
PROMPT 39 12 "" PROMPT 39 1 ""
FIELD 116@->RAGSOC FIELD 116@->RAGSOC
GROUP 2 GROUP 2
END END
@ -65,7 +65,7 @@ END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 39 12 "" PROMPT 39 1 ""
FIELD 116@->RAGSOC[1,30] FIELD 116@->RAGSOC[1,30]
GROUP 1 GROUP 1
END END
@ -73,7 +73,7 @@ END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 17 14 "" PROMPT 17 3 ""
FIELD 116@->RAGSOC[31,50] FIELD 116@->RAGSOC[31,50]
GROUP 1 GROUP 1
END END
@ -81,7 +81,7 @@ END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 58 14 "" PROMPT 58 3 ""
FIELD 118@->SESSO FIELD 118@->SESSO
GROUP 1 GROUP 1
END END
@ -89,7 +89,7 @@ END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 66 14 "" PROMPT 66 3 ""
FIELD 118@->DATANASC FIELD 118@->DATANASC
GROUP 1 GROUP 1
END END
@ -97,7 +97,7 @@ END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 84 14 "" PROMPT 84 3 ""
FIELD 113@->DENCOM FIELD 113@->DENCOM
GROUP 1 GROUP 1
END END
@ -105,7 +105,7 @@ END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 126 14 "" PROMPT 126 3 ""
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
GROUP 1 GROUP 1
END END
@ -113,21 +113,21 @@ END
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "COMUNE DI RES.FISCALE" KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 "" PROMPT 17 5 ""
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 16 "" PROMPT 59 5 ""
FIELD 213@->PROVCOM FIELD 213@->PROVCOM
END END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 66 16 "" PROMPT 66 5 ""
FIELD 116@->INDRF FIELD 116@->INDRF
FIELD 116@->INDRES FIELD 116@->INDRES
END END
@ -135,7 +135,7 @@ END
STRINGA 15 STRINGA 15
BEGIN BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 102 16 "" PROMPT 102 5 ""
FIELD 116@->CIVRF FIELD 116@->CIVRF
FIELD 116@->CIVRES FIELD 116@->CIVRES
END END
@ -143,7 +143,7 @@ END
STRINGA 16 STRINGA 16
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 122 16 "" PROMPT 122 5 ""
FIELD 116@->CAPRF FIELD 116@->CAPRF
FIELD 116@->CAPRES FIELD 116@->CAPRES
END END
@ -151,13 +151,13 @@ END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "CODICE FISCALE DICHIARANTE" KEY "CODICE FISCALE DICHIARANTE"
PROMPT 118 19 "" PROMPT 118 8 ""
END END
NUMBER 14 NUMBER 14
BEGIN BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 123 22 "" PROMPT 123 11 ""
END END
END END

32
m770/77qh.frm
View File

@ -41,14 +41,14 @@ END
STRINGA 1 STRINGA 1
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 3 12 "" PROMPT 3 10 ""
FIELD 116@->COFI FIELD 116@->COFI
END END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE"
PROMPT 39 12 "" PROMPT 39 10 ""
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 12 "" PROMPT 39 10 ""
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 14 "" PROMPT 17 12 ""
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 14 "" PROMPT 58 12 ""
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 14 "" PROMPT 66 12 ""
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 83 14 "" PROMPT 83 12 ""
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 125 14 "" PROMPT 125 12 ""
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
GROUP 1 GROUP 1
END END
@ -104,21 +104,21 @@ END
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "COMUNE DI RES.FISCALE" KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 "" PROMPT 17 14 ""
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 16 "" PROMPT 59 14 ""
FIELD 213@->PROVCOM FIELD 213@->PROVCOM
END END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "VIA di RES." KEY "VIA di RES."
PROMPT 67 16 "" PROMPT 67 14 ""
FIELD 116@->INDRF FIELD 116@->INDRF
FIELD 116@->INDRES FIELD 116@->INDRES
FLAGS "H" FLAGS "H"
@ -128,7 +128,7 @@ END
STRINGA 15 STRINGA 15
BEGIN BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 103 16 "" PROMPT 103 14 ""
FIELD 116@->CIVRF FIELD 116@->CIVRF
FIELD 116@->CIVRES FIELD 116@->CIVRES
FLAGS "H" FLAGS "H"
@ -138,13 +138,13 @@ END
STRINGA 17 STRINGA 17
BEGIN BEGIN
KEY "VIA + NUM CIV. DI RES." KEY "VIA + NUM CIV. DI RES."
PROMPT 67 16 "" PROMPT 67 14 ""
END END
STRINGA 16 STRINGA 16
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 124 16 "" PROMPT 124 14 ""
FIELD 116@->CAPRF FIELD 116@->CAPRF
FIELD 116@->CAPRES FIELD 116@->CAPRES
END END
@ -152,13 +152,13 @@ END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "CODICE FISCALE DICHIARANTE" KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 19 "" PROMPT 105 17 ""
END END
NUMBER 14 NUMBER 14
BEGIN BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 125 21 "" PROMPT 125 19 ""
FLAGS "H" FLAGS "H"
END END

71
m770/77ql.frm
View File

@ -23,7 +23,7 @@ BEGIN
FI 131 FI 131
END END
SECTION HEADER FIRST 18 SECTION HEADER FIRST 10
LISTA 1 LISTA 1
BEGIN BEGIN
@ -37,22 +37,22 @@ END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 21 10 "" PROMPT 21 1 ""
FIELD 106@->COFI FIELD 106@->COFI
END END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "RAGIONE SOCIALE" KEY "RAGIONE SOCIALE (o cognome)"
PROMPT 51 10 "" PROMPT 51 1 ""
GROUP 2 GROUP 2
FIELD 106@->RAGSOC FIELD 106@->RAGSOC
END END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME (o ragsoc)"
PROMPT 51 10 "" PROMPT 51 1 ""
GROUP 1 GROUP 1
FIELD 106@->RAGSOC[1,30] FIELD 106@->RAGSOC[1,30]
END END
@ -60,7 +60,7 @@ END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 21 12 "" PROMPT 21 4 ""
GROUP 1 GROUP 1
FIELD 106@->RAGSOC[31,50] FIELD 106@->RAGSOC[31,50]
END END
@ -68,7 +68,8 @@ END
LISTA 6 LISTA 6
BEGIN BEGIN
KEY "SESSO M" KEY "SESSO M"
PROMPT 53 12 "" PROMPT 53 4 ""
ITEM " | "
ITEM "M|X" ITEM "M|X"
ITEM "F|" ITEM "F|"
FIELD 108@->SESSO FIELD 108@->SESSO
@ -78,7 +79,8 @@ END
LISTA 7 LISTA 7
BEGIN BEGIN
KEY "SESSO F" KEY "SESSO F"
PROMPT 62 12 "" PROMPT 62 4 ""
ITEM " | "
ITEM "M|" ITEM "M|"
ITEM "F|X" ITEM "F|X"
FIELD 108@->SESSO FIELD 108@->SESSO
@ -88,7 +90,7 @@ END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 68 12 "" PROMPT 68 4 ""
GROUP 1 GROUP 1
FIELD 108@->DATANASC FIELD 108@->DATANASC
PICTURE "## ^ ## ^^###" PICTURE "## ^ ## ^^###"
@ -97,7 +99,7 @@ END
STRINGA 9 STRINGA 9
BEGIN BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 85 12 "" PROMPT 85 4 ""
GROUP 1 GROUP 1
FIELD 113@->DENCOM FIELD 113@->DENCOM
END END
@ -105,7 +107,7 @@ END
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "PROV. DI NASCITA" KEY "PROV. DI NASCITA"
PROMPT 126 12 "" PROMPT 129 4 ""
GROUP 1 GROUP 1
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
END END
@ -113,48 +115,48 @@ END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE" KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 56 14 "" PROMPT 56 6 ""
END END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "Cod.Conc.1" KEY "Cod.Conc.1"
PROMPT 41 16 "" PROMPT 41 9 ""
FIELD 37->L0CCONC1 FIELD 37->L0CCONC1
END END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "Cod.Conc.2" KEY "Cod.Conc.2"
PROMPT 53 16 "" PROMPT 53 9 ""
FIELD 37->L0CCONC2 FIELD 37->L0CCONC2
END END
STRINGA 14 STRINGA 14
BEGIN BEGIN
KEY "Cod.Conc.3" KEY "Cod.Conc.3"
PROMPT 63 16 "" PROMPT 63 9 ""
FIELD 37->L0CCONC3 FIELD 37->L0CCONC3
END END
NUMERO 15 NUMERO 15
BEGIN BEGIN
KEY "Cod.Tes.1" KEY "Cod.Tes.1"
PROMPT 102 16 "" PROMPT 102 9 ""
FIELD 37->L0CTES1 FIELD 37->L0CTES1
END END
NUMERO 16 NUMERO 16
BEGIN BEGIN
KEY "Cod.Tes.2" KEY "Cod.Tes.2"
PROMPT 114 16 "" PROMPT 114 9 ""
FIELD 37->L0CTES2 FIELD 37->L0CTES2
END END
NUMERO 17 NUMERO 17
BEGIN BEGIN
KEY "Cod.Tes.3" KEY "Cod.Tes.3"
PROMPT 126 16 "" PROMPT 126 9 ""
FIELD 37->L0CTES3 FIELD 37->L0CTES3
END END
@ -194,14 +196,18 @@ BEGIN
MESSAGE ADD,FL->2 MESSAGE ADD,FL->2
END END
NUMERO 5 LISTA 5
BEGIN BEGIN
KEY "RSS" KEY "RSS"
PROMPT 100 1 "" PROMPT 100 1 ""
ITEM " | "
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD 42->QLRSS FIELD 42->QLRSS
END END
NUMERO 6 STRINGA 6
BEGIN BEGIN
KEY "Note" KEY "Note"
PROMPT 111 1 "" PROMPT 111 1 ""
@ -229,6 +235,13 @@ BEGIN
FIELD 42->QLCT FIELD 42->QLCT
END END
STRINGA 10
BEGIN
KEY "Art.Bil."
PROMPT 54 3 ""
FIELD 42->QLAB
END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "DATA VERS." KEY "DATA VERS."
@ -248,7 +261,7 @@ STRINGA 13
BEGIN BEGIN
KEY "NUMERO" KEY "NUMERO"
PROMPT 99 3 "" PROMPT 99 3 ""
FIELD 42->QLNUMERO FIELD 42->QLNUMERO[1,5]
END END
END END
@ -269,6 +282,18 @@ BEGIN
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
STRINGA 3
BEGIN
KEY "DATA"
PROMPT 50 5 ""
END
STRINGA 4
BEGIN
KEY "FIRMA"
PROMPT 120 5 ""
END
END END
END END

2074
m770/77stba.cpp
View File

File diff suppressed because it is too large Load Diff

578
m770/77stba.h
View File

@ -1,289 +1,289 @@
#ifndef _77STBA_H #ifndef _77STBA_H
#define _77STBA_H #define _77STBA_H
#include "77stq.h" #include "77stq.h"
HIDDEN const int BASE_FORMLEN = 73; HIDDEN const int BASE_FORMLEN = 73;
HIDDEN const int BASE_PAGINE = 4; HIDDEN const int BASE_PAGINE = 4;
const int _RIGHE_N = 6; const int _RIGHE_N = 6;
const int _RIGHE_R = 2; const int _RIGHE_R = 2;
const int _RIGHE_P = 4; const int _RIGHE_P = 4;
const int _RIGHE_Q = 4; const int _RIGHE_Q = 4;
const int _RIGHE_S = 4; const int _RIGHE_S = 4;
const int _RIGHE_T = 4; const int _RIGHE_T = 4;
class TBase1 : public TDicForm class TBase1 : public TDicForm
{ {
private: private:
long _codditta; long _codditta;
TRelation* r; // usate per contare i soci TRelation* r; // usate per contare i soci
TCursor* c; TCursor* c;
bool _bAllegSoci; bool _bAllegSoci;
long iContaSoci(); long iContaSoci();
protected: protected:
void stampa_corpo(TPrinter& pr); void stampa_corpo(TPrinter& pr);
void stampa_soci(TPrinter& pr); void stampa_soci(TPrinter& pr);
bool bAllegSoci() const { return _bAllegSoci; } bool bAllegSoci() const { return _bAllegSoci; }
virtual int dic_form_len() const { return BASE_FORMLEN-2; } virtual int dic_form_len() const;
virtual void next_page(TPrinter& pr) { fill_page(pr, -1); } virtual void next_page(TPrinter& pr) { fill_page(pr, -1); }
virtual void stampa_totali(TPrinter& pr) {} virtual void stampa_totali(TPrinter& pr) {}
virtual void aggiorna_totali(const char tipo) {} virtual void aggiorna_totali(const char tipo) {}
virtual void set_body(TPrinter& pr, const char tipo) {} virtual void set_body(TPrinter& pr, const char tipo) {}
virtual int prima_riga(PaginaQuadro p) const { return 11; } virtual int prima_riga(PaginaQuadro p) const;
public: public:
virtual bool print(const long codditta, const long NumFis, const long NumNoFis); virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TBase1(const char* sNomeForm, const char* quadro); TBase1(const char* sNomeForm, const char* quadro);
virtual ~TBase1(); virtual ~TBase1();
}; };
class TBase2 : public TDicForm class TBase2 : public TDicForm
{ {
private: private:
long _codditta; long _codditta;
protected: protected:
void stampa_corpo(TPrinter& pr); void stampa_corpo(TPrinter& pr);
virtual int dic_form_len() const { return BASE_FORMLEN; } virtual int dic_form_len() const { return BASE_FORMLEN; }
virtual void next_page(TPrinter& pr) { fill_page(pr, -1); } virtual void next_page(TPrinter& pr) { fill_page(pr, -1); }
virtual void set_body(TPrinter& pr, const char tipo) {} virtual void set_body(TPrinter& pr, const char tipo) {}
virtual int prima_riga(PaginaQuadro p) const { return 3;} virtual int prima_riga(PaginaQuadro p) const { return 4;}
public: public:
virtual bool print(const long codditta, const long NumFis, const long NumNoFis); virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TBase2(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro) {} TBase2(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro) {}
virtual ~TBase2() {} virtual ~TBase2() {}
}; };
class TBase3 : public TDicForm class TBase3 : public TDicForm
{ {
private: private:
long _codditta; bool _bAggiuntivoL; // se necessario stampare aggiuntivo L
bool _bAggiuntivoL; // se necessario stampare aggiuntivo L protected:
protected: void stampa_testata(TPrinter& pr);
void stampa_testata(TPrinter& pr); void stampa_totali_L(TPrinter& pr);
void stampa_totali_L(TPrinter& pr); bool aggiuntivoL() const { return _bAggiuntivoL; }
bool aggiuntivoL() const { return _bAggiuntivoL; } int stampa_L(TPrinter& pr,const int iChiaveL);
int stampa_L(TPrinter& pr,const int iChiaveL); virtual int dic_form_len() const { return BASE_FORMLEN; }
virtual int dic_form_len() const { return BASE_FORMLEN; } virtual void next_page(TPrinter& pr) { fill_page(pr, -1); }
virtual void next_page(TPrinter& pr) { fill_page(pr, -1); } virtual void set_body(TPrinter& pr, const char tipo) {}
virtual void set_body(TPrinter& pr, const char tipo) {} virtual int prima_riga(PaginaQuadro p) const { return 4;}
virtual int prima_riga(PaginaQuadro p) const { return 3;} virtual long filtra(const long codditta);
public: public:
virtual bool print(const long codditta, const long NumFis, const long NumNoFis); virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TBase3(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro) {} TBase3(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro) {}
virtual ~TBase3() {} virtual ~TBase3() {}
}; };
const int _RIGA_TOTALI_L = 65; const int _RIGA_TOTALI_L = 65;
class TRigaN : public TSortable class TRigaN : public TSortable
{ {
TRecnotype _pos; TRecnotype _pos;
int _MeseRif,_AnnoRif; // periodo di riferimento int _MeseRif,_AnnoRif; // periodo di riferimento
real _ImpRimb,_CompAss; // importi real _ImpRimb,_CompAss; // importi
public: public:
virtual int compare(const TSortable& s) const; virtual int compare(const TSortable& s) const;
TRecnotype pos() const { return _pos; } TRecnotype pos() const { return _pos; }
const char* sMeseRif() const; const char* sMeseRif() const;
const char* sAnnoRif() const; const char* sAnnoRif() const;
const int iMeseRif() const { return _MeseRif; } const int iMeseRif() const { return _MeseRif; }
const int iAnnoRif() const { return _AnnoRif; } const int iAnnoRif() const { return _AnnoRif; }
const char* ImpRimb(const char* pic) const { return _ImpRimb.string(pic); } const char* ImpRimb(const char* pic) const { return _ImpRimb.string(pic); }
const char* CompAss(const char* pic) const { return _CompAss.string(pic); } const char* CompAss(const char* pic) const { return _CompAss.string(pic); }
TRigaN(const TLocalisamfile& qn); TRigaN(const TLocalisamfile& qn);
virtual ~TRigaN() { } virtual ~TRigaN() { }
}; };
class TRigheNR : public TObject class TRigheNR : public TObject
{ {
TArray _data; TArray _data;
protected: protected:
const TRigaN& rigaN(int i) const { return (const TRigaN&)_data[i]; } const TRigaN& rigaN(int i) const { return (const TRigaN&)_data[i]; }
public: public:
const TRigaN& operator[](int i) const { return rigaN(i); } const TRigaN& operator[](int i) const { return rigaN(i); }
int fill(const long codditta,TLocalisamfile& qnr); int fill(const long codditta,TLocalisamfile& qnr);
int items() const { return _data.items(); } int items() const { return _data.items(); }
void destroy() { _data.destroy(); }
TRigheNR() { } TRigheNR() { }
virtual ~TRigheNR() { } virtual ~TRigheNR() { }
}; };
class TRigaQT : public TSortable class TRigaQT : public TSortable
{ {
int _MesePag,_AnnoPag; // periodo di riferimento int _MesePag,_AnnoPag; // periodo di riferimento
real _ContVers,_ContRimb,_Interessi; // importi real _ContVers,_ContRimb,_Interessi; // importi
TString _sCodReg; TString _sCodReg;
TRecnotype _pos; TRecnotype _pos;
public: public:
virtual int compare(const TSortable& s) const; virtual int compare(const TSortable& s) const;
TRecnotype pos() const { return _pos; } TRecnotype pos() const { return _pos; }
const char* sMesePag() const; const char* sMesePag() const;
const char* sAnnoPag() const; const char* sAnnoPag() const;
const int iMesePag() const { return _MesePag; } const int iMesePag() const { return _MesePag; }
const int iAnnoPag() const { return _AnnoPag; } const int iAnnoPag() const { return _AnnoPag; }
const char* ContVers(const char* pic) const { return _ContVers.string(pic); } const char* ContVers(const char* pic) const { return _ContVers.string(pic); }
const char* ContRimb(const char* pic) const { return _ContRimb.string(pic); } const char* ContRimb(const char* pic) const { return _ContRimb.string(pic); }
const char* Interessi(const char* pic) const { return _Interessi.string(pic); } const char* Interessi(const char* pic) const { return _Interessi.string(pic); }
const char* CodReg() const { return (const char*)_sCodReg; } const char* CodReg() const { return (const char*)_sCodReg; }
TRigaQT(const TLocalisamfile& qt); TRigaQT(const TLocalisamfile& qt);
virtual ~TRigaQT() { } virtual ~TRigaQT() { }
}; };
class TRigheQT : public TObject class TRigheQT : public TObject
{ {
TArray _data; TArray _data;
protected: protected:
const TRigaQT& rigaQT(int i) const { return (const TRigaQT&)_data[i]; } const TRigaQT& rigaQT(int i) const { return (const TRigaQT&)_data[i]; }
public: public:
const TRigaQT& operator[](int i) const { return rigaQT(i); } const TRigaQT& operator[](int i) const { return rigaQT(i); }
void destroy() { _data.destroy(); }
int fill(const long codditta,TLocalisamfile& qt); int fill(const long codditta,TLocalisamfile& qt);
int items() const { return _data.items(); } int items() const { return _data.items(); }
TRigheQT() {} TRigheQT() {}
virtual ~TRigheQT() {} virtual ~TRigheQT() {}
}; };
class TRigaPS : public TSortable class TRigaPS : public TSortable
{ {
TDate _dDv; // data vers. TDate _dDv; // data vers.
real _rImp,_rIntDip,_rIntDat; // importi real _rImp,_rIntDip,_rIntDat; // importi
TString _sTipoV,_sCodTrib,_sSerie,_sNumero; TString _sTipoV,_sCodTrib,_sSerie,_sNumero;
TRecnotype _pos; TRecnotype _pos;
public: public:
virtual int compare(const TSortable& s) const; virtual int compare(const TSortable& s) const;
TRecnotype pos() const { return _pos; } TRecnotype pos() const { return _pos; }
TDate dDataVers() const { return _dDv; } TDate dDataVers() const { return _dDv; }
const char* sDataVers() const { return _dDv.string(); } const char* sDataVers() const { return _dDv.string(); }
const char* sImposta() const; const char* sImposta() const;
const char* sIntDip() const; const char* sIntDip() const;
const char* sIntDat() const; const char* sIntDat() const;
const char* sImposta(const char* pic) const { return _rImp.string(pic); } const char* sImposta(const char* pic) const { return _rImp.string(pic); }
const char* sIntDip(const char* pic) const { return _rIntDip.string(pic); } const char* sIntDip(const char* pic) const { return _rIntDip.string(pic); }
const char* sIntDat(const char* pic) const { return _rIntDat.string(pic); } const char* sIntDat(const char* pic) const { return _rIntDat.string(pic); }
const char* sTipoVers() const { return (const char*)_sTipoV; } const char* sTipoVers() const { return (const char*)_sTipoV; }
const char* sCodTrib() const { return (const char*)_sCodTrib; } const char* sCodTrib() const { return (const char*)_sCodTrib; }
const char* sSerie() const { return (const char*)_sSerie; } const char* sSerie() const { return (const char*)_sSerie; }
const char* sNumero() const { return (const char*)_sNumero; } const char* sNumero() const { return (const char*)_sNumero; }
TRigaPS(const TLocalisamfile& qt); TRigaPS(const TLocalisamfile& qt);
virtual ~TRigaPS() { } virtual ~TRigaPS() { }
}; };
class TRighePS : public TObject class TRighePS : public TObject
{ {
TArray _data; TArray _data;
protected: protected:
const TRigaPS& rigaPS(int i) const { return (const TRigaPS&)_data[i]; } const TRigaPS& rigaPS(int i) const { return (const TRigaPS&)_data[i]; }
public: public:
const TRigaPS& operator[](int i) const { return rigaPS(i); } const TRigaPS& operator[](int i) const { return rigaPS(i); }
int fill(const long codditta,TLocalisamfile& ps); int fill(const long codditta,TLocalisamfile& ps);
int items() const { return _data.items(); } void destroy() { _data.destroy(); }
TRighePS() {} int items() const { return _data.items(); }
virtual ~TRighePS() {} TRighePS() {}
}; virtual ~TRighePS() {}
};
class TBase4 : public TDicForm
{ class TBase4 : public TDicForm
private: {
long _codditta; private:
TRigheNR _righeNR; // array dei record N e R long _codditta;
TRigheQT _righeQT; TRigheNR _righeNR; // array dei record N e R
TRighePS _righePS; TRigheQT _righeQT;
bool _bAggN,_bAggP,_bAggR,_bAggQ,_bAggS,_bAggT; TRighePS _righePS;
protected: bool _bAggN,_bAggP,_bAggR,_bAggQ,_bAggS,_bAggT;
void stampa_righe_vuote(TPrinter& pr,const int righe); protected:
void fill_riga_QT(TPrint_section& sec,const int num); void stampa_righe_vuote(TPrinter& pr,const int righe);
void fill_riga_PS(TPrint_section& sec,const int num); void fill_riga_QT(TPrint_section& sec,const int num);
void fill_riga_NR(TPrint_section& sec,const int num, const int side); void fill_riga_PS(TPrint_section& sec,const int num);
void stampa_testata(TPrinter& pr); void fill_riga_NR(TPrint_section& sec,const int num, const int side);
void stampa_fine(TPrinter& pr); void stampa_testata(TPrinter& pr);
void stampa_N(TPrinter& pr); void stampa_fine(TPrinter& pr);
void stampa_P(TPrinter& pr); void stampa_N(TPrinter& pr);
void stampa_Q(TPrinter& pr); void stampa_P(TPrinter& pr);
void stampa_R(TPrinter& pr); void stampa_Q(TPrinter& pr);
void stampa_S(TPrinter& pr); void stampa_R(TPrinter& pr);
void stampa_T(TPrinter& pr); void stampa_S(TPrinter& pr);
virtual int dic_form_len() const { return BASE_FORMLEN; } void stampa_T(TPrinter& pr);
virtual void next_page(TPrinter& pr) { fill_page(pr, -1); } virtual int dic_form_len() const { return BASE_FORMLEN; }
virtual void set_body(TPrinter& pr, const char tipo) {} virtual void next_page(TPrinter& pr) { fill_page(pr, -1); }
virtual int prima_riga(PaginaQuadro p) const { return 3;} virtual void set_body(TPrinter& pr, const char tipo) {}
public: virtual int prima_riga(PaginaQuadro p) const { return 4;}
virtual bool print(const long codditta, const long NumFis, const long NumNoFis); public:
TBase4(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro) {} virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
virtual ~TBase4() {} TBase4(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro) {}
}; virtual ~TBase4() {}
};
const int _FIELD_L = 740;
const int _FIELD_L = 740;
class TStampaBase : public TStampaQuadro
{ class TStampaBase : public TStampaQuadro
private: {
TBase1* _fBase1; private:
TBase2* _fBase2; TBase1* _fBase1;
TBase3* _fBase3; TBase2* _fBase2;
TBase4* _fBase4; TBase3* _fBase3;
TRelation* _rel; TBase4* _fBase4;
TCursor* _cur, *_cur2, *_cur3, *_cur4; TRelation* _rel;
TCursor* _cur, *_cur2, *_cur3, *_cur4;
protected:
virtual bool user_create(); protected:
virtual bool user_destroy(); virtual bool user_create();
virtual bool conta_tipi_per() const { return FALSE; } virtual bool user_destroy();
virtual TDicForm* get_form() const { return _fBase1; } virtual bool conta_tipi_per() const { return FALSE; }
virtual TCursor* get_cursor() const { return _cur; } virtual TDicForm* get_form() const { return _fBase1; }
virtual bool print_quadro(const int OffsetDitta, const bool modulaser); virtual TCursor* get_cursor() const { return _cur; }
virtual bool print_quadro(const int OffsetDitta, const bool modulaser);
public:
TStampaBase(char livel) : TStampaQuadro("Base", livel) { } public:
}; TStampaBase(char livel) : TStampaQuadro("Base", livel) { }
};
///////////////////////////////////////////////////////////////////////////////////////////
// ///////////////////////////////////////////////////////////////////////////////////////////
// Quadro L aggiuntivo //
// // Quadro L aggiuntivo
/////////////////////////////////////////////////////////////////////////////////////////// //
class TQuadroL : public TDicForm ///////////////////////////////////////////////////////////////////////////////////////////
{ class TQuadroL : public TDicForm
private: {
long _codditta; private:
protected: long _codditta;
void stampa_testata(TPrinter& pr); real _rRitEff, _rRitVer;
void stampa_totali_L(TPrinter& pr); protected:
bool stampa_L(TPrinter& pr,const long lStartRec,const int iRecL); void stampa_testata(TPrinter& pr);
virtual int dic_form_len() const { return BASE_FORMLEN; } void stampa_totali_L(TPrinter& pr);
virtual void next_page(TPrinter& pr) { fill_page(pr, -1); } bool stampa_L(TPrinter& pr,const long lStartRec,const int iRecL);
virtual void set_body(TPrinter& pr, const char tipo) {} virtual void next_page(TPrinter& pr) { fill_page(pr, -1); }
virtual int prima_riga(PaginaQuadro p) const { return 3;} virtual void set_body(TPrinter& pr, const char tipo) {}
public: virtual int prima_riga(PaginaQuadro p) const;
virtual bool print(const long codditta, const long NumFis, const long NumNoFis); virtual long filtra(const long codditta);
TQuadroL(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro) {} void CalcolaTotalePrecedenti(TCursor* cur, const int _START_AGG_L);
virtual ~TQuadroL() {} public:
}; virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TQuadroL(const char* sNomeForm, const char* quadro) : _rRitEff(ZERO),_rRitVer(ZERO),TDicForm(sNomeForm, quadro) {}
const int _RIGA_TOTALI_AGG_L = 65; virtual ~TQuadroL() {}
const long _START_AGG_L = 17L; };
const int _REC_PRIMA_AGG_L = 12;
const int _REC_SECONDA_AGG_L = 14; class TStampaQuadroAggL : public TStampaQuadro
{
class TStampaQuadroAggL : public TStampaQuadro TQuadroL* _form;
{ TCursor* _cur;
TQuadroL* _form; protected:
protected: virtual bool user_create();
virtual bool user_create(); virtual bool user_destroy();
virtual bool user_destroy(); virtual TDicForm* get_form() const { return _form; }
virtual TDicForm* get_form() const { return _form; } virtual TCursor* get_cursor() const { return _cur; }
virtual bool conta_tipi_per() const { return FALSE; }
public: public:
TStampaQuadroAggL(const char* quadro, char liv):TStampaQuadro(quadro, liv) {} TStampaQuadroAggL(const char* quadro, char liv):TStampaQuadro(quadro, liv) {}
virtual ~TStampaQuadroAggL() { } virtual ~TStampaQuadroAggL() { }
}; };
#endif #endif

99
m770/77stq.cpp
View File

@ -38,6 +38,11 @@ const char* get_ragsoc(const long codditta)
return __dep80; return __dep80;
} }
int TDicForm::prima_riga(PaginaQuadro p) const
{
return p == PRIMA ? 9 : 8;
}
void TDicForm::set_cofi_dic(const char* cofi) void TDicForm::set_cofi_dic(const char* cofi)
{ {
_cofi_dic = cofi; _cofi_dic = cofi;
@ -83,10 +88,6 @@ bool TDicForm::InitPrint(const long codditta)
_RigaCorr = 0; _RigaCorr = 0;
TPrinter& pr = printer(); TPrinter& pr = printer();
// pr.set_offset(offset_y(), offset_x());
// pr.set_char_size(fontsize()); // Set font name and size
// pr.set_fontname(fontname()); // according to current form
_posiziona=pr.printtype()==winprinter; _posiziona=pr.printtype()==winprinter;
// if (_posiziona && !_GiaPosizionato && pr.printtype() == winprinter) // if (_posiziona && !_GiaPosizionato && pr.printtype() == winprinter)
if (_posiziona && !_GiaPosizionato && pr.printtype() == winprinter) if (_posiziona && !_GiaPosizionato && pr.printtype() == winprinter)
@ -526,8 +527,9 @@ bool TDicForm::PaginaPosizionamento() const
int TDicForm::dic_form_len() const int TDicForm::dic_form_len() const
{ {
if (curr_page() == PRIMA && _PaginaPosizionamento && !_GiaPosizionato) // if (curr_page() == PRIMA && _PaginaPosizionamento && !_GiaPosizionato)
return QD_FORMLEN_PRIMA; if (curr_page() == PRIMA && _PaginaPosizionamento)
return QD_FORMLEN-HEADER_PRIMA_NOPOS;
else else
return QD_FORMLEN; return QD_FORMLEN;
} }
@ -542,7 +544,6 @@ void TDicForm::fill_page(TPrinter& pr, const int righe)
// form feed // form feed
if (righe < 0) if (righe < 0)
{ {
// const int stop = PaginaPosizionamento() ? QD_FORMLEN_PRIMA : QD_FORMLEN;
const int stop = dic_form_len(); const int stop = dic_form_len();
for (int i = _RigaCorr; i < stop; i++) for (int i = _RigaCorr; i < stop; i++)
{ {
@ -553,7 +554,7 @@ void TDicForm::fill_page(TPrinter& pr, const int righe)
put_modulaser(row, STARTPAGE, pagina); put_modulaser(row, STARTPAGE, pagina);
} }
// Sull'ultima riga metto il codice ditta // Sull'ultima riga metto il codice ditta
if (i == stop - 2) if (i == stop - 1)
{ {
// if (_modulaser && EndJob() && curr_page() == QUARTA) // if (_modulaser && EndJob() && curr_page() == QUARTA)
if (_modulaser && EndJob() && ultima_pagina()) if (_modulaser && EndJob() && ultima_pagina())
@ -561,10 +562,8 @@ void TDicForm::fill_page(TPrinter& pr, const int righe)
TString16 ditta; ditta << _codditta; TString16 ditta; ditta << _codditta;
row.put(ditta, POS_DITTA); row.put(ditta, POS_DITTA);
pr.print(row);
} }
else pr.print(row);
pr.print(row);
row.reset(); row.reset();
} }
_RigaCorr = 0; _RigaCorr = 0;
@ -623,7 +622,7 @@ void TDicForm::stampa_testata(TPrinter& pr)
} }
// Righe da saltare nelle prime pag. dei moduli successivi al primo (che' son // Righe da saltare nelle prime pag. dei moduli successivi al primo (che' son
// senza le righe del posizionamento...) // senza le righe del posizionamento...)
int HEADER_PRIMA_NOPOS = 3; int righedasaltare=HEADER_PRIMA_NOPOS;
head.update(); head.update();
for (word j = 0; j <= r; j++) for (word j = 0; j <= r; j++)
{ {
@ -639,16 +638,13 @@ void TDicForm::stampa_testata(TPrinter& pr)
pr.print(r); pr.print(r);
_RigaCorr++; _RigaCorr++;
r.reset(); r.reset();
HEADER_PRIMA_NOPOS--; righedasaltare--;
} }
if (!PaginaPosizionamento()) if (!PaginaPosizionamento())
fill_page(pr, HEADER_PRIMA_NOPOS); fill_page(pr, righedasaltare);
} }
else pr.print(head.row(j));
{ _RigaCorr++;
pr.print(head.row(j));
_RigaCorr++;
}
} }
} }
@ -3732,24 +3728,75 @@ class TBusta : public TDicForm
{ {
protected: protected:
virtual bool print(const long codditta, const long, const long); virtual bool print(const long codditta, const long, const long);
virtual int prima_riga(PaginaQuadro p) const;
public: public:
TBusta(const char* form, const char* quadro) : TDicForm(form, quadro) { } TBusta(const char* form, const char* quadro) : TDicForm(form, quadro) { }
virtual ~TBusta() { } virtual ~TBusta() { }
}; };
bool get_alleg_730(const long codditta)
{
TLocalisamfile base(LF_BASE);
base.zero();
base.put("CODDITTA",(long)codditta);
if (base.read()==NOERR)
{
const long allegA=base.get_long("N730ALLA");
const long allegA2=base.get_long("N730ALLA2");
return allegA || allegA2;
}
else
return FALSE;
}
HIDDEN const int BUSTA_CON_POSIZ = 53;
HIDDEN const int BUSTA_SENZA_POSIZ = 56;
int TBusta::prima_riga(PaginaQuadro p) const
{
return HEADER_PRIMA_NOPOS-1;
}
bool TBusta::print(const long codditta, const long, const long) bool TBusta::print(const long codditta, const long, const long)
{ {
const bool ok = InitPrint(codditta); const bool ok = InitPrint(codditta);
if (ok) if (ok)
{ {
// Calcola identificatore del quadretto corrispondente al quadro L // Calcola identificatore del quadretto corrispondente al quadro L
TForm_item& dietor = find_field('B', odd_page, 'L' * 10); TForm_item& dietor = find_field('B', odd_page, 740);
const int anno = anno_770(); const int anno = anno_770();
const bool elle = esiste_record_L(codditta, anno); const bool elle = esiste_record_L(codditta, anno);
dietor.set(elle ? "X" : ""); dietor.set(elle ? "X" : "");
TForm_item& all730 = find_field('B', odd_page, 20);
TForm::print(0); const bool bAlleg730 = get_alleg_730(codditta);
all730.set(bAlleg730 ? "X" : "");
TPrinter& pr=printer();
TPrint_section& body = section('B', odd_page);
const int body_righe = body.height();
TCursor* cur=cursor();
bool finito=FALSE;
(*cur)=0L;
pr.formlen(BUSTA_CON_POSIZ);
if (!_PaginaPosizionamento)
jump_to_line(pr,prima_riga(PRIMA));
while (!finito)
{
body.reset();
body.update();
for (int i=0; i < body_righe; i++)
{
pr.print(body.row(i));
_RigaCorr++;
}
if (usa_progind())
progind()->addstatus(1);
++(*cur);
finito= cur->pos() >= cur->items()-1;
pr.formlen(BUSTA_SENZA_POSIZ);
_PaginaPosizionamento=FALSE;
}
// TForm::print(0);
} }
return ok; return ok;
} }
@ -3873,7 +3920,7 @@ int stampa_quadro(int argc, char* argv[])
} }
else if (quadro[0] == 'B' && quadro[1] != 'a') else if (quadro[0] == 'B' && quadro[1] != 'a')
{ {
switch (quadro[1]) switch (toupper(quadro[1]))
{ {
case 'U': app = new TStampaBusta(quadro, livello); break; case 'U': app = new TStampaBusta(quadro, livello); break;
default : app = new TStampaQuadroB(quadro, livello); break; default : app = new TStampaQuadroB(quadro, livello); break;
@ -3899,6 +3946,10 @@ int stampa_quadro(int argc, char* argv[])
{ {
app = new TStampaQuadroH(quadro, livello); app = new TStampaQuadroH(quadro, livello);
} }
else if (quadro == "L")
{
app = new TStampaQuadroAggL(quadro, livello);
}
if (app != NULL) if (app != NULL)
{ {

563
m770/77stq.h
View File

@ -1,282 +1,281 @@
#ifndef __77STQ_H #ifndef __77STQ_H
#define __77STQ_H #define __77STQ_H
#include <xvt.h> #include <xvt.h>
#include <applicat.h> #include <applicat.h>
#include <relation.h> #include <relation.h>
#include <config.h> #include <config.h>
#include <mask.h> #include <mask.h>
#include <form.h> #include <form.h>
#include <printer.h> #include <printer.h>
#include <progind.h> #include <progind.h>
#include "base.h" #include "base.h"
#include <urldefid.h> #include <urldefid.h>
#include <nditte.h> #include <nditte.h>
#include <anagr.h> #include <anagr.h>
#include "quadroc.h" #include "quadroc.h"
#include "quadrod.h" #include "quadrod.h"
#include "quadrod1.h" #include "quadrod1.h"
#include "quadrogd.h" #include "quadrogd.h"
#include "quadrif.h" #include "quadrif.h"
#include "77stqd.h" #include "77stqd.h"
#include "77lib.h" #include "77lib.h"
// Righe da saltare nelle prime pag. dei moduli successivi al primo (che' son // Righe da saltare nelle prime pag. dei moduli successivi al primo (che' son
// senza le righe del posizionamento...) // senza le righe del posizionamento...)
HIDDEN int HEADER_PRIMA_NOPOS = 2; HIDDEN int HEADER_PRIMA_NOPOS = 3;
// Chincaglieria che serve per posiziona() // Chincaglieria che serve per posiziona()
typedef long HWND; typedef long HWND;
HIDDEN const int MAX_LEN = 300; HIDDEN const int MAX_LEN = 300;
extern "C" { extern "C" {
BOOLEAN PrintLineNow( char *pData, word cbBytes, HWND hInst ); BOOLEAN PrintLineNow( char *pData, word cbBytes, HWND hInst );
}; };
HIDDEN TString16 __dep16; HIDDEN TString16 __dep16;
HIDDEN TString80 __dep80; HIDDEN TString80 __dep80;
// Vega-Key di Modulaser // Vega-Key di Modulaser
HIDDEN const char* VK_STARTDOC = "<VK>&MA796&0&1"; HIDDEN const char* VK_STARTDOC = "<VK>&MA796&0&1";
HIDDEN const char* VK_ENDDOC = "<VK>!0"; HIDDEN const char* VK_ENDDOC = "<VK>!0";
typedef enum { STARTDOC, STARTDITTA, STARTPAGE, ENDDOC } ModulaserKey; typedef enum { STARTDOC, STARTDITTA, STARTPAGE, ENDDOC } ModulaserKey;
// Campi form // Campi form
#define TOT_TOTALE 1 #define TOT_TOTALE 1
#define TOT_SNSRIT 2 #define TOT_SNSRIT 2
#define TOT_IMPON 3 #define TOT_IMPON 3
#define TOT_IMPOR 4 #define TOT_IMPOR 4
#define TOT_NETTO 5 #define TOT_NETTO 5
#define D_TOTALE 16 #define D_TOTALE 16
#define D_SNSRIT 17 #define D_SNSRIT 17
#define D_IMPONIBILE 18 #define D_IMPONIBILE 18
#define D_IMPORTO 20 #define D_IMPORTO 20
#define D_NETTO 21 #define D_NETTO 21
#define D1_TOTALE 12 #define D1_TOTALE 12
#define D1_QUOTAPRO 13 #define D1_QUOTAPRO 13
#define D1_SPESEANT 14 #define D1_SPESEANT 14
#define D1_IMPONIBILE 15 #define D1_IMPONIBILE 15
#define D1_IMPORTO 17 #define D1_IMPORTO 17
#define D1_NETTO 18 #define D1_NETTO 18
#define C_TOTALE 14 #define C_TOTALE 14
#define C_CONTSSN 15 #define C_CONTSSN 15
#define C_SOMME 16 #define C_SOMME 16
#define C_IMPONIBILE 17 #define C_IMPONIBILE 17
#define C_RITENUTE 18 #define C_RITENUTE 18
#define C_NETTO 19 #define C_NETTO 19
#define H_COFI_DIC 13 #define H_COFI_DIC 13
#define H_NUM_FOGLIO 14 #define H_NUM_FOGLIO 14
#define QD_STATO_ESTERO 12 #define QD_STATO_ESTERO 12
// Quadro D // Quadro D
HIDDEN const int QD_FORMLEN_PRIMA = 70; // 72 - 3 (3 e' la posizione della X di posiz.) HIDDEN const int QD_FORMLEN = 72;
HIDDEN const int QD_FORMLEN = 72; HIDDEN const int POS_DITTA = 120; // Colonna del codice ditta a pie' di modulo
HIDDEN const int POS_DITTA = 120; // Colonna del codice ditta a pie' di modulo HIDDEN const int QD_PAGINE = 4;
HIDDEN const int QD_PAGINE = 4; HIDDEN const int QD_RIGHE_PRIMA = 4;
HIDDEN const int QD_RIGHE_PRIMA = 4; HIDDEN const int QD_RIGHE_SECONDA = 7;
HIDDEN const int QD_RIGHE_SECONDA = 7; HIDDEN const int QD_RIGHE_TERZA = 7;
HIDDEN const int QD_RIGHE_TERZA = 7; HIDDEN const int QD_RIGHE_QUARTA = 7;
HIDDEN const int QD_RIGHE_QUARTA = 7; HIDDEN const int QD1_RIGHE_PRIMA = 6;
HIDDEN const int QD1_RIGHE_PRIMA = 6; HIDDEN const int QD1_RIGHE_SECONDA = 9;
HIDDEN const int QD1_RIGHE_SECONDA = 9; HIDDEN const int QD1_RIGHE_TERZA = 9;
HIDDEN const int QD1_RIGHE_TERZA = 9; HIDDEN const int QD1_RIGHE_QUARTA = 8;
HIDDEN const int QD1_RIGHE_QUARTA = 8;
HIDDEN const int HEADER_SECONDA = 8;
HIDDEN const int HEADER_SECONDA = 8; HIDDEN const int HEADER_TERZA = 8; // Sarebbero 9 col righello...
HIDDEN const int HEADER_TERZA = 8; // Sarebbero 9 col righello... HIDDEN const int HEADER_QUARTA = 13; // 15 col righello...
HIDDEN const int HEADER_QUARTA = 13; // 15 col righello...
HIDDEN const int HEADER_D1_SECONDA = 8;
HIDDEN const int HEADER_D1_SECONDA = 8; HIDDEN const int HEADER_D1_TERZA = 8;
HIDDEN const int HEADER_D1_TERZA = 8; HIDDEN const int HEADER_D1_QUARTA = 14;
HIDDEN const int HEADER_D1_QUARTA = 14;
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;
const char* get_ragsoc_anagr(char tipo, long codanagr);
const char* get_ragsoc_anagr(char tipo, long codanagr);
class TDicForm : public TForm
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;
TCursor* _cur;
TCursor* _cur;
protected:
protected: long _Items; // numero di record che hanno passato il filtro
long _Items; // numero di record che hanno passato il filtro PaginaQuadro _PaginaCorrente;
PaginaQuadro _PaginaCorrente;
void set_curr_page(PaginaQuadro pagina) { _PaginaCorrente = pagina; }
void set_curr_page(PaginaQuadro pagina) { _PaginaCorrente = pagina; } virtual int dic_form_len() const;
virtual int dic_form_len() const; virtual void inc_curr_page();
virtual void inc_curr_page(); virtual void next_page(TPrinter& pr);
virtual void next_page(TPrinter& pr); bool _modulaser; // se stampa per modulaser
bool _modulaser; // se stampa per modulaser bool _posiziona;
bool _posiziona; TipoDitta _tipo_ditta; // tipo ditta: normale, estinto, dichiarante
TipoDitta _tipo_ditta; // tipo ditta: normale, estinto, dichiarante int _num_foglio; // numero foglio
int _num_foglio; // numero foglio TString _cofi_dic; // cod.fis. dichiarante
TString _cofi_dic; // cod.fis. dichiarante bool _can_print_tot_fis, _can_print_tot_nofis;
bool _can_print_tot_fis, _can_print_tot_nofis; bool _finite_fis, _finite_nofis, _LastDitta, _EndPrintDitta;
bool _finite_fis, _finite_nofis, _LastDitta, _EndPrintDitta; bool _GiaStampatiFis, _GiaStampatiNoFis, _PaginaPosizionamento;
bool _GiaStampatiFis, _GiaStampatiNoFis, _PaginaPosizionamento; bool _GiaPosizionato, _GiaMessoStartDoc, _GiaMessoStartPage[QD_PAGINE]; // flag per modulaser
bool _GiaPosizionato, _GiaMessoStartDoc, _GiaMessoStartPage[QD_PAGINE]; // flag per modulaser int _CtrNoFisStampati, _CtrFisStampati; // contatori p.f. e p.g. stampate
int _CtrNoFisStampati, _CtrFisStampati; // contatori p.f. e p.g. stampate long _codditta, _codditta_dic; // cod.ditta e cod.ditta dichiarante
long _codditta, _codditta_dic; // cod.ditta e cod.ditta dichiarante int _RigaCorr; // contatore riga corrente
int _RigaCorr; // contatore riga corrente TString16 _quadro; // codice quadro in stampa
TString16 _quadro; // codice quadro in stampa
void stampa_testata(TPrinter& pr);
void stampa_testata(TPrinter& pr); virtual bool ultima_pagina() const { return _PaginaCorrente==QUARTA; }
virtual bool ultima_pagina() const { return _PaginaCorrente==QUARTA; } virtual void stampa_totali(TPrinter& pr);
virtual void stampa_totali(TPrinter& pr); // virtual void aggiorna_totali(const char tipo);
// virtual void aggiorna_totali(const char tipo); virtual void set_body(TPrinter& pr, const char tipo);
virtual void set_body(TPrinter& pr, const char tipo); void StampaPagina(PaginaQuadro PaginaCorrente, const bool StampaTotali, const long Fis, const long NoFis);
void StampaPagina(PaginaQuadro PaginaCorrente, const bool StampaTotali, const long Fis, const long NoFis); void posiziona();
void posiziona(); void fill_page(TPrinter& pr, const int righe);
void fill_page(TPrinter& pr, const int righe); void jump_to_line(TPrinter& pr, const int riga);
void jump_to_line(TPrinter& pr, const int riga); const char* BuildModulaserStartPage();
const char* BuildModulaserStartPage(); void put_modulaser(TPrintrow& row, ModulaserKey key, int page=0);
void put_modulaser(TPrintrow& row, ModulaserKey key, int page=0); void ClearFlagModulaser();
void ClearFlagModulaser(); bool PaginaPosizionamento() const;
bool PaginaPosizionamento() const; virtual bool InitPrint(const long codditta);
virtual bool InitPrint(const long codditta);
public:
public: virtual TCursor* cursor() const { return _cur; }
virtual TCursor* cursor() const { return _cur; } virtual TRelation* relation() const { return _cur->relation(); }
virtual TRelation* relation() const { return _cur->relation(); }
virtual long filtra(const long codditta);
virtual long filtra(const long codditta);
TProgind* _prog; // progind usata in print()
TProgind* _prog; // progind usata in print()
long codditta() const { return _codditta; }
long codditta() const { return _codditta; } void set_codditta(const long ditta) { _codditta = ditta; }
void set_codditta(const long ditta) { _codditta = ditta; } void set_posiziona(const bool posiz) { _GiaPosizionato = FALSE; }
void set_posiziona(const bool posiz) { _GiaPosizionato = FALSE; } void can_print_tot_fis(const bool canpr) { _can_print_tot_fis = canpr; }
void can_print_tot_fis(const bool canpr) { _can_print_tot_fis = canpr; } void can_print_tot_nofis(const bool canpr) { _can_print_tot_nofis = canpr; }
void can_print_tot_nofis(const bool canpr) { _can_print_tot_nofis = canpr; } void set_last_ditta(const bool last) { _LastDitta = last; }
void set_last_ditta(const bool last) { _LastDitta = last; } bool last_ditta() const { return _LastDitta; }
bool last_ditta() const { return _LastDitta; } bool EndJob() const { return _LastDitta && _EndPrintDitta; }
bool EndJob() const { return _LastDitta && _EndPrintDitta; } bool ultima_fis();
bool ultima_fis(); bool ultima_nofis();
bool ultima_nofis(); TString& cofi_dic() { return _cofi_dic; }
TString& cofi_dic() { return _cofi_dic; } void set_cofi_dic(const char* cofi);
void set_cofi_dic(const char* cofi); TipoDitta tipo_ditta() const { return _tipo_ditta; }
TipoDitta tipo_ditta() const { return _tipo_ditta; } void set_tipo_ditta(TipoDitta tipo) { _tipo_ditta = tipo; }
void set_tipo_ditta(TipoDitta tipo) { _tipo_ditta = tipo; } bool modulaser() const { return _modulaser; }
bool modulaser() const { return _modulaser; } void set_modulaser(const bool modul) { _modulaser = modul; }
void set_modulaser(const bool modul) { _modulaser = modul; } void set_num_foglio(const int foglio) { _num_foglio = foglio; }
void set_num_foglio(const int foglio) { _num_foglio = foglio; } int num_foglio() const { return _num_foglio; }
int num_foglio() const { return _num_foglio; } virtual void azzera_totali();
virtual void azzera_totali(); PaginaQuadro curr_page() const { return _PaginaCorrente; }
PaginaQuadro curr_page() const { return _PaginaCorrente; } TCursor& cur();
TCursor& cur();
void set_progind(TProgind* prog) { _prog = prog; }
void set_progind(TProgind* prog) { _prog = prog; } TProgind* progind() { return _prog; }
TProgind* progind() { return _prog; } bool usa_progind() const { return _prog != NULL; }
bool usa_progind() const { return _prog != NULL; }
virtual void set_cursor(TCursor* cur);
virtual void set_cursor(TCursor* cur); virtual void close_print();
virtual void close_print(); virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
virtual bool print(const long codditta, const long NumFis, const long NumNoFis); virtual int prima_riga(PaginaQuadro p) const;
const TString& quadro() const { return _quadro; }
const TString& quadro() const { return _quadro; }
TDicForm(const char* form, const char* quadro);
TDicForm(const char* form, const char* quadro); virtual ~TDicForm() {}
virtual ~TDicForm() {} };
};
////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////// //
// // TStDicArray
// TStDicArray //
// // Array delle ditte da stampare. Contiene una riga per ogni ditta che si vuole stampare
// Array delle ditte da stampare. Contiene una riga per ogni ditta che si vuole stampare // Il formato della riga e':
// Il formato della riga e': // codditta|estinti|numfis|numnofis|ultimafis|ultimanofis
// codditta|estinti|numfis|numnofis|ultimafis|ultimanofis //
// /////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////
class TStDicArray : public TObject
class TStDicArray : public TObject {
{ private:
private: TString_array _store;
TString_array _store;
public:
public: TToken_string& operator[](int i) const;
TToken_string& operator[](int i) const; int curr_index() const { return _store.last(); }
int curr_index() const { return _store.last(); } void set(const int index, const TipoDitta tipo=normale, const int num_fis=0, const int num_nofis=0,
void set(const int index, const TipoDitta tipo=normale, const int num_fis=0, const int num_nofis=0, bool ultima_con_fis=FALSE, bool ultima_con_nofis=FALSE, const char* cofidic=NULL);
bool ultima_con_fis=FALSE, bool ultima_con_nofis=FALSE, const char* cofidic=NULL); void set_tipo(const int index, const TipoDitta tipo);
void set_tipo(const int index, const TipoDitta tipo); void set_ultima_con_fis(const int index, const bool ultima_fis);
void set_ultima_con_fis(const int index, const bool ultima_fis); void set_ultima_con_nofis(const int index, const bool ultima_nofis);
void set_ultima_con_nofis(const int index, const bool ultima_nofis); void set_flag_tipi(const int index, const bool ultima_fis, const bool ultima_nofis);
void set_flag_tipi(const int index, const bool ultima_fis, const bool ultima_nofis); void set_ctr_tipi(const int index, const int num_fis, const int num_nofis);
void set_ctr_tipi(const int index, const int num_fis, const int num_nofis); void add(const long codditta, const TipoDitta tipo=normale, const int num_fis=0, const int num_nofis=0,
void add(const long codditta, const TipoDitta tipo=normale, const int num_fis=0, const int num_nofis=0, bool ultima_con_fis=FALSE, bool ultima_con_nofis=FALSE, const char* cofidic=NULL);
bool ultima_con_fis=FALSE, bool ultima_con_nofis=FALSE, const char* cofidic=NULL); int items() const { return _store.items(); }
int items() const { return _store.items(); } void destroy() { _store.destroy(); }
void destroy() { _store.destroy(); } };
};
/////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////// //
// // STAMPA QUADRO
// STAMPA QUADRO //
// /////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////
class TStampaQuadro : public TApplication
class TStampaQuadro : public TApplication {
{ TMask* _m; // Maschera di stampa
TMask* _m; // Maschera di stampa
TConfig* _cnf; // Configurazione
TConfig* _cnf; // Configurazione TString16 _section; // Paragrafo del config
TString16 _section; // Paragrafo del config long _codditta;
long _codditta; int _anno_dic;
int _anno_dic;
TString _quadro;
TString _quadro; char _livello; // "S" studio, "D" singola ditta
char _livello; // "S" studio, "D" singola ditta TString _title;
TString _title;
TStDicArray _ditte;
TStDicArray _ditte;
protected: // TApplication
protected: // TApplication virtual bool menu(MENU_TAG);
virtual bool menu(MENU_TAG); virtual void on_config_change();
virtual void on_config_change();
virtual bool create();
virtual bool create(); virtual bool destroy();
virtual bool destroy();
protected:
protected: virtual bool user_create() pure;
virtual bool user_create() pure; virtual bool user_destroy() pure;
virtual bool user_destroy() pure;
virtual TDicForm* get_form() const pure;
virtual TDicForm* get_form() const pure; virtual TCursor* get_cursor() const pure;
virtual TCursor* get_cursor() const pure;
virtual const char* mask_name() const;
virtual const char* mask_name() const; virtual const char* form_name() const;
virtual const char* form_name() const;
virtual bool conta_tipi_per() const { return TRUE; }
virtual bool conta_tipi_per() const { return TRUE; } void fill_estinti(const long CodDic);
void fill_estinti(const long CodDic); const TStDicArray& ditte() const { return _ditte; }
const TStDicArray& ditte() const { return _ditte; }
virtual bool print_quadro(const int OffsetDitta, const bool modulaser);
virtual bool print_quadro(const int OffsetDitta, const bool modulaser); virtual void print(const bool modulaser);
virtual void print(const bool modulaser);
bool singola_ditta() const { return _livello == 'D'; }
bool singola_ditta() const { return _livello == 'D'; } const TString& quadro() const { return _quadro; }
const TString& quadro() const { return _quadro; }
void set_taitol(const char* t) { _title = t; }
void set_taitol(const char* t) { _title = t; }
TStampaQuadro(const char* quad, char liv);
TStampaQuadro(const char* quad, char liv);
public:
public: const TString& taitol() const { return _title; }
const TString& taitol() const { return _title; }
virtual ~TStampaQuadro() { }
virtual ~TStampaQuadro() { } };
};
#endif
#endif

1304
m770/77stqab.cpp
View File

File diff suppressed because it is too large Load Diff

19
m770/77stqc.cpp
View File

@ -129,11 +129,12 @@ void TQuadroC::setta_importi(TPrint_section& body)
void TQuadroC::stampa_corpo(TPrinter& pr) void TQuadroC::stampa_corpo(TPrinter& pr)
{ {
TPrint_section& body = section('B', odd_page); TPrint_section& body = section('B', odd_page);
const int body_righe = body.height();
body.reset(); body.reset();
// body.update(); // body.update();
setta_importi(body); setta_importi(body);
body.update(); body.update();
const int body_righe = body.height(); // const int body_righe = body.height();
for (int i=0; i < body_righe; i++) for (int i=0; i < body_righe; i++)
{ {
pr.print(body.row(i)); pr.print(body.row(i));
@ -152,8 +153,9 @@ int TQuadroC::elementi_pagina(PaginaQuadro p) const
int TQuadroC::prima_riga(PaginaQuadro p) const int TQuadroC::prima_riga(PaginaQuadro p) const
{ {
// return p == PRIMA ? 27 : 8; // old return p == PRIMA ? 27 : 8;
return p == PRIMA ? 26 : 7; // nik1 return p == PRIMA ? 26 : 7;
return p == PRIMA ? 27 : 9;
} }
bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis) bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis)
@ -165,7 +167,7 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
if (!InitPrint(codditta)) if (!InitPrint(codditta))
return FALSE; return FALSE;
pr.formlen(QA_FORMLEN); // 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; int ele_bis = 0;
@ -206,6 +208,8 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
switch(_PaginaCorrente) switch(_PaginaCorrente)
{ {
case PRIMA: case PRIMA:
pr.formlen(dic_form_len());
if (_modulaser) if (_modulaser)
ClearFlagModulaser(); ClearFlagModulaser();
@ -238,8 +242,10 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
ele_bis = 0; ele_bis = 0;
} }
break; break;
_PaginaPosizionamento=FALSE;
case SECONDA: case SECONDA:
case TERZA: case TERZA:
pr.formlen(dic_form_len());
if (!stampato_ultimo) if (!stampato_ultimo)
{ {
if (ele_bis == 0) if (ele_bis == 0)
@ -266,7 +272,8 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
} }
break; break;
case QUARTA: case QUARTA:
if (!stampato_ultimo) pr.formlen(dic_form_len());
if (!stampato_ultimo)
{ {
if (ele_bis == 0) if (ele_bis == 0)
jump_to_line(pr, prima_riga(QUARTA)); jump_to_line(pr, prima_riga(QUARTA));

8
m770/menu_st.uml
View File

@ -56,7 +56,7 @@ END
BUTTON B_LAGG 1 1 BUTTON B_LAGG 1 1
BEGIN BEGIN
PROMPT 1 ROW2 "" PROMPT 1 ROW2 ""
// MESSAGE RUN,771MOD,-7,1 MESSAGE RUN,772MOD,-4,L,S
PICTURE 123 PICTURE 123
GROUP 1 GROUP 1
END END
@ -70,7 +70,7 @@ END
BUTTON B_NAGG 1 1 BUTTON B_NAGG 1 1
BEGIN BEGIN
PROMPT 1 ROW3 "" PROMPT 1 ROW3 ""
// MESSAGE RUN,771MOD,-7,2 MESSAGE RUN,772MOD,-4,N,S
PICTURE 123 PICTURE 123
GROUP 1 GROUP 1
END END
@ -145,7 +145,7 @@ BUTTON B_A1 1 1
BEGIN BEGIN
PROMPT 20 ROW2 "" PROMPT 20 ROW2 ""
PICTURE 123 PICTURE 123
MESSAGE RUN,771MOD,-4,A1,S MESSAGE RUN,772MOD,-4,A1,S
GROUP 1 GROUP 1
END END
@ -201,7 +201,7 @@ BUTTON B_B1 1 1
BEGIN BEGIN
PROMPT 20 ROW6 "" PROMPT 20 ROW6 ""
PICTURE 123 PICTURE 123
// MESSAGE RUN,771MOD,-6,0 MESSAGE RUN,772MOD,-4,B1,S
GROUP 1 GROUP 1
END END
// Fine seconda colonna // Fine seconda colonna

4
m770/menustq.uml
View File

@ -28,7 +28,7 @@ END
BUTTON B_BASE 1 1 BUTTON B_BASE 1 1
BEGIN BEGIN
PROMPT 1 ROW1 "" PROMPT 1 ROW1 ""
MESSAGE RUN,772MOD,-4,Base,D|K_TAB,RILEGGI_QUADRI MESSAGE RUN,772MOD,-4,Base,D
PICTURE 123 PICTURE 123
FLAGS MYFLAGS FLAGS MYFLAGS
GROUP GRUPPO GROUP GRUPPO
@ -44,7 +44,7 @@ END
BUTTON B_LAGG 1 1 BUTTON B_LAGG 1 1
BEGIN BEGIN
PROMPT 1 ROW2 "" PROMPT 1 ROW2 ""
// MESSAGE RUN,771MOD,-7,1|K_TAB,RILEGGI_QUADRI MESSAGE RUN,772MOD,-4,L,D
PICTURE 123 PICTURE 123
FLAGS MYFLAGS FLAGS MYFLAGS
GROUP GRUPPO GROUP GRUPPO