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

Correzione errori 770 quadri C D D1

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3760 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale 1996-10-11 14:48:59 +00:00
parent 00b955bd64
commit 8dc7c199a2
3 changed files with 85 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
m770/77qd1.frm
View File

@ -37,7 +37,7 @@ BEGIN
FI 131
END
SECTION HEADER FIRST 29
SECTION HEADER FIRST 18
LISTA 9
BEGIN
@ -50,14 +50,14 @@ END
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 3 12 ""
PROMPT 3 1 ""
FIELD 116@->COFI
END
STRINGA 2
BEGIN
KEY "RAGIONE SOCIALE"
PROMPT 39 12 ""
PROMPT 39 1 ""
FIELD 116@->RAGSOC
GROUP 2
END
@ -65,7 +65,7 @@ END
STRINGA 3
BEGIN
KEY "COGNOME"
PROMPT 39 12 ""
PROMPT 39 1 ""
FIELD 116@->RAGSOC[1,30]
GROUP 1
END
@ -73,7 +73,7 @@ END
STRINGA 4
BEGIN
KEY "NOME"
PROMPT 17 14 ""
PROMPT 17 3 ""
FIELD 116@->RAGSOC[31,50]
GROUP 1
END
@ -81,7 +81,7 @@ END
STRINGA 5
BEGIN
KEY "SESSO"
PROMPT 58 14 ""
PROMPT 58 3 ""
FIELD 118@->SESSO
GROUP 1
END
@ -89,7 +89,7 @@ END
STRINGA 6
BEGIN
KEY "DATA DI NASCITA"
PROMPT 63 14 ""
PROMPT 63 3 ""
FIELD 118@->DATANASC
GROUP 1
END
@ -97,7 +97,7 @@ END
STRINGA 7
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 84 14 ""
PROMPT 84 3 ""
FIELD 113@->DENCOM
GROUP 1
END
@ -105,7 +105,7 @@ END
STRINGA 8
BEGIN
KEY "PROV. DI NASCITA"
PROMPT 125 14 ""
PROMPT 125 3 ""
FIELD 113@->PROVCOM
GROUP 1
END
@ -113,21 +113,21 @@ END
STRINGA 10
BEGIN
KEY "COMUNE DI RES.FISCALE"
PROMPT 17 16 ""
PROMPT 17 5 ""
FIELD 213@->DENCOM
END
STRINGA 11
BEGIN
KEY "PROV DI RES.FISCALE"
PROMPT 59 16 ""
PROMPT 59 5 ""
FIELD 213@->PROVCOM
END
STRINGA 12
BEGIN
KEY "VIA di RES."
PROMPT 67 16 ""
PROMPT 67 5 ""
FIELD 116@->INDRF
FIELD 116@->INDRES
FLAGS "H"
@ -137,7 +137,7 @@ END
STRINGA 15
BEGIN
KEY "NUM. CIVICO di RES."
PROMPT 103 16 ""
PROMPT 103 5 ""
FIELD 116@->CIVRF
FIELD 116@->CIVRES
FLAGS "H"
@ -147,13 +147,13 @@ END
STRINGA 17
BEGIN
KEY "VIA RES. + NUM. RES."
PROMPT 67 16 ""
PROMPT 67 5 ""
END
STRINGA 16
BEGIN
KEY "CAP"
PROMPT 124 16 ""
PROMPT 124 5 ""
FIELD 116@->CAPRF
FIELD 116@->CAPRES
END
@ -161,28 +161,29 @@ END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 19 ""
PROMPT 105 8 ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 125 22 ""
END
PROMPT 125 11 ""
END
STRINGA 21
BEGIN
KEY "Ritenuta d'acconto"
PROMPT 110 21 ""
PROMPT 110 10 ""
END
STRINGA 22
BEGIN
KEY "Ritenuta d'imposta"
PROMPT 110 22 ""
PROMPT 110 11 ""
END
END
SECTION BODY ODD 6
LISTA 100
@ -411,7 +412,7 @@ END
END
SECTION FOOTER LAST 2
SECTION FOOTER LAST 6
NUMBER 12
BEGIN
@ -458,9 +459,8 @@ END
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 5 ""
PROMPT 83 6 ""
FIELD 116@->RAGSOC
GROUP 2
END
END

82
m770/77stq.cpp
View File

