d5f74f8a2c
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 98.01.03pl015 git-svn-id: svn://10.65.10.50/trunk@6570 c028cbd2-c16b-5b4b-a496-9718f37d4682
2072 lines
58 KiB
C++
Executable File
2072 lines
58 KiB
C++
Executable File
#include <printapp.h>
|
||
#include <mask.h>
|
||
#include <progind.h>
|
||
#include <urldefid.h>
|
||
#include <utility.h>
|
||
#include <xvtility.h>
|
||
|
||
#include "../mg/mglib.h"
|
||
#include "sv1.h"
|
||
#include "sv1200a.h"
|
||
#include "sv1200b.h"
|
||
#include "sv1200c.h"
|
||
#include "svlib01.h"
|
||
|
||
#include "svriep.h"
|
||
#include "svstat.h"
|
||
#include "..\mg\umart.h"
|
||
#include "..\mg\anamag.h"
|
||
#include "..\pr\agenti.h"
|
||
#include "..\ve\clifor.h"
|
||
|
||
#define STR_TOTGEN "T"
|
||
#define STR_TIPODOC "D"
|
||
#define STR_UMISURA "U"
|
||
#define STR_ARTICOLO "A"
|
||
#define STR_LIVGIAC "L"
|
||
#define STR_CATVEN "V"
|
||
#define STR_CLIFOR "C"
|
||
#define STR_AGENTE "G"
|
||
#define STR_MAGAZZ "M"
|
||
#define STR_ZONA "Z"
|
||
|
||
#define CHR_TOTGEN 'T'
|
||
#define CHR_TIPODOC 'D'
|
||
#define CHR_UMISURA 'U'
|
||
#define CHR_ARTICOLO 'A'
|
||
#define CHR_LIVGIAC 'L'
|
||
#define CHR_CATVEN 'V'
|
||
#define CHR_CLIFOR 'C'
|
||
#define CHR_CLI 'C'
|
||
#define CHR_FOR 'F'
|
||
#define CHR_AGENTE 'G'
|
||
#define CHR_MAGAZZ 'M'
|
||
#define CHR_ZONA 'Z'
|
||
|
||
#define COMP_AS_VALUE 'V'
|
||
#define COMP_AS_DIFF 'D'
|
||
#define COMP_AS_PERC 'P'
|
||
|
||
//#define RIGA_MERCE "M"
|
||
//#define RIGA_PRESTAZIONI "P"
|
||
//#define RIGA_OMAGGI "O"
|
||
|
||
#define COLONNA_VALORE "V"
|
||
#define COLONNA_QTA "Q"
|
||
|
||
#define ALG_VALORI 'V'
|
||
#define ALG_PROGRESSIVI 'P'
|
||
#define ALG_MOBILI 'M'
|
||
|
||
#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) ==COLONNA_VALORE ? PICTURE_VALORI:PICTURE_QUANTITA)
|
||
|
||
|
||
#define FORMWIDTH 150
|
||
#define DEFAULT_OUTFILE "outstat0"
|
||
///////////////////////////////////////////////////////////
|
||
// TPeriodo
|
||
///////////////////////////////////////////////////////////
|
||
|
||
class TPeriodo : public TSortable
|
||
{
|
||
static TFrequenza_statistiche _frequenza;
|
||
|
||
int _anno;
|
||
int _periodo;
|
||
|
||
protected:
|
||
virtual int compare(const TSortable& s) const;
|
||
|
||
void set(const TPeriodo& ap) { set(ap._anno, ap._periodo); }
|
||
|
||
public:
|
||
static void set_frequency(TFrequenza_statistiche f)
|
||
{ CHECK(f != fs_nulla, "Frequenza nulla"); _frequenza = f; }
|
||
static TFrequenza_statistiche frequency() { return _frequenza; }
|
||
|
||
int operator -(const TPeriodo& ap) const;
|
||
int difference(const TPeriodo& p, TFrequenza_statistiche freq) const;
|
||
const TPeriodo& operator +=(int n);
|
||
const TPeriodo& sum(int n, TFrequenza_statistiche freq);
|
||
|
||
TDate first_day() const;
|
||
TDate last_day() const;
|
||
|
||
void set_year(int y);
|
||
void set_period(int p);
|
||
void set(int y, int p) { set_year(y); set_period(p); }
|
||
void set(const TDate& d);
|
||
|
||
const TPeriodo& operator=(const TPeriodo& ap) { set(ap); return ap; }
|
||
const TPeriodo& operator=(const TDate& d) { set(d); return *this; }
|
||
|
||
TPeriodo() : _anno(1900), _periodo(1) { }
|
||
TPeriodo(int anno, int periodo) { set(anno, periodo); }
|
||
TPeriodo(const TDate& d) { set(d); }
|
||
TPeriodo(const TPeriodo& ap) { set(ap); }
|
||
virtual ~TPeriodo() { }
|
||
};
|
||
|
||
TFrequenza_statistiche TPeriodo::_frequenza = fs_nulla;
|
||
|
||
int TPeriodo::compare(const TSortable& s) const
|
||
{
|
||
const TPeriodo& ap = (const TPeriodo&)s;
|
||
int diff = _anno - ap._anno;
|
||
if (diff == 0)
|
||
diff = _periodo - ap._periodo;
|
||
return diff;
|
||
}
|
||
|
||
int TPeriodo::operator -(const TPeriodo& ap) const
|
||
{
|
||
int result = 0;
|
||
int annomin, periodomin, annomax, periodomax;
|
||
|
||
const bool swapped = compare(ap) < 0;
|
||
if (swapped)
|
||
{
|
||
annomin = _anno;
|
||
periodomin = _periodo;
|
||
annomax = ap._anno;
|
||
periodomax = ap._periodo;
|
||
}
|
||
else
|
||
{
|
||
annomin = ap._anno;
|
||
periodomin = ap._periodo;
|
||
annomax = _anno;
|
||
periodomax = _periodo;
|
||
}
|
||
if (annomin < annomax)
|
||
{
|
||
result += last_period(annomin, _frequenza) - periodomin + 1;
|
||
for (annomin++; annomin < annomax; annomin++)
|
||
result += last_period(annomin, _frequenza);
|
||
periodomin = 1;
|
||
}
|
||
result += periodomax - periodomin;
|
||
|
||
return swapped ? -result : result;
|
||
}
|
||
|
||
int TPeriodo::difference(const TPeriodo& p, TFrequenza_statistiche freq) const
|
||
{
|
||
CHECK(freq > _frequenza, "Incomputable difference");
|
||
const TDate d1 = first_day();
|
||
const TDate d2 = p.first_day();
|
||
|
||
const TFrequenza_statistiche old_freq = _frequenza;
|
||
_frequenza = freq;
|
||
|
||
const TPeriodo p1(d1);
|
||
const TPeriodo p2(d2);
|
||
const int diff = p1 - p2;
|
||
|
||
_frequenza = old_freq;
|
||
|
||
return diff;
|
||
}
|
||
|
||
const TPeriodo& TPeriodo::operator +=(int n)
|
||
{
|
||
// Sembra orrendo ma per ora e' modo piu' sicuro!
|
||
|
||
if (n >= 0)
|
||
{
|
||
for (int i = n; i > 0; i--)
|
||
{
|
||
_periodo++;
|
||
if (_periodo > last_period(_anno, _frequenza))
|
||
{
|
||
_anno++;
|
||
_periodo = 1;
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
for (int i = n; i < 0; i++)
|
||
{
|
||
_periodo--;
|
||
if (_periodo <= 0)
|
||
{
|
||
_anno--;
|
||
_periodo = last_period(_anno, _frequenza);
|
||
}
|
||
}
|
||
}
|
||
return *this;
|
||
}
|
||
|
||
const TPeriodo& TPeriodo::sum(int n, TFrequenza_statistiche freq)
|
||
{
|
||
CHECK(freq > _frequenza, "Incomputable sum");
|
||
TDate d = first_day();
|
||
|
||
const TFrequenza_statistiche old_freq = _frequenza;
|
||
_frequenza = freq;
|
||
|
||
TPeriodo p1(d);
|
||
p1 += n;
|
||
d = p1.first_day();
|
||
|
||
_frequenza = old_freq;
|
||
|
||
set(d);
|
||
return *this;
|
||
}
|
||
|
||
TDate TPeriodo::first_day() const
|
||
{
|
||
TDate d(1, 1, _anno);
|
||
switch(_frequenza)
|
||
{
|
||
case fs_annuale : break;
|
||
case fs_semestrale : if (_periodo > 1) d.set_month(7); break;
|
||
case fs_quadrimestrale: d.set_month((_periodo - 1) * 4 + 1); break;
|
||
case fs_trimestrale : d.set_month((_periodo - 1) * 3 + 1); break;
|
||
case fs_bimestrale : d.set_month((_periodo - 1) * 2 + 1); break;
|
||
case fs_mensile : d.set_month(_periodo); break;
|
||
case fs_quindicinale : d.set_month((_periodo - 1) / 2 + 1);
|
||
if ((_periodo & 0x1) == 0) d.set_day(16);
|
||
break;
|
||
case fs_settimanale : d += 7 * (_periodo - 1); break;
|
||
case fs_giornaliera : d += _periodo - 1;
|
||
}
|
||
return d;
|
||
}
|
||
|
||
TDate TPeriodo::last_day() const
|
||
{
|
||
TDate d = first_day();
|
||
ceil(d, _frequenza);
|
||
return d;
|
||
}
|
||
|
||
void TPeriodo::set_year(int y)
|
||
{
|
||
CHECKD(y >= 1900 && y < 3000, "Bad year ", y);
|
||
_anno = y;
|
||
}
|
||
|
||
void TPeriodo::set_period(int p)
|
||
{
|
||
CHECKD(p > 0 && p <= last_period(_anno, _frequenza), "Bad period ", p);
|
||
_periodo = p;
|
||
}
|
||
|
||
void TPeriodo::set(const TDate& d)
|
||
{
|
||
set(d.year(), date2period(d, _frequenza));
|
||
}
|
||
|
||
///////////////////////////////////////////////////////////
|
||
// TFrequenza_colonne
|
||
///////////////////////////////////////////////////////////
|
||
|
||
class TFrequenza_colonne : public TObject
|
||
{
|
||
TFrequenza_statistiche _frequenza;
|
||
int _multiplo;
|
||
TPeriodo _periodo_inizio;
|
||
TDate _data_inizio;
|
||
|
||
public:
|
||
void init(TFrequenza_statistiche f, int m, const TDate& d);
|
||
|
||
int period2column(const TPeriodo& p) const;
|
||
int date2column(const TDate& d) const;
|
||
TDate column_first_day(int n) const;
|
||
TDate column_last_day(int n) const;
|
||
|
||
const TPeriodo& inizio() const { return _periodo_inizio; }
|
||
};
|
||
|
||
void TFrequenza_colonne::init(TFrequenza_statistiche f, int m, const TDate& d)
|
||
{
|
||
_frequenza = (f == fs_nulla || m <= 0) ? TPeriodo::frequency() : f;
|
||
_multiplo = (m <= 0) ? divide(_frequenza, TPeriodo::frequency()) : m;
|
||
_periodo_inizio = d;
|
||
_data_inizio = _periodo_inizio.first_day();
|
||
}
|
||
|
||
int TFrequenza_colonne::period2column(const TPeriodo& p) const
|
||
{
|
||
int result;
|
||
|
||
if (_multiplo > 0)
|
||
{
|
||
int diff = p - _periodo_inizio;
|
||
result = diff / _multiplo;
|
||
if (p < _periodo_inizio)
|
||
result--;
|
||
}
|
||
else
|
||
result = p.difference(_periodo_inizio, _frequenza);
|
||
|
||
return result;
|
||
}
|
||
|
||
int TFrequenza_colonne::date2column(const TDate& d) const
|
||
{
|
||
const TPeriodo p(d);
|
||
return period2column(p);
|
||
}
|
||
|
||
TDate TFrequenza_colonne::column_first_day(int n) const
|
||
{
|
||
TPeriodo p(_periodo_inizio);
|
||
if (_multiplo > 0)
|
||
p += n * _multiplo;
|
||
else
|
||
p.sum(n, _frequenza);
|
||
|
||
TDate d = p.first_day();
|
||
return d;
|
||
}
|
||
|
||
TDate TFrequenza_colonne::column_last_day(int n) const
|
||
{
|
||
TDate d = column_first_day(n+1);
|
||
--d;
|
||
return d;
|
||
}
|
||
|
||
///////////////////////////////////////////////////////////
|
||
// Stampa statistiche
|
||
///////////////////////////////////////////////////////////
|
||
|
||
class TStampa_stat : public TPrint_application
|
||
{
|
||
enum { MAX_ROWS = 8 }; // numero massimo di raggruppamenti
|
||
|
||
enum { LINEA_DATI='D', LINEA_RAFFRONTI='R', LINEA_TARGET='T'}; // codici per le righe
|
||
|
||
TMask * _msk, *_print_msk,*_export_msk;
|
||
TStats_agg _stats;
|
||
TFrequenza_colonne _freq;
|
||
TCodart_livelli* _liv_art;
|
||
TCodgiac_livelli* _liv_giac;
|
||
TRecord_cache *_magazz,*_tipodoc,*_catven,*_zone,*_ums;
|
||
TLocalisamfile * _umart,*_anamag,*_clifor,*_agenti;
|
||
|
||
TToken_string _key;
|
||
TString _last_key;
|
||
TArray _files;
|
||
|
||
bool _ragg_per_um;
|
||
|
||
// ******************
|
||
// costruzione file di Output
|
||
TStat_cache * _svcache; // cache R/W per le statistiche
|
||
|
||
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
|
||
bool _st_tota; // flag stampa totali di "anno"
|
||
static TString s_park; // stringa di lavoro
|
||
// ******************
|
||
// stampa file di Output
|
||
TString _wrk_row; // stringa di lavoro per le righe di stampa
|
||
TRelation * _rel; // relazione per la stampa
|
||
private:
|
||
|
||
|
||
void put_column(TRectype & statrec,int col,TSVriep_record& curr);
|
||
const real fc_um(TRectype & statrec,const TSVriep_record& rieprec);
|
||
void invalid_columns(TRectype & statrec);
|
||
void standardize_um(TSVriep_record& rieprec, bool force=FALSE);
|
||
|
||
// generazione del file di output
|
||
void set_ragg_per_um();
|
||
bool filtro_chiavi(TSVriep_record &curr);
|
||
void update_file(const char * key, const char * code,const char tipo, const int level, const int col, TSVriep_record& curr);
|
||
void genera_file(const char *outfn);
|
||
|
||
// handler per i campi di maschera
|
||
static bool chiave_notify(TSheet_field& f, int r, KEY k);
|
||
static bool chiave_handler(TMask_field& f, KEY k);
|
||
static bool campo_handler(TMask_field& f, KEY k);
|
||
|
||
static bool filename_handler(TMask_field& f, KEY k);
|
||
static bool codice_handler(TMask_field& f, KEY k);
|
||
static bool multiplo_handler(TMask_field& f, KEY k);
|
||
static bool numero_handler(TMask_field& f, KEY k);
|
||
static bool periodo_handler(TMask_field& f, KEY k);
|
||
static bool dataini_handler(TMask_field& f, KEY k);
|
||
static bool datafin_handler(TMask_field& f, KEY k);
|
||
static bool raffronto_handler(TMask_field& f, KEY k);
|
||
static bool dataraf_handler(TMask_field& f, KEY k);
|
||
protected:
|
||
virtual bool user_create();
|
||
virtual bool user_destroy();
|
||
virtual bool set_print(int i);
|
||
virtual void set_page(int file, int count);
|
||
|
||
virtual bool preprocess_print(int file, int counter) ;
|
||
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 on_config_change();
|
||
|
||
int handle_levchange(int row,const int level);
|
||
int set_rows_colonne(int row, TRectype &strec);
|
||
void set_row_atpos(char section,int row,const char * f,int pos);
|
||
void set_filled_row(char section,int row,char c,int pos, int len);
|
||
void reset_grplevels();
|
||
|
||
bool test_field(const TString& cod, TMask_field& f) const;
|
||
|
||
void set_printmask();
|
||
|
||
void fill_field_list(TMask& m);
|
||
void set_frequency();
|
||
bool set_column_frequency();
|
||
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; }
|
||
TMask& expmask() { return *_export_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)
|
||
{
|
||
return TPrint_application::preprocess_page(file,count);
|
||
}
|
||
|
||
print_action TStampa_stat::postprocess_page(int file, int count)
|
||
{
|
||
reset_print();
|
||
return TPrint_application::postprocess_page(file,count);
|
||
}
|
||
|
||
|
||
bool TStampa_stat::set_print(int i)
|
||
{
|
||
|
||
if (printmask().run() == K_QUIT)
|
||
return FALSE;
|
||
_st_totr=printmask().get_bool(F_STTOTALIRIGA);
|
||
_st_totc=printmask().get_bool(F_STTOTALICOL);
|
||
_st_tota=printmask().get_bool(F_STTOTALIANNO);
|
||
_largcol = (_st_totr ? LARG_COLPERC : 0 ) + (selmask().get(F_TIPODATO)==COLONNA_VALORE ? LARG_COLVAL : LARG_COLQTA); // valori o quantit<69>
|
||
_numcol_dati = selmask().get_int(F_PERIODO);
|
||
_col_anno =min(_numcol_dati,printmask().get_int(F_COLANNO)); //numero di colonne che formano un "Anno"
|
||
_numcol = _numcol_dati+ (_st_tota ? int((_numcol_dati -1)/_col_anno+1) : 0);
|
||
// _pagewidth=POS_PRIMACOL+int((printer().formwidth()-POS_PRIMACOL)/_largcol)*_largcol;
|
||
_pagewidth=POS_PRIMACOL+int((printer().calc_num_cols()-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(3);
|
||
|
||
return (TRUE);
|
||
}
|
||
|
||
|
||
bool TStampa_stat::preprocess_print(int file, int counter)
|
||
{
|
||
// _pagewidth=POS_PRIMACOL+int((printer().formwidth()-POS_PRIMACOL)/_largcol)*_largcol;
|
||
return TRUE;
|
||
}
|
||
|
||
void TStampa_stat::preprocess_footer()
|
||
{
|
||
set_filled_row('F',1,'_',0,_pagewidth);
|
||
_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,col=0,row=0,lastrow;
|
||
|
||
// *****************
|
||
// header
|
||
set_header(++row,"");
|
||
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_tota && c && (((c+1)%(_col_anno+1))==0 || c==_numcol-1) )
|
||
{
|
||
set_row_atpos('H',row,nome_totale(1+int((c-1)/_col_anno) ),POS_PRIMACOL+c*_largcol+_largcol/2 );
|
||
} else {
|
||
_wrk_row=nome_colonna1(col);
|
||
set_row_atpos('H',row,_wrk_row,POS_PRIMACOL+c*_largcol );
|
||
_wrk_row=nome_colonna2(col);
|
||
if (_wrk_row.not_empty())
|
||
{
|
||
lastrow=row+1;
|
||
set_row_atpos('H',row+1,_wrk_row,POS_PRIMACOL+c*_largcol);
|
||
}
|
||
col++;
|
||
}
|
||
if (_st_totr)
|
||
{
|
||
lastrow=row+1;
|
||
set_row_atpos('H',row+1,"Perc.",POS_PRIMACOL+(c+1)*_largcol-LARG_COLPERC+1);
|
||
}
|
||
}
|
||
row=lastrow;
|
||
set_header(++row,"");
|
||
// *****************
|
||
// background
|
||
const int lasthline=(printmask().get_bool(F_STRAFFRONTO )? 5 :4);
|
||
_wrk_row.format("PnW1l(1,2,%d,2)l(1,%d,%d,%d)l(1,%d,%d,%d)",_pagewidth,lasthline,_pagewidth,lasthline,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<70> essere un qualsiasi multiplo della freq
|
||
s_park.format("%s %d-%d",(const char *)char2freqname(code_freq),1+(start+c*numero-1)%lastp , 1+(start+(c+1)*numero-2)%lastp);
|
||
} else {
|
||
switch (code_freq)
|
||
{
|
||
case 'A':
|
||
default:
|
||
s_park.format("%d^%s",1+(start+c-1)%lastp,(const char *)char2freqname(code_freq));
|
||
}
|
||
}
|
||
s_park.center_just(_largcol);
|
||
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));
|
||
}
|
||
}
|
||
s_park.center_just(LARG_COLVAL);
|
||
return s_park;
|
||
}
|
||
|
||
const TString& TStampa_stat::nome_totale(int c)
|
||
{
|
||
const char code_freq=selmask().get(F_MULTIPLO)[0];
|
||
s_park="";
|
||
{
|
||
switch (code_freq)
|
||
{
|
||
case 'A':
|
||
default:
|
||
s_park.format("Totale %d",c);
|
||
}
|
||
}
|
||
return s_park;
|
||
}
|
||
|
||
void TStampa_stat::set_page(int file, int count)
|
||
{
|
||
// prepara la pagina di stampa
|
||
TRectype & strec=current_cursor()->curr();
|
||
const int level=strec.get_int(SVS_LIVELLO);
|
||
|
||
int row=0;
|
||
|
||
// *****************
|
||
// gestione totali di raggruppamento
|
||
row = handle_levchange(row, level);
|
||
if (level>0)
|
||
{
|
||
// salva i record dei livelli di raggruppamento
|
||
if (level==numlevels())
|
||
strec.put(SVS_CODICE,"");
|
||
_group_recs.add(strec,level);
|
||
}
|
||
// *****************
|
||
// gestione delle "righe"
|
||
if (level != numlevels() &&
|
||
printmask().get_bool(F_FLAGSTOTALI+numlevels()-level))
|
||
{
|
||
TString r;
|
||
|
||
switch (*strec.get(SVS_TIPO))
|
||
{
|
||
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;
|
||
}
|
||
}
|
||
// *****************
|
||
// totale generale e break di livello
|
||
if (current_cursor()->pos() == current_cursor()->items()-1)
|
||
{
|
||
handle_levchange(row, numlevels());
|
||
}
|
||
}
|
||
|
||
// fa le set row per la "riga" contenente i valori delle colonne di statistica
|
||
int TStampa_stat::set_rows_colonne(int row,TRectype &strec)
|
||
{
|
||
// !!!!!!!!! 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 riga
|
||
if (strec.get_char(SVS_TIPO)==LINEA_DATI ||
|
||
strec.get_char(SVS_TIPO)==LINEA_RAFFRONTI && printmask().get(F_TIPORAFFRONTO)[0]==COMP_AS_VALUE)
|
||
{
|
||
for (col=0; col < _numcol_dati; col++)
|
||
{
|
||
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 LINEA_RAFFRONTI:
|
||
switch (printmask().get(F_TIPORAFFRONTO)[0])
|
||
{
|
||
case COMP_AS_VALUE:
|
||
set_row_atpos('R',row, strec.get_real(colname).string(PICTURE),position);
|
||
break;
|
||
case COMP_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 COMP_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 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 (_st_totr && aggiungi_perc && !_tot_riga[int(c/_col_anno)].is_zero())
|
||
{
|
||
set_row_atpos('R',row,((real)(strec.get_real(colname)/_tot_riga[int(c/_col_anno)]*100.0)).string(PICTURE_PERCENT),position+_largcol-LARG_COLPERC);
|
||
}
|
||
// riga con i totali di colonna
|
||
if (_st_totc && aggiungi_perc )
|
||
{
|
||
TRectype & _rec_totale=(TRectype &)_group_recs[numlevels()];
|
||
if (!_rec_totale.get_real(colname).is_zero())
|
||
{
|
||
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,position+_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_tota && aggiungi_perc && (((c+1)%_col_anno)==0 || c== _numcol_dati-1))
|
||
{
|
||
col++;
|
||
position = POS_PRIMACOL+col*_largcol;
|
||
set_row_atpos('R',row,(const char *)_tot_riga[int(c/_col_anno)].string(PICTURE),position);
|
||
if (_st_totr && aggiungi_perc)
|
||
set_row_atpos('R',row,(const char *)real(100).string(PICTURE_PERCENT),position+_largcol-LARG_COLPERC);
|
||
}
|
||
col++;
|
||
}
|
||
if (_st_totc)
|
||
++row;
|
||
return row;
|
||
}
|
||
|
||
|
||
void TStampa_stat::set_filled_row(char section,int row,char c,int pos,int len)
|
||
{
|
||
const int MAX=100; // limite massimo per una singola set_row; 5 char per costruire la goto
|
||
while (len> MAX )
|
||
{
|
||
_wrk_row.fill(c,MAX);
|
||
set_row_atpos(section,row,(const char *)_wrk_row,pos);
|
||
len-=MAX;
|
||
pos+=MAX;
|
||
}
|
||
_wrk_row.fill(c,len);
|
||
set_row_atpos(section,row,(const char *)_wrk_row,pos);
|
||
}
|
||
|
||
|
||
|
||
// fa le set_row per la "riga" contenente i valori delle colonne di statistica
|
||
void TStampa_stat::set_row_atpos(char section,int nrow,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!
|
||
}
|
||
else //: too much to the right: will be printed next time!
|
||
repeat_print();
|
||
switch (section)
|
||
{
|
||
case 'R': set_row(nrow,ss); break;
|
||
case 'H': set_header(nrow,ss); break;
|
||
case 'F': set_footer(nrow,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)
|
||
|| _last_lev_grp==numlevels())
|
||
{
|
||
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);
|
||
|
||
set_filled_row('R',++row,'-',POS_PRIMACOL,_pagewidth-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::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()
|
||
{
|
||
_stats.init();
|
||
if (_stats.frequency()==fs_nulla)
|
||
return error_box("Configurare prima la frequenza statistica per questa ditta");
|
||
|
||
// ************
|
||
// maschere
|
||
_msk = new TMask("sv1200a");
|
||
_msk->set_handler(F_CODICE, codice_handler);
|
||
_msk->set_handler(F_MULTIPLO, multiplo_handler);
|
||
_msk->set_handler(F_NUMERO, numero_handler);
|
||
_msk->set_handler(F_PERIODO, periodo_handler);
|
||
_msk->set_handler(F_DATAINI, dataini_handler);
|
||
_msk->set_handler(F_DATAFIN, datafin_handler);
|
||
_msk->set_handler(F_RAFFRONTO, raffronto_handler);
|
||
_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");
|
||
|
||
_export_msk = new TMask("sv1200c");
|
||
_export_msk->set_handler(F_FILENAME, filename_handler);
|
||
// ************
|
||
// files
|
||
_files.add(new TLocalisamfile(LF_SVRIEP));
|
||
_files.add(new TLocalisamfile(LF_SVSTAT));
|
||
// ************
|
||
// oggetti per la gestione delle parti del codice
|
||
_liv_art = new TCodart_livelli;
|
||
_liv_giac = new TCodgiac_livelli;
|
||
|
||
_magazz = new TRecord_cache("MAG");
|
||
_ums = new TRecord_cache("%UMS");
|
||
_tipodoc = new TRecord_cache("%NUM");
|
||
_catven = new TRecord_cache("CVE");
|
||
_zone = new TRecord_cache("ZON");
|
||
|
||
_umart = new TLocalisamfile(LF_UMART);
|
||
_anamag = new TLocalisamfile(LF_ANAMAG);
|
||
_clifor = new TLocalisamfile(LF_CLIFO);
|
||
_agenti = new TLocalisamfile(LF_AGENTI);
|
||
|
||
// ************
|
||
// cursore di stampa
|
||
add_file(LF_SVSTAT);
|
||
add_cursor(new TCursor(new TRelation(LF_SVSTAT)));
|
||
|
||
// cache per l'output
|
||
_svcache=NULL;
|
||
|
||
set_real_picture("");
|
||
return TRUE;
|
||
}
|
||
|
||
bool TStampa_stat::user_destroy()
|
||
{
|
||
// maschere
|
||
delete _msk;
|
||
delete _print_msk;
|
||
delete _export_msk;
|
||
// livelli di codice
|
||
delete _liv_art;
|
||
delete _liv_giac;
|
||
// cancella le cache
|
||
delete _ums;
|
||
delete _magazz;
|
||
delete _tipodoc;
|
||
delete _catven;
|
||
delete _zone;
|
||
// cancella i files
|
||
delete _umart;
|
||
delete _anamag;
|
||
delete _clifor;
|
||
delete _agenti;
|
||
|
||
delete current_cursor()->relation();
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
bool TStampa_stat::menu(MENU_TAG )
|
||
{
|
||
TMask& m = selmask();
|
||
TSheet_field& sheet = m.sfield(F_CHIAVE);
|
||
TString tmp;
|
||
KEY k;
|
||
while ((k = m.run()) != K_QUIT)
|
||
{
|
||
_numcol_dati = m.get_int(F_PERIODO);
|
||
|
||
set_column_frequency();
|
||
|
||
_key.cut(0);
|
||
for (int r = 0; r < sheet.items(); r++)
|
||
{
|
||
tmp = sheet.row(r).get(0);
|
||
if (!tmp.blank())
|
||
_key.add(tmp);
|
||
}
|
||
|
||
if (k == K_SAVE)
|
||
{
|
||
set_ragg_per_um();
|
||
if (expmask().run()!=K_ESC)
|
||
{
|
||
TFilename fname(expmask().get(F_FILENAME));
|
||
fname.insert("%");
|
||
genera_file(fname);
|
||
}
|
||
} else {
|
||
TFilename fname("svs");
|
||
genera_file(fname);
|
||
TIsamtempfile * f = new TIsamtempfile(LF_SVSTAT,fname,FALSE,TRUE);
|
||
set_printmask();
|
||
current_cursor()->relation()->replace(f);
|
||
do_print(1);
|
||
current_cursor()->relation()->replace(new TLocalisamfile(LF_SVSTAT));
|
||
}
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
|
||
void TStampa_stat::fill_field_list(TMask& m)
|
||
{
|
||
// opzioni per il tipo di dato
|
||
TList_field& tipoart = (TList_field&)m.field(F_TIPOART);
|
||
TToken_string codes, descr;
|
||
codes << RIGA_MERCE << '|' << RIGA_PRESTAZIONI;
|
||
descr = "Merce|Prestazioni";
|
||
if (!_stats.omaggio_is_merce())
|
||
{
|
||
codes.add(RIGA_OMAGGI);
|
||
descr.add("Omaggi");
|
||
}
|
||
tipoart.replace_items(codes, descr);
|
||
|
||
// opzioni per i campi della chiave
|
||
TSheet_field& s = m.sfield(F_CHIAVE);
|
||
TMask& sm = s.sheet_mask();
|
||
|
||
TString_array& list = sm.efield(S_CAMPO).sheet()->rows_array();
|
||
list.destroy();
|
||
|
||
TToken_string row(80);
|
||
|
||
TCodart_livelli& cal = *_liv_art;
|
||
for (int l = 0; l <= cal.last_level(); l++)
|
||
{
|
||
if (l && !cal.enabled(l))
|
||
continue;
|
||
|
||
row = STR_ARTICOLO;
|
||
if (l) row << l;
|
||
|
||
row.add("Codice articolo");
|
||
if (l) row << '[' << l << ']';
|
||
|
||
list.add(row);
|
||
}
|
||
|
||
TCodgiac_livelli& cgl = *_liv_giac;
|
||
for (l = 0; l <= cgl.last_level(); l++)
|
||
{
|
||
if (l && !cgl.enabled(l))
|
||
continue;
|
||
|
||
row = STR_LIVGIAC;
|
||
if (l) row << l;
|
||
|
||
row.add("Livello giacenza");
|
||
if (l) row << '[' << l << ']';
|
||
list.add(row);
|
||
}
|
||
|
||
list.add("U|Unita' di misura");
|
||
list.add("D|Tipo documento");
|
||
list.add("V|Categoria vendita");
|
||
list.add("C|Codice cliente");
|
||
list.add("G|Codice agente");
|
||
list.add("Z|Codice zona");
|
||
list.add("M|Codice magazzino");
|
||
}
|
||
|
||
void TStampa_stat::set_frequency()
|
||
{
|
||
TPeriodo::set_frequency(_stats.frequency());
|
||
|
||
TMask& m = selmask();
|
||
|
||
char freq[2] = { frequency2char(_stats.frequency()), '\0' };
|
||
m.set(F_FREQUENZA, freq);
|
||
|
||
TList_field& multiplo = (TList_field&)m.field(F_MULTIPLO);
|
||
if (_stats.frequency() == fs_settimanale)
|
||
{
|
||
multiplo.reset();
|
||
multiplo.disable();
|
||
}
|
||
else
|
||
multiplo.enable();
|
||
|
||
TToken_string std_codes("G|S|Q|1|2|3|4|6|A");
|
||
TToken_string std_descr("Giorni|Settimane|Quindicine|Mesi|"
|
||
"Bimestri|Trimestri|Quadrimestri|Semestri|Anni");
|
||
|
||
TToken_string codes(8), descr(80);
|
||
switch(_stats.frequency())
|
||
{
|
||
case fs_giornaliera : codes = std_codes; break;
|
||
case fs_settimanale : codes = "S|3|6|A"; break;
|
||
case fs_quindicinale : codes = std_codes.mid(4); break;
|
||
case fs_mensile : codes = std_codes.mid(6); break;
|
||
case fs_bimestrale : codes = "2|4|6|A"; break;
|
||
case fs_trimestrale : codes = "3|6|A"; break;
|
||
case fs_quadrimestrale: codes = "4|A"; break;
|
||
case fs_semestrale : codes = "6|A"; break;
|
||
case fs_annuale : codes = "A"; break;
|
||
default :break;
|
||
}
|
||
|
||
//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");
|
||
//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()));
|
||
|
||
}
|
||
|
||
void TStampa_stat::on_config_change()
|
||
{
|
||
_stats.init();
|
||
_liv_art->init();
|
||
_liv_giac->init();
|
||
|
||
set_frequency();
|
||
|
||
fill_field_list(*_msk);
|
||
}
|
||
|
||
bool TStampa_stat::set_column_frequency()
|
||
{
|
||
const TMask& m = selmask();
|
||
const TDate data_inizio = m.get(F_DATAINI);
|
||
bool ok = data_inizio.year() >= 1900;
|
||
if (ok)
|
||
{
|
||
const TFrequenza_statistiche multiplo = char2frequency(m.get(F_MULTIPLO)[0]);
|
||
const int numero = m.get_int(F_NUMERO);
|
||
_freq.init(multiplo, numero, data_inizio);
|
||
}
|
||
return ok;
|
||
}
|
||
|
||
TString& TStampa_stat::build_key(const TRectype& rec)
|
||
{
|
||
_last_key.cut(0);
|
||
TString16 tmp;
|
||
for (const char* field = _key.get(0); field; field = _key.get())
|
||
{
|
||
tmp = field;
|
||
switch(tmp[0])
|
||
{
|
||
case 'A':
|
||
if (tmp[1] > '0')
|
||
{
|
||
const int liv = tmp[1] - '0';
|
||
const int start = _liv_art->code_start(liv);
|
||
const int len = _liv_art->code_length(liv);
|
||
tmp = rec.get(SVR_CODART).mid(start, len);
|
||
_last_key << tmp;
|
||
}
|
||
else
|
||
_last_key << rec.get(SVR_CODART);
|
||
break;
|
||
default:
|
||
break;
|
||
}
|
||
}
|
||
return _last_key;
|
||
}
|
||
|
||
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(); // necessario perch<63> la chiave sia buona per l'hash table
|
||
if (cachekey.blank())
|
||
cachekey.add(" ");
|
||
cachekey.add(tipo_dato);
|
||
|
||
statrec = _svcache->get(cachekey);
|
||
if (_svcache->io_result()!=NOERR)
|
||
{
|
||
// nuovo record;
|
||
statrec.put(SVS_CODICE,key);
|
||
statrec.put(SVS_LEVCODE,lev_code);
|
||
statrec.put(SVS_LIVELLO,level);
|
||
statrec.put(SVS_TIPO,tipo_dato);
|
||
if (_msk->get(F_TIPODATO)==COLONNA_QTA)
|
||
statrec.put(SVS_UMQTA,curr.get(SVR_UMQTA));
|
||
}
|
||
if (*lev_code== CHR_TOTGEN) // 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);
|
||
|
||
_svcache->put(statrec);
|
||
|
||
}
|
||
|
||
// aggiorna la colonna del record statrec con i dati di SVriep
|
||
void TStampa_stat::put_column(TRectype & statrec,int col,TSVriep_record& rieprec)
|
||
{
|
||
real r,fc;
|
||
static TString colname("Rxx");
|
||
if (col<0 || col> SVS_NUMCOLONNE) return;
|
||
colname=SVS_COLNAME;
|
||
colname << col;
|
||
r=statrec.get_real(colname);
|
||
if (_msk->get(F_TIPODATO)==COLONNA_VALORE)
|
||
{
|
||
r+=rieprec.get_real(SVR_VALORE);
|
||
statrec.put(colname,r);
|
||
//statrec.put(SVS_TOTALERIGA,statrec.get_real(SVS_TOTALERIGA)+rieprec.get_real(SVR_VALORE));
|
||
} else {
|
||
if (statrec.get(SVR_UMQTA).not_empty())
|
||
{
|
||
if ((fc=fc_um(statrec,rieprec))==0.0)
|
||
invalid_columns(statrec);
|
||
else
|
||
{
|
||
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);
|
||
}
|
||
} // no UM ? no valid data!
|
||
}
|
||
}
|
||
|
||
// Converte le UM scrivendo la nuova UM sul record e restituendo il fattore di conv.
|
||
void TStampa_stat::standardize_um(TSVriep_record& rieprec, bool force)
|
||
{
|
||
if (force || _ragg_per_um)
|
||
{
|
||
static TString um;
|
||
real fc;
|
||
if (rieprec.get_char(SVR_TIPOART)==RIGA_MERCE)
|
||
{
|
||
// <20> un articolo (<M>erce); converto alla UM principale dell'art.
|
||
_umart->setkey(1);
|
||
_umart->put(UMART_CODART,rieprec.get(SVR_CODART));
|
||
_umart->put(UMART_NRIGA,1);
|
||
_umart->read();
|
||
um=_umart->get(UMART_UM);
|
||
fc=_umart->get_real(UMART_FC);
|
||
} else {
|
||
// non <20> un articolo: converte in base alla UM di riferimento in tabella
|
||
um=_ums->get(um).get("S7");
|
||
fc=_ums->get(um).get_real("R10");
|
||
}
|
||
if (um!=rieprec.get(SVS_UMQTA))
|
||
{
|
||
// conversione tra UM diverse
|
||
fc=fc*rieprec.get_real(SVR_QUANTITA);
|
||
rieprec.put(SVR_QUANTITA,fc);
|
||
rieprec.put(SVR_UMQTA,um);
|
||
}
|
||
}
|
||
}
|
||
|
||
// aggiunge al valore passat la quantit<69> del record riep, correggendola con il fattore di conv. necessario
|
||
const real TStampa_stat::fc_um(TRectype & statrec,const TSVriep_record& rieprec)
|
||
{
|
||
static TString um;
|
||
real fc(1.0);
|
||
um=rieprec.get(SVR_UMQTA);
|
||
if (um!=statrec.get(SVS_UMQTA))
|
||
{
|
||
// converte in base alla UM di riferimento in tabella
|
||
if (rieprec.get_char(SVR_TIPOART)==RIGA_MERCE)
|
||
{
|
||
// <20> un articolo (<M>erce)
|
||
_umart->setkey(2);
|
||
_umart->put(UMART_CODART,rieprec.get(SVR_CODART));
|
||
_umart->put(UMART_UM,rieprec.get(SVR_UMQTA));
|
||
if (_umart->read()==NOERR)
|
||
{
|
||
fc=_umart->get_real(UMART_FC);
|
||
_umart->put(UMART_UM,statrec.get(SVS_UMQTA));
|
||
if (_umart->read()==NOERR)
|
||
{
|
||
// <20> una UM dell'articolo: uso i fc per convertirla
|
||
um=_umart->get(UMART_UM);
|
||
fc=fc/_umart->get_real(UMART_FC);
|
||
}
|
||
} else
|
||
fatal_box("Archivio $UMART inconsistente con $RDOC"); // altrimenti ... errore di inconsistenza!
|
||
}
|
||
if (um != statrec.get(SVS_UMQTA))
|
||
{
|
||
um=_ums->get(um).get("S7");
|
||
fc=_ums->get(um).get_real("R10");
|
||
}
|
||
if (um != statrec.get(SVS_UMQTA))
|
||
{
|
||
// impossibile associare al totale una unit<69> di misura
|
||
fc = 0.0;
|
||
}
|
||
}
|
||
return fc;
|
||
}
|
||
|
||
// rende non validi i valori delle colonne
|
||
void TStampa_stat::invalid_columns(TRectype & statrec)
|
||
{
|
||
statrec.put(SVS_UMQTA,"");
|
||
char colname[9];
|
||
for (int col=0; col <SVS_NUMCOLONNE; col ++)
|
||
{
|
||
sprintf(colname,"%s%d",SVS_COLNAME,col);
|
||
statrec.put(colname,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);
|
||
const int num_liv_output=s_chiave.items();
|
||
TString est1,est2;
|
||
bool ok=TRUE;
|
||
for (int l=0; ok && l< num_liv_output; l++)
|
||
{
|
||
static TString code_campo;
|
||
static TString val_stringa;
|
||
int val_intero;
|
||
|
||
code_campo=s_chiave.cell(l,s_chiave.cid2index(S_CAMPO));
|
||
if (code_campo==STR_CLIFOR) // 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==STR_AGENTE) // agente <20> numerico
|
||
val_intero=atoi(get_part(code_campo,curr));
|
||
else
|
||
{
|
||
val_stringa=get_part(code_campo,curr);
|
||
val_stringa.trim();
|
||
}
|
||
if (!(est1=s_chiave.cell(l,s_chiave.cid2index(S_DAL))).blank())
|
||
{
|
||
if (code_campo==STR_CLIFOR || code_campo==STR_AGENTE) // cliente/fornitore o agente sono numerici
|
||
ok &= val_intero>=atoi((const char *)est1);
|
||
else
|
||
ok &= val_stringa>=est1;
|
||
}
|
||
if (ok && !(est2=s_chiave.cell(l,s_chiave.cid2index(S_AL))).blank())
|
||
{
|
||
if (code_campo==STR_CLIFOR || code_campo==STR_AGENTE) // cliente/fornitore o agente sono numerici
|
||
ok &= val_intero<=atoi((const char *)est2);
|
||
else
|
||
ok &= val_stringa<=est2;
|
||
}
|
||
}
|
||
return ok;
|
||
}
|
||
|
||
|
||
// ritorna se la query <20> suddivisa per unit<69> di misura
|
||
void TStampa_stat::set_ragg_per_um()
|
||
{
|
||
TSheet_field & s_chiave = selmask().sfield(F_CHIAVE);
|
||
for (int l=0; l< s_chiave.items(); l++)
|
||
{
|
||
if (*s_chiave.cell(l,s_chiave.cid2index(S_CAMPO))==CHR_UMISURA)
|
||
{
|
||
_ragg_per_um=FALSE;
|
||
return;
|
||
}
|
||
}
|
||
_ragg_per_um=TRUE;
|
||
}
|
||
|
||
void TStampa_stat::genera_file(const char *outfn)
|
||
{
|
||
|
||
TString key; // chiave per il record del file statistiche
|
||
const TMask& m = selmask();
|
||
const char alg=m.get(F_TIPOCALC)[0];
|
||
const int first_col = - (alg==ALG_MOBILI ? _col_anno-1:0); // prima colonna dati da osservare
|
||
const int first_raffr = -m.get_int(F_RAFFRONTO)- (alg==ALG_MOBILI ? _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);
|
||
|
||
|
||
// file di OUTPUT
|
||
_svcache= new TStat_cache(new TIsamtempfile(LF_SVSTAT,outfn,TRUE,FALSE));
|
||
// file di INPUT
|
||
TLocalisamfile riep(LF_SVRIEP);
|
||
riep.set_curr(new TSVriep_record);
|
||
|
||
TSVriep_record& curr = (TSVriep_record&)(riep.curr());
|
||
const TRecfield fr_anno(curr, SVR_ANNO);
|
||
const TRecfield fr_periodo(curr, SVR_PERIODO);
|
||
|
||
curr.put(SVR_ANNO,m.get_date(F_DATARAF).year());
|
||
curr.put(SVR_PERIODO,_stats.date2period(m.get_date(F_DATARAF)));
|
||
int err = riep.read(_isgteq);
|
||
|
||
const int num_liv_output=s_chiave.items();
|
||
const long start_status=period2long(curr.get_int(SVR_ANNO),curr.get_int(SVR_PERIODO),_stats.frequency());
|
||
|
||
TProgind statusbar(date2long(m.get_date(F_DATAFIN),_stats.frequency())-start_status
|
||
, "Creazione del file di output", FALSE, TRUE, 60);
|
||
|
||
_svcache->zap();
|
||
|
||
// **********************
|
||
// ciclo principale: scorre il riepilogo statistiche per anno+periodo
|
||
// e genera i risultati in una cache
|
||
|
||
for (; err == NOERR &&
|
||
(curr.get_int(SVR_ANNO)<=m.get_date(F_DATAFIN).year() ||
|
||
(curr.get_int(SVR_ANNO)==m.get_date(F_DATAFIN).year() &&
|
||
curr.get_int(SVR_PERIODO)<=_stats.date2period(m.get_date(F_DATAFIN))))
|
||
; err = riep.next())
|
||
{
|
||
statusbar.setstatus(period2long(curr.get_int(SVR_ANNO),curr.get_int(SVR_PERIODO),_stats.frequency())-start_status);
|
||
|
||
if (filtro_chiavi(curr))
|
||
{
|
||
const TPeriodo periodo(fr_anno, fr_periodo);
|
||
const int col = _freq.period2column(periodo);
|
||
|
||
if (col >= first_data && col < _numcol_dati)
|
||
{
|
||
standardize_um(curr); //!?!? eventualmente sarebbe utile forzare l'uso della standard se <20> una riga non comprendente l'articolo
|
||
// costruisce il file statistiche...
|
||
key.cut(0);
|
||
for (int l=0; l< num_liv_output; l++)
|
||
{
|
||
static TString16 levcode;
|
||
levcode=s_chiave.cell(l,s_chiave.cid2index(S_CAMPO));
|
||
key << get_part(levcode,curr);
|
||
// setta il range in base all'algoritmo (Valori/progressivi/mobili)
|
||
const int range=(alg==ALG_VALORI ? col : alg==ALG_PROGRESSIVI ? ((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(" ",STR_TOTGEN,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,levcode,LINEA_DATI,num_liv_output-l-1,c,curr);
|
||
}
|
||
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",STR_TOTGEN,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,levcode,LINEA_RAFFRONTI,num_liv_output-l-1, c -first_raffr , curr);
|
||
}
|
||
}
|
||
}
|
||
} // filtro
|
||
} // ciclo
|
||
statusbar.setstatus(date2long(m.get_date(F_DATAFIN),_stats.frequency())-start_status);
|
||
_svcache->flush();
|
||
delete _svcache;
|
||
}
|
||
|
||
|
||
void TStampa_stat::set_printmask()
|
||
{
|
||
TMask &mp=selmask();
|
||
|
||
// visualizza i checkbox per i totali
|
||
const nlivelli=mp.sfield(F_CHIAVE).items();
|
||
TString80 nomeliv;
|
||
printmask().field(F_FLAGSTOTALI).set("X");
|
||
for (int f=0; f<MAX_ROWS; f++)
|
||
{
|
||
TMask_field & flfl=printmask().field(F_FLAGSTOTALI+f+1);
|
||
if (f<nlivelli )
|
||
{
|
||
nomeliv="Stampo totale ";
|
||
nomeliv << partkey_name(mp.sfield(F_CHIAVE).cell(f,mp.sfield(F_CHIAVE).cid2index(S_CAMPO)));
|
||
flfl.set_prompt(nomeliv);
|
||
flfl.show();
|
||
if (*mp.sfield(F_CHIAVE).cell(f,mp.sfield(F_CHIAVE).cid2index(S_TOTALE))!=' ')
|
||
{
|
||
flfl.enable();
|
||
flfl.set("X");
|
||
} else {
|
||
flfl.disable();
|
||
flfl.set(" ");
|
||
}
|
||
} else
|
||
flfl.hide();
|
||
}
|
||
// campi per il raffronto
|
||
if (mp.get_date(F_DATARAF).empty())
|
||
{
|
||
printmask().field(F_STRAFFRONTO).hide();
|
||
printmask().field(F_TIPORAFFRONTO).hide();
|
||
} else {
|
||
printmask().field(F_STRAFFRONTO).show();
|
||
printmask().field(F_TIPORAFFRONTO).show();
|
||
}
|
||
// visualizza ed eventualmente abilita il campo colonne in un anno
|
||
printmask().field(F_COLANNO).set(mp.get(F_COL_ANNO));
|
||
if (mp.field(F_COL_ANNO).enabled()) // venduto, no progressivo o mobile
|
||
{
|
||
printmask().field(F_COLANNO).enable();
|
||
} else {
|
||
printmask().field(F_COLANNO).disable();
|
||
}
|
||
}
|
||
|
||
|
||
const TString& TStampa_stat::partkey_name(const char *lev_code)
|
||
{
|
||
static TString park(' ',25);
|
||
int lev_code_num=atoi(lev_code+1);
|
||
switch (*lev_code)
|
||
{
|
||
|
||
case CHR_TIPODOC: // tipo documento
|
||
park="tipo documento";
|
||
break;
|
||
case CHR_ARTICOLO: // articolo
|
||
if (lev_code_num)
|
||
park =_liv_art->name(lev_code_num);
|
||
else
|
||
park="articolo";
|
||
break;
|
||
case CHR_LIVGIAC: // liv giac
|
||
CHECK(lev_code_num>0,"I livelli di giacenza sono utilizzabili solo singolarmente");
|
||
park =_liv_giac->name(lev_code_num);
|
||
break;
|
||
case CHR_CATVEN: // cat. vendita
|
||
park="categoria di vendita";
|
||
break;
|
||
case CHR_CLI: // cliente
|
||
park="cliente ";
|
||
break;
|
||
case CHR_FOR: // fornitore
|
||
park="fornitore";
|
||
break;
|
||
case CHR_AGENTE: // agente
|
||
park="agente";
|
||
break;
|
||
case CHR_MAGAZZ: // mag
|
||
park="magazzino";
|
||
break;
|
||
case CHR_ZONA: // zona
|
||
park="zona";
|
||
break;
|
||
case CHR_UMISURA: // unit<69> di misura
|
||
park="unita' di misura";
|
||
break;
|
||
case CHR_TOTGEN: // totale generale
|
||
park="generale";
|
||
break;
|
||
default:
|
||
fatal_box("ai chent recognaiz the code of the key part!");
|
||
return "";
|
||
}
|
||
return park;
|
||
}
|
||
|
||
|
||
// strippa gli spazi dal codice di questo livello
|
||
// toglie il carattere 'C' o 'F' dal codice clientefor e lo mette come codice di livello
|
||
void TStampa_stat::adjust_record(TRectype &strec, int from) const
|
||
{
|
||
char lev_code=strec.get_char(SVS_LEVCODE);
|
||
|
||
if (lev_code==CHR_CLIFOR)
|
||
{
|
||
TString codprec=strec.get(SVS_CODICE).left(from);
|
||
TString &s = (TString &)strec.get(SVS_CODICE).mid(from);
|
||
while ((lev_code=s.shift())==' ');
|
||
codprec << s;
|
||
strec.put(SVS_LEVCODE,lev_code);
|
||
strec.put(SVS_CODICE,codprec);
|
||
} else {
|
||
if (from)
|
||
{
|
||
TString codprec=strec.get(SVS_CODICE).left(from);
|
||
TString &s = (TString &)strec.get(SVS_CODICE).mid(from);
|
||
while ((lev_code=s.shift())==' ');
|
||
codprec << lev_code << s;
|
||
strec.put(SVS_CODICE,codprec);
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
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[0])
|
||
{
|
||
case CHR_TIPODOC: // tipo documento
|
||
return rieprec.get(SVR_TIPODOC);
|
||
case CHR_ARTICOLO: // articolo
|
||
if (lev_code_num==0)
|
||
{
|
||
park=rieprec.get(SVR_CODART);
|
||
return park.rpad(25);
|
||
}
|
||
else
|
||
{
|
||
park =_liv_art->unpack_grpcode(rieprec.get(SVR_CODART),lev_code_num);
|
||
return park.rpad(_liv_art->code_length(lev_code_num));
|
||
}
|
||
case CHR_LIVGIAC: // liv giac
|
||
CHECK(lev_code_num>0,"I livelli di giacenza sono utilizzabili solo singolarmente");
|
||
park = _liv_giac->unpack_grpcode(rieprec.get(SVR_GIAC),lev_code_num);
|
||
return park.rpad(_liv_giac->code_length(lev_code_num));
|
||
case CHR_CATVEN: // cat. vendita
|
||
park=rieprec.get(SVR_CATVEN);
|
||
return park.rpad(3);
|
||
case CHR_FOR: // cliente / fornitore
|
||
case CHR_CLI: // cliente / fornitore
|
||
if (rieprec.get_char(SVR_TIPOCF)>' ')
|
||
lev_code[0]=rieprec.get_char(SVR_TIPOCF);
|
||
park.format("%c%6d",lev_code[0],rieprec.get_int(SVR_CODCF));
|
||
return park;
|
||
case CHR_AGENTE: // agente
|
||
park.format("%5d",rieprec.get_int(SVR_CODAG));
|
||
return park;
|
||
case CHR_MAGAZZ: // mag
|
||
park=rieprec.get(SVR_MAG);
|
||
return park.rpad(3);
|
||
case CHR_ZONA: // zona
|
||
park=rieprec.get(SVR_ZONA);
|
||
return park.rpad(3);
|
||
case CHR_UMISURA: // unit<69> di misura
|
||
park=rieprec.get(SVR_UMQTA);
|
||
return park.rpad(3);
|
||
default:
|
||
fatal_box("ai chent recognaiz the code of the key part!");
|
||
return "";
|
||
}
|
||
}
|
||
|
||
const TString& TStampa_stat::get_descrpart(const char *lev_code, TSVriep_record &rieprec)
|
||
{
|
||
int lev_code_num=atoi(lev_code+1);
|
||
switch (*lev_code)
|
||
{
|
||
case CHR_TIPODOC: // tipo documento
|
||
return _tipodoc->get(rieprec.get(SVR_TIPODOC)).get("S0");
|
||
case CHR_ARTICOLO: // articolo
|
||
if (lev_code_num==0 || lev_code_num== _liv_art->last_level())
|
||
{
|
||
_anamag->put(ANAMAG_CODART,rieprec.get(SVR_CODART));
|
||
_anamag->read();
|
||
return _anamag->get(ANAMAG_DESCR);
|
||
}
|
||
else
|
||
{
|
||
return _liv_art->group_descr(rieprec.get(SVR_CODART),lev_code_num);
|
||
}
|
||
case CHR_LIVGIAC: // liv giac
|
||
CHECK(lev_code_num>0,"I livelli di giacenza sono utilizzabili solo singolarmente");
|
||
return _liv_giac->group_descr(rieprec.get(SVR_GIAC),lev_code_num);
|
||
case CHR_CATVEN: // cat. vendita
|
||
return _catven->get(rieprec.get(SVR_CATVEN)).get("S0");
|
||
case CHR_FOR: // fornitore
|
||
case CHR_CLI: // cliente
|
||
{
|
||
_clifor->put(CLI_TIPOCF,rieprec.get_char(SVR_TIPOCF));
|
||
_clifor->put(CLI_CODCF,rieprec.get_int(SVR_CODCF));
|
||
_clifor->read();
|
||
return _clifor->get(CLI_RAGSOC);
|
||
}
|
||
case CHR_AGENTE: // agente
|
||
_agenti->put(AGE_CODAGE,rieprec.get(SVR_CODAG));
|
||
return _agenti->get(AGE_RAGSOC);
|
||
case CHR_MAGAZZ: // mag
|
||
return _magazz->get(rieprec.get(SVR_MAG)).get("S0");
|
||
case CHR_ZONA: // zona
|
||
return _zone->get(rieprec.get(SVR_ZONA)).get("S0");
|
||
case CHR_UMISURA: // Unit<69> di misura
|
||
return _ums->get(rieprec.get(SVR_UMQTA)).get("S0");
|
||
default:
|
||
fatal_box("ai chent recognaiz the code of the key part!");
|
||
return "";
|
||
}
|
||
}
|
||
|
||
|
||
bool TStampa_stat::recalc_period()
|
||
{
|
||
bool ok = set_column_frequency();
|
||
|
||
TMask& m = selmask();
|
||
if (ok)
|
||
{
|
||
TDate data(m.get(F_DATAFIN));
|
||
if (data.ok())
|
||
{
|
||
int col = _freq.date2column(data);
|
||
if (col < 0) col = 0;
|
||
if (col > 35) col = 35;
|
||
data = app()._freq.column_last_day(col);
|
||
m.set(F_DATAFIN, data);
|
||
m.set(F_PERIODO, col+1);
|
||
ok = TRUE;
|
||
}
|
||
|
||
data = m.get(F_DATARAF);
|
||
if (data.ok())
|
||
{
|
||
int col = _freq.date2column(data);
|
||
m.set(F_RAFFRONTO, -col);
|
||
}
|
||
}
|
||
return ok;
|
||
}
|
||
|
||
bool TStampa_stat::multiplo_handler(TMask_field& f, KEY k)
|
||
{
|
||
bool ok = TRUE;
|
||
if (k == K_SPACE)
|
||
{
|
||
TMask& m = f.mask();
|
||
TFrequenza_statistiche base = char2frequency(m.get(F_FREQUENZA)[0]);
|
||
TFrequenza_statistiche freq = char2frequency(f.get()[0]);
|
||
if (base == freq)
|
||
{
|
||
m.enable(F_NUMERO);
|
||
}
|
||
else
|
||
{
|
||
int n = divide(freq, base);
|
||
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;
|
||
}
|
||
|
||
bool TStampa_stat::numero_handler(TMask_field& f, KEY k)
|
||
{
|
||
bool ok = TRUE;
|
||
if (f.to_check(k))
|
||
app().recalc_period();
|
||
return ok;
|
||
}
|
||
|
||
bool TStampa_stat::periodo_handler(TMask_field& f, KEY k)
|
||
{
|
||
bool ok = TRUE;
|
||
if (f.to_check(k))
|
||
{
|
||
int col = atoi(f.get());
|
||
if (col > 0 && col <= 36)
|
||
{
|
||
if (app().set_column_frequency())
|
||
{
|
||
TDate d = app()._freq.column_last_day(col-1);
|
||
f.mask().set(F_DATAFIN, d);
|
||
}
|
||
}
|
||
}
|
||
return ok;
|
||
}
|
||
|
||
bool TStampa_stat::dataini_handler(TMask_field& f, KEY k)
|
||
{
|
||
bool ok = TRUE;
|
||
if (k == K_TAB && f.focusdirty())
|
||
{
|
||
TMask& m = f.mask();
|
||
TDate data(f.get());
|
||
const TFrequenza_statistiche base = char2frequency(m.get(F_FREQUENZA)[0]);
|
||
const TFrequenza_statistiche freq = char2frequency(m.get(F_MULTIPLO)[0]);
|
||
floor(data, divide(freq, base) == 0 ? freq : base);
|
||
f.set(data.string());
|
||
app().recalc_period();
|
||
}
|
||
return ok;
|
||
}
|
||
|
||
bool TStampa_stat::datafin_handler(TMask_field& f, KEY k)
|
||
{
|
||
bool ok = TRUE;
|
||
if (k == K_TAB && f.focusdirty())
|
||
{
|
||
app().recalc_period();
|
||
}
|
||
return ok;
|
||
}
|
||
|
||
bool TStampa_stat::raffronto_handler(TMask_field& f, KEY k)
|
||
{
|
||
if (f.to_check(k))
|
||
{
|
||
if (app().set_column_frequency())
|
||
{
|
||
const int col = atoi(f.get());
|
||
if (col > 0)
|
||
{
|
||
TDate data = app()._freq.column_first_day(-col);
|
||
f.mask().set(F_DATARAF, data);
|
||
}
|
||
else
|
||
f.mask().reset(F_DATARAF);
|
||
}
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
bool TStampa_stat::dataraf_handler(TMask_field& f, KEY k)
|
||
{
|
||
if (f.to_check(k))
|
||
{
|
||
TMask& m = f.mask();
|
||
TDate data(f.get());
|
||
if (data.ok())
|
||
{
|
||
if (app().set_column_frequency())
|
||
{
|
||
int col = app()._freq.date2column(data);
|
||
if (col < 0)
|
||
{
|
||
m.set(F_RAFFRONTO, -col);
|
||
data = app()._freq.column_first_day(col);
|
||
f.set(data.string());
|
||
}
|
||
else
|
||
data = botime;
|
||
}
|
||
}
|
||
if (!data.ok())
|
||
m.reset(F_RAFFRONTO);
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
bool TStampa_stat::codice_handler(TMask_field& f, KEY k)
|
||
{
|
||
if (k == K_TAB && f.focusdirty())
|
||
{
|
||
TMask& m = f.mask();
|
||
|
||
if (app().set_column_frequency())
|
||
{
|
||
int col = m.get_int(F_RAFFRONTO);
|
||
if (col > 0)
|
||
{
|
||
TDate data = app()._freq.column_first_day(-col);
|
||
m.set(F_DATARAF, data);
|
||
}
|
||
}
|
||
|
||
// Record corrente della tabella statistiche
|
||
const TRectype& rec = ((TEdit_field&)f).browse()->cursor()->curr();
|
||
|
||
TSheet_field& sheet = m.sfield(F_CHIAVE);
|
||
sheet.destroy();
|
||
|
||
TToken_string s1 = rec.get("S1");
|
||
TToken_string s2 = rec.get("S2");
|
||
|
||
int r = 0;
|
||
for (const char* cod = s1.get(0); cod; cod = s1.get(), r++)
|
||
{
|
||
TToken_string& row = sheet.row(r);
|
||
row = cod;
|
||
cod = s2.get(r);
|
||
row.add(cod);
|
||
sheet.check_row(r);
|
||
}
|
||
sheet.force_update();
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
bool TStampa_stat::filename_handler(TMask_field& f, KEY k)
|
||
{
|
||
TFilename fn(f.get());
|
||
if (k==K_TAB && !fn.empty())
|
||
{
|
||
if (!fexist(fn.path()))
|
||
return f.error_box("Directory %s non trovato",(const char *)fn.path());
|
||
else
|
||
if (fexist(fn))
|
||
return f.yesno_box("File %s esistente: sovrascrivo",(const char *)fn);
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
bool TStampa_stat::chiave_notify(TSheet_field& s, int r, KEY k)
|
||
{
|
||
bool ok = TRUE;
|
||
if (k == K_INS)
|
||
ok = s.items() < MAX_ROWS;
|
||
else if (k == K_CTRL+ K_INS)
|
||
s.row(r).add("X",1);
|
||
else if (k == K_CTRL+ K_TAB)
|
||
{
|
||
const int maxr=s.items();
|
||
// elimina il flag calcolo totali
|
||
if (r<maxr)
|
||
{
|
||
if (*s.row(r).get(1)!=' ')
|
||
{
|
||
// posso tenere abilitato il totale?
|
||
if (r>0 && *s.row(r-1).get(1)==' ')
|
||
{
|
||
s.row(r).add(" ",1);
|
||
s.force_update(r);
|
||
}
|
||
} else {
|
||
// disabilito i totale seguenti
|
||
for (r++;r < maxr; r++)
|
||
if (*s.row(r).get(1)!=' ')
|
||
{
|
||
s.row(r).add(" ",1);
|
||
s.force_update(r);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
return ok;
|
||
}
|
||
|
||
bool TStampa_stat::test_field(const TString& cod, TMask_field& f) const
|
||
{
|
||
bool ok = TRUE;
|
||
|
||
switch(cod[0])
|
||
{
|
||
case CHR_ARTICOLO:
|
||
if (cod[1] != '\0' && !_liv_art->enabled())
|
||
ok = f.error_box("I livelli di codice articolo non sono abilitati");
|
||
break;
|
||
case CHR_LIVGIAC:
|
||
if (!_stats.grp_giacenza())
|
||
ok = f.error_box("Le statistiche sono raggruppate per livello di giacenza");
|
||
else if (!_liv_giac->enabled())
|
||
ok = f.error_box("I livelli di giacenza non sono abilitati");
|
||
break;
|
||
case CHR_CLIFOR:
|
||
if (!_stats.grp_cliente())
|
||
ok = f.error_box("Le statistiche sono raggruppate per cliente/fornitore");
|
||
break;
|
||
case CHR_AGENTE:
|
||
if (!_stats.grp_agente())
|
||
ok = f.error_box("Le statistiche sono raggruppate per agente");
|
||
break;
|
||
case CHR_MAGAZZ:
|
||
if (!_stats.grp_magazzino())
|
||
ok = f.error_box("Le statistiche sono raggruppate per magazzino");
|
||
break;
|
||
case CHR_ZONA:
|
||
if (!_stats.grp_zona())
|
||
ok = f.error_box("Le statistiche sono raggruppate per zona");
|
||
break;
|
||
default : break;
|
||
}
|
||
return ok;
|
||
}
|
||
|
||
bool TStampa_stat::chiave_handler(TMask_field& f, KEY k)
|
||
{
|
||
bool ok = TRUE;
|
||
if (k == K_ENTER)
|
||
{
|
||
TSheet_field& sheet = (TSheet_field&)f;
|
||
TToken_string used;
|
||
TString16 campo;
|
||
for (int r = 0; r < sheet.items(); r++)
|
||
{
|
||
TToken_string& row = sheet.row(r);
|
||
campo = row.get(0);
|
||
|
||
if (campo.blank())
|
||
continue;
|
||
|
||
ok = app().test_field(campo, f);
|
||
|
||
bool found = used.get_pos(campo) >= 0;
|
||
if (!found && (campo[0] == CHR_ARTICOLO || campo[0] == CHR_LIVGIAC))
|
||
{
|
||
char str[2]; str[0] = campo[0]; str[1] = '\0';
|
||
found = used.get_pos(str) >= 0;
|
||
}
|
||
|
||
if (found)
|
||
{
|
||
ok = error_box("Il codice %s inserito alla riga %d e' gia'\n"
|
||
"utilizzato in una riga precedente.",
|
||
(const char*)campo, r+1);
|
||
}
|
||
else
|
||
used.add(campo);
|
||
}
|
||
}
|
||
return ok;
|
||
}
|
||
|
||
bool TStampa_stat::campo_handler(TMask_field& f, KEY k)
|
||
{
|
||
bool ok = TRUE;
|
||
if (f.to_check(k))
|
||
ok = app().test_field(f.get(), f);
|
||
return ok;
|
||
}
|
||
|
||
///////////////////////////////////////////////////////////
|
||
// Pseudo main
|
||
///////////////////////////////////////////////////////////
|
||
|
||
int sv1200(int argc, char* argv[])
|
||
{
|
||
TStampa_stat mainapp;
|
||
mainapp.run(argc, argv, "Stampa statistiche");
|
||
return 0;
|
||
}
|