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

Varie correzioni

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3736 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1996-10-09 10:25:20 +00:00
parent ea18899a94
commit 0b24d8e0ec
21 changed files with 10724 additions and 10575 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
m770/77base3.frm
View File

@ -173,14 +173,14 @@ SECTION FOOTER LAST 2
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "Tot.rit.eff" KEY "Tot.rit.eff"
PROMPT 61 1 "" PROMPT 61 2 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 2 NUMERO 2
BEGIN BEGIN
KEY "Tot.rit.ver" KEY "Tot.rit.ver"
PROMPT 112 1 "" PROMPT 112 2 ""
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END

45
m770/77base4.frm
View File

@ -1,16 +1,17 @@
USE 37 USE 36
JOIN 72 INTO CODDITTA=CODDITTA JOIN 37 TO 36 INTO CODDITTA=CODDITTA
JOIN 73 TO 37 INTO CODDITTA=CODDITTA JOIN 72 TO 36 INTO CODDITTA=CODDITTA
JOIN 74 TO 37 INTO CODDITTA=CODDITTA JOIN 73 TO 36 INTO CODDITTA=CODDITTA
JOIN 75 TO 37 INTO CODDITTA=CODDITTA JOIN 74 TO 36 INTO CODDITTA=CODDITTA
JOIN 76 TO 37 INTO CODDITTA=CODDITTA JOIN 75 TO 36 INTO CODDITTA=CODDITTA
JOIN 77 TO 37 INTO CODDITTA=CODDITTA JOIN 76 TO 36 INTO CODDITTA=CODDITTA
JOIN 36 TO 37 INTO CODDITTA=CODDITTA JOIN 77 TO 36 INTO CODDITTA=CODDITTA
JOIN %CAF TO 36 ALIAS 104 INTO CODTAB==CODCAAF
JOIN 9 TO 36 INTO CODDITTA=CODDITTA JOIN 9 TO 36 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 36 ALIAS 108 INTO CODANAGR==CODPRO JOIN 8 TO 36 ALIAS 108 INTO CODANAGR==CODPRO
JOIN 6 TO 8 ALIAS 106 INTO TIPOA="F" CODANAGR=CODANAGR JOIN 6 TO 8 ALIAS 106 INTO TIPOA="F" CODANAGR=CODANAGR
JOIN 9 TO 36 ALIAS 104 INTO CODDITTA==DITTACAAF
JOIN 6 TO 104@ ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR
END END
DESCRIPTION DESCRIPTION
@ -369,7 +370,7 @@ END
END END
SECTION FOOTER FIRST 25 SECTION FOOTER FIRST 26
STRINGA 650 STRINGA 650
BEGIN BEGIN
@ -560,38 +561,38 @@ BEGIN
FIELD 37->NSUPPM FIELD 37->NSUPPM
END END
DATA 823 STRINGA 823
BEGIN
KEY "Data"
PROMPT 29 16 ""
FLAGS "A"
END
STRINGA 824
BEGIN BEGIN
KEY "Presidente" KEY "Presidente"
PROMPT 51 15 "" PROMPT 51 15 ""
END END
STRINGA 825 STRINGA 824
BEGIN BEGIN
KEY "Dichiarante" KEY "Dichiarante"
PROMPT 95 15 "" PROMPT 95 15 ""
FIELD 6->RAGSOC FIELD 6->RAGSOC
END END
DATA 825
BEGIN
KEY "Data"
PROMPT 29 16 ""
FLAGS "A"
END
STRINGA 826 STRINGA 826
BEGIN BEGIN
KEY "CODICE FISCALE CAAF" KEY "CODICE FISCALE CAAF"
PROMPT 48 18 "" PROMPT 51 18 ""
FIELD 104@->S1 FIELD 206@->COFI
END END
NUMERO 827 NUMERO 827
BEGIN BEGIN
KEY "NUMERO ISCRIZIONE ALBO" KEY "NUMERO ISCRIZIONE ALBO"
PROMPT 122 18 "" PROMPT 122 18 ""
FIELD 104@->I1 FIELD 104@->NISCRAA
PICTURE "#####" PICTURE "#####"
END END

505
m770/77qn.frm
View File

