418 lines
12 KiB
C++
418 lines
12 KiB
C++
|
#include "../cg/conto.h"
|
||
|
|
#include "../cg/pagament.h"
|
||
|
|
#include "../cg/saldacon.h"
|
||
|
|
#include "../cg/cg21sld.h"
|
||
|
|
|
||
|
|
#include "sc0100.h"
|
||
|
|
#include "sc0100a.h"
|
||
|
|
|
||
|
|
#define __EXTRA__
|
||
|
|
#include "../cg/cg2105.cpp"
|
||
|
|
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
// Maschera gestione rate
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
|
||
|
|
class TFattura_mask : public TMask
|
||
|
|
{
|
||
|
|
TRiga_partite& _fattura;
|
||
|
|
TPagamento* _pag;
|
||
|
|
TString_array _pag_rows;
|
||
|
|
|
||
|
|
protected: // TMask
|
||
|
|
virtual void start_run();
|
||
|
|
virtual bool stop_run(KEY k);
|
||
|
|
|
||
|
|
protected:
|
||
|
|
static bool pag_notify(TSheet_field& ps, int r, KEY k);
|
||
|
|
static bool pag_handler(TMask_field& f, KEY key);
|
||
|
|
static bool reset_handler(TMask_field& f, KEY key);
|
||
|
|
static bool recalc_handler(TMask_field& f, KEY key);
|
||
|
|
static bool nrate_handler(TMask_field& f, KEY key);
|
||
|
|
static bool codcab_handler(TMask_field& f, KEY key);
|
||
|
|
|
||
|
|
TSheet_field& pag_sheet() const { return (TSheet_field&)field(FS_RATESHEET); }
|
||
|
|
|
||
|
|
void read_scadenze();
|
||
|
|
void write_scadenze() const;
|
||
|
|
|
||
|
|
public:
|
||
|
|
TFattura_mask(TRiga_partite& fattura, const TString& codpag);
|
||
|
|
virtual ~TFattura_mask() {}
|
||
|
|
};
|
||
|
|
|
||
|
|
TFattura_mask::TFattura_mask(TRiga_partite& fattura, const TString& codpag)
|
||
|
|
: TMask("sc0100b"), _fattura(fattura), _pag(NULL)
|
||
|
|
{
|
||
|
|
set_handler(FS_RESET, reset_handler);
|
||
|
|
set_handler(FS_RECALC, recalc_handler);
|
||
|
|
set_handler(FS_NRATE, nrate_handler);
|
||
|
|
set_handler(FS_NSCAB, codcab_handler);
|
||
|
|
set_handler(FS_VSCAB, codcab_handler);
|
||
|
|
|
||
|
|
pag_sheet().set_notify(pag_notify);
|
||
|
|
pag_sheet().set_handler(pag_handler);
|
||
|
|
|
||
|
|
const TRiga_partite& partita = _fattura;
|
||
|
|
const TString16 datadoc = partita.get(PART_DATADOC);
|
||
|
|
_pag = new TPagamento(codpag, datadoc);
|
||
|
|
}
|
||
|
|
|
||
|
|
void TFattura_mask::start_run()
|
||
|
|
{
|
||
|
|
read_scadenze();
|
||
|
|
}
|
||
|
|
|
||
|
|
bool TFattura_mask::stop_run(KEY k)
|
||
|
|
{
|
||
|
|
const bool ok = TMask::stop_run(k);
|
||
|
|
if (ok && k == K_ENTER)
|
||
|
|
write_scadenze();
|
||
|
|
return ok;
|
||
|
|
}
|
||
|
|
|
||
|
|
bool TFattura_mask::pag_notify(TSheet_field& ps, int r, KEY k)
|
||
|
|
{
|
||
|
|
if (k == K_INS || k == K_DEL)
|
||
|
|
return FALSE;
|
||
|
|
if (k != K_ENTER)
|
||
|
|
return TRUE;
|
||
|
|
|
||
|
|
TFattura_mask& fm = (TFattura_mask&)ps.mask();
|
||
|
|
TPagamento& pag = *fm._pag;
|
||
|
|
TString_array& rws = fm._pag_rows;
|
||
|
|
|
||
|
|
const int rdiff = fm.get_int(FS_RDIFFER);
|
||
|
|
const bool in_valuta = pag.in_valuta();
|
||
|
|
const int impos = in_valuta ? 2 : 1;
|
||
|
|
|
||
|
|
bool doit = TRUE, m_imp = FALSE, m_perc = FALSE, m_pag = FALSE;
|
||
|
|
bool m_scad = FALSE, m_tipo = FALSE, mod = FALSE;
|
||
|
|
word ahiahi = P_OK;
|
||
|
|
|
||
|
|
const bool recalc = fm.get_bool(FS_RECALC);
|
||
|
|
const bool mcomm = fm.get_bool(FS_MCOMM);
|
||
|
|
|
||
|
|
TToken_string ns = ps.row(r);
|
||
|
|
TToken_string ts = rws.row(r);
|
||
|
|
|
||
|
|
const TString news = ns.get(0); // Data scadenza
|
||
|
|
const TString newi = ns.get(impos); // Imponibile (lire o valuta)
|
||
|
|
const TString newp = ns.get(3); // Percentuale
|
||
|
|
const TString newt = ns.get(4); // Tipo pagamento
|
||
|
|
|
||
|
|
// qui viene il bello, si fa per dire
|
||
|
|
if (news != ts.get(0)) // modificata data scadenza
|
||
|
|
mod = m_scad = TRUE;
|
||
|
|
if (newp != ts.get(3)) // modificata percentuale
|
||
|
|
mod = m_perc = TRUE;
|
||
|
|
if (newi != ts.get(impos)) // modificato importo
|
||
|
|
{
|
||
|
|
// se si modifica la percentuale l'importo non viene cagato
|
||
|
|
if ((recalc && !m_perc) || (!recalc))
|
||
|
|
mod = m_imp = TRUE;
|
||
|
|
}
|
||
|
|
if (newt != ts.get(4)) // modificato tipo pagamento
|
||
|
|
mod = m_tipo = TRUE;
|
||
|
|
|
||
|
|
|
||
|
|
// settato da recalc_rate se occorre ridefinire lo sheet
|
||
|
|
// aggiungendo o togliendo righe
|
||
|
|
bool need_recalc = FALSE;
|
||
|
|
|
||
|
|
if (mod && recalc)
|
||
|
|
{
|
||
|
|
// ricalcola sheet come sai fare tu
|
||
|
|
ahiahi = pag.recalc_rate(r, m_perc,
|
||
|
|
((m_perc || m_imp) ?
|
||
|
|
(m_perc ? (const char*)newp : (const char*)newi) :
|
||
|
|
NULL),
|
||
|
|
(m_scad ? (const char*)news : NULL),
|
||
|
|
(m_tipo ? (const char*)newt : NULL),
|
||
|
|
rdiff, mcomm, need_recalc);
|
||
|
|
// see if rdiff changed
|
||
|
|
fm.set(FS_RDIFFER, pag.rate_differenziate() ? "1" : "2");
|
||
|
|
fm.set(FS_NRATE, pag.n_rate());
|
||
|
|
}
|
||
|
|
if (!recalc)
|
||
|
|
{
|
||
|
|
ahiahi = P_OK;
|
||
|
|
// put data as they are
|
||
|
|
TToken_string& trw = pag.rata(r);
|
||
|
|
TToken_string srw = trw;
|
||
|
|
if (m_tipo) trw.add(newt,2);
|
||
|
|
if (m_scad) trw.add(news,3);
|
||
|
|
if (m_imp)
|
||
|
|
{
|
||
|
|
trw.add(newi,4);
|
||
|
|
const real p = pag.recalc_percrata(r);
|
||
|
|
ps.row(r).add(p.string(), 3);
|
||
|
|
rws.row(r) = ps.row(r);
|
||
|
|
ps.force_update(r);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (ahiahi) // any error? Rimetti le righe com'erano prima
|
||
|
|
{
|
||
|
|
if (recalc)
|
||
|
|
{
|
||
|
|
beep();
|
||
|
|
ps.row(r) = rws.row(r);
|
||
|
|
ps.force_update(r);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else if (recalc && mod && need_recalc)
|
||
|
|
{
|
||
|
|
// ridefinisci lo sheet sulla base delle nuove rate
|
||
|
|
pag.set_sheet(ps);
|
||
|
|
rws = ps.rows_array();
|
||
|
|
}
|
||
|
|
|
||
|
|
return doit;
|
||
|
|
}
|
||
|
|
|
||
|
|
bool TFattura_mask::pag_handler(TMask_field& f, KEY key)
|
||
|
|
{
|
||
|
|
if (key == K_TAB || key == K_ENTER)
|
||
|
|
{
|
||
|
|
TFattura_mask& fm = (TFattura_mask&)f.mask();
|
||
|
|
TPagamento& pag = *fm._pag;
|
||
|
|
const word err = pag.validate();
|
||
|
|
if (err != P_OK)
|
||
|
|
{
|
||
|
|
TString256 s;
|
||
|
|
pag.strerr(err, s);
|
||
|
|
return error_box(s);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
bool TFattura_mask::reset_handler(TMask_field& f, KEY key)
|
||
|
|
{
|
||
|
|
if (key == K_SPACE)
|
||
|
|
{
|
||
|
|
TFattura_mask& fm = (TFattura_mask&)f.mask();
|
||
|
|
if (fm._fattura.rate() == 0)
|
||
|
|
fm._pag->read();
|
||
|
|
fm.read_scadenze();
|
||
|
|
}
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
bool TFattura_mask::recalc_handler(TMask_field& f, KEY key)
|
||
|
|
{
|
||
|
|
if (key == K_SPACE)
|
||
|
|
{
|
||
|
|
const bool on = f.get().not_empty();
|
||
|
|
const TMask& m = f.mask();
|
||
|
|
TSheet_field& ps = (TSheet_field&)m.field(FS_RATESHEET);
|
||
|
|
ps.enable_column(3, on);
|
||
|
|
}
|
||
|
|
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
bool TFattura_mask::nrate_handler(TMask_field& f, KEY key)
|
||
|
|
{
|
||
|
|
if (key == K_TAB && f.focusdirty())
|
||
|
|
{
|
||
|
|
TFattura_mask& fm = (TFattura_mask&)f.mask();
|
||
|
|
TPagamento& pag = *fm._pag;
|
||
|
|
|
||
|
|
pag.set_numero_rate(atoi(f.get()));
|
||
|
|
if (pag.dirty())
|
||
|
|
{
|
||
|
|
TSheet_field& ps = (TSheet_field&)fm.field(FS_RATESHEET);
|
||
|
|
pag.set_sheet(ps);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
bool TFattura_mask::codcab_handler(TMask_field& f, KEY key)
|
||
|
|
{
|
||
|
|
if (key == K_TAB && f.focusdirty())
|
||
|
|
{
|
||
|
|
const TMask& m = f.mask();
|
||
|
|
const short id = f.dlg() == FS_NSCAB ? FS_NSABI : FS_VSABI;
|
||
|
|
const int pos = id == FS_NSABI ? 6 : 8;
|
||
|
|
const TString16 abi = m.get(id);
|
||
|
|
const TString16 cab = m.get(id+1);
|
||
|
|
TSheet_field& ps = (TSheet_field&)m.field(FS_RATESHEET);
|
||
|
|
for (int i = ps.items()-1; i >= 0; i--)
|
||
|
|
{
|
||
|
|
TToken_string& row = ps.row(i);
|
||
|
|
row.add(abi, pos);
|
||
|
|
row.add(cab, pos+1);
|
||
|
|
}
|
||
|
|
ps.force_update();
|
||
|
|
}
|
||
|
|
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
void TFattura_mask::read_scadenze()
|
||
|
|
{
|
||
|
|
TRiga_partite& partita = _fattura;
|
||
|
|
TPagamento& pag = *_pag;
|
||
|
|
TSheet_field& ps = pag_sheet();
|
||
|
|
|
||
|
|
real imponibile, imposte, spese, cambio;
|
||
|
|
|
||
|
|
if (partita.in_valuta())
|
||
|
|
{
|
||
|
|
imponibile = partita.get_real(PART_IMPORTOVAL);
|
||
|
|
cambio = partita.get_real(PART_CAMBIO);
|
||
|
|
|
||
|
|
real imp = imponibile;
|
||
|
|
imp *= cambio;
|
||
|
|
imp.round();
|
||
|
|
set(FS_IMPONIBILI, imp);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
imponibile = partita.get_real(PART_IMPORTO);
|
||
|
|
set(FS_IMPONIBILI, imponibile);
|
||
|
|
}
|
||
|
|
|
||
|
|
pag.set_total(imponibile, imposte, spese);
|
||
|
|
pag.set_cambio(cambio);
|
||
|
|
|
||
|
|
if (partita.rate() > 0)
|
||
|
|
{
|
||
|
|
pag.zap_rate();
|
||
|
|
for (int i = 1; i <= partita.rate(); i++)
|
||
|
|
{
|
||
|
|
const TRiga_scadenze& scadenza = partita.rata(i);
|
||
|
|
real importo = scadenza.get(SCAD_IMPORTO);
|
||
|
|
const TDate scad = scadenza.get(SCAD_DATASCAD);
|
||
|
|
const int tipop = scadenza.get_int(SCAD_TIPOPAG);
|
||
|
|
const bool paid = scadenza.get_bool(SCAD_PAGATA);
|
||
|
|
const TString16 ulc = scadenza.get(SCAD_ULTCLASS);
|
||
|
|
if (scadenza.in_valuta())
|
||
|
|
{
|
||
|
|
const real impval(scadenza.get(SCAD_IMPORTOVAL));
|
||
|
|
pag.set_rata(i-1, impval, importo, scad, tipop, ulc, paid);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
pag.set_rata(i-1, importo, ZERO, scad, tipop, ulc, paid);
|
||
|
|
|
||
|
|
TToken_string& str = ps.row(i-1);
|
||
|
|
str.add(scadenza.get(SCAD_CODABIPR), 6);
|
||
|
|
str.add(scadenza.get(SCAD_CODCABPR), 7);
|
||
|
|
str.add(scadenza.get(SCAD_CODABI), 8);
|
||
|
|
str.add(scadenza.get(SCAD_CODCAB), 9);
|
||
|
|
if (i == 1)
|
||
|
|
{
|
||
|
|
set(FS_NSABI, str.get(6));
|
||
|
|
set(FS_NSCAB, str.get(7));
|
||
|
|
set(FS_VSABI, str.get(8));
|
||
|
|
set(FS_VSCAB, str.get(9));
|
||
|
|
set(FS_AGENTE, scadenza.get(SCAD_CODAG));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
|
||
|
|
pag.set_rate_auto();
|
||
|
|
}
|
||
|
|
|
||
|
|
set(FS_RDIFFER, pag.rate_differenziate() ? "1" : "2");
|
||
|
|
set(FS_NAMEPAG, pag.name());
|
||
|
|
set(FS_TIPOPR, pag.desc_tpr());
|
||
|
|
set(FS_MCOMM, pag.mese_commerciale() ? "X" : "");
|
||
|
|
set(FS_RECALC, "X", TRUE);
|
||
|
|
set(FS_NRATE, pag.n_rate());
|
||
|
|
|
||
|
|
pag.set_sheet(ps);
|
||
|
|
_pag_rows = ps.rows_array();
|
||
|
|
|
||
|
|
// se la prima rata e' fissa non si tocca
|
||
|
|
if (pag.tipo_prima_rata() > 3)
|
||
|
|
ps.disable_cell(0,-1);
|
||
|
|
}
|
||
|
|
|
||
|
|
void TFattura_mask::write_scadenze() const
|
||
|
|
{
|
||
|
|
CHECK(_pag, "Null pagament");
|
||
|
|
const TPagamento& pag = *_pag;
|
||
|
|
TRiga_partite& partita = _fattura;
|
||
|
|
|
||
|
|
TSheet_field& ps = pag_sheet();
|
||
|
|
|
||
|
|
const TString agente = get(FS_AGENTE);
|
||
|
|
|
||
|
|
partita.elimina_rate();
|
||
|
|
for (int i = 0; i < pag.n_rate(); i++)
|
||
|
|
{
|
||
|
|
TToken_string& row = ps.row(i);
|
||
|
|
|
||
|
|
TRiga_scadenze& scadenza = partita.new_row();
|
||
|
|
scadenza.put(SCAD_CODPAG, pag.code());
|
||
|
|
scadenza.put(SCAD_TIPOPAG, pag.tipo_rata(i));
|
||
|
|
scadenza.put(SCAD_ULTCLASS, pag.ulc_rata(i));
|
||
|
|
if (partita.in_valuta())
|
||
|
|
{
|
||
|
|
scadenza.put(SCAD_IMPORTO, pag.tlit_rata(i));
|
||
|
|
scadenza.put(SCAD_IMPORTOVAL, pag.tpay_rata(i));
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
scadenza.put(SCAD_IMPORTO, pag.tpay_rata(i));
|
||
|
|
scadenza.zero(SCAD_IMPORTOVAL);
|
||
|
|
}
|
||
|
|
scadenza.put(SCAD_DATASCAD, pag.data_rata(i));
|
||
|
|
scadenza.put(SCAD_CODABIPR, row.get(6));
|
||
|
|
scadenza.put(SCAD_CODCABPR, row.get(7));
|
||
|
|
scadenza.put(SCAD_CODABI, row.get(8));
|
||
|
|
scadenza.put(SCAD_CODCAB, row.get(9));
|
||
|
|
scadenza.put(SCAD_PAGATA, pag.ratapagata(i));
|
||
|
|
scadenza.put(SCAD_CODAG, agente);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
// Addendum alla maschera gestione partite
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
|
||
|
|
bool TGame_mask::edit_fattura(TPartita& p, int nriga)
|
||
|
|
{
|
||
|
|
TString16 codpag;
|
||
|
|
|
||
|
|
const bool nuova = nriga <= 0;
|
||
|
|
if (nuova)
|
||
|
|
nriga = nuova_riga(p);
|
||
|
|
|
||
|
|
TRiga_partite& f = p.riga(nriga);
|
||
|
|
if (f.rate() > 0)
|
||
|
|
_codpag = f.rata(1).get(SCAD_CODPAG);
|
||
|
|
|
||
|
|
TFattura_mask fm(f, _codpag);
|
||
|
|
const bool ok = fm.run() == K_ENTER;
|
||
|
|
|
||
|
|
if (nuova && !ok)
|
||
|
|
p.rimuovi_riga(nriga);
|
||
|
|
|
||
|
|
return ok;
|
||
|
|
}
|
||
|
|
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
// Gestione partite extra-contabili
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
|
||
|
|
void TSaldaconto_app::edit_partite(const TMask& m)
|
||
|
|
{
|
||
|
|
TBill b; // Legge il conto della riga selezionata
|
||
|
|
b.set(m.get_int(F_GRUPPO), m.get_int(F_CONTO),
|
||
|
|
m.get_long(F_SOTTOCONTO), m.get(F_TIPO)[0]);
|
||
|
|
|
||
|
|
TGame_mask gm(b, 0, 0);
|
||
|
|
gm.run();
|
||
|
|
if (gm.changed() && yesno_box("Si vogliono salvare le partite modificate?"))
|
||
|
|
partite().rewrite();
|
||
|
|
partite().destroy();
|
||
|
|
}
|
||
|
|
|