@ -651,8 +651,8 @@ void TDicForm::stampa_testata(TPrinter& pr)
void TDicForm::next_page(TPrinter& pr)
{
PaginaQuadro PagCorr = curr_page();
if (PagCorr >= TERZA)
stampa_totali(pr);
// if (PagCorr >= TERZA)
// stampa_totali(pr);
fill_page(pr, -1); // formfeed "adattato"
inc_curr_page();
}
@ -1882,15 +1882,15 @@ void TQuadroD::set_body(TPrinter& pr, const char tipo)
void TQuadroD::next_page(TPrinter& pr)
{
PaginaQuadro PagCorr = curr_page();
if (PagCorr >= TERZA)
{
if (PagCorr == TERZA)
jump_to_line(pr,64);
else
if (PagCorr == QUARTA)
jump_to_line(pr,61);
stampa_totali(pr);
}
// if (PagCorr >= TERZA)
// {
// if (PagCorr == TERZA)
// jump_to_line(pr,64);
// else
// if (PagCorr == QUARTA)
// jump_to_line(pr,61);
// stampa_totali(pr);
// }
fill_page(pr, -1); // formfeed "adattato"
inc_curr_page();
}
@ -1937,10 +1937,10 @@ bool TQuadroD::print(const long codditta, const long NumFis, const long NumNoFis
if (testata)
{
(*cur) = PtrFis >= 0L ? PtrFis : 0L;
if (_PaginaPosizionamento)
// if (_PaginaPosizionamento)
fill_page(pr, 9);
else
fill_page(pr, 12);
// else
// fill_page(pr, 12);
stampa_testata(pr);
testata = FALSE;
}
@ -2070,7 +2070,12 @@ bool TQuadroD::print(const long codditta, const long NumFis, const long NumNoFis
_CtrFisStampati = 0; // conta quelli che stampo sulla terza
testata = FALSE;
}
if (_finite_fis)
{
jump_to_line(pr,64);
stampa_totali(pr);
}
if (_finite_fis || StabilitaInesistenzaFis)
break;
@ -2122,7 +2127,12 @@ bool TQuadroD::print(const long codditta, const long NumFis, const long NumNoFis
fill_page(pr, HEADER_QUARTA);
testata = FALSE;
}
if (_finite_nofis)
{
jump_to_line(pr,61);
stampa_totali(pr);
}
if (_finite_nofis || StabilitaInesistenzaNoFis)
break;
@ -2220,7 +2230,7 @@ bool TStampaQuadroD::user_create()
_form = new TQuadroD("77QD", quadro());
TString sortkey(80);
sortkey.format("CODDITTA|TIPOA|216@->RAGSOC|CODANAGR|CODCAUS|PERC", LF_QUAD, LF_QUAD);
sortkey.format("CODDITTA|TIPOA|216@->RAGSOC|CODANAGR|14@->S3|PERC", LF_QUAD, LF_QUAD);
_cur = new TSorted_cursor(_form->TForm::relation(), sortkey);
return TRUE;
@ -2366,15 +2376,15 @@ void TQuadroD1::set_body(TPrinter& pr, const char tipo)
void TQuadroD1::next_page(TPrinter& pr)
{
PaginaQuadro PagCorr = curr_page();
if (PagCorr >= TERZA)
{
if (PagCorr == TERZA)
jump_to_line(pr,62);
else
if (PagCorr == QUARTA)
jump_to_line(pr,62);
stampa_totali(pr);
}
// if (PagCorr >= TERZA)
// {
// if (PagCorr == TERZA)
// jump_to_line(pr,62);
// else
// if (PagCorr == QUARTA)
// jump_to_line(pr,62);
// stampa_totali(pr);
// }
fill_page(pr, -1); // formfeed "adattato"
inc_curr_page();
}
@ -2422,7 +2432,11 @@ bool TQuadroD1::print(const long codditta, const long NumFis, const long NumNoFi
if (testata)
{
(*cur) = PtrFis >= 0L ? PtrFis : 0L;
// if (_PaginaPosizionamento)
fill_page(pr,9);
// else
// fill_page(pr,12);
const char tipo = cur->curr().get(QD1_TIPOA)[0];
TPrint_section& head = section('H', first_page);
if (tipo == 'F')
@ -2573,7 +2587,12 @@ bool TQuadroD1::print(const long codditta, const long NumFis, const long NumNoFi
_CtrFisStampati = 0; // conta quelli che stampo sulla terza
testata = FALSE;
}
if (_finite_fis)
{
jump_to_line(pr,62);
stampa_totali(pr);
}
if (_finite_fis || StabilitaInesistenzaFis)
break;
@ -2629,7 +2648,12 @@ bool TQuadroD1::print(const long codditta, const long NumFis, const long NumNoFi
fill_page(pr, HEADER_D1_QUARTA);
testata = FALSE;
}
if (_finite_nofis)
{
jump_to_line(pr,62);
stampa_totali(pr);
}
if (_finite_nofis || StabilitaInesistenzaNoFis)
break;

13
m770/77stqc.cpp
View File

@ -154,13 +154,13 @@ int TQuadroC::elementi_pagina(PaginaQuadro p) const
int TQuadroC::prima_riga(PaginaQuadro p) const
{
// old return p == PRIMA ? 27 : 8;
// nik1 return p == PRIMA ? 26 : 7;
// nik1 return p == PRIMA ? 26 : 7;
return p == PRIMA ? 26 : 8;
}
bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis)
{
TCursor& cur = *cursor();
TCursor& cur = *cursor();
TPrinter& pr = printer();
bool stampa = TRUE;
@ -214,9 +214,12 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
ClearFlagModulaser();
if (ele_bis == 0)
{
{
stampa_testata(pr);
jump_to_line(pr, prima_riga(PRIMA));
if (_PaginaPosizionamento)
jump_to_line(pr, prima_riga(PRIMA));
else
jump_to_line(pr, prima_riga(PRIMA)+HEADER_PRIMA_NOPOS);
}
if (!stampato_ultimo)
@ -242,9 +245,9 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
ele_bis = 0;
}
break;
_PaginaPosizionamento=FALSE;
case SECONDA:
case TERZA:
_PaginaPosizionamento=FALSE;
pr.formlen(dic_form_len());
if (!stampato_ultimo)
{