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

Correzioni a giornale e registri

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1166 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-03-24 11:25:27 +00:00
parent 02732528b6
commit 998165b865
2 changed files with 42 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
cg/cg3400.cpp
View File

@ -554,24 +554,32 @@ void CG3400_application::preprocess_footer()
ap = TRUE; ap = TRUE;
} }
if (_cur->pos() < _cur->items()-1 && !_gia_settato_ariportare) //
{ // Non stampo "A riportare"
dt = _tot_dare_progr + _tot_dare_progr_ap; // SE :
at = _tot_avere_progr + _tot_avere_progr_ap; // 1. E' gia' stato stampato
dts = dt.string(REAL_PICTURE); // OPPURE
ats = at.string(REAL_PICTURE); // 2. Sono sull'ultima riga
//
if (!_gia_settato_ariportare)
if (_cur->pos() < _cur->items()-1)
{
dt = _tot_dare_progr + _tot_dare_progr_ap;
at = _tot_avere_progr + _tot_avere_progr_ap;
dts = dt.string(REAL_PICTURE);
ats = at.string(REAL_PICTURE);
riga.format ("@b@%dg%s@%dg%c %s %c @%dg%s", riga.format ("@b@%dg%s@%dg%c %s %c @%dg%s",
_stampa_width == 132 ? DARE132-STUMB : DARE198-STUMB, _stampa_width == 132 ? DARE132-STUMB : DARE198-STUMB,
_nuovo_mese ? "Totale progressivi generali " : "A riportare ", _nuovo_mese ? "Totale progressivi generali " : "A riportare ",
_stampa_width == 132 ? DARE132-3 : DARE198, _stampa_width == 132 ? DARE132-3 : DARE198,
'D', 'D',
(const char *) dts, (const char *) dts,
'A', 'A',
_stampa_width == 132 ? AVERE132 : AVERE198, _stampa_width == 132 ? AVERE132 : AVERE198,
(const char *) ats); (const char *) ats);
set_footer (r++, (const char*) riga); set_footer (r++, (const char*) riga);
} }
} }
@ -595,7 +603,8 @@ int CG3400_application::set_totali_pagina(int righe)
} }
// SONO SULL'ULTIMO ???????????? SI O NO ???????????? // SONO SULL'ULTIMO ???????????? SI O NO ????????????
if (_cur->pos() >= _cur->items()-1) // se sono sull'ultimo // if (_cur->pos() >= _cur->items()-1) // se sono sull'ultimo
if (_cur->pos() == _cur->items()-1) // se sono sull'ultimo
{ {
// I totali distinti tra anno precedente e corrente SOLO SE STAMPA DI PROVA // I totali distinti tra anno precedente e corrente SOLO SE STAMPA DI PROVA
if (!_stampa_definitiva) if (!_stampa_definitiva)
@ -921,19 +930,14 @@ print_action CG3400_application::postprocess_page(int file, int counter)
righe_iva_settate = setta_righe_valuta(righe_iva_settate); righe_iva_settate = setta_righe_valuta(righe_iva_settate);
} }
// FINITO = _cur->file(LF_MOV).eof() || _cur->pos() == _cur->items();
// if (!FINITO) {
_cur->save_status(); _cur->save_status();
++(*_cur); ++(*_cur);
_data_succ = _cur->file(LF_MOV).get_date(MOV_DATAREG); _data_succ = _cur->file(LF_MOV).get_date(MOV_DATAREG);
_mese_succ = _data_succ.month(); _mese_succ = _data_succ.month();
--(*_cur); --(*_cur);
_cur->restore_status(); _cur->restore_status();
// }
if (_data_corr != _data_succ || _cur->pos() == _cur->items()) if (_data_corr != _data_succ || _cur->pos() == _cur->items()-1)
// if (_data_corr != _data_succ || FINITO)
{ {
_nuovo_mese = (_mese_succ != _mese_corr); _nuovo_mese = (_mese_succ != _mese_corr);
int righe = set_totali_giorno(_data_corr, righe_iva_settate); int righe = set_totali_giorno(_data_corr, righe_iva_settate);

30
cg/cg4400.cpp
View File

@ -194,7 +194,7 @@ bool CG4400_application::look_reg(int i, int anno, TString& codlib, int m, const
{ {
TString16 cod_lib_un = _tabreg->get("S6"); TString16 cod_lib_un = _tabreg->get("S6");
TDate u_data = _tabreg->get_date("D3"); TDate u_data = _tabreg->get_date("D3");
TDate sca_vid = _tabreg->get_date("D0"); TDate sca_vid = _tabreg->get_date("D1");
if (codlib != cod_lib_un) if (codlib != cod_lib_un)
{ {
if (_selected[i]) message_box("Ditta %ld: il codice libro unico del registro non e' uguale al codice libro unico indicato", ditta); if (_selected[i]) message_box("Ditta %ld: il codice libro unico del registro non e' uguale al codice libro unico indicato", ditta);
@ -234,13 +234,12 @@ bool CG4400_application::look_regs(int anno, TString& codlib, int m, int* umese,
codtab = _tabreg->get("CODTAB"); codtab = _tabreg->get("CODTAB");
a = atoi(codtab.mid(0,4)); a = atoi(codtab.mid(0,4));
if (a > anno) if (a > anno)
//return FALSE;
break; break;
if (a == anno) if (a == anno)
if ( tipo == 1 || tipo == 2 ) //registro iva if ( tipo == 1 || tipo == 2 ) //registro iva
{ {
TString16 cod_lib_un = _tabreg->get("S6"); TString16 cod_lib_un = _tabreg->get("S6");
TDate sca_vid = _tabreg->get_date("D0"); TDate sca_vid = _tabreg->get_date("D1");
TDate u_data = _tabreg->get_date("D3"); TDate u_data = _tabreg->get_date("D3");
if (codlib != cod_lib_un) if (codlib != cod_lib_un)
continue; continue;
@ -297,8 +296,8 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
if (!ok) if (!ok)
{ {
if (app()._selected[i]) f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod); if (app()._selected[i]) f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod);
if (app()._selected.last_one() == i) //if (app()._selected.last_one() == i)
break; // break;
else else
continue; continue;
} }
@ -312,16 +311,18 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k)
else else
{ {
ok = app().look_regs(anno,codlib,fino_a_mese,&mese,ditta,&can_print); ok = app().look_regs(anno,codlib,fino_a_mese,&mese,ditta,&can_print);
if ( app()._selected[i] && !ok ) //if ( app()._selected[i] && !ok )
if (!ok)
{ {
if (!can_print) if (!can_print)
return FALSE; return FALSE;
f.message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", ditta); if ( app()._selected[i])
f.message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", ditta);
continue; continue;
} }
} }
if (app()._selected[i]) //if (app()._selected[i])
last_mese = (last_mese < mese) ? last_mese : mese; last_mese = (last_mese < mese) ? last_mese : mese;
} }
} }
app().set_firm(app().__firm); app().set_firm(app().__firm);
@ -632,8 +633,6 @@ void CG4400_application::build_nomiditte(TProgind* pnd)
//TApplication::set_firm(dt.get_long("CODDITTA")); //TApplication::set_firm(dt.get_long("CODDITTA"));
if (!look_lia(dt.get_long("CODDITTA"))) good = FALSE; if (!look_lia(dt.get_long("CODDITTA"))) good = FALSE;
} }
else continue;
_n_ditte++; _n_ditte++;
TToken_string* d = new TToken_string(64); TToken_string* d = new TToken_string(64);
d->add(dt.get("CODDITTA")); d->add(dt.get("CODDITTA"));
@ -701,8 +700,6 @@ bool CG4400_application::user_create()
add_file(LF_MOV); add_file(LF_MOV);
add_file(LF_RMOVIVA); add_file(LF_RMOVIVA);
printer().footerlen(5);
//set_real_picture(REAL_PICTURE);
delete pnd; delete pnd;
return TRUE; return TRUE;
@ -1751,7 +1748,7 @@ bool CG4400_application::compila_reg(const TMask& m)
if (_tipo_reg == 1 || _tipo_reg == 2) //registro iva if (_tipo_reg == 1 || _tipo_reg == 2) //registro iva
{ {
cod_lib_un = _tabreg->get("S6"); cod_lib_un = _tabreg->get("S6");
sca_vid = _tabreg->get_date("D0"); sca_vid = _tabreg->get_date("D1");
if (_tipo_stampa != 1) if (_tipo_stampa != 1)
_u_data = _tabreg->get_date ("D3"); _u_data = _tabreg->get_date ("D3");
if ( _tipo_stampa == 2 || _tipo_stampa == 4 ) if ( _tipo_stampa == 2 || _tipo_stampa == 4 )
@ -2494,6 +2491,7 @@ bool CG4400_application::set_print(int n)
m.field(F_SELECT).set(format("%ld",_selected.ones())); m.field(F_SELECT).set(format("%ld",_selected.ones()));
set_choice_limits(m); set_choice_limits(m);
printer().footerlen(5);
set_real_picture("###.###.###.###"); set_real_picture("###.###.###.###");
while (ok = set_ditte(m)) while (ok = set_ditte(m))
@ -2765,7 +2763,7 @@ bool CG4400_application::stampa_registri_IVA(const TMask& m)
{ {
_codreg = codtab.mid(4,3); _codreg = codtab.mid(4,3);
cod_lib_un = _tabreg->get("S6"); cod_lib_un = _tabreg->get("S6");
sca_vid = _tabreg->get_date("D0"); sca_vid = _tabreg->get_date("D1");
if (_tipo_stampa != 1) if (_tipo_stampa != 1)
_u_data = _tabreg->get_date("D3"); _u_data = _tabreg->get_date("D3");
if (_tipo_stampa == 2 || _tipo_stampa == 4) if (_tipo_stampa == 2 || _tipo_stampa == 4)