Gestione ripristiono stampa definitiva provvigioni
git-svn-id: svn://10.65.10.50/branches/R_10_00@23059 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
0a8e1aaec0
commit
580ae47f0d
@ -7,9 +7,9 @@
|
||||
#include "prlib.h"
|
||||
#include <modaut.h>
|
||||
|
||||
#include <mov.h>
|
||||
#include <doc.h>
|
||||
#include "provv.h"
|
||||
|
||||
#include "pr0800a.h"
|
||||
#include "pr0.h"
|
||||
|
||||
@ -58,6 +58,7 @@ protected:
|
||||
|
||||
public:
|
||||
void aggiorna_maturato(const TAggiornamento_maturato_mask &m);
|
||||
void azzera_maturato(const TAggiornamento_maturato_mask &m);
|
||||
};
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////////
|
||||
@ -76,7 +77,6 @@ public:
|
||||
bool TAggiornamento_maturato_app::create()
|
||||
{
|
||||
const bool saldaconto = has_module(SCAUT, CHK_DONGLE);
|
||||
|
||||
if (!saldaconto)
|
||||
return error_box(TR("Questo programma necessita del saldaconto"));
|
||||
|
||||
@ -98,7 +98,7 @@ static bool prov_saldata(const TRectype& prov)
|
||||
return is_saldata;
|
||||
}
|
||||
|
||||
static bool scan_func(const TRelation& rel, void* pJolly)
|
||||
static bool matura_func(const TRelation& rel, void* pJolly)
|
||||
{
|
||||
const TAggiornamento_maturato_mask& m = *(const TAggiornamento_maturato_mask*)pJolly;
|
||||
TRectype& rec = rel.curr();
|
||||
@ -121,7 +121,6 @@ static bool scan_func(const TRelation& rel, void* pJolly)
|
||||
|
||||
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)
|
||||
return true; // nessuna partita???
|
||||
|
||||
@ -212,11 +211,13 @@ static bool scan_func(const TRelation& rel, void* pJolly)
|
||||
|
||||
if (changed_record)
|
||||
{
|
||||
TLocalisamfile provv(LF_PROVV);
|
||||
provv.curr() = rec;
|
||||
int err = provv.read(_isequal, _lock);
|
||||
TLocalisamfile& provv = rel.lfile(LF_PROVV);
|
||||
int err = provv.reread(_lock);
|
||||
if (err == NOERR)
|
||||
{
|
||||
provv.curr() = rec;
|
||||
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));
|
||||
}
|
||||
@ -241,19 +242,73 @@ void TAggiornamento_maturato_app::aggiorna_maturato(const TAggiornamento_maturat
|
||||
TRelation rel(LF_PROVV);
|
||||
TCursor c(&rel, filter, 1, &from, &to);
|
||||
c.setregion(from, to);
|
||||
c.scan(scan_func, (void*)&m, TR("Aggiornamento provvigioni maturate"));
|
||||
c.scan(matura_func, (void*)&m, TR("Aggiornamento provvigioni maturate"));
|
||||
}
|
||||
|
||||
static bool azzera_func(const TRelation& rel, void* pJolly)
|
||||
{
|
||||
TRectype& rec = rel.curr();
|
||||
|
||||
const real imp_pagato = rec.get_real(PROV_PAGATO);
|
||||
const real pro_pagata = rec.get_real(PROV_PROVVPAG);
|
||||
if (pro_pagata > ZERO)
|
||||
{
|
||||
rec.put(PROV_PAGMAT, imp_pagato);
|
||||
rec.put(PROV_PROVVMAT, pro_pagata);
|
||||
rec.zero(PROV_PAGATO);
|
||||
rec.zero(PROV_PROVVPAG);
|
||||
rec.zero(PROV_SALDATA);
|
||||
rec.zero(PROV_DATASTAMPA);
|
||||
if (rel.lfile().rewrite() == NOERR)
|
||||
{
|
||||
TRecnotype& n = *(TRecnotype*)pJolly;
|
||||
n++;
|
||||
}
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
void TAggiornamento_maturato_app::azzera_maturato(const TAggiornamento_maturato_mask &m)
|
||||
{
|
||||
const TDate data_scad = m.get(F_DATA_SCADENZA);
|
||||
const TDate data_stam = m.get(F_DATA_INIZIO);
|
||||
|
||||
TString filter;
|
||||
if (data_stam.ok())
|
||||
filter << "BETWEEN(DATASTAMPA," << data_stam.date2ansi() << ",0)";
|
||||
else
|
||||
filter << "BETWEEN(DATASCAD," << data_scad.date2ansi() << ",0)";
|
||||
|
||||
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);
|
||||
TRecnotype n = 0;
|
||||
c.scan(azzera_func, (void*)&n, TR("Ripristino provvigioni maturate"));
|
||||
message_box(FR("Sono state ripristinate %ld righe di provvigione"), n);
|
||||
}
|
||||
|
||||
|
||||
void TAggiornamento_maturato_app::main_loop()
|
||||
{
|
||||
open_files(LF_TAB, LF_TABCOM, LF_CLIFO, LF_PARTITE, LF_SCADENZE, LF_PAGSCA, LF_DOC, 0);
|
||||
TAggiornamento_maturato_mask m;
|
||||
while (m.run() == K_ENTER)
|
||||
aggiorna_maturato(m);
|
||||
{
|
||||
TFast_isamfile provv(LF_PROVV);
|
||||
const char op = m.get(F_OPERAZIONE)[0];
|
||||
if (op <= 'A')
|
||||
aggiorna_maturato(m);
|
||||
else
|
||||
azzera_maturato(m);
|
||||
}
|
||||
}
|
||||
|
||||
int pr0800(int argc, char** argv)
|
||||
{
|
||||
TAggiornamento_maturato_app a;
|
||||
a.run(argc, argv, TR("Aggiornamento provvigioni maturate"));
|
||||
a.run(argc, argv, TR("Aggiornamento maturato"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
@ -7,3 +7,6 @@
|
||||
#define F_DATA_SCAD 205
|
||||
#define F_GIORNI_RISCHIO 206
|
||||
#define F_CHECK_INSOLUTI 207
|
||||
#define F_OPERAZIONE 208
|
||||
#define F_DATA_INIZIO 209
|
||||
#define F_DATA_SCADENZA 210
|
||||
|
||||
@ -1,15 +1,14 @@
|
||||
#include "pr0800a.h"
|
||||
|
||||
TOOLBAR "" 0 0 0 2
|
||||
#include <stdbar.h>
|
||||
#include <elabar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Aggiornamento Maturato" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 80 6
|
||||
GROUPBOX DLG_NULL 78 6
|
||||
BEGIN
|
||||
PROMPT 1 1 "Selezione agenti"
|
||||
FLAGS "R"
|
||||
PROMPT 1 1 "@bSelezione agenti"
|
||||
END
|
||||
|
||||
STRING F_DA_CODAGE 5
|
||||
@ -62,38 +61,80 @@ BEGIN
|
||||
ADD RUN PR0 -4
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 80 5
|
||||
RADIOBUTTON F_OPERAZIONE 78
|
||||
BEGIN
|
||||
PROMPT 1 7 "Parametri"
|
||||
FLAGS "R"
|
||||
PROMPT 1 7 "Tipo operazione"
|
||||
ITEM "A|Aggiornamento maturato"
|
||||
MESSAGE HIDE,2@|SHOW,1@
|
||||
ITEM "R|Ripristino pagato"
|
||||
MESSAGE HIDE,1@|SHOW,2@
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 6
|
||||
BEGIN
|
||||
PROMPT 1 10 "@bParametri aggiornamento"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
DATE F_DATA_SCAD
|
||||
BEGIN
|
||||
PROMPT 2 8 "Data scadenza "
|
||||
PROMPT 2 11 "Data scadenza "
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_GIORNI_RISCHIO 2
|
||||
BEGIN
|
||||
PROMPT 2 9 "Giorni rischio "
|
||||
PROMPT 42 11 "Giorni rischio "
|
||||
GROUP 1
|
||||
|
||||
END
|
||||
|
||||
BOOLEAN F_CHECK_INSOLUTI
|
||||
BEGIN
|
||||
PROMPT 2 10 "Controllo insoluti registrati dopo il pagamento delle provvigioni"
|
||||
PROMPT 2 12 "Controllo insoluti registrati dopo il pagamento delle provvigioni"
|
||||
GROUP 1
|
||||
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 12 "@BAttenzione se non vengono impostati giorni di rischio tutti gli effetti presentati"
|
||||
PROMPT 2 13 "@BAttenzione: se non si specificano i giorni di rischio,"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 13 "@Bverrano considerati pagati."
|
||||
PROMPT 2 14 "@Bgli effetti presentati verranno considerati pagati."
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 10 "@bParametri ripristino"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
DATE F_DATA_INIZIO
|
||||
BEGIN
|
||||
PROMPT 2 11 "Data stampa definitiva "
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 2
|
||||
MESSAGE EMPTY ENABLE,F_DATA_SCADENZA
|
||||
MESSAGE CLEAR,F_DATA_SCADENZA
|
||||
END
|
||||
|
||||
DATE F_DATA_SCADENZA
|
||||
BEGIN
|
||||
PROMPT 2 12 "Data scadenza "
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 2
|
||||
MESSAGE EMPTY ENABLE,F_DATA_INIZIO
|
||||
MESSAGE CLEAR,F_DATA_INIZIO
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
@ -128,21 +128,26 @@ bool TStampa_schedeprovv::destroy()
|
||||
|
||||
void TStampa_schedeprovv::riporta_pagamenti(TCursor &cur)
|
||||
{
|
||||
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++)
|
||||
TLocalisamfile& fprov = cur.file();
|
||||
TRectype& prov = fprov.curr();
|
||||
const TRecnotype tot = cur.items();
|
||||
TProgress_monitor barra(tot, TR("Registrazione delle provvigioni pagate"));
|
||||
|
||||
TDate oggi = _m->get(F_ADATA);
|
||||
if (!oggi.ok())
|
||||
oggi = TDate(TODAY);
|
||||
|
||||
for (cur = 0; cur.pos() < tot; ++cur)
|
||||
{
|
||||
cur=c;
|
||||
barra.setstatus(c);
|
||||
if (!barra.add_status())
|
||||
break;
|
||||
// stampa definitiva: riporta le provvigioni maturate sulle provv. pagate
|
||||
real provv_pag, pag_pag;
|
||||
provv_pag = prov.get_real(PROV_PROVVMAT);
|
||||
pag_pag = prov.get_real(PROV_PAGMAT);
|
||||
real provv_pag = prov.get_real(PROV_PROVVMAT);
|
||||
real pag_pag = prov.get_real(PROV_PAGMAT);
|
||||
if (!provv_pag.is_zero()
|
||||
&& !prov.get_bool(PROV_SALDATA)) // this should never happen!
|
||||
{
|
||||
prov.reread(_lock);
|
||||
fprov.reread(_lock);
|
||||
provv_pag += prov.get_real(PROV_PROVVPAG);
|
||||
pag_pag += prov.get_real(PROV_PAGATO);
|
||||
prov.put(PROV_PROVVPAG,provv_pag);
|
||||
@ -151,13 +156,9 @@ 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();
|
||||
if (prov.exist(PROV_DATASTAMPA))
|
||||
prov.put(PROV_DATASTAMPA, oggi);
|
||||
fprov.rewrite();
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -250,9 +251,7 @@ void TStampa_schedeprovv::print_or_preview(bool paper)
|
||||
const TString& tipodoc = _m->get(F_TIPODOC);
|
||||
if (tipodoc.full())
|
||||
{
|
||||
//frm.cursor()->relation()->add(LF_DOC, "CODNUM==CODNUM|ANNO==ANNO|PROVV==\"D\"|NDOC==NDOC");
|
||||
bool not_empty = filter.full();
|
||||
|
||||
bool not_empty = filter.full();
|
||||
if (not_empty)
|
||||
{
|
||||
filter.insert("(");
|
||||
@ -285,7 +284,10 @@ void TStampa_schedeprovv::print_or_preview(bool paper)
|
||||
frm.find_field('B',odd_page,"RATEDOC").show(!_m->get_bool(F_RAGGRATE));
|
||||
frm.print();
|
||||
if (_m->get(F_DEFINITIVA)[0]=='D')
|
||||
riporta_pagamenti(*frm.cursor());
|
||||
{
|
||||
if (yesno_box(TR("Si desidera procedere con il riporto definitivo degli importi maturati nei pagamenti?")))
|
||||
riporta_pagamenti(*frm.cursor());
|
||||
}
|
||||
|
||||
frm.cursor()->freeze(false);
|
||||
|
||||
|
||||
@ -18,7 +18,7 @@ BEGIN
|
||||
USE LF_AGENTI
|
||||
INPUT CODAGE F_DAAGE
|
||||
DISPLAY "Codice" CODAGE
|
||||
DISPLAY "Descr@50" RAGSOC
|
||||
DISPLAY "Descrizione@50" RAGSOC
|
||||
OUTPUT F_DAAGE CODAGE
|
||||
GROUP G_CODAGE
|
||||
END
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user