Corretto calcolo provvigioni negative generate da note di credito
git-svn-id: svn://10.65.10.50/branches/R_10_00@22735 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
34cd783a46
commit
1f2e7c2c82
@ -1,3 +1,3 @@
|
||||
124
|
||||
0
|
||||
$provv|0|0|246|0|Archivio provvigioni|||
|
||||
$provv|0|0|254|0|Archivio provvigioni|||
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
124
|
||||
25
|
||||
26
|
||||
CODAGE|1|5|0|Codice agente
|
||||
ANNO|2|4|0|Anno del documento
|
||||
CODNUM|1|4|0|Codice numerazione del documento
|
||||
@ -25,6 +25,7 @@ PROVVPAG|4|18|2|Provvigione pagata
|
||||
PAGMAT|4|18|2|Pagamento maturato
|
||||
PROVVMAT|4|18|2|Provvigione maturata
|
||||
TIPOPAGPR|2|1|0|Tipo pagamento della provvigione (?)
|
||||
DATASTAMPA|5|8|0|Data pagamento ultima provvigione
|
||||
2
|
||||
CODAGE+ANNO+CODNUM+NDOC+NRIGA|
|
||||
CODAGE+DATADOC|X
|
||||
|
||||
26
pr/pr0.cpp
26
pr/pr0.cpp
@ -4,27 +4,17 @@
|
||||
int main(int argc,char** argv)
|
||||
{
|
||||
const int n = argc > 1 ? argv[1][1]-'0' : 0;
|
||||
|
||||
switch (n)
|
||||
{
|
||||
case 1:
|
||||
pr0200(argc,argv); break; // stampa tabelle
|
||||
case 2:
|
||||
pr0300(argc,argv); break; // parametri studio
|
||||
case 3:
|
||||
pr0400(argc,argv); break; // parametri ditta
|
||||
case 4:
|
||||
pr0500(argc,argv); break; // gestione agenti
|
||||
case 5:
|
||||
pr0600(argc,argv); break; // gestione archivi percentuali di provvigione
|
||||
case 6:
|
||||
pr0700(argc,argv); break; // gestione provvigioni agenti
|
||||
case 7:
|
||||
pr0800(argc,argv); break; // aggiornamento maturato
|
||||
default:
|
||||
pr0100(argc,argv); break; // gestione tabelle
|
||||
case 1: pr0200(argc,argv); break; // stampa tabelle
|
||||
case 2: pr0300(argc,argv); break; // parametri studio
|
||||
case 3: pr0400(argc,argv); break; // parametri ditta
|
||||
case 4: pr0500(argc,argv); break; // gestione agenti
|
||||
case 5: pr0600(argc,argv); break; // gestione archivi percentuali di provvigione
|
||||
case 6: pr0700(argc,argv); break; // gestione provvigioni agenti
|
||||
case 7: pr0800(argc,argv); break; // aggiornamento maturato
|
||||
default:pr0100(argc,argv); break; // gestione tabelle
|
||||
}
|
||||
exit(0);
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
242
pr/pr0800.cpp
242
pr/pr0800.cpp
@ -1,13 +1,12 @@
|
||||
// Programma di gestione provvigioni
|
||||
#include <applicat.h>
|
||||
#include <automask.h>
|
||||
#include <msksheet.h>
|
||||
#include <recset.h>
|
||||
|
||||
#include "../cg/cgsaldac.h"
|
||||
#include "../ve/velib.h"
|
||||
#include "prlib.h"
|
||||
#include <modaut.h>
|
||||
|
||||
#include <mov.h>
|
||||
#include <doc.h>
|
||||
#include "provv.h"
|
||||
@ -22,9 +21,7 @@ protected:
|
||||
public:
|
||||
void load_params();
|
||||
void save_params();
|
||||
|
||||
TAggiornamento_maturato_mask() : TAutomask("pr0800a") {}
|
||||
virtual ~TAggiornamento_maturato_mask() {}
|
||||
};
|
||||
|
||||
bool TAggiornamento_maturato_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
@ -37,9 +34,16 @@ bool TAggiornamento_maturato_mask::on_field_event(TOperable_field& o, TField_eve
|
||||
const long a_cod = atol(o.get());
|
||||
const long da_cod = get_long(F_DA_CODAGE);
|
||||
if (a_cod > 0L && da_cod > a_cod)
|
||||
return error_box("Codice agente finale minore del codice agente iniziale");
|
||||
return error_box(TR("Codice agente finale minore del codice agente iniziale"));
|
||||
}
|
||||
break;
|
||||
case F_CHECK_INSOLUTI:
|
||||
if (e == fe_init)
|
||||
{
|
||||
const TRectype prov(LF_PROVV);
|
||||
o.enable(prov.exist(PROV_DATASTAMPA));
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
@ -48,17 +52,14 @@ bool TAggiornamento_maturato_mask::on_field_event(TOperable_field& o, TField_eve
|
||||
|
||||
class TAggiornamento_maturato_app : public TSkeleton_application
|
||||
{
|
||||
|
||||
protected:
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
void aggiorna_maturato(TAggiornamento_maturato_mask &m);
|
||||
virtual void main_loop();
|
||||
|
||||
public:
|
||||
void aggiorna_maturato(const TAggiornamento_maturato_mask &m);
|
||||
};
|
||||
|
||||
static inline TAggiornamento_maturato_app& app() { return (TAggiornamento_maturato_app&) main_app(); }
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Da fare :
|
||||
// - Quando si elimina l'ultima riga dello spreadsheet si posiziona sulla prima senza
|
||||
@ -77,135 +78,170 @@ bool TAggiornamento_maturato_app::create()
|
||||
const bool saldaconto = has_module(SCAUT, CHK_DONGLE);
|
||||
|
||||
if (!saldaconto)
|
||||
return error_box("Questo programma necessita del saldaconto");
|
||||
return error_box(TR("Questo programma necessita del saldaconto"));
|
||||
|
||||
open_files(LF_PROVV, LF_TABCOM, LF_DOC, LF_PARTITE, LF_SCADENZE, LF_PAGSCA, LF_TAB, 0);
|
||||
|
||||
return TSkeleton_application::create();
|
||||
}
|
||||
|
||||
bool TAggiornamento_maturato_app::destroy()
|
||||
static bool prov_saldata(const TRectype& prov)
|
||||
{
|
||||
return TSkeleton_application::destroy();
|
||||
bool is_saldata = prov.get_bool(PROV_SALDATA);
|
||||
if (!is_saldata)
|
||||
{
|
||||
const real importo_rata = prov.get(PROV_IMPRATA);
|
||||
const real importo_pagato = prov.get(PROV_PAGATO);
|
||||
if ((importo_rata > ZERO) && (importo_rata <= importo_pagato)) // come fosse saldata, per cui ...
|
||||
is_saldata = true;
|
||||
}
|
||||
return is_saldata;
|
||||
}
|
||||
|
||||
bool filter_func(const TRelation* rel)
|
||||
static bool scan_func(const TRelation& rel, void* pJolly)
|
||||
{
|
||||
const real importo_rata = rel->curr().get(PROV_IMPRATA);
|
||||
const real importo_pagato = rel->curr().get(PROV_PAGATO);
|
||||
const TAggiornamento_maturato_mask& m = *(const TAggiornamento_maturato_mask*)pJolly;
|
||||
TRectype& rec = rel.curr();
|
||||
const bool is_saldata = prov_saldata(rec);
|
||||
|
||||
if ((importo_rata > ZERO) && (importo_rata <= importo_pagato))
|
||||
return false;
|
||||
else
|
||||
return true;
|
||||
}
|
||||
bool scan_func(const TRelation& rel, void* pJolly)
|
||||
{
|
||||
TAggiornamento_maturato_mask * m = (TAggiornamento_maturato_mask *) pJolly;
|
||||
const TDate data_scad(m->get(F_DATA_SCAD));
|
||||
TDate data_rischio(data_scad); data_rischio -= m->get_long(F_GIORNI_RISCHIO);
|
||||
bool sbf = false;
|
||||
TRectype & rec = rel.curr();
|
||||
const int anno = rec.get_int(PROV_ANNO);
|
||||
const TString16 codnum(rec.get(PROV_CODNUM)) ;
|
||||
bool check_insoluti = false;
|
||||
TDate data_stampa;
|
||||
if (is_saldata && m.get_bool(F_CHECK_INSOLUTI))
|
||||
{
|
||||
data_stampa = rec.get_date(PROV_DATASTAMPA);
|
||||
check_insoluti = data_stampa.ok();
|
||||
}
|
||||
|
||||
if (!check_insoluti && is_saldata)
|
||||
return true;
|
||||
|
||||
const int anno = rec.get_int(PROV_ANNO);
|
||||
const TString& codnum(rec.get(PROV_CODNUM)) ;
|
||||
const long ndoc = rec.get_long(PROV_NDOC);
|
||||
TString key;
|
||||
|
||||
key.format("D|%d|%s|%ld", anno, (const char *) codnum, ndoc);
|
||||
|
||||
TString80 key; key.format("D|%d|%s|%ld", anno, (const char *) codnum, ndoc);
|
||||
const long nreg = atol(cache().get(LF_DOC, key, DOC_NUMREG));
|
||||
|
||||
if (nreg > 0)
|
||||
if (nreg <= 0)
|
||||
return true; // nessuna partita???
|
||||
|
||||
const TDate data_scad = m.get(F_DATA_SCAD);
|
||||
TDate data_rischio(data_scad); data_rischio -= m.get_long(F_GIORNI_RISCHIO);
|
||||
|
||||
TPartite_array partite;
|
||||
partite.add_numreg(nreg); // Always 1 record
|
||||
|
||||
bool changed_record = false;
|
||||
for (const TPartita* part = partite.first(); part && !changed_record; part = partite.next()) // Always 1 game
|
||||
{
|
||||
TPartite_array p;
|
||||
p.add_numreg(nreg);
|
||||
if (p.items() > 0)
|
||||
bool insoluti_in_ritardo = false;
|
||||
for (int nriga = part->last(); nriga > 0 && !changed_record; nriga = part->pred(nriga))
|
||||
{
|
||||
const TPartita & part = *(p.first());
|
||||
const int nriga = part.prima_fattura(nreg);
|
||||
if (nriga >= 0)
|
||||
const TRiga_partite& r = part->riga(nriga);
|
||||
if (check_insoluti && r.tipo() >= tm_insoluto)
|
||||
{
|
||||
const TDate data_insoluto = r.get(PART_DATAREG);
|
||||
if (data_insoluto > data_stampa)
|
||||
insoluti_in_ritardo = true;
|
||||
continue;
|
||||
}
|
||||
if (r.get_long(PART_NREG) != nreg || r.tipo() > tm_nota_credito)
|
||||
continue;
|
||||
|
||||
if (rec.get_bool(PROV_SALDATA))
|
||||
{
|
||||
if (check_insoluti && !insoluti_in_ritardo)
|
||||
continue; // Ignora righe saldate in assenza di insoluti
|
||||
}
|
||||
|
||||
int nrata = rec.get_int(PROV_NRATA);
|
||||
if (nrata > 0 && !r.exist(nrata))
|
||||
nrata = 0;
|
||||
|
||||
const real importo_rata(rec.get_real(PROV_IMPRATA));
|
||||
const real importo_pagato(rec.get_real(PROV_PAGATO));
|
||||
const real provvigione_rata(rec.get_real(PROV_IMPPROVV));
|
||||
const real provvigione_pagata(rec.get_real(PROV_PROVVPAG));
|
||||
|
||||
if (nrata > 0)
|
||||
{
|
||||
bool changed_record = false;
|
||||
TRiga_partite & r = part.riga(nriga);
|
||||
const int nrata = rec.get_int(PROV_NRATA);
|
||||
const real importo_rata(rec.get_real(PROV_IMPRATA));
|
||||
const real importo_pagato(rec.get_real(PROV_PAGATO));
|
||||
const real provvigione_rata(rec.get_real(PROV_IMPPROVV));
|
||||
const real provvigione_pagata(rec.get_real(PROV_PROVVPAG));
|
||||
|
||||
if (nrata > 0)
|
||||
{
|
||||
TRiga_scadenze & s = r.rata(nrata);
|
||||
TImporto pagato(s.importo_pagato(false));
|
||||
bool sbf = false;
|
||||
|
||||
pagato -= s.esposto(false, data_scad, data_rischio, sbf);
|
||||
pagato.normalize('A');
|
||||
if (pagato.valore() >= importo_rata)
|
||||
{
|
||||
const real importo_maturato = importo_rata - importo_pagato;
|
||||
const real provvigione_maturata = provvigione_rata - provvigione_pagata;
|
||||
const TRiga_scadenze& s = r.rata(nrata);
|
||||
TImporto pagato(s.importo_pagato(false));
|
||||
pagato -= s.esposto(false, data_scad, data_rischio, sbf);
|
||||
pagato.normalize('A');
|
||||
if (pagato.valore() >= importo_rata)
|
||||
{
|
||||
const real importo_maturato = importo_rata - importo_pagato;
|
||||
const real provvigione_maturata = provvigione_rata - provvigione_pagata;
|
||||
|
||||
rec.put(PROV_PAGMAT, importo_maturato);
|
||||
rec.put(PROV_PROVVMAT, provvigione_maturata);
|
||||
rec.put(PROV_PAGMAT, importo_maturato);
|
||||
rec.put(PROV_PROVVMAT, provvigione_maturata);
|
||||
|
||||
changed_record = true;
|
||||
}
|
||||
else
|
||||
{
|
||||
const real importo_maturato = pagato.valore() - importo_pagato;
|
||||
|
||||
if (importo_maturato > ZERO)
|
||||
{
|
||||
real provvigione_maturata = provvigione_rata * (importo_maturato / importo_rata);
|
||||
|
||||
rec.put(PROV_PAGMAT, importo_maturato);
|
||||
rec.put(PROV_PROVVMAT, provvigione_maturata);
|
||||
changed_record = true;
|
||||
}
|
||||
}
|
||||
}
|
||||
changed_record = true;
|
||||
}
|
||||
else
|
||||
{
|
||||
const TDate data_mat = rec.get_date(PROV_DATASCAD);
|
||||
|
||||
if (data_mat <= data_scad)
|
||||
real importo_maturato = pagato.valore() - importo_pagato;
|
||||
if (importo_maturato < ZERO)
|
||||
{
|
||||
if (-importo_maturato > importo_pagato)
|
||||
importo_maturato = -importo_pagato;
|
||||
}
|
||||
if (importo_maturato >= ZERO)
|
||||
{
|
||||
real provvigione_maturata = provvigione_rata * importo_maturato / importo_rata;
|
||||
provvigione_maturata.round(2);
|
||||
rec.put(PROV_PAGMAT, importo_maturato);
|
||||
rec.put(PROV_PROVVMAT, provvigione_maturata);
|
||||
changed_record = true;
|
||||
rec.put(PROV_PAGMAT, importo_rata);
|
||||
rec.put(PROV_PROVVMAT, provvigione_rata);
|
||||
}
|
||||
}
|
||||
|
||||
if (changed_record)
|
||||
}
|
||||
else
|
||||
{
|
||||
const TDate data_mat = rec.get_date(PROV_DATASCAD);
|
||||
if (data_mat <= data_scad)
|
||||
{
|
||||
TLocalisamfile provv(LF_PROVV);
|
||||
provv.curr() = rec;
|
||||
int err = provv.read(_isequal, _lock);
|
||||
if (err == NOERR)
|
||||
err = rec.rewrite(provv);
|
||||
if (err != NOERR)
|
||||
return yesno_box("Errore %d nell' aggioramento agente %ld, Continuare ugualmente", err, rec.get_long(PROV_CODAGE));
|
||||
changed_record = true;
|
||||
rec.put(PROV_PAGMAT, importo_rata);
|
||||
rec.put(PROV_PROVVMAT, provvigione_rata);
|
||||
}
|
||||
}
|
||||
|
||||
if (changed_record)
|
||||
{
|
||||
TLocalisamfile provv(LF_PROVV);
|
||||
provv.curr() = rec;
|
||||
int err = provv.read(_isequal, _lock);
|
||||
if (err == NOERR)
|
||||
err = rec.rewrite(provv);
|
||||
if (err != NOERR)
|
||||
return yesno_box(FR("Errore %d in aggioramento agente %ld, Continuare ugualmente"), err, rec.get_long(PROV_CODAGE));
|
||||
}
|
||||
}
|
||||
}
|
||||
return true;
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
void TAggiornamento_maturato_app::aggiorna_maturato(TAggiornamento_maturato_mask &m)
|
||||
void TAggiornamento_maturato_app::aggiorna_maturato(const TAggiornamento_maturato_mask &m)
|
||||
{
|
||||
TCursor c(new TRelation(LF_PROVV), "(ANNO!=\"\")&&(CODNUM!=\"\")&&(NDOC!=\"\")&&(SALDATA!=\"X\")");
|
||||
TRectype from(LF_PROVV);
|
||||
TRectype to(LF_PROVV);
|
||||
const TString16 da_cod(m.get(F_DA_CODAGE));
|
||||
const TString16 a_cod(m.get(F_A_CODAGE));
|
||||
const bool check_insoluti = m.get_bool(F_CHECK_INSOLUTI);
|
||||
|
||||
if (da_cod > 0)
|
||||
from.put(PROV_CODAGE, da_cod);
|
||||
if (a_cod > 0)
|
||||
to.put(PROV_CODAGE, a_cod);
|
||||
TString filter = "(ANNO!=\"\")&&(CODNUM!=\"\")&&(NDOC!=\"\")";
|
||||
if (!check_insoluti)
|
||||
filter << "&&(SALDATA!=\"X\")";
|
||||
|
||||
TRectype from(LF_PROVV), to(LF_PROVV);
|
||||
from.put(PROV_CODAGE, m.get(F_DA_CODAGE));
|
||||
to.put(PROV_CODAGE, m.get(F_A_CODAGE));
|
||||
|
||||
TRelation rel(LF_PROVV);
|
||||
TCursor c(&rel, filter, 1, &from, &to);
|
||||
c.setregion(from, to);
|
||||
c.set_filterfunction(filter_func);
|
||||
c.scan(scan_func, &m, TR("Aggiornamento provvigioni maturate"));
|
||||
c.scan(scan_func, (void*)&m, TR("Aggiornamento provvigioni maturate"));
|
||||
}
|
||||
|
||||
void TAggiornamento_maturato_app::main_loop()
|
||||
|
||||
@ -6,3 +6,4 @@
|
||||
#define F_A_RAGSOC 204
|
||||
#define F_DATA_SCAD 205
|
||||
#define F_GIORNI_RISCHIO 206
|
||||
#define F_CHECK_INSOLUTI 207
|
||||
|
||||
@ -5,9 +5,10 @@ TOOLBAR "" 0 0 0 2
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Aggiornamento Maturato" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 80 6
|
||||
BEGIN
|
||||
PROMPT 1 1 "Agente"
|
||||
PROMPT 1 1 "Selezione agenti"
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
@ -61,6 +62,12 @@ BEGIN
|
||||
ADD RUN PR0 -4
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 80 5
|
||||
BEGIN
|
||||
PROMPT 1 7 "Parametri"
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
DATE F_DATA_SCAD
|
||||
BEGIN
|
||||
PROMPT 2 8 "Data scadenza "
|
||||
@ -69,7 +76,12 @@ END
|
||||
|
||||
NUMBER F_GIORNI_RISCHIO 2
|
||||
BEGIN
|
||||
PROMPT 2 10 "Giorni rischio "
|
||||
PROMPT 2 9 "Giorni rischio "
|
||||
END
|
||||
|
||||
BOOLEAN F_CHECK_INSOLUTI
|
||||
BEGIN
|
||||
PROMPT 2 10 "Controllo insoluti registrati dopo il pagamento delle provvigioni"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
|
||||
16
pr/pr1.cpp
16
pr/pr1.cpp
@ -7,18 +7,12 @@ int main(int argc,char** argv)
|
||||
const int n = argc > 1 ? argv[1][1]-'0' : 0;
|
||||
switch (n)
|
||||
{
|
||||
case 1:
|
||||
pr1200(argc,argv); break; // stampa archivio percentuali di provvigione
|
||||
case 2:
|
||||
pr1300(argc,argv); break; // stampa schede di provvigione
|
||||
case 3:
|
||||
pr1400(argc,argv); break; // stampa statistiche
|
||||
case 4:
|
||||
pr1500(argc,argv); break; // stampa versamenti
|
||||
default:
|
||||
pr1100(argc,argv); break; // stampa agenti
|
||||
case 1: pr1200(argc,argv); break; // stampa archivio percentuali di provvigione
|
||||
case 2: pr1300(argc,argv); break; // stampa schede di provvigione
|
||||
case 3: pr1400(argc,argv); break; // stampa statistiche
|
||||
case 4: pr1500(argc,argv); break; // stampa versamenti
|
||||
default: pr1100(argc,argv); break; // stampa agenti
|
||||
}
|
||||
exit(0);
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
@ -125,11 +125,10 @@ bool TStampa_schedeprovv::destroy()
|
||||
|
||||
void TStampa_schedeprovv::riporta_pagamenti(TCursor &cur)
|
||||
{
|
||||
if (cur.items()==0) return;
|
||||
const TRelation * r = cur.relation();
|
||||
TLocalisamfile& prov = r->lfile();
|
||||
TProgind barra(cur.items(),TR("Registro le provvigioni pagate"));
|
||||
for (int c=0; c<cur.items(); c++)
|
||||
for (int c=0; c < cur.items(); c++)
|
||||
{
|
||||
cur=c;
|
||||
barra.setstatus(c);
|
||||
@ -137,8 +136,8 @@ void TStampa_schedeprovv::riporta_pagamenti(TCursor &cur)
|
||||
real provv_pag, pag_pag;
|
||||
provv_pag = prov.get_real(PROV_PROVVMAT);
|
||||
pag_pag = prov.get_real(PROV_PAGMAT);
|
||||
if (!provv_pag.is_zero() &&
|
||||
!prov.get_bool(PROV_SALDATA)) // this should never happen!
|
||||
if (!provv_pag.is_zero()
|
||||
&& !prov.get_bool(PROV_SALDATA)) // this should never happen!
|
||||
{
|
||||
prov.reread(_lock);
|
||||
provv_pag += prov.get_real(PROV_PROVVPAG);
|
||||
@ -149,6 +148,12 @@ void TStampa_schedeprovv::riporta_pagamenti(TCursor &cur)
|
||||
prov.put(PROV_PAGMAT,0);
|
||||
if (provv_pag>=prov.get_real(PROV_IMPPROVV))
|
||||
prov.put(PROV_SALDATA,"X");
|
||||
if (prov.curr().exist(PROV_DATASTAMPA))
|
||||
{
|
||||
const TDate oggi = _m->get(F_ADATA);
|
||||
if (oggi.ok())
|
||||
prov.put(PROV_DATASTAMPA, oggi);
|
||||
}
|
||||
prov.rewrite();
|
||||
}
|
||||
}
|
||||
|
||||
@ -27,6 +27,7 @@
|
||||
#define PROV_PAGMAT "PAGMAT"
|
||||
#define PROV_PROVVMAT "PROVVMAT"
|
||||
#define PROV_TIPOPAGPR "TIPOPAGPR"
|
||||
#define PROV_DATASTAMPA "DATASTAMPA"
|
||||
|
||||
#endif
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user