Patch level :2.2 140

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :prima versione funzionante della stampa mastrini analitica (da testare)


git-svn-id: svn://10.65.10.50/trunk@13229 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2005-06-28 15:00:00 +00:00
parent b1335f6580
commit 140f6b3dad
3 changed files with 222 additions and 43 deletions

View File

@ -1,7 +1,9 @@
#include <applicat.h>
#include <execp.h>
#include <progind.h>
#include <reprint.h>
#include "pconana.h"
#include "movana.h"
#include "rmovana.h"
@ -29,9 +31,9 @@ public:
const TString& TPrint_mastrini_ca_mask::get_compatible_library() const
{
TString& lib = get_tmp_string();
lib = "ca3200";
const int stp = get_int(F_TIPOCONTI);
lib << (stp == 1 ? 'a' : 'b'); // tipo di report da usare
lib = "ca3200a";
// const int stp = get_int(F_TIPOCONTI);
// lib << (stp == 1 ? 'a' : 'b'); // tipo di report da usare in caso di report multipli
return lib;
}
@ -66,7 +68,7 @@ bool TPrint_mastrini_ca_mask::on_field_event(TOperable_field& o, TField_event e,
case F_TIPOCONTI:
if (e == fe_init || e == fe_modify)
{
test_compatible_report(); //in base al tipo di conti da stampare setta i report compatibili
test_compatible_report(); //in base al tipo di conti da stampare setta i report compatibili (solo nel caso di rep multipli)
}
break;
case F_REPORT:
@ -221,12 +223,13 @@ TPrint_mastrini_ca_mask::TPrint_mastrini_ca_mask()
}
///////////////////////////////////////////////////////////
// RECORDSET
///////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////
// RECORDSET PRINCIPALE (caso standard: conti movimentati)
///////////////////////////////////////////////////////////////
class TPrint_mastrini_ca_recordset : public TISAM_recordset
{
protected:
int _anno;
int _tipoconti;
int _tipimov;
@ -244,7 +247,7 @@ protected:
const TImporto& saldo_iniziale(const char* conto) const;
public:
void set_filter(const TPrint_mastrini_ca_mask& msk, int cms_row);
virtual void set_filter(const TPrint_mastrini_ca_mask& msk, int cms_row);
TPrint_mastrini_ca_recordset(const TString& sql) : TISAM_recordset(sql) { }
};
@ -255,10 +258,6 @@ bool TPrint_mastrini_ca_recordset::valid_record(const TRelation& rel) const
{
//prima controlla la testata...
const TRectype& mov = rel.curr(LF_MOVANA);
const TDate data = mov.get(MOVANA_DATACOMP);
if (data < _dadata || (_adata.ok() && data > _adata))
return false;
const char tipomov = mov.get_char(MOVANA_TIPOMOV);
int tipomov_int = 0;
@ -304,9 +303,11 @@ bool TPrint_mastrini_ca_recordset::mov_filter(const TRelation* rel)
void TPrint_mastrini_ca_recordset::set_custom_filter(TCursor& cur) const
{
//filtro sui conti selezionati sulla maschera
TRectype darec(cur.curr()), arec(cur.curr()); //record corrente (rmovana (solo movimentati) o pconana(altri casi))
darec.put("CODCONTO", _daconto);
arec.put("CODCONTO", _aconto);
TRectype darec(cur.curr()), arec(cur.curr()); //record corrente (rmovana (solo movimentati))
darec.put(RMOVANA_CODCONTO, _daconto);
darec.put(RMOVANA_DATACOMP, _dadata);
arec.put(RMOVANA_CODCONTO, _aconto);
arec.put(RMOVANA_DATACOMP, _adata);
cur.setregion(darec, arec);
myself = this;
@ -390,17 +391,199 @@ void TPrint_mastrini_ca_recordset::set_filter(const TPrint_mastrini_ca_mask& msk
case 'P': _tipimov = 6; break;
default: _tipimov = 7; break;
}
_tipoconti = msk.get(F_TIPOCONTI)[0];
_tipoconti = msk.get_int(F_TIPOCONTI);
}
/////////////////////////////////////////////////////////////////////////////////
// RECORDSET SECONDARIO (casi alternativi: conti con saldo != 0 e tutti i conti)
/////////////////////////////////////////////////////////////////////////////////
class TPrint_mastrini_ca_alternative_recordset : public TPrint_mastrini_ca_recordset
{
TIsamtempfile* _tmp_rmovana;
protected:
const TImporto& saldo_finale(const char* conto) const;
virtual void set_custom_filter(TCursor& cur) const;
public:
virtual void set_filter(const TPrint_mastrini_ca_mask& msk, int cms_row);
TPrint_mastrini_ca_alternative_recordset(const TString& sql);
~TPrint_mastrini_ca_alternative_recordset() { delete _tmp_rmovana; }
};
TPrint_mastrini_ca_alternative_recordset::TPrint_mastrini_ca_alternative_recordset(const TString& sql)
: TPrint_mastrini_ca_recordset(sql)
{
_tmp_rmovana = NULL;
}
const TImporto& TPrint_mastrini_ca_alternative_recordset::saldo_finale(const char* conto) const
{
TAnal_bill bill(conto, _codcosto, _codcms, _codfas);
const TSaldanal& saldo = ca_saldo(bill, _dadata, _adata, _tipimov);
return saldo._fin;
}
void TPrint_mastrini_ca_alternative_recordset::set_custom_filter(TCursor& cur) const
{
//crea un file temporaneo che non viene distrutto ad inizio stampa effettiva
TIsamtempfile* tmp = new TIsamtempfile(LF_RMOVANA, "anal", false, false);
relation()->replace(tmp); //sostituisce il vero file rmovana con quello temporaneo
}
void TPrint_mastrini_ca_alternative_recordset::set_filter(const TPrint_mastrini_ca_mask& msk, int cms_row)
{
//se esiste non vuoto il file temporano con tracciato rmovana lo cancella e lo ricrea vuoto
if (_tmp_rmovana != NULL)
delete _tmp_rmovana;
_tmp_rmovana = new TIsamtempfile(LF_RMOVANA, "anal", true, true);
//prende un po' di dati dalla maschera
_daconto, _aconto, _codcosto = _codcms = _codfas = "";
if (cms_row >= 0)
{
TSheet_field& sf = msk.sfield(F_RIGHE);
TMask& sm = sf.sheet_mask();
sf.update_mask(cms_row);
TRelation rel(LF_RMOVANA);
sm.autosave(rel);
_codcosto = rel.curr().get(RMOVANA_CODCCOSTO);
_codcms = rel.curr().get(RMOVANA_CODCMS);
_codfas = rel.curr().get(RMOVANA_CODFASE);
}
for (int i = 0; msk.id2pos(F_CDC1_INI+i) > 0; i++)
{
_daconto << msk.get(F_CDC1_INI+i);
_aconto << msk.get(F_CDC1_FIN+i);
}
_dadata = msk.get_date(F_DATAINI);
_adata = msk.get_date(F_DATAFIN);
_tipimov = 0;
switch (msk.get(F_TIPIMOV)[0])
{
case 'N': _tipimov = 1; break;
case 'P': _tipimov = 6; break;
default: _tipimov = 7; break;
}
_tipoconti = msk.get_int(F_TIPOCONTI);
//scandisce il piano dei conti analitico creando un cursore con i conti nell'intervallo scelto sulla maschera
TRelation rel_pconana(LF_PCONANA);
TRectype daconto(LF_PCONANA);
daconto.put(PCONANA_CODCONTO, _daconto);
TRectype aconto(LF_PCONANA);
aconto.put(PCONANA_CODCONTO, _aconto);
//solo i gr/co/sottoc completi interessano!!!
int contolen = 0;
const TMultilevel_code_info& info = ca_multilevel_code_info(LF_PCONANA);
for (int l = info.levels()-1; l >= 0; l--)
contolen += info.len(l);
TString filtro;
filtro << "LEN(CODCONTO)==" << contolen;
TCursor cur_pconana(&rel_pconana, filtro, 1, &daconto, &aconto);
const long pconana_items = cur_pconana.items();
cur_pconana.freeze();
TProgind pi(pconana_items, "Scansione conti...");
//scandisce il piano dei conti..
for (cur_pconana = 0; cur_pconana.pos() < pconana_items; ++cur_pconana)
{
pi.addstatus(1);
TRectype& current_pconana_rec = cur_pconana.curr();
const TString conto = current_pconana_rec.get(PCONANA_CODCONTO);
bool aggiungi = true;
if (_tipoconti == 2) //se si è scelto di stampare solo quelli con saldo != 0...
{
const TImporto& saldo_fin = saldo_finale(conto);
aggiungi = !saldo_fin.is_zero();
}
if (aggiungi) //se il conto va aggiunto (casi: conti con saldo !=0 trovato, tutti i conti comunque)..
{
TRelation rel_rmovana(LF_RMOVANA);
rel_rmovana.add(LF_MOVANA, "NUMREG==NUMREG"); //aggiunge le testate x avere i tipi mov.
//..crea un cursore su rmovana per vedere se i conti selezionati hanno veri movimenti che soddisfano
//i parametri del filtro sulla maschera
TRectype da_rmovana(LF_RMOVANA);
da_rmovana.put(RMOVANA_CODCONTO, conto);
da_rmovana.put(RMOVANA_DATACOMP, _dadata);
TRectype a_rmovana(LF_RMOVANA);
a_rmovana.put(RMOVANA_CODCONTO, conto);
a_rmovana.put(RMOVANA_DATACOMP, _adata);
TString filtro;
if (_codcosto.not_empty())
filtro << "(" << RMOVANA_CODCCOSTO << "==\"" << _codcosto << "\")";
if (_codcms.not_empty())
{
if (filtro.not_empty())
filtro << "&&";
filtro << "(" << RMOVANA_CODCMS << "==\"" << _codcms << "\")";
}
if (_codfas.not_empty())
{
if (filtro.not_empty())
filtro << "&&";
filtro << "(" << RMOVANA_CODFASE << "==\"" << _codfas << "\")";
}
TCursor cur_rmovana(&rel_rmovana, filtro, 2, &da_rmovana, &a_rmovana);
const long rmovana_items = cur_rmovana.items();
cur_rmovana.freeze();
bool almeno_uno_aggiunto = false;
if (rmovana_items > 0)
{
for (cur_rmovana = 0; cur_rmovana.pos() < rmovana_items; ++cur_rmovana)
{
//deve coincidere anche il tipomov! sarebbe stato troppo semplice...
const char tipomov = rel_rmovana.curr(LF_MOVANA).get_char(MOVANA_TIPOMOV);
int tipomov_int = 0;
switch (tipomov)
{
case 'P': tipomov_int = 2; break;
case 'V': tipomov_int = 4; break;
default: tipomov_int = 1; break;
}
if ((_tipimov & tipomov_int) != 0)
{
_tmp_rmovana->write(cur_rmovana.curr()); // aggiunge i record al file temporaneo
almeno_uno_aggiunto = true;
}
}
}
//se non ha aggiunto nemmeno un record valido..
//crea un record di rmovana con il solo conto,datacomp e lo aggiunge al file temporaneo
if (!almeno_uno_aggiunto)
{
TRectype fake_rmovana_rec(LF_RMOVANA);
fake_rmovana_rec.put(RMOVANA_CODCONTO, conto);
fake_rmovana_rec.put(RMOVANA_DATACOMP, _dadata);
_tmp_rmovana->write(fake_rmovana_rec);
}
} //end if aggiungi
} //end for su pconana_items
}
////////////////////////////////////////////////////////
// REPORT
////////////////////////////////////////////////////////
class TPrint_mastrini_ca_rep : public TAnal_report
{
int _anno;
protected:
virtual bool set_recordset(const TString& sql);
@ -423,8 +606,22 @@ bool TPrint_mastrini_ca_rep::set_recordset(const TString& sql)
void TPrint_mastrini_ca_rep::set_filter(const TPrint_mastrini_ca_mask& msk, int cms_row)
{
TPrint_mastrini_ca_recordset* rs = (TPrint_mastrini_ca_recordset*)recordset();
rs->set_filter(msk, cms_row);
const int tipoconti = msk.get_int(F_TIPOCONTI);
TPrint_mastrini_ca_recordset* recset = NULL;
const char* query ="USE RMOVANA KEY 2\nJOIN MOVANA INTO NUMREG==NUMREG";
switch (tipoconti)
{
case 1:
recset = new TPrint_mastrini_ca_recordset(query);
break;
default:
recset = new TPrint_mastrini_ca_alternative_recordset(query);
break;
}
recset->set_filter(msk, cms_row);
TAnal_report::set_recordset(recset);
}
////////////////////////////////////////////////////////

View File

@ -19,16 +19,13 @@
#define F_DES4_FIN 239
//campi sulla maschera
#define F_DATAINI 290
#define F_DATAFIN 291
#define F_STAMPA_PROG_ATT 292
#define F_STAMPA_SALDI_PROG 293
#define F_STAMPA_SALDI_SCAL 294
#define F_TIPOCONTI 295
#define F_TIPIMOV 296
#define F_DATAINI 250
#define F_DATAFIN 251
#define F_TIPOCONTI 252
#define F_TIPIMOV 253
//sheet di pagina 2
#define F_RIGHE 300
#define F_RIGHE 260
#define S_CDC1 101
#define S_CDC2 102

View File

@ -109,21 +109,6 @@ DATE F_DATAFIN
BEGIN
PROMPT 62 17 ""
END
BOOLEAN F_STAMPA_PROG_ATT
BEGIN
PROMPT 2 18 "Stampa progressivi attuali"
END
BOOLEAN F_STAMPA_SALDI_PROG
BEGIN
PROMPT 30 18 "Stampa saldi progressivi"
END
BOOLEAN F_STAMPA_SALDI_SCAL
BEGIN
PROMPT 55 18 "Stampa saldo scalare"
END
LIST F_TIPOCONTI 24
BEGIN