Stampa colonne su più pagine
git-svn-id: svn://10.65.10.50/trunk@5327 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
ed5d76acdb
commit
6f3dcd713d
634
sv/sv1200.cpp
634
sv/sv1200.cpp
@ -17,6 +17,20 @@
|
||||
#include "..\pr\agenti.h"
|
||||
#include "..\ve\clifor.h"
|
||||
|
||||
|
||||
#define LARG_COLCODICE 49
|
||||
#define POS_PRIMACOL 51
|
||||
#define PICTURE_VALORI "###.###.###.##@"
|
||||
#define LARG_COLVAL 16
|
||||
#define PICTURE_QUANTITA "###.###.##@,@##"
|
||||
#define LARG_COLQTA 16
|
||||
#define PICTURE_PERCENT "###@,@"
|
||||
#define LARG_COLPERC 8
|
||||
|
||||
#define PICTURE (selmask().get(F_TIPODATO)[0] =='V'? PICTURE_VALORI:PICTURE_QUANTITA)
|
||||
|
||||
|
||||
#define FORMWIDTH 150
|
||||
///////////////////////////////////////////////////////////
|
||||
// TPeriodo
|
||||
///////////////////////////////////////////////////////////
|
||||
@ -295,7 +309,7 @@ class TStampa_stat : public TPrint_application
|
||||
{
|
||||
enum { MAX_ROWS = 8 }; // numero massimo di raggruppamenti
|
||||
|
||||
enum { LINEA_DATI='D', LINEA_CONFRONTI='C', LINEA_TARGET='T'}; // codici per le righe
|
||||
enum { LINEA_DATI='D', LINEA_RAFFRONTI='R', LINEA_TARGET='T'}; // codici per le righe
|
||||
|
||||
TMask * _msk,*_print_msk;
|
||||
|
||||
@ -306,7 +320,7 @@ class TStampa_stat : public TPrint_application
|
||||
TRecord_cache *_magazz,*_tipodoc,*_catven,*_zone,*_ums;
|
||||
TLocalisamfile * _umart,*_anamag,*_clifor,*_agenti;
|
||||
|
||||
TLocalisamfile * _outstat;
|
||||
//TLocalisamfile * _outstat;
|
||||
|
||||
TToken_string _key;
|
||||
TString _last_key;
|
||||
@ -314,14 +328,25 @@ class TStampa_stat : public TPrint_application
|
||||
|
||||
bool _ragg_per_um;
|
||||
|
||||
TStat_cache * _cache;
|
||||
TStat_cache * _cache; // cache R/W per le statistiche
|
||||
|
||||
int _last_lev_grp;
|
||||
TArray _group_recs;
|
||||
int _last_lev_grp, // livello dell'ultimo raggruppamento incontrato
|
||||
_liv_riga; // livello della riga
|
||||
TArray _group_recs; // array dei record dei raggruppamenti
|
||||
int _indent[MAX_ROWS];// array delle posizione di indentazione
|
||||
real _tot_riga[SVS_NUMCOLONNE]; //array dei totali degli "anni" della riga
|
||||
int _colpage, // numero di pagina ripetuta per contenere in larghezza tutte le colonne
|
||||
_last_page; // ultima pagina della "prima copia"
|
||||
int _largcol, // larghezza di una colonna
|
||||
_numcol_dati, // numero di colonne contenenti dati
|
||||
_numcol, // numero totale di colonne (dati+totali)
|
||||
_pagewidth, // larghezza di una pagina
|
||||
_col_anno ; // numero di colonne che formano un "Anno" (=periodo di rif.)
|
||||
bool _st_totr; // flag stampa totali di riga
|
||||
bool _st_totc; // flag stampa totali di colonna
|
||||
static TString s_park; // stringa di lavoro
|
||||
TString wrk_row; // stringa di lavoro per le righe di stampa
|
||||
private:
|
||||
const TString& partkey_name(const char *lev_code) ;
|
||||
const TString& get_part(const char *lev_code, TSVriep_record & rieprec) const;
|
||||
const TString& get_descrpart(const char *lev_code, TSVriep_record &rieprec);
|
||||
|
||||
void set_ragg_per_um();
|
||||
|
||||
@ -355,14 +380,21 @@ protected:
|
||||
virtual bool user_destroy();
|
||||
virtual bool set_print(int i);
|
||||
virtual void set_page(int file, int count);
|
||||
|
||||
virtual print_action postprocess_print(int file, int counter);
|
||||
virtual bool preprocess_page(int file, int counter);
|
||||
virtual print_action postprocess_page(int file, int counter);
|
||||
virtual void preprocess_header();
|
||||
virtual void preprocess_footer();
|
||||
virtual void postclose_print() ;
|
||||
|
||||
virtual void on_config_change();
|
||||
|
||||
void set_rows_colonne(int &row, TString & r, TRectype &strec);
|
||||
int handle_levchange(int row,const int level);
|
||||
int set_header_colonne(int row);
|
||||
int set_rows_colonne(int row, TRectype &strec);
|
||||
void set_row_atpos(char section,int row,const char * f,int pos);
|
||||
void reset_grplevels();
|
||||
|
||||
bool test_field(const TString& cod, TMask_field& f) const;
|
||||
|
||||
@ -374,184 +406,431 @@ protected:
|
||||
bool recalc_period();
|
||||
|
||||
TString& build_key(const TRectype& rec);
|
||||
|
||||
|
||||
const TString& nome_colonna1(int c);
|
||||
const TString& nome_colonna2(int c);
|
||||
const TString& nome_totale(int t);
|
||||
const TString& partkey_name(const char *lev_code) ;
|
||||
const TString& get_part(TString & lev_code, TSVriep_record & rieprec) const;
|
||||
const TString& get_descrpart(const char *lev_code, TSVriep_record &rieprec);
|
||||
void adjust_record(TRectype &strec, int from) const;
|
||||
const int numlevels()
|
||||
{return selmask().sfield(F_CHIAVE).items();}
|
||||
public:
|
||||
TMask& selmask() { return *_msk; }
|
||||
TMask& printmask() { return *_print_msk; }
|
||||
virtual bool menu(MENU_TAG);
|
||||
};
|
||||
|
||||
TString TStampa_stat::s_park(' ',25); //
|
||||
|
||||
inline TStampa_stat& app() { return (TStampa_stat&)main_app(); }
|
||||
|
||||
print_action TStampa_stat::postprocess_print(int file, int count)
|
||||
{
|
||||
reset_footer();
|
||||
reset_header();
|
||||
_last_page=get_page_number();
|
||||
_colpage++;
|
||||
//printer().formfeed();
|
||||
return TPrint_application::postprocess_print(file,count);
|
||||
}
|
||||
bool TStampa_stat::preprocess_page(int file, int count)
|
||||
{
|
||||
if (!file)
|
||||
{
|
||||
;
|
||||
}
|
||||
return TPrint_application::preprocess_page(file,count);
|
||||
}
|
||||
|
||||
print_action TStampa_stat::postprocess_page(int file, int count)
|
||||
{
|
||||
if (!file)
|
||||
{
|
||||
return (_outstat->next()==NOERR) ? REPEAT_PAGE : NEXT_PAGE;
|
||||
}
|
||||
reset_print();
|
||||
return TPrint_application::postprocess_page(file,count);
|
||||
}
|
||||
|
||||
|
||||
bool TStampa_stat::set_print(int i)
|
||||
{
|
||||
_outstat->first();
|
||||
bool ok=printmask().run() != K_QUIT;
|
||||
|
||||
_st_totr=printmask().get_bool(F_STTOTALIRIGA);
|
||||
_st_totc=printmask().get_bool(F_STTOTALICOL);
|
||||
_col_anno =selmask().get_int(F_COL_ANNO); //numero di colonne che formano un "Anno"
|
||||
_largcol = (_st_totr ? LARG_COLPERC : 0 ) + (selmask().get(F_TIPODATO)[0]=='V' ? LARG_COLVAL : LARG_COLQTA); // valori o quantità
|
||||
_numcol_dati = selmask().get_int(F_PERIODO);
|
||||
_numcol = _numcol_dati+int((_numcol_dati -1)/_col_anno+1);
|
||||
_pagewidth=POS_PRIMACOL+int((FORMWIDTH-POS_PRIMACOL)/_largcol)*_largcol;
|
||||
|
||||
// reset delle variabili per la gestione di gruppi ai vari livelli
|
||||
_colpage=1;
|
||||
_last_page=0;
|
||||
reset_grplevels();
|
||||
// setta header e footer
|
||||
int row=0;
|
||||
|
||||
reset_header();
|
||||
reset_footer();
|
||||
printer().footerlen(2);
|
||||
|
||||
return (ok);
|
||||
}
|
||||
|
||||
#define LARG_COLCODICE 49
|
||||
#define POS_PRIMACOL 50
|
||||
#define PICTURE_VALORI "###.###.###.###"
|
||||
#define LARG_COLVAL 16
|
||||
#define PICTURE_QUANTITA "###.###.###,###"
|
||||
#define LARG_COLQTA 16
|
||||
#define PICTURE_PERCENT "###.###.###,##"
|
||||
#define LARG_COLPERC 7
|
||||
int TStampa_stat::set_header_colonne(int row) // to remove
|
||||
{
|
||||
return 0;
|
||||
}
|
||||
|
||||
#define PICTURE (*selmask().get(F_TIPODATO)=='V'? PICTURE_VALORI:PICTURE_QUANTITA)
|
||||
void TStampa_stat::postclose_print()
|
||||
{
|
||||
}
|
||||
|
||||
void TStampa_stat::preprocess_footer()
|
||||
{
|
||||
wrk_row.fill('_',_pagewidth);
|
||||
set_row_atpos('F',1,wrk_row,0);
|
||||
wrk_row.format("Pagina @#",get_page_number()-_last_page*(_colpage-1));
|
||||
set_row_atpos('F',2,wrk_row,(_colpage-1)*_pagewidth+(_pagewidth-9)/2);
|
||||
}
|
||||
|
||||
void TStampa_stat::preprocess_header()
|
||||
{
|
||||
int bkg=0,row=0,lastrow;
|
||||
|
||||
// *****************
|
||||
// header
|
||||
set_header(++row,"");
|
||||
if (selmask().get(F_DESCR).empty())
|
||||
set_row_atpos('H',++row,"@bStampa statistiche ",0);
|
||||
else
|
||||
{
|
||||
wrk_row.format("@bStampa statistica '%s'",(const char *)selmask().get(F_DESCR));
|
||||
set_row_atpos('H',++row,(const char *)wrk_row,0);
|
||||
wrk_row.format("dal %s al %s ",(const char *)selmask().get(F_DATAINI),(const char *)selmask().get(F_DATAFIN));
|
||||
set_row_atpos('H',row,(const char *)wrk_row,40);
|
||||
}
|
||||
set_header(++row,"");
|
||||
set_row_atpos('H',++row," Codice Descrizione",0);
|
||||
lastrow=row;
|
||||
for (int c=0; c < _numcol; c++) // colonne
|
||||
{
|
||||
if (_st_totr && (((c)%_col_anno)==0 || c== _numcol_dati) )
|
||||
{
|
||||
set_row_atpos('H',row,nome_totale(int(c/_col_anno)),POS_PRIMACOL+c*_largcol+_largcol/2 );
|
||||
} else {
|
||||
wrk_row=nome_colonna1(c);
|
||||
set_row_atpos('H',row,wrk_row,POS_PRIMACOL+c*_largcol+(_largcol-wrk_row.len())/2 );
|
||||
wrk_row=nome_colonna2(c);
|
||||
if (wrk_row.not_empty())
|
||||
{
|
||||
lastrow=row+1;
|
||||
set_row_atpos('H',row+1,wrk_row,POS_PRIMACOL+c*_largcol+(_largcol-wrk_row.len())/2 );
|
||||
}
|
||||
}
|
||||
if (_st_totr)
|
||||
{
|
||||
lastrow=row+1;
|
||||
set_row_atpos('H',row+1," Perc.",POS_PRIMACOL+(c+1)*_largcol-LARG_COLPERC);
|
||||
}
|
||||
}
|
||||
row=lastrow;
|
||||
set_header(++row,"");
|
||||
// *****************
|
||||
// background
|
||||
wrk_row.format("P0W1l(1,1,%d,1)l(1,3,%d,3)l(1,%d,%d,%d)",_pagewidth,_pagewidth,row,_pagewidth,row);
|
||||
row++;
|
||||
for (c=0; c < _numcol; c++) // colonne
|
||||
{
|
||||
// background
|
||||
//wrk_row << "l(" << POS_PRIMACOL+c*_largcol << ",4," ;
|
||||
//wrk_row << POS_PRIMACOL+c*_largcol << ',' << (int)printer().rows() << ')';
|
||||
}
|
||||
set_background(wrk_row);
|
||||
}
|
||||
|
||||
const TString& TStampa_stat::nome_colonna1(int c)
|
||||
{
|
||||
const TDate din=selmask().get(F_DATAINI); // data iniziale
|
||||
const char code_freq=selmask().get(F_MULTIPLO)[0];
|
||||
const int numero=selmask().get_int(F_NUMERO); // numero di periodi in una col
|
||||
const TFrequenza_statistiche freq = char2frequency(code_freq);
|
||||
const int start=date2period(din,freq); // periodo della prima colonna
|
||||
const int lastp=last_period(din,freq); // numero di periodi in un anno
|
||||
|
||||
if (code_freq==selmask().get(F_FREQUENZA)[0])
|
||||
{
|
||||
// numerico; può essere un qualsiasi multiplo della freq
|
||||
s_park.format("%s %d-%d %d",(const char *)char2freqname(code_freq),1+(start+c*numero-1)%lastp , 1+(start+(c+1)*numero-2)%lastp,din.year());
|
||||
} else {
|
||||
switch (code_freq)
|
||||
{
|
||||
default:
|
||||
s_park.format("%d^%s",1+(start+c-1)%lastp,(const char *)char2freqname(code_freq));
|
||||
}
|
||||
}
|
||||
return s_park;
|
||||
}
|
||||
|
||||
const TString& TStampa_stat::nome_colonna2(int c)
|
||||
{
|
||||
const TDate din=selmask().get(F_DATAINI); // data iniziale
|
||||
const char code_freq=selmask().get(F_MULTIPLO)[0];
|
||||
const TFrequenza_statistiche freq = char2frequency(code_freq);
|
||||
const int lastp=last_period(din,freq); // numero di periodi in un anno
|
||||
const int start=date2period(din,freq); // periodo della prima colonna
|
||||
s_park="";
|
||||
{
|
||||
switch (code_freq)
|
||||
{
|
||||
case 'G': // giorno
|
||||
case 'A': // anno
|
||||
break;
|
||||
default:
|
||||
s_park.format(" anno %d",din.year()+int((start+c-1)/lastp));
|
||||
}
|
||||
}
|
||||
return s_park;
|
||||
}
|
||||
|
||||
const TString& TStampa_stat::nome_totale(int c)
|
||||
{
|
||||
s_park = "Totale ";
|
||||
s_park << c+1;
|
||||
return s_park;
|
||||
}
|
||||
|
||||
void TStampa_stat::set_page(int file, int count)
|
||||
{
|
||||
// prepara la pagina di stampa
|
||||
const int max_rows=selmask().sfield(F_CHIAVE).items();
|
||||
TRectype & strec=_outstat->curr();
|
||||
TRectype & strec=current_cursor()->curr();
|
||||
const int level=strec.get_int(SVS_LIVELLO);
|
||||
|
||||
TString r;
|
||||
int row=0;
|
||||
|
||||
// *****************
|
||||
// gestione totali di raggruppamento
|
||||
while (level!=max_rows && level>_last_lev_grp)
|
||||
{
|
||||
// ho lasciato un livello "basso"
|
||||
TRectype & rec_grp1=(TRectype &)_group_recs[_last_lev_grp+1];
|
||||
TRectype & rec_grp2=(TRectype &)_group_recs[_last_lev_grp+2];
|
||||
const int lencode=rec_grp2.get(SVS_CODICE).len();
|
||||
r << "@" << (max_rows-_last_lev_grp)*2 <<"g";
|
||||
r << "Totale " << partkey_name(rec_grp1.get(SVS_LEVCODE));
|
||||
r << " " << rec_grp1.get(SVS_CODICE).mid(lencode);
|
||||
set_rows_colonne(row, r ,rec_grp1);
|
||||
_last_lev_grp++;
|
||||
r = "";
|
||||
}
|
||||
if (_last_lev_grp!=strec.get_int(SVS_LIVELLO))
|
||||
_last_lev_grp=strec.get_int(SVS_LIVELLO);
|
||||
row = handle_levchange(row, level);
|
||||
if (level>0)
|
||||
{
|
||||
// salva i record dei livelli di raggruppamento
|
||||
if (level==max_rows)
|
||||
if (level==numlevels())
|
||||
strec.put(SVS_CODICE,"");
|
||||
_group_recs.add(strec,level);
|
||||
}
|
||||
|
||||
// *****************
|
||||
// gestione delle "righe"
|
||||
if (level != max_rows && *strec.get(SVS_TIPO)==LINEA_DATI)
|
||||
if (level != numlevels() &&
|
||||
printmask().get_bool(F_FLAGSTOTALI+numlevels()-level))
|
||||
{
|
||||
TRectype & _rec_grp=(TRectype &)_group_recs[level+1];
|
||||
const int lencode=_rec_grp.get(SVS_CODICE).len();
|
||||
r << "@" << (max_rows-level)*2 <<"g";
|
||||
r << partkey_name(strec.get(SVS_LEVCODE));
|
||||
r << " " << strec.get(SVS_CODICE).mid(lencode);
|
||||
if (level==0)
|
||||
TString r;
|
||||
|
||||
switch (*strec.get(SVS_TIPO))
|
||||
{
|
||||
set_rows_colonne(row, r,strec);
|
||||
} else {
|
||||
reset_row(++row);
|
||||
set_row(row,(const char *)r);
|
||||
case LINEA_DATI:
|
||||
if (level >= _liv_riga)
|
||||
{
|
||||
TRectype & _rec_grp=(TRectype &)_group_recs[level+1];
|
||||
const int lencode=_rec_grp.get(SVS_CODICE).len();
|
||||
adjust_record(strec,lencode);
|
||||
r << TString(partkey_name(strec.get(SVS_LEVCODE))).upper(0,0);
|
||||
r << ' ' << strec.get(SVS_CODICE).mid(lencode);
|
||||
r << ' ' << strec.get(SVS_DESCR);
|
||||
set_row_atpos('R',++row,(const char *)r,_indent[level]);
|
||||
}
|
||||
if (level == _liv_riga)
|
||||
row = set_rows_colonne(row, strec);
|
||||
break;
|
||||
case LINEA_RAFFRONTI:
|
||||
if (printmask().get_bool(F_STRAFFRONTO))
|
||||
if (level == _liv_riga)
|
||||
row = set_rows_colonne(++row, strec);
|
||||
break;
|
||||
}
|
||||
}
|
||||
// *****************
|
||||
// separatore di righe
|
||||
if (printmask().get_bool(F_STRAFFRONTO))
|
||||
// totale generale e break di livello
|
||||
if (current_cursor()->pos() == current_cursor()->items()-1)
|
||||
{
|
||||
reset_row(++row);
|
||||
set_row(row,"");
|
||||
handle_levchange(row, numlevels());
|
||||
}
|
||||
}
|
||||
|
||||
// fa le set row per la "riga" contenente i valori delle colonne di statistica
|
||||
void TStampa_stat::set_rows_colonne(int &row,TString & r, TRectype &strec)
|
||||
int TStampa_stat::set_rows_colonne(int row,TRectype &strec)
|
||||
{
|
||||
//**********
|
||||
// setta le colonne
|
||||
TString colname,r1;
|
||||
int largcolonna = *selmask().get(F_TIPODATO)=='V' ? LARG_COLVAL : LARG_COLQTA; // valori o quantità
|
||||
const int max_rows=selmask().sfield(F_CHIAVE).items();
|
||||
const bool sttotriga=printmask().get_bool(F_STTOTALIRIGA);
|
||||
const int numcolonne = selmask().get_bool(F_PERIODO);
|
||||
for (int col=0; col < numcolonne; col++) // colonne
|
||||
static TRectype last_data(LF_SVSTAT);
|
||||
TString colname,r_totc;
|
||||
real col_value;
|
||||
bool aggiungi_perc=TRUE;
|
||||
int col=0; // contatore di colonna corrente
|
||||
int position; // posizione fisica della colonna corrente
|
||||
// **********
|
||||
// setta i totali di colonne
|
||||
if (strec.get_char(SVS_TIPO)==LINEA_DATI ||
|
||||
strec.get_char(SVS_TIPO)==LINEA_RAFFRONTI && printmask().get(F_TIPORAFFRONTO)[0]==AS_VALUE)
|
||||
{
|
||||
colname << SVS_COLNAME << col;
|
||||
r << "@" << POS_PRIMACOL+col*(sttotriga ? largcolonna+LARG_COLPERC : largcolonna) <<"g";
|
||||
r1=r;
|
||||
switch (*printmask().get(F_TIPORAFFRONTO))
|
||||
for (col=0; col < _numcol_dati; col++)
|
||||
{
|
||||
case AS_VALUE:
|
||||
r << strec.get_real(colname).string(PICTURE);
|
||||
colname =SVS_COLNAME;
|
||||
colname << col;
|
||||
if (col%_col_anno==0)
|
||||
_tot_riga[int(col/_col_anno)]=0;
|
||||
_tot_riga[int(col/_col_anno)]+=strec.get_real(colname);
|
||||
}
|
||||
}
|
||||
// **********
|
||||
// setta le colonne
|
||||
col=0;
|
||||
for (int c=0; c < _numcol_dati; c++)
|
||||
{
|
||||
colname =SVS_COLNAME;
|
||||
colname << c;
|
||||
position = POS_PRIMACOL+col*_largcol;
|
||||
switch (strec.get_char(SVS_TIPO))
|
||||
{
|
||||
case LINEA_DATI:
|
||||
last_data=strec;
|
||||
set_row_atpos('R',row,strec.get_real(colname).string(PICTURE),position);
|
||||
break;
|
||||
case AS_DIFF:
|
||||
r << strec.get_real(colname).string(PICTURE);
|
||||
case LINEA_RAFFRONTI:
|
||||
switch (printmask().get(F_TIPORAFFRONTO)[0])
|
||||
{
|
||||
case AS_VALUE:
|
||||
set_row_atpos('R',row, strec.get_real(colname).string(PICTURE),position);
|
||||
break;
|
||||
case AS_DIFF:
|
||||
r_totc= "+";
|
||||
r_totc << PICTURE;
|
||||
set_row_atpos('R',row,real(last_data.get_real(colname)-strec.get_real(colname)).string(r_totc),position);
|
||||
break;
|
||||
//?!?! aggiungi_perc=FALSE;
|
||||
case AS_PERC:
|
||||
position = POS_PRIMACOL+col*_largcol+(_largcol-LARG_COLPERC);
|
||||
if (!strec.get_real(colname).is_zero())
|
||||
set_row_atpos('R',row,real(100*last_data.get_real(colname)/strec.get_real(colname)).string(PICTURE_PERCENT),position);
|
||||
aggiungi_perc=FALSE;
|
||||
break;
|
||||
}
|
||||
break;
|
||||
case AS_PERC:
|
||||
r << strec.get_real(colname).string(PICTURE_PERCENT);
|
||||
case LINEA_TARGET: // v2.0
|
||||
set_row_atpos('R',row,strec.get_real(colname).string(PICTURE),position);
|
||||
break;
|
||||
}
|
||||
// colonna con la percentuale rispetto al totale di riga
|
||||
if (sttotriga)
|
||||
if (_st_totr && aggiungi_perc && !_tot_riga[int(c/_col_anno)].is_zero())
|
||||
{
|
||||
r << "@" << POS_PRIMACOL+col*(largcolonna+LARG_COLPERC)+largcolonna <<"g";
|
||||
r << real(strec.get_real(colname)/strec.get_real(SVS_TOTALERIGA)*100.0).string(PICTURE_PERCENT);
|
||||
r << "%%";
|
||||
set_row_atpos('R',row,real(strec.get_real(colname)/_tot_riga[int(c/_col_anno)]*100.0).string(PICTURE_PERCENT),POS_PRIMACOL+(col+1)*_largcol-LARG_COLPERC);
|
||||
}
|
||||
// riga con i totali di colonna
|
||||
if (printmask().get_bool(F_STTOTALICOL))
|
||||
if (_st_totc && aggiungi_perc )
|
||||
{
|
||||
TRectype & _rec_totale=(TRectype &)_group_recs[max_rows];
|
||||
TRectype & _rec_totale=(TRectype &)_group_recs[numlevels()];
|
||||
if (!_rec_totale.get_real(colname).is_zero())
|
||||
{
|
||||
r1 << real(strec.get_real(colname)/_rec_totale.get_real(colname)*100.0).string(PICTURE_PERCENT);
|
||||
r1 << "%%";
|
||||
r_totc=real(strec.get_real(colname)/_rec_totale.get_real(colname)*100.0).string(PICTURE_PERCENT);
|
||||
set_row_atpos('R',row+1,(const char *)r_totc,POS_PRIMACOL+col*_largcol+_largcol-LARG_COLPERC);
|
||||
} else {
|
||||
// aggiunge comunque una riga vuota per la spaziatura
|
||||
set_row_atpos('R',row+1,"",0);
|
||||
}
|
||||
}
|
||||
// colonna con il totale di un "anno"
|
||||
if (_st_totr && aggiungi_perc && (((c+1)%_col_anno)==0 || c== _numcol_dati-1))
|
||||
{
|
||||
col++;
|
||||
set_row_atpos('R',row,(const char *)_tot_riga[int(c/_col_anno)].string(PICTURE),POS_PRIMACOL+col*_largcol);
|
||||
set_row_atpos('R',row,(const char *)real(100).string(PICTURE_PERCENT),POS_PRIMACOL+col*_largcol+_largcol-LARG_COLPERC);
|
||||
}
|
||||
col++;
|
||||
}
|
||||
// colonna totale di riga
|
||||
if (sttotriga)
|
||||
{
|
||||
r << "@" << POS_PRIMACOL+numcolonne*(largcolonna+LARG_COLPERC) <<"g";
|
||||
r << strec.get_real(SVS_TOTALERIGA).string(PICTURE);
|
||||
r << "@" << POS_PRIMACOL+numcolonne*(largcolonna+LARG_COLPERC)+largcolonna <<"g";
|
||||
r << real(100).string(PICTURE_PERCENT);
|
||||
r << "%%";
|
||||
if (_st_totc)
|
||||
++row;
|
||||
return row;
|
||||
}
|
||||
|
||||
// fa le set row per la "riga" contenente i valori delle colonne di statistica
|
||||
void TStampa_stat::set_row_atpos(char section,int row,const char * f,int pos)
|
||||
{
|
||||
static TString256 ss;
|
||||
int l=strlen(f);
|
||||
ss.cut(0);
|
||||
if (pos <= _colpage*_pagewidth)
|
||||
{
|
||||
const int firstpos=(_colpage-1)*_pagewidth;
|
||||
if (pos+l >= firstpos)
|
||||
{
|
||||
// there's something to print in this page!
|
||||
if (pos+l > _colpage*_pagewidth)
|
||||
{
|
||||
l=_colpage*_pagewidth-pos;
|
||||
repeat_print();
|
||||
}
|
||||
ss.format("@%03dg",max(pos, firstpos ) % _pagewidth);
|
||||
if (pos< firstpos)
|
||||
ss.overwrite(f+firstpos-pos,5);
|
||||
else
|
||||
ss.overwrite(f,5);
|
||||
ss.cut(5+l); // !?!? this cause trouble if special couples are used at the middle of the string:
|
||||
// "@b" or "%%" can be split into two non-significant chars
|
||||
}
|
||||
//else : too much to the left: already printed!
|
||||
}
|
||||
// *****************
|
||||
// stampa la riga
|
||||
reset_row(++row);
|
||||
set_row(row,(const char *)r);
|
||||
// *****************
|
||||
// stampa totale di colonna
|
||||
if (printmask().get_bool(F_STTOTALICOL))
|
||||
else //: too much to the right: will be printed next time!
|
||||
repeat_print();
|
||||
switch (section)
|
||||
{
|
||||
reset_row(++row);
|
||||
set_row(row,(const char *)r1);
|
||||
case 'R': set_row(row,ss); break;
|
||||
case 'H': set_header(row,ss); break;
|
||||
case 'F': set_footer(row,ss); break;
|
||||
}
|
||||
}
|
||||
|
||||
// stampa i totali ad ogni break di livello
|
||||
int TStampa_stat::handle_levchange(int row,const int level)
|
||||
{
|
||||
while (level>_last_lev_grp)
|
||||
{
|
||||
// ho lasciato un livello "basso"
|
||||
_last_lev_grp++;
|
||||
if (_last_lev_grp > _liv_riga && printmask().get_bool(F_FLAGSTOTALI+numlevels()-_last_lev_grp))
|
||||
{
|
||||
TRectype & rec_grp1=(TRectype &)_group_recs[_last_lev_grp];
|
||||
int lencode=0;
|
||||
if (_last_lev_grp < numlevels())
|
||||
{
|
||||
TRectype & rec_grp2=(TRectype &)_group_recs[_last_lev_grp+1];
|
||||
lencode=rec_grp2.get(SVS_CODICE).len();
|
||||
}
|
||||
adjust_record(rec_grp1,lencode);
|
||||
wrk_row.fill('-',_largcol*_numcol);
|
||||
set_row_atpos('R',++row,(const char *)wrk_row,POS_PRIMACOL);
|
||||
wrk_row ="Totale ";
|
||||
wrk_row << partkey_name(rec_grp1.get(SVS_LEVCODE));
|
||||
wrk_row << ' ' << rec_grp1.get(SVS_CODICE).mid(lencode);
|
||||
wrk_row << ' ' << rec_grp1.get(SVS_DESCR);
|
||||
//wrk_row.cut(LARG_COLCODICE); there are also @ chars!
|
||||
set_row_atpos('R',++row,(const char *)wrk_row,_indent[_last_lev_grp]);
|
||||
row = set_rows_colonne(row, rec_grp1);
|
||||
}
|
||||
}
|
||||
if (_last_lev_grp!=level)
|
||||
_last_lev_grp=level;
|
||||
return row;
|
||||
}
|
||||
|
||||
void TStampa_stat::preprocess_header()
|
||||
{}
|
||||
|
||||
void TStampa_stat::preprocess_footer()
|
||||
{}
|
||||
void TStampa_stat::reset_grplevels()
|
||||
{
|
||||
_last_lev_grp=numlevels();
|
||||
_group_recs.destroy();
|
||||
int pos=0;
|
||||
for (int l=0; l <=numlevels() ; l++)
|
||||
{
|
||||
if (printmask().get_bool(F_FLAGSTOTALI+l))
|
||||
{
|
||||
_indent[numlevels()-l]=2*pos++;
|
||||
_liv_riga=numlevels()-l;
|
||||
} else
|
||||
_indent[numlevels()-l]=0;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
bool TStampa_stat::user_create()
|
||||
@ -568,10 +847,12 @@ bool TStampa_stat::user_create()
|
||||
_msk->set_handler(F_DATARAF, dataraf_handler);
|
||||
_msk->set_handler(F_CHIAVE, chiave_handler);
|
||||
_msk->sfield(F_CHIAVE).set_notify(chiave_notify);
|
||||
|
||||
TMask& sm = _msk->sfield(F_CHIAVE).sheet_mask();
|
||||
sm.set_handler(S_CAMPO, campo_handler);
|
||||
|
||||
_print_msk= new TMask("sv1200b");
|
||||
|
||||
// files
|
||||
_files.add(new TLocalisamfile(LF_SVRIEP));
|
||||
_files.add(new TLocalisamfile(LF_SVSTAT));
|
||||
|
||||
@ -592,13 +873,13 @@ bool TStampa_stat::user_create()
|
||||
_clifor = new TLocalisamfile(LF_CLIFO);
|
||||
_agenti = new TLocalisamfile(LF_AGENTI);
|
||||
|
||||
_outstat = new TLocalisamfile(LF_SVSTAT);
|
||||
//_outstat = new TLocalisamfile(LF_SVSTAT);
|
||||
// cursore di stampa
|
||||
add_file(LF_SVSTAT);
|
||||
//add_cursor(new TCursor(new TRelation(LF_SVSTAT)));
|
||||
add_cursor(new TCursor(new TRelation(LF_SVSTAT)));
|
||||
|
||||
// impone force setpage
|
||||
force_setpage();
|
||||
//force_setpage();
|
||||
set_real_picture("");
|
||||
|
||||
return TRUE;
|
||||
@ -607,7 +888,7 @@ bool TStampa_stat::user_create()
|
||||
bool TStampa_stat::user_destroy()
|
||||
{
|
||||
delete _msk;
|
||||
if (_print_msk) delete _print_msk;
|
||||
delete _print_msk;
|
||||
|
||||
delete _liv_art;
|
||||
delete _liv_giac;
|
||||
@ -619,7 +900,7 @@ bool TStampa_stat::user_destroy()
|
||||
delete _anamag;
|
||||
delete _clifor;
|
||||
delete _agenti;
|
||||
delete _outstat;
|
||||
//delete _outstat;
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
@ -755,20 +1036,20 @@ void TStampa_stat::set_frequency()
|
||||
default :break;
|
||||
}
|
||||
|
||||
TString tmp;
|
||||
//TString tmp;
|
||||
for (const char* cod = codes.get(0); cod; cod = codes.get())
|
||||
{
|
||||
tmp = cod;
|
||||
const int pos = std_codes.get_pos(tmp);
|
||||
CHECK(pos >= 0, "Invalid frequency char");
|
||||
tmp = std_descr.get(pos);
|
||||
descr.add(tmp);
|
||||
//tmp = cod;
|
||||
//const int pos = std_codes.get_pos(tmp);
|
||||
//CHECK(pos >= 0, "Invalid frequency char");
|
||||
//std_descr.get(pos);
|
||||
descr.add(char2freqname(cod[0]));
|
||||
}
|
||||
|
||||
multiplo.replace_items(codes, descr);
|
||||
|
||||
// setta la durata dell'anno
|
||||
m.set(F_COL_ANNO, last_period(1992,_stats.frequency()));
|
||||
//m.set(F_COL_ANNO, last_period(1992,_stats.frequency()));
|
||||
|
||||
}
|
||||
|
||||
@ -825,14 +1106,16 @@ TString& TStampa_stat::build_key(const TRectype& rec)
|
||||
return _last_key;
|
||||
}
|
||||
|
||||
void TStampa_stat::update_file(const char * key, const char *lev_code,const char tipo, const int level, const int col, TSVriep_record& curr)
|
||||
void TStampa_stat::update_file(const char * key, const char *lev_code,const char tipo_dato, const int level, const int col, TSVriep_record& curr)
|
||||
{
|
||||
CHECK(col>=0,"Le colonne partono da 0");
|
||||
|
||||
static TRectype statrec(LF_SVSTAT);
|
||||
TToken_string cachekey(key);
|
||||
cachekey.rtrim();
|
||||
cachekey.add(tipo);
|
||||
cachekey.rtrim(); // necessario perché la chiave sia buona per l'hash table
|
||||
if (cachekey.blank())
|
||||
cachekey.add(" ");
|
||||
cachekey.add(tipo_dato);
|
||||
statrec = _cache->get(cachekey);
|
||||
if (_cache->io_result()!=NOERR)
|
||||
{
|
||||
@ -840,12 +1123,12 @@ void TStampa_stat::update_file(const char * key, const char *lev_code,const char
|
||||
statrec.put(SVS_CODICE,key);
|
||||
statrec.put(SVS_LEVCODE,lev_code);
|
||||
statrec.put(SVS_LIVELLO,level);
|
||||
statrec.put(SVS_TIPO,tipo);
|
||||
statrec.put(SVS_TIPO,tipo_dato);
|
||||
if (_msk->get(F_TIPODATO)=="Q")
|
||||
statrec.put(SVS_UMQTA,curr.get(SVR_UMQTA));
|
||||
}
|
||||
if (*lev_code== 'T') // totale generale
|
||||
statrec.put(SVS_DESCR,"Totale generale");
|
||||
statrec.put(SVS_DESCR,"");
|
||||
else
|
||||
statrec.put(SVS_DESCR,get_descrpart(lev_code,curr).left(SVS_LEN_DESCR));
|
||||
put_column(statrec,col,curr);
|
||||
@ -865,7 +1148,7 @@ void TStampa_stat::put_column(TRectype & statrec,int col,TSVriep_record& rieprec
|
||||
{
|
||||
r+=rieprec.get_real(SVR_VALORE);
|
||||
statrec.put(colname,r);
|
||||
statrec.put(SVS_TOTALERIGA,statrec.get_real(SVS_TOTALERIGA)+rieprec.get_real(SVR_VALORE));
|
||||
//statrec.put(SVS_TOTALERIGA,statrec.get_real(SVS_TOTALERIGA)+rieprec.get_real(SVR_VALORE));
|
||||
} else {
|
||||
if (statrec.get(SVR_UMQTA).not_empty())
|
||||
{
|
||||
@ -875,7 +1158,7 @@ void TStampa_stat::put_column(TRectype & statrec,int col,TSVriep_record& rieprec
|
||||
{
|
||||
r+=rieprec.get_real(SVR_QUANTITA)*fc;
|
||||
statrec.put(colname,r);
|
||||
statrec.put(SVS_TOTALERIGA,statrec.get_real(SVS_TOTALERIGA)+rieprec.get_real(SVR_QUANTITA)*fc);
|
||||
//statrec.put(SVS_TOTALERIGA,statrec.get_real(SVS_TOTALERIGA)+rieprec.get_real(SVR_QUANTITA)*fc);
|
||||
}
|
||||
} // no UM ? no valid data!
|
||||
}
|
||||
@ -964,10 +1247,11 @@ void TStampa_stat::invalid_columns(TRectype & statrec)
|
||||
sprintf(colname,"%s%d",SVS_COLNAME,col);
|
||||
statrec.put(colname,0);
|
||||
}
|
||||
statrec.put(SVS_TOTALERIGA,0);
|
||||
//statrec.put(SVS_TOTALERIGA,0);
|
||||
}
|
||||
|
||||
|
||||
// funzione di filtro del cursore
|
||||
bool TStampa_stat::filtro_chiavi(TSVriep_record &curr)
|
||||
{
|
||||
TSheet_field & s_chiave = selmask().sfield(F_CHIAVE);
|
||||
@ -982,7 +1266,10 @@ bool TStampa_stat::filtro_chiavi(TSVriep_record &curr)
|
||||
|
||||
code_campo=s_chiave.cell(l,s_chiave.cid2index(S_CAMPO));
|
||||
if (code_campo=="C") // cliente/fornitore ha in testa il TIPOCF
|
||||
{
|
||||
// ok &= curr.get_char(SVR_TIPOCF)==; !?!?! manca la selezione dei soli cli o for
|
||||
val_intero=atoi(get_part(code_campo,curr)+1);
|
||||
}
|
||||
else if (code_campo=="G") // agente è numerico
|
||||
val_intero=atoi(get_part(code_campo,curr));
|
||||
else
|
||||
@ -1027,12 +1314,11 @@ void TStampa_stat::set_ragg_per_um()
|
||||
void TStampa_stat::genera_file()
|
||||
{
|
||||
|
||||
TString key; // chiave per il record del file statistiche
|
||||
const TMask& m = selmask();
|
||||
const char alg=m.get(F_TIPOCALC)[0];
|
||||
const int columns = m.get_int(F_PERIODO); //numero di colonne osservate
|
||||
const int col_anno =m.get_int(F_COL_ANNO); //numero di colonne che formano un "Anno"
|
||||
const int first_col = - (alg=='M' ? col_anno-1:0); // prima colonna dati da osservare
|
||||
const int first_raffr = -m.get_int(F_RAFFRONTO)- (alg=='M' ? col_anno-1:0);// prima colonna dati da confrontare
|
||||
const int first_col = - (alg=='M' ? _col_anno-1:0); // prima colonna dati da osservare
|
||||
const int first_raffr = -m.get_int(F_RAFFRONTO)- (alg=='M' ? _col_anno-1:0);// prima colonna dati da confrontare
|
||||
const int first_data = first_raffr ; // prima colonna dati
|
||||
TSheet_field & s_chiave = m.sfield(F_CHIAVE);
|
||||
|
||||
@ -1074,35 +1360,35 @@ void TStampa_stat::genera_file()
|
||||
const TPeriodo periodo(fr_anno, fr_periodo);
|
||||
const int col = _freq.period2column(periodo);
|
||||
|
||||
if (col >= first_data && col < columns)
|
||||
if (col >= first_data && col < _numcol_dati)
|
||||
{
|
||||
standardize_um(curr); //!?!? eventualmente sarebbe utile forzare l'uso della standard se è una riga non comprendente l'articolo
|
||||
// costruisce il file statistiche...
|
||||
TString key,um;
|
||||
key.cut(0);
|
||||
for (int l=0; l< num_liv_output; l++)
|
||||
{
|
||||
static TString lev_code;
|
||||
lev_code=s_chiave.cell(l,s_chiave.cid2index(S_CAMPO));
|
||||
key << get_part(lev_code,curr);
|
||||
// setta il ragne in base all'algoritmo (Valori/progressivi/mobili)
|
||||
const int range=(alg=='V'? col : alg=='P' ? ((1+int(col/col_anno))*col_anno-1) : (col+col_anno-1));
|
||||
// setta il range in base all'algoritmo (Valori/progressivi/mobili)
|
||||
const int range=(alg=='V'? col : alg=='P' ? ((1+int(col/_col_anno))*_col_anno-1) : (col+_col_anno-1));
|
||||
if (col>=first_col) // periodo da osservare
|
||||
{
|
||||
if (l==0)
|
||||
for (int c=max(col,0);c <= range ; c++)
|
||||
update_file(" Totale","T",LINEA_DATI,num_liv_output,c,curr);
|
||||
update_file(" ","T",LINEA_DATI,num_liv_output,c,curr);
|
||||
if (*s_chiave.cell(l,s_chiave.cid2index(S_TOTALE))=='X')
|
||||
for (int c=max(col,0);c <= range ; c++)
|
||||
update_file(key,lev_code,LINEA_DATI,num_liv_output-l-1,c,curr);
|
||||
}
|
||||
if (first_raffr !=first_col && col >= first_raffr && col<=first_raffr+columns) // periodo da confrontare
|
||||
if (first_raffr !=first_col && col >= first_raffr && col<=first_raffr+_numcol_dati) // periodo da confrontare
|
||||
{
|
||||
if (l==0)
|
||||
for (int c=max(col,0); c <= range; c++)
|
||||
update_file(" Totale","T",LINEA_CONFRONTI, num_liv_output , c -first_raffr,curr);
|
||||
update_file(" Totale","T",LINEA_RAFFRONTI, num_liv_output , c -first_raffr,curr);
|
||||
if (*s_chiave.cell(l,s_chiave.cid2index(S_TOTALE))=='X')
|
||||
for (int c=max(col,0); c <= range; c++)
|
||||
update_file(key,lev_code,LINEA_CONFRONTI,num_liv_output-l-1, c -first_raffr , curr);
|
||||
update_file(key,lev_code,LINEA_RAFFRONTI,num_liv_output-l-1, c -first_raffr , curr);
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -1117,22 +1403,30 @@ void TStampa_stat::set_printmask()
|
||||
{
|
||||
TMask &mp=selmask();
|
||||
|
||||
if (_print_msk) delete _print_msk;
|
||||
_print_msk= new TMask("sv1200b");
|
||||
|
||||
const nlivelli=mp.sfield(F_CHIAVE).items();
|
||||
TString80 nomeliv;
|
||||
for (int f=0; f<nlivelli; f++)
|
||||
printmask().field(F_FLAGSTOTALI).set("X");
|
||||
for (int f=0; f<MAX_ROWS; f++)
|
||||
{
|
||||
nomeliv="Stampa totale ";
|
||||
nomeliv << partkey_name(mp.sfield(F_CHIAVE).cell(f,mp.sfield(F_CHIAVE).cid2index(S_CAMPO)));
|
||||
printmask().add_boolean(F_FLAGSTOTALI+f, 0 ,nomeliv,2+36*int(f/(18-Y_FLAGSTOTALI)),Y_FLAGSTOTALI+(f% (18-Y_FLAGSTOTALI)));
|
||||
TMask_field & flfl=printmask().field(F_FLAGSTOTALI+f+1);
|
||||
if (f<nlivelli)
|
||||
{
|
||||
nomeliv="Stampa totale ";
|
||||
nomeliv << partkey_name(mp.sfield(F_CHIAVE).cell(f,mp.sfield(F_CHIAVE).cid2index(S_CAMPO)));
|
||||
flfl.set_prompt(nomeliv);
|
||||
flfl.show();
|
||||
flfl.set("X");
|
||||
} else
|
||||
flfl.hide();
|
||||
}
|
||||
if (mp.get_date(F_DATARAF).empty())
|
||||
{
|
||||
printmask().field(F_STRAFFRONTO).disable();
|
||||
printmask().field(F_TIPORAFFRONTO).disable();
|
||||
}
|
||||
printmask().field(F_STRAFFRONTO).hide();
|
||||
printmask().field(F_TIPORAFFRONTO).hide();
|
||||
} else {
|
||||
printmask().field(F_STRAFFRONTO).show();
|
||||
printmask().field(F_TIPORAFFRONTO).show();
|
||||
}
|
||||
}
|
||||
|
||||
void TStampa_stat::esporta_file()
|
||||
@ -1176,7 +1470,10 @@ const TString& TStampa_stat::partkey_name(const char *lev_code)
|
||||
park="categoria di vendita";
|
||||
break;
|
||||
case 'C': // cliente / fornitore
|
||||
park="cliente";
|
||||
park="cliente ";
|
||||
break;
|
||||
case 'F': // cliente / fornitore
|
||||
park="fornitore";
|
||||
break;
|
||||
case 'G': // agente
|
||||
park="agente";
|
||||
@ -1190,6 +1487,9 @@ const TString& TStampa_stat::partkey_name(const char *lev_code)
|
||||
case 'U': // unità di misura
|
||||
park="unita' di misura";
|
||||
break;
|
||||
case 'T': // totale generale
|
||||
park="generale";
|
||||
break;
|
||||
default:
|
||||
fatal_box("ai chent recognaiz the code of the key part!");
|
||||
return "";
|
||||
@ -1198,12 +1498,25 @@ const TString& TStampa_stat::partkey_name(const char *lev_code)
|
||||
}
|
||||
|
||||
|
||||
const TString& TStampa_stat::get_part(const char *lev_code, TSVriep_record &rieprec) const
|
||||
void TStampa_stat::adjust_record(TRectype &strec, int from) const
|
||||
{
|
||||
char lev_code=strec.get_char(SVS_LEVCODE);
|
||||
if (lev_code=='F' || lev_code=='C')
|
||||
{
|
||||
TString &s =(TString &)strec.get(SVS_CODICE).mid(from);
|
||||
lev_code=s.shift();
|
||||
strec.put(SVS_CODICE,s);
|
||||
strec.put(SVS_LEVCODE,lev_code);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
const TString& TStampa_stat::get_part(TString & lev_code, TSVriep_record &rieprec) const
|
||||
{
|
||||
static TString park(' ',25);
|
||||
|
||||
int lev_code_num=atoi(lev_code+1);
|
||||
switch (*lev_code)
|
||||
switch (lev_code[0])
|
||||
{
|
||||
case 'D': // tipo documento
|
||||
return rieprec.get(SVR_TIPODOC);
|
||||
@ -1225,8 +1538,10 @@ const TString& TStampa_stat::get_part(const char *lev_code, TSVriep_record &riep
|
||||
case 'V': // cat. vendita
|
||||
park=rieprec.get(SVR_CATVEN);
|
||||
return park.rpad(3);
|
||||
case 'F': // cliente / fornitore
|
||||
case 'C': // cliente / fornitore
|
||||
park.format("%c%6d",rieprec.get_char(SVR_TIPOCF),rieprec.get_int(SVR_CODCF));
|
||||
lev_code[0]=rieprec.get_char(SVR_TIPOCF);
|
||||
park.format("%c%6d",lev_code[0],rieprec.get_int(SVR_CODCF));
|
||||
return park;
|
||||
case 'G': // agente
|
||||
park.format("%5d",rieprec.get_int(SVR_CODAG));
|
||||
@ -1269,6 +1584,7 @@ const TString& TStampa_stat::get_descrpart(const char *lev_code, TSVriep_record
|
||||
return _liv_giac->group_descr(rieprec.get(SVR_GIAC),lev_code_num);
|
||||
case 'V': // cat. vendita
|
||||
return _catven->get(rieprec.get(SVR_CATVEN)).get("S0");
|
||||
case 'F': // cliente
|
||||
case 'C': // cliente
|
||||
{
|
||||
_clifor->put(CLI_TIPOCF,rieprec.get_char(SVR_TIPOCF));
|
||||
@ -1339,6 +1655,8 @@ bool TStampa_stat::multiplo_handler(TMask_field& f, KEY k)
|
||||
m.set(F_NUMERO, n);
|
||||
m.disable(F_NUMERO);
|
||||
}
|
||||
// setta la durata dell'anno
|
||||
m.set(F_COL_ANNO, last_period(1992,freq));
|
||||
app().recalc_period();
|
||||
}
|
||||
return ok;
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user