340 lines
9.8 KiB
C++
Executable File
340 lines
9.8 KiB
C++
Executable File
#include <applicat.h>
|
|
#include <mask.h>
|
|
#include <progind.h>
|
|
#include <urldefid.h>
|
|
#include <saldi.h>
|
|
#include <pconti.h>
|
|
#include <partite.h>
|
|
#include <scadenze.h>
|
|
#include <stosoll.h>
|
|
#include <lffiles.h>
|
|
#include <relation.h>
|
|
#include <utility.h>
|
|
|
|
#include "../cg/conto.h"
|
|
#include "../cg/pagament.h"
|
|
#include "../cg/cglib.h"
|
|
|
|
#include "sc1200.h"
|
|
|
|
class TCreatepart_app : public TApplication
|
|
{
|
|
TLocalisamfile* _conti;
|
|
TLocalisamfile* _partite;
|
|
TLocalisamfile* _scadenze;
|
|
TLocalisamfile* _pagsca;
|
|
|
|
int _anno;
|
|
|
|
protected:
|
|
|
|
virtual bool create();
|
|
virtual bool destroy();
|
|
virtual bool menu(MENU_TAG m);
|
|
|
|
bool zap_partite();
|
|
|
|
public:
|
|
|
|
int is_clifo(int g, int c, char& cf, int& indbil);
|
|
TCreatepart_app() {}
|
|
virtual ~TCreatepart_app() {}
|
|
};
|
|
|
|
|
|
bool TCreatepart_app::create()
|
|
{
|
|
TApplication::create();
|
|
|
|
_conti = new TLocalisamfile(LF_PCON);
|
|
_partite = new TLocalisamfile(LF_PARTITE);
|
|
_scadenze = new TLocalisamfile(LF_SCADENZE);
|
|
_pagsca = new TLocalisamfile(LF_STOSOLL);
|
|
|
|
dispatch_e_menu(BAR_ITEM(1));
|
|
return TRUE;
|
|
}
|
|
|
|
bool TCreatepart_app::destroy()
|
|
{
|
|
delete _conti;
|
|
delete _partite;
|
|
delete _scadenze;
|
|
delete _pagsca;
|
|
|
|
return TApplication::destroy();
|
|
}
|
|
|
|
|
|
bool TCreatepart_app::zap_partite()
|
|
{
|
|
bool first = TRUE;
|
|
for (_partite->first(); !_partite->eof(); _partite->next())
|
|
{
|
|
// ignora saldaconto altri esercizi
|
|
if (_partite->get_long(PART_ANNO) != _anno)
|
|
continue;
|
|
|
|
if (first)
|
|
{
|
|
bool ok = yesno_box("Il saldaconto per l'esercizio scelto non e' vuoto."
|
|
" La procedura lo azzera completamente."
|
|
" Si desidera proseguire?");
|
|
if (ok)
|
|
ok = yesno_box("Confermare l'azzeramento del saldaconto esistente");
|
|
if (!ok) return FALSE;
|
|
first = FALSE;
|
|
}
|
|
|
|
bool gos = TRUE;
|
|
bool goi = TRUE;
|
|
|
|
for (int i = 1; gos || goi ; i++)
|
|
{
|
|
// zappa scadenze
|
|
if (gos)
|
|
{
|
|
_scadenze->zero();
|
|
_scadenze->put(SCAD_ANNO, _partite->get(PART_ANNO));
|
|
_scadenze->put(SCAD_NUMPART, _partite->get(PART_NUMPART));
|
|
_scadenze->put(SCAD_NRATA, i+1);
|
|
|
|
if (gos = (_scadenze->read() == NOERR))
|
|
_scadenze->remove();
|
|
}
|
|
|
|
// zappa solleciti
|
|
if (goi)
|
|
{
|
|
_pagsca->zero();
|
|
_pagsca->put(SOLL_ANNO, _partite->get(PART_ANNO));
|
|
_pagsca->put(SOLL_NUMPART, _partite->get(PART_NUMPART));
|
|
_pagsca->put(SOLL_NRIGP, i+1);
|
|
|
|
if (goi = (_pagsca->read() == NOERR))
|
|
_pagsca->remove();
|
|
}
|
|
}
|
|
_partite->remove();
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
int TCreatepart_app::is_clifo(int g, int c, char& cf, int& indbil)
|
|
{
|
|
// deve ritornare QUANTI sono i conti in cui appare lo stesso
|
|
// cliente; se piu' di uno deve creare n rate, una per cliente
|
|
|
|
_conti->zero();
|
|
_conti->put(PCN_GRUPPO, g);
|
|
_conti->put(PCN_CONTO, c);
|
|
if (_conti->read() != NOERR)
|
|
{
|
|
warning_box("Piano dei conti disallineato con archivio saldi: esecuzione interrotta");
|
|
return 0;
|
|
}
|
|
|
|
if (_conti->get(PCN_TMCF).empty())
|
|
return 0;
|
|
|
|
cf = _conti->get_char(PCN_TMCF);
|
|
indbil = _conti->get_int(PCN_INDBIL);
|
|
long cl = _conti->get_long(PCN_SOTTOCONTO);
|
|
|
|
// cerca tutti i conti in cui compare lo stesso cliente o
|
|
// fornitore
|
|
int ncli = 0;
|
|
|
|
for (_conti->first(); !_conti->eof(); _conti->next())
|
|
{
|
|
if (_conti->get_char(PCN_TMCF) == cf &&
|
|
_conti->get_long(PCN_SOTTOCONTO) == cl)
|
|
ncli++;
|
|
}
|
|
|
|
return ncli;
|
|
}
|
|
|
|
|
|
bool TCreatepart_app::menu(MENU_TAG)
|
|
{
|
|
TMask m("sc1200a");
|
|
TRelation saldi(LF_SALDI);
|
|
saldi.zero();
|
|
|
|
TDate today(TODAY);
|
|
TString80 desccl = "Apertura clienti al "; desccl << today.string();
|
|
TString80 descfo = "Apertura fornitori al "; descfo << today.string();
|
|
|
|
m.set(F_DESCCL, desccl);
|
|
m.set(F_DESCFO, descfo);
|
|
|
|
while (m.run() == K_ENTER)
|
|
{
|
|
_anno = m.get_int(F_ANNO);
|
|
desccl = m.get(F_DESCCL);
|
|
descfo = m.get(F_DESCFO);
|
|
int n_part = 0;
|
|
m.set(F_NUMPART, format("%d",n_part));
|
|
|
|
// sputtana tutto il saldaculo
|
|
if (!zap_partite()) break;
|
|
|
|
saldi.lfile().zero();
|
|
saldi.lfile().put(SLD_ANNOES, _anno);
|
|
|
|
TCursor cur(&saldi, "", 1, &saldi.curr(), &saldi.curr());
|
|
const long items = cur.items();
|
|
long npart = 0L;
|
|
// determina ultima partita; la prima volta,
|
|
// se ce n'e' chiedi se si vuole cancellare
|
|
long last_partita = 1l;
|
|
|
|
if (items > 0)
|
|
{
|
|
begin_wait();
|
|
|
|
TProgind prind(items, "Creazione saldaconto", FALSE, TRUE,45);
|
|
|
|
int hw = 0;
|
|
for (cur = 0, hw = 0 ; cur.pos() < items; ++cur, hw++)
|
|
{
|
|
char cf; int nclienti;
|
|
int gruppo = cur.curr().get_int(SLD_GRUPPO);
|
|
int conto = cur.curr().get_int(SLD_CONTO);
|
|
long sottoc = cur.curr().get_long(SLD_SOTTOCONTO);
|
|
|
|
int indbil;
|
|
|
|
if ((nclienti = is_clifo(gruppo, conto, cf, indbil)) > 0)
|
|
{
|
|
TSaldo sld;
|
|
|
|
// ciuccia il saldo e vedi se e' movimentato nell'esercizio corrente
|
|
if (!sld.ultima_immissione_verifica(_anno, gruppo, conto, sottoc, indbil, 1))
|
|
{
|
|
// non movimentato: se e' conto patrimoniale....
|
|
if (!(indbil == 1 || indbil == 2 || indbil == 5))
|
|
{
|
|
prind.addstatus(1);
|
|
continue;
|
|
}
|
|
// .. vedi saldo esercizio precedente, altrimenti inkul
|
|
sld.saldofin_esprec(_anno, gruppo, conto, sottoc);
|
|
}
|
|
|
|
// genera importo con sezione appropriata
|
|
TImporto saldo(cur.curr().get_char(SLD_FLAGSALINI), sld.saldoini());
|
|
TImporto pdare('D', sld.prgdare());
|
|
TImporto pavere('A', sld.prgavere());
|
|
|
|
saldo += pdare;
|
|
saldo += pavere;
|
|
saldo.normalize();
|
|
|
|
// (whew)
|
|
|
|
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(SOLL_ANNO, _anno);
|
|
_pagsca->put(SOLL_NUMPART, id);
|
|
_pagsca->put(SOLL_NRIGP, i+1);
|
|
_pagsca->put(SOLL_IMPORTO, val/real((double)nclienti));
|
|
_pagsca->put(SOLL_TIPOC, cf);
|
|
_pagsca->put(SOLL_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;
|
|
}
|