@ -1,5 +1,10 @@
USE 37 USE 37
JOIN 72 INTO CODDITTA=CODDITTA JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
JOIN 72 TO 37 INTO CODDITTA=CODDITTA
JOIN 73 TO 37 INTO CODDITTA=CODDITTA JOIN 73 TO 37 INTO CODDITTA=CODDITTA
JOIN 74 TO 37 INTO CODDITTA=CODDITTA JOIN 74 TO 37 INTO CODDITTA=CODDITTA
JOIN 75 TO 37 INTO CODDITTA=CODDITTA JOIN 75 TO 37 INTO CODDITTA=CODDITTA
@ -37,52 +42,97 @@ END
SECTION HEADER FIRST 7 SECTION HEADER FIRST 7
NUMERO 1 LISTA 1
BEGIN BEGIN
KEY "M1" KEY "Tipo anagrafica"
PROMPT 61 1 "" FLAGS "H"
FIELD 37->ECCRIT12 FIELD 106@->TIPOA
PICTURE "###.###.###.###^^^" ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END END
NUMERO 2 STRINGA 2
BEGIN BEGIN
KEY "M2" KEY "CODICE FISCALE"
PROMPT 117 1 "" PROMPT 21 1 ""
FIELD 37->ECCRIT23 FIELD 106@->COFI
PICTURE "###.###.###.###^^^"
END END
NUMERO 3 STRINGA 3
BEGIN BEGIN
KEY "M3" KEY "RAGIONE SOCIALE (o cognome)"
PROMPT 61 3 "" PROMPT 51 1 ""
FIELD 37->CRIMPDL GROUP 2
PICTURE "###.###.###.###^^^" FIELD 106@->RAGSOC
END END
NUMERO 4 STRINGA 4
BEGIN BEGIN
KEY "M4" KEY "COGNOME (o ragsoc)"
PROMPT 61 5 "" PROMPT 51 1 ""
FIELD 37->CRIMPIVA GROUP 1
PICTURE "###.###.###.###^^^" FIELD 106@->RAGSOC[1,30]
END END
NUMERO 5 STRINGA 5
BEGIN BEGIN
KEY "M5" KEY "NOME"
PROMPT 117 3 "" PROMPT 21 4 ""
FIELD 37->CRIMPRIT GROUP 1
PICTURE "###.###.###.###^^^" FIELD 106@->RAGSOC[31,50]
END END
NUMERO 6 LISTA 6
BEGIN BEGIN
KEY "M6" KEY "SESSO M"
PROMPT 117 5 "" PROMPT 53 4 ""
FIELD 37->CRIMPRES ITEM " | "
PICTURE "###.###.###.###^^^" ITEM "M|X"
ITEM "F|"
FIELD 108@->SESSO
GROUP 1
END
LISTA 7
BEGIN
KEY "SESSO F"
PROMPT 62 4 ""
ITEM " | "
ITEM "M|"
ITEM "F|X"
FIELD 108@->SESSO
GROUP 1
END
STRINGA 8
BEGIN
KEY "DATA DI NASCITA"
PROMPT 68 4 ""
GROUP 1
FIELD 108@->DATANASC
PICTURE "## ^ ## ^^###"
END
STRINGA 9
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 85 4 ""
GROUP 1
FIELD 113@->DENCOM
END
STRINGA 10
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 129 4 ""
GROUP 1
FIELD 113@->PROVCOM
END
STRINGA 11
BEGIN
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
PROMPT 56 6 ""
END END
END END
@ -92,21 +142,21 @@ SECTION BODY ODD 1
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "MeseRif" KEY "MeseRif"
PROMPT 27 1 "" PROMPT 25 1 ""
FIELD 72->MESERIF FIELD 72->MESERIF
END END
NUMERO 2 NUMERO 2
BEGIN BEGIN
KEY "AnnoRif" KEY "AnnoRif"
PROMPT 31 1 "" PROMPT 28 1 ""
FIELD 72->ANNORIF FIELD 72->ANNORIF
END END
NUMERO 3 NUMERO 3
BEGIN BEGIN
KEY "imp. rimb" KEY "imp. rimb"
PROMPT 39 1 "" PROMPT 37 1 ""
FIELD 72->IMPOSTA FIELD 72->IMPOSTA
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -114,7 +164,7 @@ END
NUMERO 4 NUMERO 4
BEGIN BEGIN
KEY "Compensi" KEY "Compensi"
PROMPT 60 1 "" PROMPT 58 1 ""
FIELD 72->COMPENSI FIELD 72->COMPENSI
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -122,21 +172,21 @@ END
NUMERO 5 NUMERO 5
BEGIN BEGIN
KEY "MeseRif" KEY "MeseRif"
PROMPT 85 1 "" PROMPT 83 1 ""
FIELD 72->MESERIF FIELD 72->MESERIF
END END
NUMERO 6 NUMERO 6
BEGIN BEGIN
KEY "AnnoRif" KEY "AnnoRif"
PROMPT 89 1 "" PROMPT 86 1 ""
FIELD 72->ANNORIF FIELD 72->ANNORIF
END END
NUMERO 7 NUMERO 7
BEGIN BEGIN
KEY "imp. rimb" KEY "imp. rimb"
PROMPT 99 1 "" PROMPT 96 1 ""
FIELD 72->IMPOSTA FIELD 72->IMPOSTA
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -144,7 +194,7 @@ END
NUMERO 8 NUMERO 8
BEGIN BEGIN
KEY "Compensi" KEY "Compensi"
PROMPT 119 1 "" PROMPT 116 1 ""
FIELD 72->COMPENSI FIELD 72->COMPENSI
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -156,21 +206,21 @@ SECTION BODY EVEN 1
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "R - MeseRif" KEY "R - MeseRif"
PROMPT 27 1 "" PROMPT 25 1 ""
FIELD 75->MESERIF FIELD 75->MESERIF
END END
NUMERO 2 NUMERO 2
BEGIN BEGIN
KEY "R - AnnoRif" KEY "R - AnnoRif"
PROMPT 31 1 "" PROMPT 28 1 ""
FIELD 75->ANNORIF FIELD 75->ANNORIF
END END
NUMERO 3 NUMERO 3
BEGIN BEGIN
KEY "R - imp. rimb" KEY "R - imp. rimb"
PROMPT 41 1 "" PROMPT 37 1 ""
FIELD 75->IMPRIMB FIELD 75->IMPRIMB
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -178,7 +228,7 @@ END
NUMERO 4 NUMERO 4
BEGIN BEGIN
KEY "R - Compensi" KEY "R - Compensi"
PROMPT 62 1 "" PROMPT 58 1 ""
FIELD 75->COMPENSI FIELD 75->COMPENSI
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -186,21 +236,21 @@ END
NUMERO 5 NUMERO 5
BEGIN BEGIN
KEY "R - MeseRif" KEY "R - MeseRif"
PROMPT 85 1 "" PROMPT 83 1 ""
FIELD 75->MESERIF FIELD 75->MESERIF
END END
NUMERO 6 NUMERO 6
BEGIN BEGIN
KEY "R - AnnoRif" KEY "R - AnnoRif"
PROMPT 89 1 "" PROMPT 86 1 ""
FIELD 75->ANNORIF FIELD 75->ANNORIF
END END
NUMERO 7 NUMERO 7
BEGIN BEGIN
KEY "R - imp. rimb" KEY "R - imp. rimb"
PROMPT 99 1 "" PROMPT 96 1 ""
FIELD 75->IMPRIMB FIELD 75->IMPRIMB
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -208,7 +258,7 @@ END
NUMERO 8 NUMERO 8
BEGIN BEGIN
KEY "R - Compensi" KEY "R - Compensi"
PROMPT 120 1 "" PROMPT 116 1 ""
FIELD 75->COMPENSI FIELD 75->COMPENSI
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -219,126 +269,54 @@ SECTION HEADER EVEN 1
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "P Imp.versata" KEY "PS Imp.versata"
PROMPT 24 1 "" PROMPT 22 1 ""
FIELD 73->IMPOSTA
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 2 NUMERO 2
BEGIN BEGIN
KEY "P Inter.lav.dip" KEY "PS Inter.lav.dip"
PROMPT 41 1 "" PROMPT 38 1 ""
FIELD 73->INTERDIP
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
NUMERO 3 NUMERO 3
BEGIN BEGIN
KEY "P Inter.dat.lav." KEY "PS Inter.dat.lav."
PROMPT 56 1 "" PROMPT 53 1 ""
FIELD 73->INTERDAT
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "P Modalita' vers" KEY "PS Modalita' vers"
PROMPT 76 1 "" PROMPT 73 1 ""
FIELD 73->TIPOVERS
END END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "P Cod.trib" KEY "PS Cod.trib"
PROMPT 82 1 "" PROMPT 80 1 ""
FIELD 73->CODTRIB
END END
STRINGA 6 DATA 6
BEGIN BEGIN
KEY "P DATA VERS." KEY "PS DATA VERS."
PROMPT 89 1 "" PROMPT 89 1 ""
FIELD 73->DATAVERS
PICTURE "## ^ ## ^####" PICTURE "## ^ ## ^####"
END END
STRINGA 7 STRINGA 7
BEGIN BEGIN
KEY "P Serie" KEY "PS Serie"
PROMPT 108 1 "" PROMPT 107 1 ""
FIELD 73->SERIE
END END
STRINGA 8 STRINGA 8
BEGIN BEGIN
KEY "P Numero" KEY "PS Numero"
PROMPT 117 1 "" PROMPT 117 1 ""
FIELD 73->NUMERO
END
END
SECTION HEADER ODD 1
NUMERO 1
BEGIN
KEY "S Imp.versata"
PROMPT 24 1 ""
FIELD 76->IMPOSTA
PICTURE "###.###.###.###^^^"
END
NUMERO 2
BEGIN
KEY "S Inter.lav.dip"
PROMPT 41 1 ""
FIELD 76->INTERDIP
PICTURE "###.###.###.###^^^"
END
NUMERO 3
BEGIN
KEY "S Inter.dat.lav."
PROMPT 56 1 ""
FIELD 76->INTERDAT
PICTURE "###.###.###.###^^^"
END
STRINGA 4
BEGIN
KEY "S Modalita' vers"
PROMPT 76 1 ""
FIELD 73->TIPOVERS
END
STRINGA 5
BEGIN
KEY "S Cod.trib"
PROMPT 82 1 ""
FIELD 76->CODTRIB
END
STRINGA 6
BEGIN
KEY "S DATA VERS."
PROMPT 89 1 ""
FIELD 76->DATAVERS
PICTURE "## ^ ## ^####"
END
STRINGA 7
BEGIN
KEY "S Serie"
PROMPT 108 1 ""
FIELD 76->SERIE
END
STRINGA 8
BEGIN
KEY "S Numero"
PROMPT 117 1 ""
FIELD 76->NUMERO
END END
END END
@ -348,21 +326,21 @@ SECTION FOOTER EVEN 1
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "Q Mese paga" KEY "Q Mese paga"
PROMPT 27 1 "" PROMPT 25 1 ""
FIELD 74->MESEPAG FIELD 74->MESEPAG
END END
NUMERO 2 NUMERO 2
BEGIN BEGIN
KEY "Q Anno paga" KEY "Q Anno paga"
PROMPT 32 1 "" PROMPT 28 1 ""
FIELD 74->ANNOPAG FIELD 74->ANNOPAG
END END
NUMERO 3 NUMERO 3
BEGIN BEGIN
KEY "Q Contr.versato" KEY "Q Contr.versato"
PROMPT 41 1 "" PROMPT 46 1 ""
FIELD 74->CONTVERS FIELD 74->CONTVERS
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -370,7 +348,7 @@ END
NUMERO 4 NUMERO 4
BEGIN BEGIN
KEY "Q Contr.rimborsati" KEY "Q Contr.rimborsati"
PROMPT 65 1 "" PROMPT 75 1 ""
FIELD 74->CONTRIMB FIELD 74->CONTRIMB
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -378,7 +356,7 @@ END
NUMERO 5 NUMERO 5
BEGIN BEGIN
KEY "Q Interes.e/o soprattasse" KEY "Q Interes.e/o soprattasse"
PROMPT 94 1 "" PROMPT 104 1 ""
FIELD 74->INTERESSI FIELD 74->INTERESSI
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -386,7 +364,7 @@ END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "Q Cod.Reg" KEY "Q Cod.Reg"
PROMPT 123 1 "" PROMPT 126 1 ""
FIELD 74->CODREG FIELD 74->CODREG
END END
@ -397,21 +375,21 @@ SECTION FOOTER ODD 1
NUMERO 1 NUMERO 1
BEGIN BEGIN
KEY "T Mese paga" KEY "T Mese paga"
PROMPT 27 1 "" PROMPT 25 1 ""
FIELD 77->MESEPAG FIELD 77->MESEPAG
END END
NUMERO 2 NUMERO 2
BEGIN BEGIN
KEY "T Anno paga" KEY "T Anno paga"
PROMPT 32 1 "" PROMPT 28 1 ""
FIELD 77->ANNOPAG FIELD 77->ANNOPAG
END END
NUMERO 3 NUMERO 3
BEGIN BEGIN
KEY "T Contr.versato" KEY "T Contr.versato"
PROMPT 41 1 "" PROMPT 46 1 ""
FIELD 77->CONTVERS FIELD 77->CONTVERS
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -419,7 +397,7 @@ END
NUMERO 4 NUMERO 4
BEGIN BEGIN
KEY "T Contr.rimborsati" KEY "T Contr.rimborsati"
PROMPT 65 1 "" PROMPT 75 1 ""
FIELD 77->CONTRIMB FIELD 77->CONTRIMB
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -427,7 +405,7 @@ END
NUMERO 5 NUMERO 5
BEGIN BEGIN
KEY "T Interes.e/o soprattasse" KEY "T Interes.e/o soprattasse"
PROMPT 94 1 "" PROMPT 104 1 ""
FIELD 77->INTERESSI FIELD 77->INTERESSI
PICTURE "###.###.###.###^^^" PICTURE "###.###.###.###^^^"
END END
@ -435,248 +413,25 @@ END
STRINGA 6 STRINGA 6
BEGIN BEGIN
KEY "T Cod.Reg" KEY "T Cod.Reg"
PROMPT 123 1 "" PROMPT 126 1 ""
FIELD 77->CODREG FIELD 77->CODREG
END END
END END
SECTION FOOTER FIRST 25 SECTION FOOTER FIRST 4
STRINGA 650 DATA 1
BEGIN
KEY "Quadro A"
PROMPT 19 3 ""
FIELD 37->QCOMP[1,1]
END
STRINGA 653
BEGIN
KEY "Quadro A3"
PROMPT 24 3 ""
FIELD 37->QCOMP[4,4]
END
STRINGA 660
BEGIN
KEY "Quadro B"
PROMPT 29 3 ""
FIELD 37->QCOMP[5,5]
END
STRINGA 661
BEGIN
KEY "Quadro B1"
PROMPT 34 3 ""
FIELD 37->QCOMP[6,6]
END
STRINGA 670
BEGIN
KEY "Quadro C"
PROMPT 39 3 ""
FIELD 37->QCOMP[7,7]
END
STRINGA 680
BEGIN
KEY "Quadro D"
PROMPT 44 3 ""
FIELD 37->QCOMP[8,8]
END
STRINGA 681
BEGIN
KEY "Quadro D1"
PROMPT 49 3 ""
FIELD 37->QCOMP[9,9]
END
STRINGA 690
BEGIN
KEY "Quadro E"
PROMPT 54 3 ""
FIELD 37->QCOMP[10,10]
END
STRINGA 691
BEGIN
KEY "Quadro E1"
PROMPT 60 3 ""
FIELD 37->QCOMP[11,11]
END
STRINGA 692
BEGIN
KEY "Quadro E2"
PROMPT 65 3 ""
FIELD 37->QCOMP[12,12]
END
STRINGA 700
BEGIN
KEY "Quadro F"
PROMPT 70 3 ""
FIELD 37->QCOMP[13,13]
END
STRINGA 701
BEGIN
KEY "Quadro F1"
PROMPT 75 3 ""
FIELD 37->QCOMP[14,14]
END
STRINGA 702
BEGIN
KEY "Quadro F2"
PROMPT 80 3 ""
FIELD 37->QCOMP[15,15]
END
STRINGA 710
BEGIN
KEY "Quadro G"
PROMPT 85 3 ""
FIELD 37->QCOMP[16,16]
END
STRINGA 711
BEGIN
KEY "Quadro G1"
PROMPT 90 3 ""
FIELD 37->QCOMP[17,17]
END
STRINGA 720
BEGIN
KEY "Quadro H"
PROMPT 95 3 ""
FIELD 37->QCOMP[18,18]
END
STRINGA 730
BEGIN
KEY "Quadro I"
PROMPT 100 3 ""
FIELD 37->QCOMP[19,19]
END
STRINGA 651
BEGIN
KEY "Quadro A1"
PROMPT 19 7 ""
FIELD 37->QCOMP[2,2]
END
STRINGA 652
BEGIN
KEY "Quadro A2"
PROMPT 24 7 ""
FIELD 37->QCOMP[3,3]
END
STRINGA 760
BEGIN
KEY "Quadro N"
PROMPT 29 7 ""
FIELD 37->QCOMP[20,20]
END
STRINGA 780
BEGIN
KEY "Quadro P"
PROMPT 35 7 ""
FIELD 37->QCOMP[21,21]
END
STRINGA 790
BEGIN
KEY "Quadro Q"
PROMPT 40 7 ""
FIELD 37->QCOMP[22,22]
END
STRINGA 800
BEGIN
KEY "Quadro R"
PROMPT 45 7 ""
FIELD 37->QCOMP[23,23]
END
STRINGA 810
BEGIN
KEY "Quadro S"
PROMPT 50 7 ""
FIELD 37->QCOMP[24,24]
END
STRINGA 820
BEGIN
KEY "Quadro T"
PROMPT 55 7 ""
FIELD 37->QCOMP[25,25]
END
STRINGA 821
BEGIN
PROMPT 80 9 ""
KEY "Numero quadri aggiuntivi"
FIELD 37->H0NQLAGG
END
STRINGA 822
BEGIN
PROMPT 72 11 ""
KEY "Numero quadri su supporto magnetico"
FIELD 37->NSUPPM
END
DATA 823
BEGIN BEGIN
KEY "Data" KEY "Data"
PROMPT 29 16 "" PROMPT 29 1 ""
FLAGS "A"
END END
STRINGA 824 STRINGA 2
BEGIN
KEY "Presidente"
PROMPT 51 15 ""
END
STRINGA 825
BEGIN
KEY "Dichiarante"
PROMPT 95 15 ""
FIELD 6->RAGSOC
END
STRINGA 826
BEGIN
KEY "CODICE FISCALE CAAF"
PROMPT 48 18 ""
FIELD 104@->S1
END
NUMERO 827
BEGIN
KEY "NUMERO ISCRIZIONE ALBO"
PROMPT 122 18 ""
FIELD 104@->I1
PICTURE "#####"
END
STRINGA 828
BEGIN
KEY "CODICE FISCALE PROF."
PROMPT 92 20 ""
FIELD 106@->COFI
END
STRINGA 829
BEGIN BEGIN
KEY "FIRMA" KEY "FIRMA"
PROMPT 84 25 "" PROMPT 90 1 ""
FIELD 106@->RAGSOC FIELD 106@->RAGSOC
END END

