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

Potenziamento stampa solleciti via mail

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22911 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2013-12-13 09:43:51 +00:00
parent 586708fb09
commit 201a3466f2
6 changed files with 135 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

168
sc/sc2400.cpp
View File

@ -17,9 +17,9 @@
class TStampaSol_application: public TSkeleton_application class TStampaSol_application: public TSkeleton_application
{ {
TString _lingua_ditta; TString _lingua_ditta;
TSol_mask *_msk; TSol_mask* _msk;
bool _gesval; bool _gesval;
TSol_form *_form; TSol_form* _form;
protected: protected:
virtual bool create(); virtual bool create();
@ -33,13 +33,14 @@ protected:
TString& subj, TString& text, TToken_string& attach, short& ui) const; TString& subj, TString& text, TToken_string& attach, short& ui) const;
const TString& game_key(const TRectype& part) const; // Costruisce chiave univoca per TAssoc_array partite const TString& game_key(const TRectype& part) const; // Costruisce chiave univoca per TAssoc_array partite
bool ci_sono_scadenze_aperte(const TPartita& game, const TDate& dal, const TDate& al) const; bool ci_sono_scadenze_aperte(const TPartita& game, const TDate& dal, const TDate& al, const TDate& data_rischio) const;
bool puoi_scartare(const TPartita& game, const TDate& datalim) const;
int print_sol(); // stampa l'elemento corrente int print_sol(); // stampa l'elemento corrente
public: public:
TSol_mask &mask() const { return *_msk; } TSol_mask& mask() const { return *_msk; }
TSol_form &form() const { return *_form; } TSol_form& form() const { return *_form; }
TCursor_sheet &sheet() { return _msk->cur_sheet(); } TCursor_sheet& sheet() { return _msk->cur_sheet(); }
bool print_selected(); // cicla la stampa sugli elementi selezionati bool print_selected(); // cicla la stampa sugli elementi selezionati
bool mail_selected(); // manda email agli elementi selezionati bool mail_selected(); // manda email agli elementi selezionati
@ -96,29 +97,35 @@ bool TStampaSol_application::print_selected()
return true; return true;
} }
bool TStampaSol_application::ci_sono_scadenze_aperte(const TPartita& game, const TDate& dal, const TDate& al) const bool TStampaSol_application::ci_sono_scadenze_aperte(const TPartita& game, const TDate& dal, const TDate& al, const TDate& data_rischio) const
{ {
bool found = false; bool found = false;
const int ultima = game.last();
if (ultima > 0 && !game.chiusa(true)) for (int r = game.last(); r > 0; r = game.pred(r))
{ {
for (int r = ultima; r > 0; r = game.pred(r)) const TRiga_partite& row = game.riga(r);
if (row.is_fattura() && row.get_date(PART_DATAREG) <= al)
{ {
const TRiga_partite& row = game.riga(r); for (int s = row.rate(); s > 0 ;s--)
if (row.is_fattura() && row.get_date(PART_DATAREG) <= al)
{ {
for (int s = row.rate(); s > 0 ;s--) const TRiga_scadenze& rata = row.rata(s);
const TDate data = rata.get(SCAD_DATASCAD);
if (data >= dal && data <= al)
{ {
const TRiga_scadenze& rata = row.rata(s); found = !rata.chiusa();
if (!rata.chiusa(true)) if (!found)
{ {
const TDate data = rata.get(SCAD_DATASCAD); TImporto rat = rata.importo(true);
if (data >= dal && data <= al) TImporto imp = rata.importo_pagato_al(true, data_rischio);
found = true; imp.normalize(rat.sezione());
const real saldo = rat.valore() + imp.valore();
found = saldo > ZERO;
} }
} if (found)
} break;
} }
}
}
} }
return found; return found;
} }
@ -132,13 +139,34 @@ const TString& TStampaSol_application::game_key(const TRectype& part) const
return tok; return tok;
} }
bool TStampaSol_application::puoi_scartare(const TPartita& game, const TDate& datalim) const
{
bool yes = game.chiusa();
if (yes && datalim.ok())
{
TDate last;
for (int r = game.last(); r > 0; r = game.pred(r))
{
const TRiga_partite& riga = game.riga(r);
if (riga.tipo() > tm_fattura)
{
const TDate d = riga.get(PART_DATAPAG);
if (d > last)
last = d;
}
}
yes = last < datalim;
}
return yes;
}
int TStampaSol_application::print_sol() int TStampaSol_application::print_sol()
{ {
TSol_form& f = form(); TSol_form& f = form();
// preparazione variabili per controllo lingua // preparazione variabili per controllo lingua
const TRectype &clf= f.cursor()->file().curr(); const TRectype &clf= f.cursor()->file().curr();
const TString lincf(clf.get(CLI_CODLIN)); const TString4 lincf = clf.get(CLI_CODLIN);
bool ok = true; bool ok = true;
// controllo lingua ditta corrente // controllo lingua ditta corrente
@ -151,7 +179,9 @@ int TStampaSol_application::print_sol()
partite.zero(); partite.zero();
partite.put(PART_TIPOCF, clf.get(CLI_TIPOCF)); partite.put(PART_TIPOCF, clf.get(CLI_TIPOCF));
partite.put(PART_SOTTOCONTO, clf.get(CLI_CODCF)); partite.put(PART_SOTTOCONTO, clf.get(CLI_CODCF));
const TRectype filter(partite.curr());
const TRectype& parkur = partite.curr();
const TRectype filter(parkur);
bool one_printed = false; // booleano di controllo di riuscita della stampa bool one_printed = false; // booleano di controllo di riuscita della stampa
const bool sel_tot_saldo = f.get_sel_tot_saldo(); // selezione sul saldo totale cliente const bool sel_tot_saldo = f.get_sel_tot_saldo(); // selezione sul saldo totale cliente
@ -159,6 +189,7 @@ int TStampaSol_application::print_sol()
const TDate data_inizio_soll = _msk->get(F_DATAINISCAD); const TDate data_inizio_soll = _msk->get(F_DATAINISCAD);
const TDate data_limite_soll = f.data_limite_operazione(); const TDate data_limite_soll = f.data_limite_operazione();
const TDate data_limite_scaduto = f.data_limite_scaduto(); const TDate data_limite_scaduto = f.data_limite_scaduto();
const TDate data_rischio = f.data_inizio_rischio();
TAssoc_array games_in_range; TAssoc_array games_in_range;
@ -166,17 +197,23 @@ int TStampaSol_application::print_sol()
{ {
real saldo; real saldo;
for (int err = partite.read(_isgteq); for (int err = partite.read(_isgteq);
err == NOERR && partite.curr() == filter; err == NOERR && parkur == filter;
err = partite.read(_isgreat)) err = partite.read(_isgreat))
{ {
const TPartita game(partite.curr()); const TPartita game(parkur);
const real sld = game.calcola_scaduto_al(false, data_limite_soll); if (!puoi_scartare(game, data_rischio))
{
if (sld > ZERO && data_inizio_soll.ok() && if (sel_tot_saldo)
ci_sono_scadenze_aperte(game, data_inizio_soll, data_limite_soll)) {
games_in_range.add(game_key(partite.curr())); const real sld = game.calcola_scaduto_al(false, data_limite_soll);
saldo += sld;
saldo += sld; }
if (data_inizio_soll.ok())
{
if (ci_sono_scadenze_aperte(game, data_inizio_soll, data_limite_soll, data_rischio))
games_in_range.add(game_key(parkur));
}
}
partite.put(PART_NRIGA, 9999); partite.put(PART_NRIGA, 9999);
} }
@ -187,34 +224,38 @@ int TStampaSol_application::print_sol()
partite.curr() = filter; partite.curr() = filter;
} }
for (int err = partite.read(_isgteq); for (int err = partite.read(_isgteq);
err == NOERR && partite.curr() == filter; err == NOERR && parkur == filter;
err = partite.read(_isgreat)) err = partite.read(_isgreat))
{ {
if (data_inizio_soll.ok() && !games_in_range.is_key(game_key(partite.curr()))) if (data_inizio_soll.ok() && !games_in_range.is_key(game_key(parkur)))
continue; // Scarta parite fuori range di date continue; // Scarta parite fuori range di date
const TPartita game(partite.curr()); const TPartita game(parkur);
const real saldo = game.calcola_scaduto_al(false, data_limite_scaduto); if (!puoi_scartare(game, data_rischio))
TImporto unreferenced; //Totale non assegnati per questa partita.
{ {
// E' giusto calcolare il saldo, comprendente i non assegnati. const real saldo = game.calcola_scaduto_al(false, data_limite_scaduto);
// se il saldo della partita chiude in avere va sommato ad unreferenced
const TRiga_partite& sum = game.riga(game.first());
unreferenced = game.calcola_saldo_al(game.in_valuta() && f.in_valuta(),data_limite_soll, data_limite_scaduto, data_limite_scaduto);
if (unreferenced.valore() > ZERO && unreferenced.sezione() == 'A')
{
unreferenced.normalize('A'); //per i non assegnati/anticipi c'e' solo la colonna AVERE
const TString8 valuta = sum.get(PART_CODVAL);
form().totali().add(unreferenced,valuta);
}
}
if (sel_tot_saldo || (saldo > ZERO && saldo >= sel_importo )) TImporto unreferenced; //Totale non assegnati per questa partita.
{ {
const bool printed = form().print_game(game); // E' giusto calcolare il saldo, comprendente i non assegnati.
one_printed |= printed; // se il saldo della partita chiude in avere va sommato ad unreferenced
const TRiga_partite& sum = game.riga(game.first());
unreferenced = game.calcola_saldo_al(game.in_valuta() && f.in_valuta(),data_limite_soll, data_limite_scaduto, data_rischio);
if (unreferenced.valore() > ZERO && unreferenced.sezione() == 'A')
{
unreferenced.normalize('A'); //per i non assegnati/anticipi c'e' solo la colonna AVERE
const TString4 valuta = sum.get(PART_CODVAL);
form().totali().add(unreferenced,valuta);
}
}
if (sel_tot_saldo || (saldo > ZERO && saldo >= sel_importo ) || (saldo.is_zero() && !unreferenced.is_zero() && data_rischio < data_limite_scaduto))
{
const bool printed = form().print_game(game);
one_printed |= printed;
}
} }
partite.put(PART_NRIGA, 9999); partite.put(PART_NRIGA, 9999);
@ -465,26 +506,19 @@ void TStampaSol_application::on_firm_change()
void TStampaSol_application::main_loop() void TStampaSol_application::main_loop()
{ {
TSol_mask& m = mask(); TSol_mask& m = mask();
for(;;) for (;;)
{ {
const KEY key = m.run(); const KEY key = m.run();
if (key == K_QUIT) if (key == K_QUIT)
break; break;
const TDate dlimsol(m.get(F_DATALIMSOL)); _form= new TSol_form(m, _gesval, F_DATALIMOP, F_DATALIMSOL, F_GGRISCHIO);
const TDate dsped(m.get(F_DATASEND)); if (key == 'M')
if (dlimsol >= dsped) mail_selected();
{
_form= new TSol_form(m, _gesval, F_DATALIMOP, F_DATALIMSOL);
if (key == 'M')
mail_selected();
else
print_selected();
delete _form;
_form= NULL;
}
else else
error_box(TR("La data limite sollecito deve essere specificata e non puo' essere superiore alla data di invio")); print_selected();
delete _form;
_form= NULL;
} }
} }

1
sc/sc2400a.h
View File

@ -10,5 +10,6 @@
#define F_STAMPESP 132 #define F_STAMPESP 132
#define F_IMPORMIN 133 #define F_IMPORMIN 133
#define F_RIFIMPMIN 134 #define F_RIFIMPMIN 134
#define F_GGRISCHIO 135
#endif #endif

11
sc/sc2400a.uml
View File

@ -97,6 +97,13 @@ BEGIN
PROMPT 2 4 "Data limite operazione " PROMPT 2 4 "Data limite operazione "
END END
NUMBER F_GGRISCHIO 3
BEGIN
PROMPT 41 4 "Giorni calcolo rischio "
HELP "Inserire il numero di giorni per il calcolo del rischio"
FLAGS "DU"
END
DATE F_DATALIMSOL DATE F_DATALIMSOL
BEGIN BEGIN
PROMPT 2 5 "Data limite solleciti " PROMPT 2 5 "Data limite solleciti "
@ -106,7 +113,7 @@ END
DATE F_DATAINISCAD DATE F_DATAINISCAD
BEGIN BEGIN
PROMPT 42 5 "Dal " PROMPT 41 5 "Dal "
VALIDATE DATE_CMP_FUNC <= F_DATALIMSOL VALIDATE DATE_CMP_FUNC <= F_DATALIMSOL
WARNING "Inserire una data precedente a quella limite" WARNING "Inserire una data precedente a quella limite"
END END
@ -126,6 +133,8 @@ END
BOOLEAN F_STAMPESP BOOLEAN F_STAMPESP
BEGIN BEGIN
PROMPT 2 7 "Stampa esposizione" PROMPT 2 7 "Stampa esposizione"
MESSAGE FALSE CLEAR,F_GGRISCHIO
MESSAGE TRUE ENABLE,F_GGRISCHIO
END END
BOOLEAN F_STAMPSALDO BOOLEAN F_STAMPSALDO

31
sc/sc2401.cpp
View File

@ -105,7 +105,7 @@ bool TESSL_mask::stampa_saldo() const {
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
TESSL_row::TESSL_row(const TRiga_partite& row, const TDate& data, const TImporto& imp, int rata) TESSL_row::TESSL_row(const TRiga_partite& row, const TDate& data, const TImporto& imp, int rata)
: _num_prot(0), _num_reg(0), _salvo_buon_fine(FALSE) : _num_prot(0), _num_reg(0), _salvo_buon_fine(false)
{ {
_riga = row.get_int(PART_NRIGA); _riga = row.get_int(PART_NRIGA);
_rata = rata; _rata = rata;
@ -129,7 +129,7 @@ TESSL_row::TESSL_row(const TRiga_partite& row, const TDate& data, const TImporto
} }
TESSL_row::TESSL_row(const char* desc, const TImporto& imp, const TValuta& val) TESSL_row::TESSL_row(const char* desc, const TImporto& imp, const TValuta& val)
: _riga(9999), _rata(9999), _num_prot(0), _num_reg(0), _salvo_buon_fine(FALSE) : _riga(9999), _rata(9999), _num_prot(0), _num_reg(0), _salvo_buon_fine(false)
{ {
_descrizione = desc; _descrizione = desc;
_importo = imp; _importo.normalize(); _importo = imp; _importo.normalize();
@ -475,7 +475,7 @@ void TESSL_array::add_row(const TRiga_partite& row)
const int gr = form().giorni_rischio(); const int gr = form().giorni_rischio();
const TDate& dir = form().data_inizio_rischio(); const TDate& dir = form().data_inizio_rischio();
bool sbf = FALSE; bool sbf = false;
TImporto esposto(row.esposto(in_valuta, dls, dir, sbf)); TImporto esposto(row.esposto(in_valuta, dls, dir, sbf));
bool esp = !esposto.is_zero(); bool esp = !esposto.is_zero();
@ -921,7 +921,7 @@ void TESSL_form::azzera_totali()
bool TESSL_form::print_game(const TPartita& game) bool TESSL_form::print_game(const TPartita& game)
{ {
bool ok = FALSE; bool ok = false;
TESSL_array righe(game, this); TESSL_array righe(game, this);
@ -958,18 +958,26 @@ bool TESSL_form::print_game(const TPartita& game)
riga.reset_uguali(); riga.reset_uguali();
ultima_riga = ri; ultima_riga = ri;
ultima_rata = ra; ultima_rata = ra;
real resp = riga.esposto();
if (resp < ZERO)
{
resp = -resp;
riga.esposto(resp);
}
riga.print_on(body); riga.print_on(body);
pr.print(body.row(0)); pr.print(body.row(0));
totali().add(riga.importo(), riga.scaduto(), riga.esposto(), totali().add(riga.importo(), riga.scaduto(), riga.esposto(),
riga.importo_in_euro(), riga.valuta().codice()); riga.importo_in_euro(), riga.valuta().codice());
saldo += riga.importo(); saldo += riga.importo();
scaduto += riga.scaduto(); scaduto += riga.scaduto();
esposto += riga.esposto(); esposto += riga.esposto();
impeuro += riga.importo_in_euro(); impeuro += riga.importo_in_euro();
ok = TRUE; ok = true;
} }
if (ok) if (ok)
@ -978,12 +986,11 @@ bool TESSL_form::print_game(const TPartita& game)
{ {
saldo.normalize(); saldo.normalize();
const TString & dessaldo = describe(PEC_SALDO); TString desc;
TString desc(80); desc = describe(PEC_SALDO);
const TValuta & val = righe.row(r-1).valuta(); const TValuta& val = righe.row(r-1).valuta();
if (val.in_valuta())
desc = dessaldo; desc << ' ' << val.codice();
desc << ' ' << val.codice();
TESSL_row sld(desc, saldo, val); TESSL_row sld(desc, saldo, val);

4
sc/sc2402.cpp
View File

@ -40,8 +40,8 @@ TSol_row::TSol_row(const char* desc, const TImporto& imp, const TValuta& val)
// TSol_form: form speciale per solleciti // TSol_form: form speciale per solleciti
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
TSol_form::TSol_form(const TSol_mask& m, bool gesval, short id_datalim, short id_datascad) TSol_form::TSol_form(const TSol_mask& m, bool gesval, short id_datalim, short id_datascad, short id_ggrischio)
: TESSL_form(m, gesval, id_datalim, id_datascad) : TESSL_form(m, gesval, id_datalim, id_datascad, id_ggrischio)
{ {
_sel_tot_saldo = m.get_sel_tot_saldo(); _sel_tot_saldo = m.get_sel_tot_saldo();
_sel_importo = m.get_sel_importo(); _sel_importo = m.get_sel_importo();

4
sc/sc2402.h
View File

@ -43,8 +43,8 @@ protected:
public: public:
bool get_sel_tot_saldo() const { return _sel_tot_saldo;} bool get_sel_tot_saldo() const { return _sel_tot_saldo;}
const real & get_sel_importo() const { return _sel_importo; } const real& get_sel_importo() const { return _sel_importo; }
TSol_form(const TSol_mask& m, bool gesval, short id_datalim, short id_datascad); TSol_form(const TSol_mask& m, bool gesval, short id_datalim, short id_datascad, short id_ggrischio);
}; };
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////