- Correzioni al quadro G:
- E' stato sistemato il problema che mandava in loop il prg quando non c'erano persone giuridiche - E' stato sistemato nel 77qg.frm l'importo imputabile a ciascuna azione o quota per quanto riguarda la posizione - E' stato sistemato nel 77qgd.frm il campo numero quote sia nelle fisiche che nelle giuridiche (non stampava i decimali) - Ora i totali vengono stampati solo quando e' finita la dichiarazione e non in ogni modulo, mentre la firma viene stampata a fine ogni modulo git-svn-id: svn://10.65.10.50/trunk@3788 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale
parent
d81ad850e6
commit
f388854d77
@ -429,7 +429,7 @@ END
|
||||
NUMBER 55
|
||||
BEGIN
|
||||
KEY "IMP.IMPUT.AZ.QUOT"
|
||||
PROMPT 120 48 ""
|
||||
PROMPT 116 48 ""
|
||||
FIELD 70->P2IMPQ
|
||||
PICTURE "###.###.###.###"
|
||||
END
|
||||
|
||||
@ -142,9 +142,9 @@ END
|
||||
NUMBER 11
|
||||
BEGIN
|
||||
KEY "NUMERO QUOTE"
|
||||
PROMPT 120 5 ""
|
||||
PROMPT 117 5 ""
|
||||
FIELD 101->NUMQUOTE
|
||||
PICTURE "###.###.###"
|
||||
PICTURE "###.###.###,@@"
|
||||
END
|
||||
|
||||
NUMBER 12
|
||||
@ -244,9 +244,9 @@ END
|
||||
NUMBER 11
|
||||
BEGIN
|
||||
KEY "NUMERO QUOTE"
|
||||
PROMPT 120 3 ""
|
||||
PROMPT 117 3 ""
|
||||
FIELD 101->NUMQUOTE
|
||||
PICTURE "###.###.###"
|
||||
PICTURE "###.###.###,@@"
|
||||
END
|
||||
|
||||
NUMBER 12
|
||||
|
||||
256
m770/77stq.cpp
256
m770/77stq.cpp
@ -1111,7 +1111,7 @@ HIDDEN const int QGD_RIGHE_SECONDA = 6;
|
||||
class TDistintaG : public TQuadroG
|
||||
{
|
||||
private:
|
||||
virtual void stampa_totali(TPrinter& pr);
|
||||
virtual void stampa_totali(TPrinter& pr, bool tot);
|
||||
virtual void next_page(TPrinter& pr);
|
||||
virtual void set_body(TPrinter& pr, const char tipo);
|
||||
int calcola_firma();
|
||||
@ -1140,7 +1140,7 @@ int TDistintaG::calcola_firma()
|
||||
return y;
|
||||
}
|
||||
|
||||
void TDistintaG::stampa_totali(TPrinter& pr)
|
||||
void TDistintaG::stampa_totali(TPrinter& pr, bool tot)
|
||||
{
|
||||
PaginaQuadro PagCorr = curr_page();
|
||||
if (PagCorr == PRIMA)
|
||||
@ -1163,8 +1163,11 @@ void TDistintaG::stampa_totali(TPrinter& pr)
|
||||
totali.update();
|
||||
const int lasty = calcola_firma();
|
||||
for (int i = 0; i < totali.items(); i++)
|
||||
{
|
||||
pr.print(totali.row(i));
|
||||
{
|
||||
TPrintrow& row = totali.row(i);
|
||||
if (i < lasty && !tot)
|
||||
row.reset();
|
||||
pr.print(row);
|
||||
_RigaCorr++;
|
||||
}
|
||||
totali.reset();
|
||||
@ -1176,34 +1179,11 @@ void TDistintaG::stampa_totali(TPrinter& pr)
|
||||
void TDistintaG::next_page(TPrinter& pr)
|
||||
{
|
||||
PaginaQuadro PagCorr = curr_page();
|
||||
if (PagCorr == PRIMA)
|
||||
jump_to_line(pr,58);
|
||||
else
|
||||
if (PagCorr == SECONDA)
|
||||
jump_to_line(pr,52);
|
||||
stampa_totali(pr);
|
||||
// TPrint_section& body = section('F', last_page);
|
||||
// body.reset();
|
||||
|
||||
fill_page(pr, -1); // formfeed "adattato"
|
||||
inc_curr_page();
|
||||
|
||||
}
|
||||
|
||||
/*void TDistintaG::stampa_testata(TPrinter& pr)
|
||||
{
|
||||
TPrint_section& head = section('H', 1);
|
||||
const word r = head.height()-1;
|
||||
TPrintrow& head_row = head.row(r-1);
|
||||
|
||||
// Setta il numero di pagina e poi lo incrementa
|
||||
TForm_item& nf = head.find_field(H_NUM_FOGLIO);
|
||||
TString fstr(10); fstr << _num_foglio;
|
||||
nf.set(fstr);
|
||||
_num_foglio++;
|
||||
fill_page(pr, HEADER_PRIMA_GD);
|
||||
}*/
|
||||
|
||||
void TDistintaG::set_body(TPrinter& pr, const char tipo)
|
||||
{
|
||||
if (tipo == 'F')
|
||||
@ -1237,7 +1217,190 @@ void TDistintaG::set_body(TPrinter& pr, const char tipo)
|
||||
|
||||
|
||||
bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoFis)
|
||||
{
|
||||
{
|
||||
TCursor* cur = cursor();
|
||||
|
||||
bool StabilitaInesistenzaNoFis = FALSE;
|
||||
bool StabilitaInesistenzaFis = FALSE;
|
||||
long CtrFis = NumFis;
|
||||
long CtrNoFis = NumNoFis;
|
||||
long PtrFis = -1L, PtrNoFis=-1L;
|
||||
TPrinter& pr = printer();
|
||||
|
||||
bool StampatiTotaliFis = FALSE;
|
||||
bool StampatiTotaliGiu = FALSE;
|
||||
|
||||
_CtrFisStampati = _CtrNoFisStampati = 0;
|
||||
_finite_fis = _finite_nofis = FALSE;
|
||||
_GiaStampatiFis = _GiaStampatiNoFis = FALSE;
|
||||
_EndPrintDitta = FALSE; // Vero se stampato l'ultimo record
|
||||
bool LastRecord = FALSE; // Vero se letto l'ultimo record
|
||||
_PaginaCorrente = PRIMA;
|
||||
|
||||
_codditta = codditta;
|
||||
_RigaCorr = 0;
|
||||
|
||||
const long items = filtra(codditta);
|
||||
|
||||
while (!_EndPrintDitta)
|
||||
{
|
||||
for (int pagina=1; pagina <= QGD_PAGINE; pagina++, next_page(pr))
|
||||
{
|
||||
pr.formlen(QGD_FORMLEN);
|
||||
|
||||
if (_PaginaCorrente == PRIMA)
|
||||
{
|
||||
attiva_totali('F');
|
||||
if (_modulaser) ClearFlagModulaser();
|
||||
|
||||
for (int righe=0; righe < QGD_RIGHE_PRIMA; righe++)
|
||||
{
|
||||
// Stampa intestazione, solo sul primo foglio.
|
||||
if (!righe)
|
||||
{
|
||||
(*cur) = PtrFis >= 0L ? PtrFis : 0L;
|
||||
stampa_testata(pr);
|
||||
_CtrFisStampati = 0; // conta quelli che stampo sulla prima
|
||||
}
|
||||
|
||||
if (_finite_fis || StabilitaInesistenzaFis)
|
||||
break;
|
||||
// La prima volta si deve posizionare sul primo record di p.f.
|
||||
if (PtrFis < 0L && !StabilitaInesistenzaFis)
|
||||
{
|
||||
const char tipo = cur->curr().get(QGD_TIPOA)[0];
|
||||
const bool Trovato = tipo == 'F';
|
||||
StabilitaInesistenzaFis = _finite_fis = !Trovato;
|
||||
PtrFis = 0L;
|
||||
}
|
||||
|
||||
if (StabilitaInesistenzaFis)
|
||||
break;
|
||||
|
||||
(*cur) = PtrFis;
|
||||
|
||||
const char tipo = cur->curr().get(QGD_TIPOA)[0];
|
||||
|
||||
if (tipo != 'F')
|
||||
break;
|
||||
else
|
||||
{
|
||||
CtrFis--;
|
||||
if (CtrFis == 0L) _finite_fis = TRUE;
|
||||
set_body(pr, 'F');
|
||||
// La stampa e' finita se ho STAMPATO l'ultimo record
|
||||
LastRecord = cur->pos() >= items-1;
|
||||
// _EndPrintDitta = LastRecord;
|
||||
_CtrFisStampati++;
|
||||
if (!LastRecord)
|
||||
{
|
||||
++(*cur);
|
||||
PtrFis = cur->pos();
|
||||
LastRecord = cur->pos() >= items-1;
|
||||
}
|
||||
}
|
||||
} // for righe..
|
||||
PtrFis = cur->pos();
|
||||
|
||||
if (_finite_fis && !StampatiTotaliFis)
|
||||
{
|
||||
jump_to_line(pr,58);
|
||||
stampa_totali(pr,TRUE);
|
||||
StampatiTotaliFis = TRUE;
|
||||
}
|
||||
}
|
||||
|
||||
if (_PaginaCorrente == SECONDA)
|
||||
{
|
||||
// Reset del flag di pagina con posiz.
|
||||
if (_posiziona && _PaginaPosizionamento) _PaginaPosizionamento = FALSE;
|
||||
for (int righe=0; righe < QGD_RIGHE_SECONDA; righe++)
|
||||
{
|
||||
if (!righe)
|
||||
{
|
||||
_CtrNoFisStampati = 0;
|
||||
// All'inizio salta le righe in alto
|
||||
fill_page(pr, HEADER_SECONDA_GD);
|
||||
}
|
||||
|
||||
if (_finite_nofis || StabilitaInesistenzaNoFis)
|
||||
break;
|
||||
|
||||
// La prima volta si deve posizionare sul primo record di p.g.
|
||||
if (PtrNoFis<0L && !StabilitaInesistenzaNoFis)
|
||||
{
|
||||
bool Trovato = FALSE;
|
||||
bool eof = FALSE;
|
||||
(*cur) = PtrFis-1 > 0L ? PtrFis-1 : 0L; // parti dall'inizio
|
||||
while (!Trovato && !eof)
|
||||
{
|
||||
eof = cur->pos() >= items-1;
|
||||
const char tipo = cur->curr().get(QGD_TIPOA)[0];
|
||||
if (tipo == 'G')
|
||||
{
|
||||
PtrNoFis = cur->pos();
|
||||
Trovato = TRUE;
|
||||
break;
|
||||
}
|
||||
else
|
||||
++(*cur);
|
||||
}
|
||||
StabilitaInesistenzaNoFis = _finite_nofis = !Trovato;
|
||||
}
|
||||
|
||||
// Gestisce i casi in cui non ci sono percipienti nella distinta..
|
||||
// if (items==0) _EndPrintDitta=TRUE;
|
||||
|
||||
if (StabilitaInesistenzaNoFis)
|
||||
break;
|
||||
|
||||
(*cur) = PtrNoFis;
|
||||
const char tipo = cur->curr().get(QGD_TIPOA)[0];
|
||||
|
||||
if (tipo != 'G')
|
||||
break;
|
||||
else
|
||||
{
|
||||
CtrNoFis--;
|
||||
if (CtrNoFis == 0L) _finite_nofis = TRUE;
|
||||
set_body(pr, 'G');
|
||||
LastRecord = cur->pos() >= items-1;
|
||||
// _EndPrintDitta = LastRecord;
|
||||
_CtrNoFisStampati++;
|
||||
if (!LastRecord)
|
||||
{
|
||||
++(*cur);
|
||||
PtrNoFis = cur->pos();
|
||||
LastRecord = PtrNoFis >= items-1;
|
||||
}
|
||||
}
|
||||
}
|
||||
PtrNoFis = cur->pos();
|
||||
jump_to_line(pr,52);
|
||||
const bool stampa = _finite_nofis && !StampatiTotaliGiu;
|
||||
if (stampa)
|
||||
{
|
||||
stampa_totali(pr,TRUE);
|
||||
StampatiTotaliGiu = TRUE;
|
||||
}
|
||||
else
|
||||
stampa_totali(pr,FALSE);
|
||||
|
||||
_EndPrintDitta = _finite_fis && _finite_nofis;
|
||||
}
|
||||
} // for pagina..
|
||||
} // while !EndPrintDitta
|
||||
|
||||
if (usa_progind())
|
||||
{
|
||||
delete _prog;
|
||||
_prog = NULL;
|
||||
}
|
||||
|
||||
return TRUE;
|
||||
|
||||
/*
|
||||
VECCHIA PRINT DELLA DISTINTA
|
||||
TCursor* cur = cursor();
|
||||
|
||||
bool StabilitaInesistenzaNoFis = FALSE;
|
||||
@ -1264,9 +1427,17 @@ bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoF
|
||||
for (int pagina=1; pagina <= QGD_PAGINE; pagina++, next_page(pr))
|
||||
{
|
||||
pr.formlen(QGD_FORMLEN);
|
||||
|
||||
|
||||
if (_PaginaCorrente == PRIMA)
|
||||
{
|
||||
_EndPrintDitta=(_finite_fis && _finite_nofis);
|
||||
|
||||
if (_EndPrintDitta )
|
||||
break;
|
||||
|
||||
if (_finite_fis || StabilitaInesistenzaFis)
|
||||
break;
|
||||
|
||||
if (_modulaser) ClearFlagModulaser();
|
||||
|
||||
for (int righe=0; righe < QGD_RIGHE_PRIMA; righe++)
|
||||
@ -1278,11 +1449,6 @@ bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoF
|
||||
stampa_testata(pr);
|
||||
}
|
||||
|
||||
_EndPrintDitta=_finite_fis && _finite_nofis;
|
||||
|
||||
if (_finite_fis || StabilitaInesistenzaFis)
|
||||
break;
|
||||
|
||||
// La prima volta si deve posizionare sul primo record di p.f.
|
||||
if (PtrFis<0L && !StabilitaInesistenzaFis)
|
||||
{
|
||||
@ -1307,7 +1473,10 @@ bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoF
|
||||
}
|
||||
|
||||
if (StabilitaInesistenzaFis)
|
||||
break;
|
||||
{
|
||||
_finite_fis=TRUE;
|
||||
break;
|
||||
}
|
||||
|
||||
(*cur) = PtrFis;
|
||||
const char tipo = cur->curr().get(QGD_TIPOA)[0];
|
||||
@ -1358,11 +1527,8 @@ bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoF
|
||||
while (!Trovato && !eof)
|
||||
{
|
||||
eof = cur->pos() >= items-1;
|
||||
const long ditta = cur->curr().get_long(QGD_CODDITTA);
|
||||
if (ditta != codditta)
|
||||
break;
|
||||
const char tipo = cur->curr().get(QGD_TIPOA)[0];
|
||||
if (tipo != 'F')
|
||||
if (tipo == 'G')
|
||||
{
|
||||
PtrNoFis = cur->pos();
|
||||
Trovato = TRUE;
|
||||
@ -1375,10 +1541,13 @@ bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoF
|
||||
}
|
||||
|
||||
// Gestisce i casi in cui non ci sono percipienti nella distinta..
|
||||
if (items==0) _EndPrintDitta=TRUE;
|
||||
// if (items==0) _EndPrintDitta=TRUE;
|
||||
|
||||
if (StabilitaInesistenzaNoFis)
|
||||
break;
|
||||
{
|
||||
_finite_nofis=TRUE;
|
||||
break;
|
||||
}
|
||||
|
||||
(*cur) = PtrNoFis;
|
||||
const char tipo = cur->curr().get(QGD_TIPOA)[0];
|
||||
@ -1412,7 +1581,8 @@ bool TDistintaG::print(const long codditta, const long NumFis, const long NumNoF
|
||||
_prog = NULL;
|
||||
}
|
||||
|
||||
return TRUE;
|
||||
return TRUE;
|
||||
*/
|
||||
}
|
||||
|
||||
|
||||
@ -2454,7 +2624,7 @@ bool TQuadroD1::print(const long codditta, const long NumFis, const long NumNoFi
|
||||
{
|
||||
#ifdef DBG
|
||||
if (UltimoRitenutaImposta >= 0L)
|
||||
NFCHECK("Bad sorting on cursor");
|
||||
/*NF*/ CHECK(FALSE,"Bad sorting on cursor");
|
||||
#endif
|
||||
UltimoRitenutaAcconto = cur.pos();
|
||||
}
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user