386
m770/77stba.cpp
View File

@ -1,5 +1,17 @@
// Stampa base // Stampa base
#include "77stba.h" #include "77stba.h"
const int _RIGHE_N = 6;
const int _RIGHE_R = 2;
const int _RIGHE_P = 4;
const int _RIGHE_Q = 4;
const int _RIGHE_S = 4;
const int _RIGHE_T = 4;
const int _RIGHE_NA = 8;
const int _RIGHE_RA = 4;
const int _RIGHE_PA = 10;
const int _RIGHE_QA = 4;
const int _RIGHE_SA = 6;
const int _RIGHE_TA = 4;
int TBase1::dic_form_len() const int TBase1::dic_form_len() const
{ {
@ -492,9 +504,9 @@ int TRighePS::fill(const long codditta,TLocalisamfile& ps)
int TBase4::calcola_firma() int TBase4::calcola_firma()
{ {
TPrint_section& totali = section('F', first_page); TPrint_section& totali = section('F', first_page);
TForm_item& signature = totali.find_field(829); TForm_item& signature = totali.find_field(_IdFirma);
const int y = signature.y(); const int y = signature.y();
TString spazi(50); spazi.fill(' ');
TString cognome = signature.get(); TString cognome = signature.get();
if (cognome.len() > 30 && cognome[29] == ' ') if (cognome.len() > 30 && cognome[29] == ' ')
{ {
@ -503,7 +515,7 @@ int TBase4::calcola_firma()
cognome << ' ' << nome; cognome << ' ' << nome;
signature.set(cognome); signature.set(cognome);
totali.row(y-1).reset(); totali.row(y-1).put(spazi, signature.x()-1);
totali.row(y-1).put(cognome, signature.x()-1); totali.row(y-1).put(cognome, signature.x()-1);
} }
return y; return y;
@ -609,7 +621,7 @@ void TBase4::stampa_T(TPrinter& pr)
void TBase4::fill_riga_PS(TPrint_section& sec,const int num) void TBase4::fill_riga_PS(TPrint_section& sec,const int num)
{ {
TString sVal; TString sVal,sDep;
int start=1,end=8; int start=1,end=8;
for (int i = start; i <= end; i++) for (int i = start; i <= end; i++)
{ {
@ -628,7 +640,10 @@ void TBase4::fill_riga_PS(TPrint_section& sec,const int num)
else if (i==start+4) else if (i==start+4)
sVal=rN.sCodTrib(); sVal=rN.sCodTrib();
else if (i==start+5) else if (i==start+5)
sVal=rN.sDataVers(); {
sDep=rN.sDataVers();
sVal.picture(fi.picture(),sDep);
}
else if (i==start+6) else if (i==start+6)
sVal=rN.sSerie(); sVal=rN.sSerie();
else if (i==start+7) else if (i==start+7)
@ -724,17 +739,17 @@ void TBase4::fill_riga_NR(TPrint_section& sec,const int num, const int side)
int start,end; int start,end;
if (side==0) if (side==0)
{ {
start=0; start=1;
end=4; end=5;
} }
else else
{ {
start=4; start=5;
end=8; end=9;
} }
for (int i = start; i < end; i++) for (int i = start; i < end; i++)
{ {
TForm_item& fi = sec.field(i); TForm_item& fi = sec.find_field(i);
if (num < _righeNR.items()) if (num < _righeNR.items())
{ {
const TRigaN& rN = _righeNR[num]; const TRigaN& rN = _righeNR[num];
@ -1087,3 +1102,354 @@ bool TStampaQuadroAggL::user_destroy()
return TRUE; return TRUE;
} }
void TQuadroN::stampa_fine(TPrinter& pr)
{
TPrint_section& sec = section('F', first_page);
const int hhr = sec.height();
sec.reset();
sec.update();
const int lasty = calcola_firma();
for (int i = 0; i < hhr; i++)
{
pr.print(sec.row(i));
_RigaCorr++;
}
if (usa_progind())
progind()->addstatus(1);
}
void TQuadroN::stampa_testata(TPrinter& pr)
{
TPrint_section& hh = section('H', first_page);
hh.reset();
hh.update();
const int hhr = hh.height();
for (int i = 0; i < hhr; i++)
{
pr.print(hh.row(i));
_RigaCorr++;
}
if (usa_progind())
progind()->addstatus(1);
}
int TQuadroN::prima_riga(PaginaQuadro p) const
{
if (_PaginaPosizionamento)
return 8;
else
return 8+HEADER_PRIMA_NOPOS;
}
/*void TBase4::fill_riga_QT(TPrint_section& sec,const int num)
{
TString sVal;
int start=1,end=6;
for (int i = start; i <= end; i++)
{
TForm_item& fi = sec.find_field(i);
if (num < _righeQT.items())
{
const TRigaQT& rN = _righeQT[num];
if (i==start)
sVal=rN.sMesePag();
else if (i==start+1)
sVal=rN.sAnnoPag();
else if (i==start+2)
sVal=rN.ContVers(fi.picture());
else if (i==start+3)
sVal=rN.ContRimb(fi.picture());
else if (i==start+4)
sVal=rN.Interessi(fi.picture());
else if (i==start+5)
sVal=rN.CodReg();
}
else
sVal="";
fi.set(sVal);
TPrintrow& row=sec.row(0);
row.put(sVal,fi.x()-1);
}
} */
/*
void TBase4::fill_riga_PS(TPrint_section& sec,const int num)
{
TString sVal;
int start=1,end=8;
for (int i = start; i <= end; i++)
{
TForm_item& fi = sec.find_field(i);
if (num < _righePS.items())
{
const TRigaPS& rN = _righePS[num];
if (i==start)
sVal=rN.sImposta(fi.picture());
else if (i==start+1)
sVal=rN.sIntDip(fi.picture());
else if (i==start+2)
sVal=rN.sIntDat(fi.picture());
else if (i==start+3)
sVal=rN.sTipoVers();
else if (i==start+4)
sVal=rN.sCodTrib();
else if (i==start+5)
sVal=rN.sDataVers();
else if (i==start+6)
sVal=rN.sSerie();
else if (i==start+7)
sVal=rN.sNumero();
}
else
sVal="";
fi.set(sVal);
TPrintrow& row=sec.row(0);
row.put(sVal,fi.x()-1);
}
} */
void TQuadroN::stampa_N(TPrinter& pr)
{
TPrint_section& body = section('B', odd_page);
body.reset();
TLocalisamfile qn(LF_QUAN);
_righeNR.fill(_codditta,qn);
// Nell'aggiuntivo parto dal record n.7
int num=6;
int riga=0;
bool FinitaSezione=FALSE;
while (!FinitaSezione)
{
// Stampa la parte sinistra (primi 4 campi)
fill_riga_NR(body,num,0);
num+=3;
fill_riga_NR(body,num,1);
TPrintrow& rr=body.row(0);
pr.print(rr);
rr.reset();
riga++;
_RigaCorr++;
if (usa_progind())
progind()->addstatus(1);
num-=2;
FinitaSezione=riga>4;
}
}
void TQuadroN::stampa_P(TPrinter& pr)
{
TPrint_section& body = section('H', even_page);
body.reset();
TLocalisamfile qp(LF_QUAP);
_righePS.fill(_codditta,qp);
const int items=_righePS.items();
// Parte da rec.n.5
int riga=4;
bool FinitaSezione=FALSE;
while (!FinitaSezione)
{
// Stampa la parte sinistra (primi 4 campi)
fill_riga_PS(body,riga);
TPrintrow& rr=body.row(0);
pr.print(rr);
rr.reset();
riga++;
_RigaCorr++;
if (usa_progind())
progind()->addstatus(1);
FinitaSezione=riga>_RIGHE_PA-1;
}
}
void TQuadroN::stampa_Q(TPrinter& pr)
{
TPrint_section& body = section('F', even_page);
body.reset();
TLocalisamfile qp(LF_QUAQ);
_righeQT.fill(_codditta,qp);
// parte da rec.n.5
int riga=4;
bool FinitaSezione=FALSE;
while (!FinitaSezione)
{
// Stampa la parte sinistra (primi 4 campi)
fill_riga_QT(body,riga);
TPrintrow& rr=body.row(0);
pr.print(rr);
rr.reset();
riga++;
_RigaCorr++;
if (usa_progind())
progind()->addstatus(1);
FinitaSezione=riga>_RIGHE_QA-1;
}
// Salta due righe alla fine
stampa_righe_vuote(pr,2);
}
void TQuadroN::stampa_R(TPrinter& pr)
{
TPrint_section& body = section('B', even_page);
body.reset();
TLocalisamfile qr(LF_QUAR);
_righeNR.fill(_codditta,qr);
const int items=_righeNR.items();
int RecNum=2;
int RigheStampate=0;
bool FinitaSezione=FALSE;
while (!FinitaSezione)
{
fill_riga_NR(body,RecNum,0);
RecNum+=3;
fill_riga_NR(body,RecNum,1);
TPrintrow& rr=body.row(0);
pr.print(rr);
rr.reset();
RigheStampate++;
_RigaCorr++;
if (usa_progind())
progind()->addstatus(1);
RecNum-=2;
FinitaSezione=RigheStampate>_RIGHE_RA-1;
}
}
void TQuadroN::stampa_S(TPrinter& pr)
{
TPrint_section& body = section('H', even_page);
body.reset();
TLocalisamfile qp(LF_QUAS);
_righePS.fill(_codditta,qp);
int riga=4;
bool FinitaSezione=FALSE;
while (!FinitaSezione)
{
// Stampa la parte sinistra (primi 4 campi)
fill_riga_PS(body,riga);
TPrintrow& rr=body.row(0);
pr.print(rr);
rr.reset();
riga++;
_RigaCorr++;
if (usa_progind())
progind()->addstatus(1);
FinitaSezione=riga>_RIGHE_SA-1;
}
}
void TQuadroN::stampa_T(TPrinter& pr)
{
TPrint_section& body = section('F', odd_page);
body.reset();
TLocalisamfile qp(LF_QUAT);
_righeQT.fill(_codditta,qp);
int riga=4;
bool FinitaSezione=FALSE;
while (!FinitaSezione)
{
// Stampa la parte sinistra (primi 4 campi)
fill_riga_QT(body,riga);
TPrintrow& rr=body.row(0);
pr.print(rr);
rr.reset();
riga++;
_RigaCorr++;
if (usa_progind())
progind()->addstatus(1);
FinitaSezione=riga>_RIGHE_TA-1;
}
}
/*
void TBase4::fill_riga_NR(TPrint_section& sec,const int num, const int side)
{
TString sVal;
int start,end;
if (side==0)
{
start=0;
end=4;
}
else
{
start=4;
end=8;
}
for (int i = start; i < end; i++)
{
TForm_item& fi = sec.field(i);
if (num < _righeNR.items())
{
const TRigaN& rN = _righeNR[num];
if (i==start)
sVal=rN.sMeseRif();
else if (i==start+1)
sVal=rN.sAnnoRif();
else if (i==start+2)
sVal=rN.ImpRimb(fi.picture());
else if (i==start+3)
sVal=rN.CompAss(fi.picture());
}
else
sVal="";
fi.set(sVal);
TPrintrow& row=sec.row(0);
row.put(sVal,fi.x()-1);
}
} */
bool TQuadroN::print(const long codditta, const long NumFis, const long NumNoFis)
{
TCursor* cur = cursor();
TPrinter& pr = printer();
_codditta=codditta;
if (!InitPrint(codditta))
return FALSE;
pr.formlen(TDicForm::dic_form_len());
_RigaCorr=0;
(*cur)=0L;
bool done=FALSE;
while (!done)
{
jump_to_line(pr, prima_riga(PRIMA));
int skip=HEADER_PRIMA_NOPOS;
stampa_testata(pr);
jump_to_line(pr, _PaginaPosizionamento ? 20-skip : 20);
stampa_N(pr);
jump_to_line(pr, _PaginaPosizionamento ? 26-skip : 26);
stampa_P(pr);
jump_to_line(pr, _PaginaPosizionamento ? 38-skip : 38);
stampa_Q(pr);
jump_to_line(pr, _PaginaPosizionamento ? 44-skip : 44);
stampa_R(pr);
jump_to_line(pr, _PaginaPosizionamento ? 48-skip : 48);
stampa_S(pr);
jump_to_line(pr, _PaginaPosizionamento ? 56-skip : 56);
stampa_T(pr);
jump_to_line(pr, _PaginaPosizionamento ? 63-skip : 63);
stampa_fine(pr);
_PaginaPosizionamento=FALSE;
next_page(pr);
pr.formlen(TDicForm::dic_form_len());
++(*cur);
done = cur->pos() >= cur->items()-1;
}
close_print();
return TRUE;
}
bool TStampaQuadroAggN::user_create()
{
_form = new TQuadroN("77QN", quadro());
_form->set_cursor(_form->TForm::cursor());
_cur = _form->cursor();
return TRUE;
}
bool TStampaQuadroAggN::user_destroy()
{
delete _form;
return TRUE;
}

46
m770/77stba.h
View File

@ -5,12 +5,6 @@
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_R = 2;
const int _RIGHE_P = 4;
const int _RIGHE_Q = 4;
const int _RIGHE_S = 4;
const int _RIGHE_T = 4;
class TBase1 : public TDicForm class TBase1 : public TDicForm
{ {
@ -194,11 +188,12 @@ class TBase4 : public TDicForm
{ {
private: private:
long _codditta; long _codditta;
bool _bAggN,_bAggP,_bAggR,_bAggQ,_bAggS,_bAggT;
protected:
int _IdFirma;
TRigheNR _righeNR; // array dei record N e R TRigheNR _righeNR; // array dei record N e R
TRigheQT _righeQT; TRigheQT _righeQT;
TRighePS _righePS; TRighePS _righePS;
bool _bAggN,_bAggP,_bAggR,_bAggQ,_bAggS,_bAggT;
protected:
void stampa_righe_vuote(TPrinter& pr,const int righe); void stampa_righe_vuote(TPrinter& pr,const int righe);
void fill_riga_QT(TPrint_section& sec,const int num); void fill_riga_QT(TPrint_section& sec,const int num);
void fill_riga_PS(TPrint_section& sec,const int num); void fill_riga_PS(TPrint_section& sec,const int num);
@ -218,7 +213,7 @@ class TBase4 : public TDicForm
int calcola_firma(); int calcola_firma();
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);
TBase4(const char* sNomeForm, const char* quadro) : TDicForm(sNomeForm, quadro) {} TBase4(const char* sNomeForm, const char* quadro) : _IdFirma(824), TDicForm(sNomeForm, quadro) {}
virtual ~TBase4() {} virtual ~TBase4() {}
}; };
@ -283,5 +278,38 @@ class TStampaQuadroAggL : public TStampaQuadro
virtual ~TStampaQuadroAggL() { } virtual ~TStampaQuadroAggL() { }
}; };
class TQuadroN : public TBase4
{
long _codditta;
public:
void stampa_fine(TPrinter& pr);
void stampa_N(TPrinter& pr);
void stampa_P(TPrinter& pr);
void stampa_Q(TPrinter& pr);
void stampa_R(TPrinter& pr);
void stampa_S(TPrinter& pr);
void stampa_T(TPrinter& pr);
void stampa_testata(TPrinter& pr);
virtual int prima_riga(PaginaQuadro p) const;
virtual bool print(const long codditta, const long NumFis, const long NumNoFis);
TQuadroN(const char* sNomeForm, const char* quadro) : TBase4(sNomeForm, quadro) { _IdFirma=2; }
virtual ~TQuadroN() {}
};
class TStampaQuadroAggN : public TStampaQuadro
{
TQuadroN* _form;
TCursor* _cur;
protected:
virtual bool user_create();
virtual bool user_destroy();
virtual TDicForm* get_form() const { return _form; }
virtual TCursor* get_cursor() const { return _cur; }
virtual bool conta_tipi_per() const { return FALSE; }
public:
TStampaQuadroAggN(const char* quadro, char liv):TStampaQuadro(quadro, liv) {}
virtual ~TStampaQuadroAggN() { }
};
#endif #endif

9
m770/77stq.cpp
View File

@ -50,11 +50,6 @@ void TDicForm::set_cofi_dic(const char* cofi)
_codditta_dic = sogg_estinto(_codditta); _codditta_dic = sogg_estinto(_codditta);
} }
/*TCursor& TDicForm::cur()
{
return *_cur;
} */
void TDicForm::set_cursor(TCursor* cur) void TDicForm::set_cursor(TCursor* cur)
{ {
CHECK(cur, "NULL cursor in TDicForm"); CHECK(cur, "NULL cursor in TDicForm");
@ -3950,6 +3945,10 @@ int stampa_quadro(int argc, char* argv[])
{ {
app = new TStampaQuadroAggL(quadro, livello); app = new TStampaQuadroAggL(quadro, livello);
} }
else if (quadro == "N")
{
app = new TStampaQuadroAggN(quadro, livello);
}
if (app != NULL) if (app != NULL)
{ {

2
m770/menustq.uml
View File

@ -60,7 +60,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|K_TAB,RILEGGI_QUADRI MESSAGE RUN,772MOD,-4,N,D
PICTURE 123 PICTURE 123
FLAGS MYFLAGS FLAGS MYFLAGS
GROUP GRUPPO GROUP GRUPPO