Apertura partite da saldi contabili (sc1 -1)
git-svn-id: svn://10.65.10.50/trunk@1146 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa
parent
2e7da1d997
commit
b0e1e719dc
232
sc/sc1200.cpp
232
sc/sc1200.cpp
@ -3,71 +3,241 @@
|
||||
#include <progind.h>
|
||||
#include <urldefid.h>
|
||||
#include <saldi.h>
|
||||
#include <pconti.h>
|
||||
#include <partite.h>
|
||||
#include <scadenze.h>
|
||||
#include <lffiles.h>
|
||||
#include <relation.h>
|
||||
#include <utility.h>
|
||||
|
||||
#include "../cg/conto.h"
|
||||
#include "../cg/pagament.h"
|
||||
#include "sc1200.h"
|
||||
|
||||
|
||||
class TCreatepart_app : public TApplication
|
||||
{
|
||||
TLocalisamfile* _conti;
|
||||
TLocalisamfile* _partite;
|
||||
TLocalisamfile* _scadenze;
|
||||
|
||||
int _anno;
|
||||
|
||||
protected:
|
||||
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
virtual bool menu(MENU_TAG m);
|
||||
|
||||
long get_last_partita(bool check_erase);
|
||||
|
||||
public:
|
||||
TCreatepart_app() {};
|
||||
public:
|
||||
|
||||
bool is_clifo(int g, int c, char& cf);
|
||||
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);
|
||||
|
||||
dispatch_e_menu(BAR_ITEM(1));
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TCreatepart_app::destroy()
|
||||
{
|
||||
{
|
||||
delete _conti;
|
||||
delete _partite;
|
||||
delete _scadenze;
|
||||
|
||||
return TApplication::destroy();
|
||||
}
|
||||
|
||||
|
||||
long TCreatepart_app::get_last_partita(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);
|
||||
_partite->put(PART_NUMPART, "AP");
|
||||
|
||||
long last = 0l;
|
||||
bool go = _partite->read(_isgteq) == NOERR;
|
||||
|
||||
if (zap && go)
|
||||
zap = yesno_box("Esistono gia' partite generate in base ai"
|
||||
" saldi contabili. Si desidera cancellarle?");
|
||||
|
||||
while (go)
|
||||
{
|
||||
if (zap)
|
||||
{
|
||||
for (int i = 0; ; i++)
|
||||
{
|
||||
// zappa scadenze
|
||||
_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;
|
||||
}
|
||||
}
|
||||
}
|
||||
else last = atol(_partite->get(PART_NUMPART).mid(2)) + 1l;
|
||||
|
||||
go = _partite->next() == NOERR &&
|
||||
_partite->get(PART_NUMPART).mid(0,2) == "AP";
|
||||
}
|
||||
|
||||
return last;
|
||||
}
|
||||
|
||||
|
||||
bool TCreatepart_app::is_clifo(int g, int c, char& cf)
|
||||
{
|
||||
static int gr = -1, ct = -1;
|
||||
|
||||
if (g != gr || c != ct)
|
||||
{
|
||||
_conti->zero();
|
||||
_conti->put(PCN_GRUPPO, g);
|
||||
_conti->put(PCN_CONTO, c);
|
||||
if (_conti->read() != NOERR)
|
||||
error_box("Piano dei conti disallineato con archivio saldi");
|
||||
gr = g; ct = c;
|
||||
}
|
||||
|
||||
if (_conti->get(PCN_TMCF).empty())
|
||||
return FALSE;
|
||||
|
||||
cf = _conti->get_char(PCN_TMCF);
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
bool TCreatepart_app::menu(MENU_TAG)
|
||||
{
|
||||
TMask m("sc1200a");
|
||||
TRelation saldi(LF_SALDI);
|
||||
TLocalisamfile conti(LF_PCON);
|
||||
saldi.zero();
|
||||
saldi.zero();
|
||||
|
||||
|
||||
while (m.run() != K_QUIT)
|
||||
{
|
||||
const int anno = m.get_int(F_ANNO);
|
||||
|
||||
// saldi.curr().put(SLD_ANNO, anno);
|
||||
TCursor cur(&saldi, "", 1, &saldi.curr(), &saldi.curr());
|
||||
const long items = cur.items();
|
||||
long npart = 0L;
|
||||
|
||||
// if (items > 0)
|
||||
// {
|
||||
// for (cur = 0 ; cur.pos() < items; ++cur)
|
||||
// {
|
||||
// if (is_clifo(cur.curr().get_int(SLD_GRUPPO), cur.curr().get_int(SLD_CONTO)))
|
||||
// {
|
||||
// TSaldo s(????);
|
||||
// Timporto saldo(s.saldo??);
|
||||
|
||||
// if (saldo != ZERO)
|
||||
// {
|
||||
// }
|
||||
// }
|
||||
// }
|
||||
// else
|
||||
// message_box("Nessun saldo presente per l'anno %d", anno);
|
||||
|
||||
} // while run
|
||||
int n_part = 0;
|
||||
TDate data(m.get(F_DATA));
|
||||
TString16 codpag(m.get(F_CODPAG));
|
||||
|
||||
TPagamento pag(codpag, data.string());
|
||||
|
||||
m.set(F_NUMPART, format("%d",n_part));
|
||||
_anno = m.get_int(F_ANNO);
|
||||
|
||||
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;
|
||||
|
||||
if (items > 0)
|
||||
{
|
||||
begin_wait();
|
||||
int hw = 0;
|
||||
for (cur = 0, hw = 0 ; cur.pos() < items; ++cur, hw++)
|
||||
{
|
||||
char cf;
|
||||
int gruppo = cur.curr().get_int(SLD_GRUPPO);
|
||||
int conto = cur.curr().get_int(SLD_CONTO);
|
||||
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));
|
||||
|
||||
saldo += pdare;
|
||||
saldo += pavere;
|
||||
saldo.normalize();
|
||||
|
||||
if (!saldo.is_zero())
|
||||
{
|
||||
TString16 id;
|
||||
real val(saldo.valore());
|
||||
|
||||
pag.set_total(val, ZERO, ZERO);
|
||||
pag.set_rate_auto();
|
||||
|
||||
// determina ultima partita; la prima volta,
|
||||
// se ce n'e' chiedi se si vuole cancellare
|
||||
long last_partita = get_last_partita(hw == 0);
|
||||
|
||||
// apri partita dimmerda
|
||||
id << format("AP%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, data);
|
||||
_partite->put(PART_DATADOC, data);
|
||||
_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_GRUPPO, gruppo);
|
||||
_partite->put(PART_CONTO, conto);
|
||||
_partite->put(PART_SOTTOCONTO,sottoc);
|
||||
_partite->put(PART_DESCR, "Apertura partite da saldi contabili");
|
||||
_partite->write();
|
||||
|
||||
// apri scadenze dimmerda
|
||||
for (int i = 0; i < pag.n_rate(); i++)
|
||||
{
|
||||
_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_IMPORTOVAL, pag.tpay_rata(i));
|
||||
_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();
|
||||
}
|
||||
|
||||
n_part++;
|
||||
m.set(F_NUMPART, format("%d",n_part));
|
||||
}
|
||||
}
|
||||
}
|
||||
end_wait();
|
||||
}
|
||||
else
|
||||
message_box("Nessun saldo presente per l'anno %d", _anno);
|
||||
} // while run
|
||||
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
|
||||
@ -1,2 +1,4 @@
|
||||
|
||||
#define F_ANNO 101
|
||||
#define F_ANNO 101
|
||||
#define F_NUMPART 102
|
||||
#define F_DATA 103
|
||||
#define F_CODPAG 104
|
||||
|
||||
@ -1,25 +1,31 @@
|
||||
#include "sc1200.h"
|
||||
|
||||
PAGE "Apertura partite da saldi contabili" -1 -1 47 10
|
||||
PAGE "Apertura partite da saldi contabili" -1 -1 51 12
|
||||
|
||||
GROUPBOX DLG_NULL 49 6
|
||||
BEGIN
|
||||
PROMPT 1 0 ""
|
||||
END
|
||||
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 18 1 "ATTENZIONE"
|
||||
PROMPT 20 1 "ATTENZIONE"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 3 "La generazione della partite puo' richiedere"
|
||||
PROMPT 4 3 "La generazione della partite puo' richiedere"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 5 4 "tempo. Siate certi di voler proseguire."
|
||||
PROMPT 7 4 "tempo. Siate certi di voler proseguire."
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 3 6 "Anno di esercizio "
|
||||
PROMPT 1 6 "Anno esercizio "
|
||||
USE ESC
|
||||
INPUT CODTAB F_ANNO
|
||||
DISPLAY "Anno Esercizio" CODTAB
|
||||
@ -31,16 +37,36 @@ BEGIN
|
||||
WARNING "L' anno di esercizio e' obbligatorio"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
STRING F_CODPAG 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "La generazione delle partite puo' richiedere"
|
||||
PROMPT 27 6 "Pagamento "
|
||||
HELP "Codice del pagamento concordato per il movimento"
|
||||
FIELD CODPAG
|
||||
FLAGS "UZ"
|
||||
USE %CPG
|
||||
INPUT CODTAB F_CODPAG
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODPAG CODTAB
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN ba3 -6
|
||||
WARNING "Codice pagamento obbligatorio"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 5 4 "tempo. Siate certi di voler proseguire."
|
||||
|
||||
DATE F_DATA
|
||||
BEGIN
|
||||
PROMPT 1 8 "Data scadenza "
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
NUMBER F_NUMPART 3
|
||||
BEGIN
|
||||
PROMPT 27 8 "N. partite aperte "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "Conferma"
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user