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 FI 131
END END
SECTION HEADER FIRST 29 SECTION HEADER FIRST 18
LISTA 9 LISTA 9
BEGIN BEGIN
@ -50,14 +50,14 @@ END
STRINGA 1 STRINGA 1
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 3 12 "" PROMPT 3 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 63 14 "" PROMPT 63 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 125 14 "" PROMPT 125 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 67 16 "" PROMPT 67 5 ""
FIELD 116@->INDRF FIELD 116@->INDRF
FIELD 116@->INDRES FIELD 116@->INDRES
FLAGS "H" FLAGS "H"
@ -137,7 +137,7 @@ END
STRINGA 15 STRINGA 15
BEGIN BEGIN
KEY "NUM. CIVICO di RES." KEY "NUM. CIVICO di RES."
PROMPT 103 16 "" PROMPT 103 5 ""
FIELD 116@->CIVRF FIELD 116@->CIVRF
FIELD 116@->CIVRES FIELD 116@->CIVRES
FLAGS "H" FLAGS "H"
@ -147,13 +147,13 @@ END
STRINGA 17 STRINGA 17
BEGIN BEGIN
KEY "VIA RES. + NUM. RES." KEY "VIA RES. + NUM. RES."
PROMPT 67 16 "" PROMPT 67 5 ""
END END
STRINGA 16 STRINGA 16
BEGIN BEGIN
KEY "CAP" KEY "CAP"
PROMPT 124 16 "" PROMPT 124 5 ""
FIELD 116@->CAPRF FIELD 116@->CAPRF
FIELD 116@->CAPRES FIELD 116@->CAPRES
END END
@ -161,28 +161,29 @@ END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "CODICE FISCALE DICHIARANTE" KEY "CODICE FISCALE DICHIARANTE"
PROMPT 105 19 "" PROMPT 105 8 ""
END END
NUMBER 14 NUMBER 14
BEGIN BEGIN
KEY "NUM. FOGLIO" KEY "NUM. FOGLIO"
PROMPT 125 22 "" PROMPT 125 11 ""
END
END END
STRINGA 21 STRINGA 21
BEGIN BEGIN
KEY "Ritenuta d'acconto" KEY "Ritenuta d'acconto"
PROMPT 110 21 "" PROMPT 110 10 ""
END END
STRINGA 22 STRINGA 22
BEGIN BEGIN
KEY "Ritenuta d'imposta" KEY "Ritenuta d'imposta"
PROMPT 110 22 "" PROMPT 110 11 ""
END END
END
SECTION BODY ODD 6 SECTION BODY ODD 6
LISTA 100 LISTA 100
@ -411,7 +412,7 @@ END
END END
SECTION FOOTER LAST 2 SECTION FOOTER LAST 6
NUMBER 12 NUMBER 12
BEGIN BEGIN
@ -458,9 +459,8 @@ END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "FIRMA" KEY "FIRMA"
PROMPT 83 5 "" PROMPT 83 6 ""
FIELD 116@->RAGSOC FIELD 116@->RAGSOC
GROUP 2
END END
END END

72
m770/77stq.cpp
View File

