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

Generazione scadenze archivi contabili, finito a Prassi piacendo

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1661 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-08-01 10:24:33 +00:00
parent b89f762389
commit 5acb056d43
2 changed files with 167 additions and 100 deletions

265
sc/sc1200.cpp

@ -6,12 +6,15 @@
#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
@ -19,6 +22,7 @@ class TCreatepart_app : public TApplication
TLocalisamfile* _conti;
TLocalisamfile* _partite;
TLocalisamfile* _scadenze;
TLocalisamfile* _pagsca;
int _anno;
@ -28,11 +32,11 @@ protected:
virtual bool destroy();
virtual bool menu(MENU_TAG m);
bool zap_partite(bool check_erase);
bool zap_partite();
public:
bool is_clifo(int g, int c, char& cf);
int is_clifo(int g, int c, char& cf, int& indbil);
TCreatepart_app() {}
virtual ~TCreatepart_app() {}
};
@ -45,6 +49,7 @@ bool TCreatepart_app::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;
@ -54,81 +59,102 @@ bool TCreatepart_app::destroy()
{
delete _conti;
delete _partite;
delete _scadenze;
delete _scadenze;
delete _pagsca;
return TApplication::destroy();
}
bool TCreatepart_app::zap_partite(bool zap)
{
// ritorna il primo valore utile per partita temporanea AP;
// se ce ne sono gia' propone la cancellazione e se ok
// la esegue perfidamente
_partite->zero();
_partite->put(PART_ANNO, _anno);
long last = 0l;
bool go = _partite->read(_isgteq) == NOERR;
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 (zap && go)
zap = yesno_box("Il saldaconto per l'esercizio scelto non e' vuoto."
" La procedura lo azzera completamente."
" Si desidera proseguire?");
if (zap && go)
zap = yesno_box("Confermare l'azzeramento del saldaconto esistente");
while (go)
{
if (zap)
{
for (int i = 0; ; i++)
{
// zappa scadenze
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 (_scadenze->read() == NOERR) _scadenze->remove();
else
{
_partite->remove();
break;
}
}
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();
}
}
go = _partite->next() == NOERR;
_partite->remove();
}
return zap;
return TRUE;
}
bool TCreatepart_app::is_clifo(int g, int c, char& cf)
int TCreatepart_app::is_clifo(int g, int c, char& cf, int& indbil)
{
static int gr = -1, ct = -1;
// TBI deve ritornare QUANTI sono i conti in cui appare lo stesso
// deve ritornare QUANTI sono i conti in cui appare lo stesso
// cliente; se piu' di uno deve creare n rate, una per cliente
if (g != gr || c != ct)
_conti->zero();
_conti->put(PCN_GRUPPO, g);
_conti->put(PCN_CONTO, c);
if (_conti->read() != NOERR)
{
_conti->zero();
_conti->put(PCN_GRUPPO, g);
_conti->put(PCN_CONTO, c);
if (_conti->read() != NOERR)
// TBC c'era un'error_box: ci vuole?
return FALSE;
gr = g; ct = c;
}
warning_box("Piano dei conti disallineato con archivio saldi: esecuzione interrotta");
return 0;
}
if (_conti->get(PCN_TMCF).empty())
return FALSE;
return 0;
cf = _conti->get_char(PCN_TMCF);
return TRUE;
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;
}
@ -145,15 +171,16 @@ bool TCreatepart_app::menu(MENU_TAG)
m.set(F_DESCCL, desccl);
m.set(F_DESCFO, descfo);
while (m.run() != K_QUIT)
{
int n_part = 0;
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));
_anno = m.get_int(F_ANNO);
// sputtana tutto il saldaculo
if (!zap_partite()) break;
saldi.lfile().zero();
saldi.lfile().put(SLD_ANNOES, _anno);
@ -161,28 +188,54 @@ bool TCreatepart_app::menu(MENU_TAG)
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();
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;
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);
long sottoc = cur.curr().get_long(SLD_SOTTOCONTO);
if (is_clifo(gruppo, conto, cf))
{
TImporto saldo(cur.curr().get_char(SLD_FLAGSALINI), cur.curr().get_real(SLD_SALDO));
TImporto pdare('D', cur.curr().get_real(SLD_PDARE));
TImporto pavere('A', cur.curr().get_real(SLD_PAVERE));
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;
@ -192,15 +245,8 @@ bool TCreatepart_app::menu(MENU_TAG)
// pag.set_total(val, ZERO, ZERO);
// pag.set_rate_auto();
// sputtana tutto il saldaculo
if (!zap_partite(hw == 0)) return FALSE;
// determina ultima partita; la prima volta,
// se ce n'e' chiedi se si vuole cancellare
long last_partita = 1l;
// apri partita dimmerda
id << format("*%05ld", last_partita);
id << format("*%05ld", last_partita++);
_partite->zero();
_partite->put(PART_ANNO, _anno);
@ -211,13 +257,14 @@ bool TCreatepart_app::menu(MENU_TAG)
_partite->put(PART_DATADOC, today);
_partite->put(PART_SEZ, saldo.sezione());
_partite->put(PART_IMPORTO, saldo.valore());
// _partite->put(PART_CODPAG, codpag);
_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) :
@ -226,33 +273,53 @@ bool TCreatepart_app::menu(MENU_TAG)
_partite->put(PART_TIPOMOV, tipo);
_partite->write();
// apri scadenze dimmerda: tante quanti clienti ci sono
// TBI vedi n. clienti
int nclienti = 1;
for (int i = 0; i < nclienti; i++)
if (tipo == 1)
{
_scadenze->zero();
_scadenze->put(SCAD_ANNO, _anno);
_scadenze->put(SCAD_NUMPART, id);
_scadenze->put(SCAD_NRATA, i+1);
// _scadenze->put(SCAD_CODPAG, codpag);
// _scadenze->put(SCAD_ULTCLASS, pag.ulc_rata(i));
// _scadenze->put(SCAD_TIPOPAG, pag.tipo_rata(i));
_scadenze->put(SCAD_IMPORTO, val/real((double)nclienti));
// _scadenze->put(SCAD_DATASCAD, pag.data_rata(i));
_scadenze->put(SCAD_TIPOCF, cf);
// _scadenze->put(SCAD_GRUPPO, gruppo);
// _scadenze->put(SCAD_CONTO, conto);
_scadenze->put(SCAD_SOTTOCONTO, sottoc);
_scadenze->write();
// 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();
}

2
sc/sc1200a.uml

@ -10,7 +10,7 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 32 1 "@bATTENZIONE"
PROMPT 31 1 "@bATTENZIONE"
END
TEXT DLG_NULL