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

Corretta apertura partite da saldi

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2044 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-10-30 10:20:10 +00:00
parent 83c7e3992e
commit 658d370f05
2 changed files with 248 additions and 348 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

580
sc/sc1200.cpp
View File

@ -1,340 +1,240 @@
#include <applicat.h> #include <applicat.h>
#include <mask.h> #include <mask.h>
#include <progind.h> #include <progind.h>
#include <urldefid.h> #include <relation.h>
#include <saldi.h> #include <urldefid.h>
#include <pconti.h> #include <utility.h>
#include <partite.h>
#include <scadenze.h> #include <saldi.h>
#include <pagsca.h> #include <pconti.h>
#include <lffiles.h> #include <partite.h>
#include <relation.h> #include <scadenze.h>
#include <utility.h> #include <pagsca.h>
#include "../cg/conto.h" #include "../cg/cglib.h"
#include "../cg/pagament.h" #include "../cg/conto.h"
#include "../cg/cglib.h" #include "../cg/saldacon.h"
#include "sc1200.h" #include "sc1200.h"
class TCreatepart_app : public TApplication class TCreatepart_app : public TApplication
{ {
TLocalisamfile* _conti; TLocalisamfile* _conti;
TLocalisamfile* _partite; TLocalisamfile* _partite;
TLocalisamfile* _scadenze; TLocalisamfile* _scadenze;
TLocalisamfile* _pagsca; TLocalisamfile* _pagsca;
int _anno; int _anno;
protected: protected:
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
virtual bool menu(MENU_TAG m); virtual bool menu(MENU_TAG m);
bool zap_partite(); bool zap_partite();
public: public:
int is_clifo(int g, int c, char& cf, int& indbil); char is_clifo(int g, int c, int& indbil);
TCreatepart_app() {} TCreatepart_app() {}
virtual ~TCreatepart_app() {} virtual ~TCreatepart_app() {}
}; };
bool TCreatepart_app::create() bool TCreatepart_app::create()
{ {
TApplication::create(); TApplication::create();
_conti = new TLocalisamfile(LF_PCON); _conti = new TLocalisamfile(LF_PCON);
_partite = new TLocalisamfile(LF_PARTITE); _partite = new TLocalisamfile(LF_PARTITE);
_scadenze = new TLocalisamfile(LF_SCADENZE); _scadenze = new TLocalisamfile(LF_SCADENZE);
_pagsca = new TLocalisamfile(LF_PAGSCA); _pagsca = new TLocalisamfile(LF_PAGSCA);
dispatch_e_menu(BAR_ITEM(1)); dispatch_e_menu(BAR_ITEM(1));
return TRUE; return TRUE;
} }
bool TCreatepart_app::destroy() bool TCreatepart_app::destroy()
{ {
delete _conti; delete _conti;
delete _partite; delete _partite;
delete _scadenze; delete _scadenze;
delete _pagsca; delete _pagsca;
return TApplication::destroy(); return TApplication::destroy();
} }
bool TCreatepart_app::zap_partite() bool TCreatepart_app::zap_partite()
{ {
bool first = TRUE; bool first = TRUE;
for (_partite->first(); !_partite->eof(); _partite->next()) for (_partite->first(); !_partite->eof(); _partite->read(_isgreat))
{ {
// ignora saldaconto altri esercizi // ignora saldaconto altri esercizi
if (_partite->get_long(PART_ANNO) != _anno) if (_partite->get_long(PART_ANNO) != _anno)
continue; continue;
if (first) if (first)
{ {
bool ok = yesno_box("Il saldaconto per l'esercizio scelto non e' vuoto." bool ok = yesno_box("Il saldaconto per l'esercizio scelto non e' vuoto."
" La procedura lo azzera completamente." " La procedura lo azzera completamente."
" Si desidera proseguire?"); " Si desidera proseguire?");
if (ok) if (ok)
ok = yesno_box("Confermare l'azzeramento del saldaconto esistente"); ok = yesno_box("Confermare l'azzeramento del saldaconto esistente");
if (!ok) return FALSE; if (!ok)
first = FALSE; return FALSE;
} first = FALSE;
}
bool gos = TRUE;
bool goi = TRUE; TPartita game(_partite->curr());
game.remove();
for (int i = 1; gos || goi ; i++) }
{
// zappa scadenze return TRUE;
if (gos) }
{
_scadenze->zero();
_scadenze->put(SCAD_ANNO, _partite->get(PART_ANNO)); char TCreatepart_app::is_clifo(int g, int c, int& indbil)
_scadenze->put(SCAD_NUMPART, _partite->get(PART_NUMPART)); {
_scadenze->put(SCAD_NRATA, i+1); _conti->zero();
_conti->put(PCN_GRUPPO, g);
if (gos = (_scadenze->read() == NOERR)) _conti->put(PCN_CONTO, c);
_scadenze->remove();
} if (_conti->read() != NOERR)
{
// zappa pagamenti warning_box("Piano dei conti disallineato con archivio saldi: esecuzione interrotta");
if (goi) return '\0';
{ }
_pagsca->zero();
_pagsca->put(PAGSCA_ANNO, _partite->get(PART_ANNO)); const char cf = _conti->get_char(PCN_TMCF);
_pagsca->put(PAGSCA_NUMPART, _partite->get(PART_NUMPART)); indbil = _conti->get_int(PCN_INDBIL);
_pagsca->put(PAGSCA_NRIGP, i+1);
return cf;
if (goi = (_pagsca->read() == NOERR)) }
_pagsca->remove();
}
} bool TCreatepart_app::menu(MENU_TAG)
_partite->remove(); {
} const TDate today(TODAY);
TMask m("sc1200a");
return TRUE;
} TString desccl(80); desccl << "Apertura clienti al " << today.string();
TString descfo(80); descfo << "Apertura fornitori al " << today.string();
int TCreatepart_app::is_clifo(int g, int c, char& cf, int& indbil) m.set(F_DESCCL, desccl);
{ m.set(F_DESCFO, descfo);
// deve ritornare QUANTI sono i conti in cui appare lo stesso
// cliente; se piu' di uno deve creare n rate, una per cliente while (m.run() == K_ENTER)
{
_conti->zero(); _anno = m.get_int(F_ANNO);
_conti->put(PCN_GRUPPO, g); desccl = m.get(F_DESCCL);
_conti->put(PCN_CONTO, c); descfo = m.get(F_DESCFO);
if (_conti->read() != NOERR)
{ int n_part = 0;
warning_box("Piano dei conti disallineato con archivio saldi: esecuzione interrotta"); m.set(F_NUMPART, n_part);
return 0;
} // sputtana tutto il saldaculo
if (!zap_partite())
if (_conti->get(PCN_TMCF).empty()) continue;
return 0;
TRelation saldi(LF_SALDI);
cf = _conti->get_char(PCN_TMCF); saldi.curr().put(SLD_ANNOES, _anno);
indbil = _conti->get_int(PCN_INDBIL);
long cl = _conti->get_long(PCN_SOTTOCONTO); TCursor cur(&saldi, "", 1, &saldi.curr(), &saldi.curr());
const long items = cur.items();
// cerca tutti i conti in cui compare lo stesso cliente o
// fornitore long npart = 0L;
int ncli = 0; if (items > 0)
{
for (_conti->first(); !_conti->eof(); _conti->next()) begin_wait();
{ TProgind prind(items, "Creazione saldaconto", FALSE, TRUE,45);
if (_conti->get_char(PCN_TMCF) == cf &&
_conti->get_long(PCN_SOTTOCONTO) == cl) for (cur = 0; cur.pos() < items; ++cur)
ncli++; {
} const int gruppo = cur.curr().get_int(SLD_GRUPPO);
const int conto = cur.curr().get_int(SLD_CONTO);
return ncli; const long sottoc = cur.curr().get_long(SLD_SOTTOCONTO);
} int indbil;
const char cf = is_clifo(gruppo, conto, indbil);
if (cf > ' ')
bool TCreatepart_app::menu(MENU_TAG) {
{ TSaldo sld;
TMask m("sc1200a");
TRelation saldi(LF_SALDI); // ciuccia il saldo e vedi se e' movimentato nell'esercizio corrente
saldi.zero(); if (!sld.ultima_immissione_verifica(_anno, gruppo, conto, sottoc, indbil, 1))
{
TDate today(TODAY); // non movimentato: se e' conto patrimoniale....
TString80 desccl = "Apertura clienti al "; desccl << today.string(); if (!(indbil == 1 || indbil == 2 || indbil == 5))
TString80 descfo = "Apertura fornitori al "; descfo << today.string(); {
prind.addstatus(1);
m.set(F_DESCCL, desccl); continue;
m.set(F_DESCFO, descfo); }
// .. vedi saldo esercizio precedente, altrimenti inkul
while (m.run() == K_ENTER) sld.saldofin_esprec(_anno, gruppo, conto, sottoc);
{ }
_anno = m.get_int(F_ANNO);
desccl = m.get(F_DESCCL); // genera importo con sezione appropriata
descfo = m.get(F_DESCFO); TImporto saldo(cur.curr().get_char(SLD_FLAGSALINI), sld.saldoini());
int n_part = 0; TImporto pdare('D', sld.prgdare());
m.set(F_NUMPART, n_part); TImporto pavere('A', sld.prgavere());
// sputtana tutto il saldaculo saldo += pdare;
if (!zap_partite()) break; saldo += pavere;
saldo.normalize();
saldi.lfile().zero();
saldi.lfile().put(SLD_ANNOES, _anno); // (whew)
TCursor cur(&saldi, "", 1, &saldi.curr(), &saldi.curr()); if (!saldo.is_zero())
const long items = cur.items(); {
long npart = 0L; const TBill clifo(gruppo, conto, sottoc, cf);
// determina ultima partita; la prima volta, TPartita game(clifo, _anno, "*");
// se ce n'e' chiedi se si vuole cancellare
long last_partita = 1l; TRiga_partite& riga = game.new_row();
riga.put(PART_DATAREG, today);
if (items > 0) riga.put(PART_DATADOC, today);
{ riga.put(PART_SEZ, saldo.sezione());
begin_wait(); riga.put(PART_IMPORTO, saldo.valore());
riga.put(PART_DESCR, cf == 'C' ? desccl : descfo);
TProgind prind(items, "Creazione saldaconto", FALSE, TRUE,45);
// cazzata dare/avere/fare/baciare/cagare
int hw = 0; const int tipo = (cf == 'C' ? (saldo.sezione() == 'D' ? 1 : 2) :
for (cur = 0, hw = 0 ; cur.pos() < items; ++cur, hw++) (saldo.sezione() == 'D' ? 2 : 1));
{
char cf; int nclienti; riga.put(PART_TIPOMOV, tipo);
int gruppo = cur.curr().get_int(SLD_GRUPPO);
int conto = cur.curr().get_int(SLD_CONTO); if (tipo == 1)
long sottoc = cur.curr().get_long(SLD_SOTTOCONTO); {
TRiga_scadenze& scad = riga.new_row();
int indbil; scad.put(SCAD_IMPORTO, saldo.valore());
scad.put(SCAD_DATASCAD, today);
nclienti = is_clifo(gruppo, conto, cf, indbil); scad.put(SCAD_TIPOPAG, 2);
if (nclienti > 0) }
{ else
TSaldo sld; {
TRectype& unas = game.unassigned().row(riga.get_int(PART_NRIGA), TRUE);
// ciuccia il saldo e vedi se e' movimentato nell'esercizio corrente unas.put(PAGSCA_IMPORTO, saldo.valore());
if (!sld.ultima_immissione_verifica(_anno, gruppo, conto, sottoc, indbil, 1)) unas.put(PAGSCA_ACCSAL, 'A');
{ }
// non movimentato: se e' conto patrimoniale.... game.write();
if (!(indbil == 1 || indbil == 2 || indbil == 5)) m.set(F_NUMPART, ++n_part);
{ }
prind.addstatus(1); }
continue; prind.addstatus(1);
} }
// .. vedi saldo esercizio precedente, altrimenti inkul end_wait();
sld.saldofin_esprec(_anno, gruppo, conto, sottoc); }
} else
message_box("Nessun saldo presente per l'esercizio %d", _anno);
// genera importo con sezione appropriata } // while run
TImporto saldo(cur.curr().get_char(SLD_FLAGSALINI), sld.saldoini());
TImporto pdare('D', sld.prgdare()); return FALSE;
TImporto pavere('A', sld.prgavere()); }
saldo += pdare;
saldo += pavere; int sc1200(int argc, char** argv)
saldo.normalize(); {
TCreatepart_app a;
// (whew) a.run(argc, argv, "Apertura scadenze da saldi");
return 0;
if (!saldo.is_zero()) }
{
TString16 id;
real val(saldo.valore());
// TPagamento pag(codpag, today.string());
// pag.set_total(val, ZERO, ZERO);
// pag.set_rate_auto();
// apri partita dimmerda
id << format("*%05ld", last_partita++);
_partite->zero();
_partite->put(PART_ANNO, _anno);
_partite->put(PART_NUMPART, id);
_partite->put(PART_NUMRIG, 1);
_partite->put(PART_NRIGA, 1);
_partite->put(PART_DATAREG, today);
_partite->put(PART_DATADOC, today);
_partite->put(PART_SEZ, saldo.sezione());
_partite->put(PART_IMPORTO, saldo.valore());
_partite->put(PART_CODVAL, "LIT");
_partite->put(PART_TIPOCF, cf);
_partite->put(PART_GRUPPOCL, gruppo);
_partite->put(PART_CONTOCL, conto);
_partite->put(PART_SOTTOCONTO,sottoc);
_partite->put(PART_DESCR, cf == 'C' ? desccl : descfo);
// _partite->put(PART_CODPAG, codpag);
// cazzata dare/avere/fare/baciare/cagare
int tipo = (cf == 'C' ? (saldo.sezione() == 'D' ? 1 : 3) :
(saldo.sezione() == 'D' ? 3 : 1));
_partite->put(PART_TIPOMOV, tipo);
_partite->write();
if (tipo == 1)
{
// apri scadenze dimmerda: tante quanti clienti ci sono
for (int i = 0; i < nclienti; i++)
{
_scadenze->zero();
_scadenze->put(SCAD_ANNO, _anno);
_scadenze->put(SCAD_NUMPART, id);
_scadenze->put(SCAD_NRATA, i+1);
_scadenze->put(SCAD_IMPORTO, val/real((double)nclienti));
_scadenze->put(SCAD_TIPOCF, cf);
_scadenze->put(SCAD_SOTTOCONTO, sottoc);
// oldies and goldies
// not removed, you know why
// ------------------------------------------------------------
// _scadenze->put(SCAD_CODPAG, codpag);
// _scadenze->put(SCAD_ULTCLASS, pag.ulc_rata(i));
// _scadenze->put(SCAD_TIPOPAG, pag.tipo_rata(i));
// _scadenze->put(SCAD_DATASCAD, pag.data_rata(i));
// _scadenze->put(SCAD_GRUPPO, gruppo);
// _scadenze->put(SCAD_CONTO, conto);
_scadenze->write();
}
}
else
{
// apri insoluto
for (int i = 0; i < nclienti; i++)
{
_pagsca->zero();
_pagsca->put(PAGSCA_ANNO, _anno);
_pagsca->put(PAGSCA_NUMPART, id);
_pagsca->put(PAGSCA_NRIGP, i+1);
_pagsca->put(PAGSCA_IMPORTO, val/real((double)nclienti));
_pagsca->put(PAGSCA_TIPOC, cf);
_pagsca->put(PAGSCA_SOTTOCONTO, sottoc);
_pagsca->write();
}
}
n_part++;
m.set(F_NUMPART, format("%d",n_part));
}
}
prind.addstatus(1);
}
end_wait();
}
else
message_box("Nessun saldo presente per l'esercizio %d", _anno);
} // while run
return FALSE;
}
int sc1200(int argc, char** argv)
{
TCreatepart_app a;
a.run(argc, argv, "Apertura scadenze da saldi contabili");
return 0;
}

16
sc/sc1300.cpp
View File

@ -21,20 +21,20 @@ protected:
static bool zap_handler(TMask_field& f, KEY k); static bool zap_handler(TMask_field& f, KEY k);
static SollecitiStorici_app& app() static SollecitiStorici_app& app()
{ return (SollecitiStorici_app&)main_app();} { return (SollecitiStorici_app&)main_app();}
public: public:
void zap_cliente(const char* c); void zap_cliente(const char* c);
SollecitiStorici_app() {} SollecitiStorici_app() {}
virtual ~SollecitiStorici_app() {} virtual ~SollecitiStorici_app() {}
}; };
bool SollecitiStorici_app::user_create() bool SollecitiStorici_app::user_create()
{ {
_rel = new TRelation(LF_STOSOLL); _rel = new TRelation(LF_PAGSCA);
_msk = new TMask("sc1300a"); _msk = new TMask("sc1300a");
_msk->set_handler(F_ZAP, zap_handler); _msk->set_handler(F_ZAP, zap_handler);
@ -42,7 +42,7 @@ bool SollecitiStorici_app::user_create()
return TRUE; return TRUE;
} }
bool SollecitiStorici_app::user_destroy() bool SollecitiStorici_app::user_destroy()
{ {
delete _rel; delete _rel;
@ -58,8 +58,8 @@ bool SollecitiStorici_app::zap_handler(TMask_field& f, KEY k)
if (yesno_box("Si desidera azzerare l'archivio solleciti per " if (yesno_box("Si desidera azzerare l'archivio solleciti per "
"il cliente %s?", (const char*)f.mask().get(F_DESCR))) "il cliente %s?", (const char*)f.mask().get(F_DESCR)))
{ {
app().zap_cliente(f.mask().get(F_CODICE)); app().zap_cliente(f.mask().get(F_CODICE));
f.mask().stop_run(K_ESC); f.mask().stop_run(K_ESC);
} }
} }
return TRUE; return TRUE;
@ -118,4 +118,4 @@ int sc1300(int argc, char** argv)
SollecitiStorici_app a; SollecitiStorici_app a;
a.run(argc, argv, "Archivio Storico Solleciti"); a.run(argc, argv, "Archivio Storico Solleciti");
return 0; return 0;
} }