@ -651,8 +651,8 @@ void TDicForm::stampa_testata(TPrinter& pr)
void TDicForm::next_page(TPrinter& pr) void TDicForm::next_page(TPrinter& pr)
{ {
PaginaQuadro PagCorr = curr_page(); PaginaQuadro PagCorr = curr_page();
if (PagCorr >= TERZA) // if (PagCorr >= TERZA)
stampa_totali(pr); // stampa_totali(pr);
fill_page(pr, -1); // formfeed "adattato" fill_page(pr, -1); // formfeed "adattato"
inc_curr_page(); inc_curr_page();
} }
@ -1882,15 +1882,15 @@ void TQuadroD::set_body(TPrinter& pr, const char tipo)
void TQuadroD::next_page(TPrinter& pr) void TQuadroD::next_page(TPrinter& pr)
{ {
PaginaQuadro PagCorr = curr_page(); PaginaQuadro PagCorr = curr_page();
if (PagCorr >= TERZA) // if (PagCorr >= TERZA)
{ // {
if (PagCorr == TERZA) // if (PagCorr == TERZA)
jump_to_line(pr,64); // jump_to_line(pr,64);
else // else
if (PagCorr == QUARTA) // if (PagCorr == QUARTA)
jump_to_line(pr,61); // jump_to_line(pr,61);
stampa_totali(pr); // stampa_totali(pr);
} // }
fill_page(pr, -1); // formfeed "adattato" fill_page(pr, -1); // formfeed "adattato"
inc_curr_page(); inc_curr_page();
} }
@ -1937,10 +1937,10 @@ bool TQuadroD::print(const long codditta, const long NumFis, const long NumNoFis
if (testata) if (testata)
{ {
(*cur) = PtrFis >= 0L ? PtrFis : 0L; (*cur) = PtrFis >= 0L ? PtrFis : 0L;
if (_PaginaPosizionamento) // if (_PaginaPosizionamento)
fill_page(pr, 9); fill_page(pr, 9);
else // else
fill_page(pr, 12); // fill_page(pr, 12);
stampa_testata(pr); stampa_testata(pr);
testata = FALSE; testata = FALSE;
} }
@ -2071,6 +2071,11 @@ bool TQuadroD::print(const long codditta, const long NumFis, const long NumNoFis
testata = FALSE; testata = FALSE;
} }
if (_finite_fis)
{
jump_to_line(pr,64);
stampa_totali(pr);
}
if (_finite_fis || StabilitaInesistenzaFis) if (_finite_fis || StabilitaInesistenzaFis)
break; break;
@ -2123,6 +2128,11 @@ bool TQuadroD::print(const long codditta, const long NumFis, const long NumNoFis
testata = FALSE; testata = FALSE;
} }
if (_finite_nofis)
{
jump_to_line(pr,61);
stampa_totali(pr);
}
if (_finite_nofis || StabilitaInesistenzaNoFis) if (_finite_nofis || StabilitaInesistenzaNoFis)
break; break;
@ -2220,7 +2230,7 @@ bool TStampaQuadroD::user_create()
_form = new TQuadroD("77QD", quadro()); _form = new TQuadroD("77QD", quadro());
TString sortkey(80); 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); _cur = new TSorted_cursor(_form->TForm::relation(), sortkey);
return TRUE; return TRUE;
@ -2366,15 +2376,15 @@ void TQuadroD1::set_body(TPrinter& pr, const char tipo)
void TQuadroD1::next_page(TPrinter& pr) void TQuadroD1::next_page(TPrinter& pr)
{ {
PaginaQuadro PagCorr = curr_page(); PaginaQuadro PagCorr = curr_page();
if (PagCorr >= TERZA) // if (PagCorr >= TERZA)
{ // {
if (PagCorr == TERZA) // if (PagCorr == TERZA)
jump_to_line(pr,62); // jump_to_line(pr,62);
else // else
if (PagCorr == QUARTA) // if (PagCorr == QUARTA)
jump_to_line(pr,62); // jump_to_line(pr,62);
stampa_totali(pr); // stampa_totali(pr);
} // }
fill_page(pr, -1); // formfeed "adattato" fill_page(pr, -1); // formfeed "adattato"
inc_curr_page(); inc_curr_page();
} }
@ -2422,6 +2432,10 @@ bool TQuadroD1::print(const long codditta, const long NumFis, const long NumNoFi
if (testata) if (testata)
{ {
(*cur) = PtrFis >= 0L ? PtrFis : 0L; (*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]; const char tipo = cur->curr().get(QD1_TIPOA)[0];
TPrint_section& head = section('H', first_page); TPrint_section& head = section('H', first_page);
@ -2574,6 +2588,11 @@ bool TQuadroD1::print(const long codditta, const long NumFis, const long NumNoFi
testata = FALSE; testata = FALSE;
} }
if (_finite_fis)
{
jump_to_line(pr,62);
stampa_totali(pr);
}
if (_finite_fis || StabilitaInesistenzaFis) if (_finite_fis || StabilitaInesistenzaFis)
break; break;
@ -2630,6 +2649,11 @@ bool TQuadroD1::print(const long codditta, const long NumFis, const long NumNoFi
testata = FALSE; testata = FALSE;
} }
if (_finite_nofis)
{
jump_to_line(pr,62);
stampa_totali(pr);
}
if (_finite_nofis || StabilitaInesistenzaNoFis) if (_finite_nofis || StabilitaInesistenzaNoFis)
break; break;

7
m770/77stqc.cpp
View File

@ -216,7 +216,10 @@ bool TQuadroC::print(const long codditta, const long NumFis, const long NumNoFis
if (ele_bis == 0) if (ele_bis == 0)
{ {
stampa_testata(pr); 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) if (!stampato_ultimo)
@ -242,9 +245,9 @@ 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:
_PaginaPosizionamento=FALSE;
pr.formlen(dic_form_len()); pr.formlen(dic_form_len());
if (!stampato_ultimo) if (!stampato_ultimo)
{ {