From 8dc7c199a2eb174fdbff15316aed7aae5c2b90ea Mon Sep 17 00:00:00 2001 From: ale Date: Fri, 11 Oct 1996 14:48:59 +0000 Subject: [PATCH] Correzione errori 770 quadri C D D1 git-svn-id: svn://10.65.10.50/trunk@3760 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- m770/77qd1.frm | 48 ++++++++++++++--------------- m770/77stq.cpp | 82 ++++++++++++++++++++++++++++++++----------------- m770/77stqc.cpp | 13 +++++--- 3 files changed, 85 insertions(+), 58 deletions(-) diff --git a/m770/77qd1.frm b/m770/77qd1.frm index 0fa473de3..b53d146a9 100755 --- a/m770/77qd1.frm +++ b/m770/77qd1.frm @@ -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 diff --git a/m770/77stq.cpp b/m770/77stq.cpp index 93dfdc97b..863a5b9fb 100755 --- a/m770/77stq.cpp +++ b/m770/77stq.cpp @@ -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; diff --git a/m770/77stqc.cpp b/m770/77stqc.cpp index 86fabc0af..7ff9b2d7a 100755 --- a/m770/77stqc.cpp +++ b/m770/77stqc.cpp @@ -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) {