#include "cglib04.h"
#include "cg6804.h"
#include "cg6804a.h"
HIDDEN TVar_sc& app() { return (TVar_sc &) main_app(); }
TVar_sc::TVar_sc() : _control_rec(""), _trasf(""), _std(""), _numpart(""), _tmcf("")
{
}
char TVar_sc::TipoConto(int g, int c)
{
TLocalisamfile pcon (LF_PCON);
char tipo = ' ';
pcon.setkey(1);
pcon.zero();
pcon.put(PCN_GRUPPO, g);
pcon.put(PCN_CONTO, c);
pcon.put(PCN_SOTTOCONTO, 0l);
if (pcon.read() == NOERR)
tipo = pcon.get_char(PCN_TMCF);
return tipo;
}
bool TVar_sc::create()
{
TApplication::create();
_part = new TLocalisamfile (LF_PARTITE);
_scad = new TLocalisamfile (LF_SCADENZE);
_pagsca = new TLocalisamfile (LF_PAGSCA);
_rec_part = new TRectype (LF_PARTITE);
_rec_scad = new TRectype (LF_SCADENZE);
_rec_pagsca = new TRectype (LF_PAGSCA);
_msk = new TMask ("cg6804a");
_mask = new TMask ("cg6804b");
TSheet_field& rp = (TSheet_field&)(_mask->field(F_RIGAPART));
rp.set_notify(a_notify);
rp.sheet_mask().set_handler(101, tipocf_handler);
rp.sheet_mask().set_handler(104, codcf_handler);
rp.sheet_mask().set_handler(108, rifpart_handler);
rp.sheet_mask().set_handler(115, datareg_handler);
rp.sheet_mask().set_handler(111, codcaus_handler);
rp.sheet_mask().set_handler(109, datadoc_handler);
rp.sheet_mask().set_handler(110, numdoc_handler);
rp.sheet_mask().set_handler(117, contocl_handler);
rp.sheet_mask().set_handler(119, tipomov_handler);
rp.sheet_mask().set_handler(121, sezione_handler);
rp.sheet_mask().set_handler(123, tipopag_handler);
rp.sheet_mask().set_handler(122, datapag_handler);
rp.sheet_mask().set_handler(124, codval_handler);
rp.sheet_mask().set_handler(125, datacam_handler);
rp.sheet_mask().set_handler(126, cambio_handler);
rp.sheet_mask().set_handler(100, gestione_handler);
rp.sheet_mask().set_handler(DLG_OK, registra_dati_comuni);
rp.sheet_mask().set_handler(DLG_DELREC, elimina_partita);
rp.swap_columns(105,106);
rp.swap_columns(105,107);
rp.swap_columns(105,108);
rp.swap_columns(105,109);
rp.swap_columns(105,110);
_registrato = FALSE;
_aperti = FALSE;
dispatch_e_menu (BAR_ITEM(1));
return TRUE;
}
bool TVar_sc::destroy()
{
delete _mask;
delete _msk;
delete _rec_part;
delete _rec_scad;
delete _rec_pagsca;
delete _part;
delete _scad;
delete _pagsca;
// delete _tab_reg;
if (_aperti)
{
delete _tpart;
delete _tscad;
delete _tpagsca;
}
return TApplication::destroy();
}
void TVar_sc::apri_temp_file()
{
TString80 tmppart = "%";
tmppart << get_firm_dir();
tmppart << "\\" << TEMP_PART;
TString80 tmpscad = "%";
tmpscad << get_firm_dir();
tmpscad << "\\" << TEMP_SCAD;
TString80 tmppagsca = "%";
tmppagsca << get_firm_dir();
tmppagsca << "\\" << TEMP_PAGSCA;
_tpart = new TIsamtempfile(LF_PARTITE, tmppart, 0);
_tscad = new TIsamtempfile(LF_SCADENZE, tmpscad, 0);
_tpagsca = new TIsamtempfile(LF_PAGSCA, tmppagsca, 0);
_aperti = TRUE;
}
void TVar_sc::leggi_record_controllo()
{
_tras_file.read_control_rec();
_control_rec = _tras_file.record();
}
bool TVar_sc::main_loop()
{
_dittaric = get_firm();
if (!esegui_controlli()) return FALSE;
apri_temp_file();
if (!video_SC())
{
if (_registrato)
{
setta_parametri_record(" ","C");
leggi_record_controllo();
TString str;
str.spaces(60);
_control_rec.overwrite(str,241);
_tras_file.write_control_rec(_control_rec,1024);
}
return FALSE;
}
return FALSE;
}
bool TVar_sc::a_notify(TSheet_field& s, int r, KEY k)
{
if (k == K_INS)
return FALSE;
return TRUE;
}
bool TVar_sc::gestione_handler(TMask_field& f, KEY k)
{
if (k == K_SPACE)
{
TMask& m = f.mask();
if (!m.check_fields()) return FALSE;
char tipocf = f.mask().get (101)[0];
int gruppo = f.mask().get_int (102);
int conto = f.mask().get_int (103);
long sottoc = f.mask().get_long(104);
int anno = f.mask().get_int (106);
TString npart = f.mask().get (107);
int nriga = f.mask().get_int (108);
int tipomov = f.mask().get_int (119);
if (tipomov == 1)
{
TMask* msk = new TMask("cg6804d");
KEY k;
TSheet_field& rp = (TSheet_field&) msk->field(F_RIGASCAD);
rp.set_notify(a_notify);
rp.sheet_mask().set_handler(109, nrata_handler);
rp.sheet_mask().set_handler(111, codpag_handler);
rp.sheet_mask().set_handler(112, tpscad_handler);
rp.sheet_mask().set_handler(113, ultclass_handler);
rp.sheet_mask().set_handler(110, datascad_handler);
rp.sheet_mask().set_handler(120, banca_handler);
rp.sheet_mask().set_handler(122, banca_handler);
rp.sheet_mask().set_handler(123, codag_handler);
rp.sheet_mask().set_handler(124, datasoll_handler);
rp.sheet_mask().set_handler(116, importo_handler);
rp.sheet_mask().set_handler(117, impval_handler);
rp.sheet_mask().set_handler(DLG_DELREC, elimina_scadenza);
rp.swap_columns(105,106);
rp.swap_columns(105,107);
rp.swap_columns(105,108);
rp.swap_columns(105,109);
rp.swap_columns(105,110);
app().setta_mask_scad(tipocf,gruppo,conto,sottoc,anno,npart,nriga,*msk);
k = msk->run();
switch (k)
{
case K_ESC :
break;
case K_QUIT :
break;
case K_SAVE :
{
app().registra_scadenze(*msk);
app()._registrato = TRUE;
}
break;
default:
break;
}
delete msk;
}
else
{
TMask* msk = new TMask("cg6804e");
KEY k;
TSheet_field& rp = (TSheet_field&) msk->field(F_RIGAPAGSCA);
rp.set_notify(a_notify);
rp.sheet_mask().set_handler(110, rifpartita_handler);
rp.sheet_mask().set_handler(111, accsal_handler);
rp.sheet_mask().set_handler(113, importo_handler);
rp.sheet_mask().set_handler(120, impvalp_handler);
rp.sheet_mask().set_handler(131, passat_handler);
rp.sheet_mask().set_handler(127, banca_handler);
rp.sheet_mask().set_handler(129, banca_handler);
rp.sheet_mask().set_handler(130, codag_handler);
rp.sheet_mask().set_handler(124, contropartita_handler);
rp.sheet_mask().set_handler(115, ritenute_handler);
rp.sheet_mask().set_handler(116, sezione_abb_handler);
rp.sheet_mask().set_handler(117, abbuoni_handler);
rp.sheet_mask().set_handler(118, sezione_dc_handler);
rp.sheet_mask().set_handler(119, diffcambio_handler);
rp.sheet_mask().set_handler(DLG_DELREC, elimina_pagamenti);
rp.swap_columns(105,106);
rp.swap_columns(105,107);
rp.swap_columns(105,108);
rp.swap_columns(105,109);
rp.swap_columns(105,110);
rp.swap_columns(105,111);
app().setta_mask_pagsca(tipocf,gruppo,conto,sottoc,anno,npart,nriga,*msk);
k = msk->run();
switch (k)
{
case K_ESC :
break;
case K_QUIT :
break;
case K_SAVE :
{
app().registra_pagamenti(*msk);
app()._registrato = TRUE;
}
break;
default:
break;
}
delete msk;
}
}
return TRUE;
}
char TVar_sc::sezione(char tipo,int gruppo,int conto,long sottoc,int anno,const TString& npart,int nriga,TString& codval,TMask& m)
{
char sez = '\0';
TSheet_field& part = (TSheet_field&)m.field(F_RIGAPART);
for (int i = 0 ; i < part.items(); i++)
{
TToken_string& row = part.row(i);
char tp = row.get (0)[0];
int g = row.get_int (1);
int c = row.get_int (2);
long s = row.get_long(3);
int an = row.get_int (5);
TString np = row.get (6);
int nr = row.get_int (7);
if (tipo == tp && gruppo == g && conto == c && sottoc == s &&
anno == an && npart == np && nriga == nr)
{
sez = part.sheet_mask().get(121)[0];
codval = part.sheet_mask().get(124);
codval.trim();
break;
}
}
return sez;
}
void TVar_sc::descr_condpag(const TString& codpag,int tipopag,const TString& ultclass,TString& d_condpag)
{
if (ultclass.not_empty())
{
TTable clr ("%CLR");
TString dep (format("%d%s", tipopag,(const char*) ultclass));
clr.zero();
clr.put("CODTAB", dep);
if (clr.read() == NOERR)
d_condpag = clr.get("S0");
else
d_condpag = "";
}
else
{
TTable rpg ("%RPG");
int tipo;
TString dep;
for (int i = 0; !rpg.eof(); rpg.next(), i++)
{
dep.format("%-s%3d", (const char*) codpag, i);
rpg.zero();
rpg.put("CODTAB", dep);
if (rpg.read() == NOERR)
{
tipo = rpg.get_int("I1");
if (tipo == tipopag)
{
switch(tipo)
{
case 1: d_condpag = "Rimessa diretta";
break;
case 2: d_condpag = "Tratta";
break;
case 3: d_condpag = "Ricevuta bancaria";
break;
case 4: d_condpag = "Cessione";
break;
case 5: d_condpag = "Paghero'";
break;
case 6: d_condpag = "Lettera di credito";
break;
case 7: d_condpag = "Tratta accettata";
break;
case 8: d_condpag = "Rapporti interbancari diretti";
break;
case 9: d_condpag = "Bonifico";
break;
case 10: d_condpag = "Altro";
break;
default: break;
};
break;
}
}
else
{
d_condpag = "";
break;
}
}
}
}
void TVar_sc::setta_mask_scad(char tipo,int gruppo,int conto,long sottoc,
int anno,const TString& numpart,int nriga,TMask& m)
{
_tscad->setkey(1);
_tscad->zero();
_tscad->put(SCAD_TIPOCF, tipo);
if (gruppo != 0)
_tscad->put(SCAD_GRUPPO, gruppo);
if (conto != 0)
_tscad->put(SCAD_CONTO, conto);
if (sottoc != 0)
_tscad->put(SCAD_SOTTOCONTO, sottoc);
if (anno != 0)
_tscad->put(SCAD_ANNO, anno);
_tscad->put(SCAD_NUMPART, numpart);
if (nriga != 0)
_tscad->put(SCAD_NRIGA, nriga);
TRectype scadenza (_tscad->curr());
TSheet_field& scad = (TSheet_field&)m.field(F_RIGASCAD);
const long last_c = _tscad->items();
_tscad->read(_isgteq);
for (int i = 0 ; !_tscad->eof(); _tscad->next(), i++)
{
TString part_rec = scadenza.get(SCAD_NUMPART);
TString part_file = _tscad->get(SCAD_NUMPART);
if (_tscad->curr() != scadenza || part_rec != part_file) break;
TToken_string& row = scad.row(i);
TString tipoc (_tscad->get (SCAD_TIPOCF));
int nrata = _tscad->get_int (SCAD_NRATA);
TString16 datascad (_tscad->get_date(SCAD_DATASCAD));
TString16 codpag (_tscad->get (SCAD_CODPAG));
int tipopag = _tscad->get_int (SCAD_TIPOPAG);
TString ultclass (_tscad->get (SCAD_ULTCLASS));
real importo (_tscad->get_real(SCAD_IMPORTO));
real impval (_tscad->get_real(SCAD_IMPORTOVAL));
TString descr (_tscad->get (SCAD_DESCR));
long nsabi = _tscad->get_long(SCAD_CODABIPR);
long nscab = _tscad->get_long(SCAD_CODCABPR);
long vsabi = _tscad->get_long(SCAD_CODABI);
long vscab = _tscad->get_long(SCAD_CODCAB);
TString codag (_tscad->get (SCAD_CODAG));
TString16 datasoll (_tscad->get_date(SCAD_DATASOLL));
int nsoll = _tscad->get_int (SCAD_NSOLL);
TString d_conto,d_condpag,codval;
codval = "";
char sez = sezione(tipo,gruppo,conto,sottoc,anno,numpart,nriga,codval,*_mask);
descr_conto(tipoc,gruppo,conto,sottoc,d_conto);
descr_condpag(codpag,tipopag,ultclass,d_condpag);
TString16 str;
row.add(tipo);
str.format("%3d", gruppo);
row.add(str);
str.format("%3d", conto);
row.add(str);
str.format("%6ld", sottoc);
row.add(str);
row.add(d_conto);
str.format("%4d", anno);
row.add(str);
row.add(numpart);
str.format("%4d", nriga);
row.add(str);
str.format("%4d", nrata);
row.add(str);
row.add(datascad);
row.add(codpag);
str.format("%d", tipopag);
row.add(str);
row.add(ultclass);
row.add(d_condpag);
row.add(sez);
row.add(importo.string());
row.add(impval.string());
row.add(descr);
str.format("%5ld", nsabi);
row.add(str);
str.format("%5ld", nscab);
row.add(str);
str.format("%5ld", vsabi);
row.add(str);
str.format("%5ld", vscab);
row.add(str);
row.add(codag);
row.add(datasoll);
str.format("%2d", nsoll);
row.add(str);
}
}
void TVar_sc::setta_mask_pagsca(char tipo,int gruppo,int conto,long sottoc,
int anno,const TString& numpart,int nriga,TMask& m)
{
_tpagsca->setkey(1);
_tpagsca->zero();
_tpagsca->put(PAGSCA_TIPOC, tipo);
if (gruppo != 0)
_tpagsca->put(PAGSCA_GRUPPO, gruppo);
if (conto != 0)
_tpagsca->put(PAGSCA_CONTO, conto);
if (sottoc != 0)
_tpagsca->put(PAGSCA_SOTTOCONTO, sottoc);
if (anno != 0)
_tpagsca->put(PAGSCA_ANNO, anno);
_tpagsca->put(PAGSCA_NUMPART, numpart);
TRectype pagamenti (_tpagsca->curr());
TSheet_field& pag = (TSheet_field&)m.field(F_RIGAPAGSCA);
const long last_c = _tpagsca->items();
_tpagsca->read(_isgteq);
for (int i = 0 ; !_tpagsca->eof(); _tpagsca->next(), i++)
{
TString rec = pagamenti.get(PAGSCA_NUMPART);
TString file = _tpagsca->get(PAGSCA_NUMPART);
if (_tpagsca->curr() != pagamenti || file != rec) break;
int nrigp = _tpagsca->get_int(PAGSCA_NRIGP);
int nriga_fatt = _tpagsca->get_int(PAGSCA_NRIGA);
if (nriga != nrigp) continue;
TToken_string& row = pag.row(i);
TString tipoc (_tpagsca->get (PAGSCA_TIPOC));
int nrata = _tpagsca->get_int (PAGSCA_NRATA);
TString16 accsal (_tpagsca->get (PAGSCA_ACCSAL));
real importo (_tpagsca->get_real(PAGSCA_IMPORTO));
real ritenute (_tpagsca->get_real(PAGSCA_RITENUTE));
real abbuoni (_tpagsca->get_real(PAGSCA_ABBUONI));
real diffcam (_tpagsca->get_real(PAGSCA_DIFFCAM));
real impval (_tpagsca->get_real(PAGSCA_IMPORTOVAL));
TString tipocc (_tpagsca->get (PAGSCA_TIPOCC));
int gruppoc = _tpagsca->get_int (PAGSCA_GRUPPOC);
int contoc = _tpagsca->get_int (PAGSCA_CONTOC);
long sottocc = _tpagsca->get_long(PAGSCA_SOTTOCONTC);
long nsabi = _tpagsca->get_long(PAGSCA_CODABIPR);
long nscab = _tpagsca->get_long(PAGSCA_CODCABPR);
long vsabi = _tpagsca->get_long(PAGSCA_CODABI);
long vscab = _tpagsca->get_long(PAGSCA_CODCAB);
TString codag (_tpagsca->get (PAGSCA_CODAG));
char passat = _tpagsca->get_char(PAGSCA_PASSATT);
TString d_conto,d_contoc,codval;
char sezab = '\0';
char sezdc = '\0';
char sez = sezione(tipo,gruppo,conto,sottoc,anno,numpart,nriga,codval,*_mask);
descr_conto(tipoc,gruppo,conto,sottoc,d_conto);
descr_conto(tipocc,gruppoc,contoc,sottocc,d_contoc); // Contropartita
if (abbuoni != ZERO)
{
sezab;
if (passat == 'A')
sezab = 'D';
else
if (passat == 'P')
sezab = 'A';
if (sezab != sez)
abbuoni = abbuoni * -1;
}
if (diffcam != ZERO)
{
sezdc = sez;
if (diffcam < ZERO)
{
diffcam = diffcam * -1;
if (sez == 'D')
sezdc = 'A';
else
if (sez == 'A')
sezdc = 'D';
}
}
TString16 str;
row.add(tipo);
str.format("%3d", gruppo);
row.add(str);
str.format("%3d", conto);
row.add(str);
str.format("%6ld", sottoc);
row.add(str);
row.add(d_conto);
str.format("%4d", anno);
row.add(str);
row.add(numpart);
str.format("%4d", nriga_fatt);
row.add(str);
str.format("%4d", nrata);
row.add(str);
str.format("%4d", nrigp);
row.add(str);
row.add(accsal);
str.format("%c", sez);
row.add(str);
row.add(importo.string());
if (ritenute != ZERO)
row.add(str);
else
row.add("");
row.add(ritenute.string());
str.format("%c", sezab);
row.add(str);
row.add(abbuoni.string());
str.format("%c", sezdc);
row.add(str);
row.add(diffcam.string());
row.add(impval.string());
row.add(tipocc);
str.format("%3d", gruppoc);
row.add(str);
str.format("%3d", contoc);
row.add(str);
str.format("%6ld", sottocc);
row.add(str);
row.add(d_contoc);
str.format("%5ld", nsabi);
row.add(str);
str.format("%5ld", nscab);
row.add(str);
str.format("%5ld", vsabi);
row.add(str);
str.format("%5ld", vscab);
row.add(str);
row.add(codag);
str.format("%c", passat);
row.add(str);
}
}
bool TVar_sc::video_SC()
{
KEY tasto;
do
{
_msk->reset(F_ANNO);
_msk->reset(F_NUMPART);
_msk->reset(F_NRIGA);
tasto = _msk->run();
if (tasto != K_ENTER) return FALSE;
_tipocf = _msk->get (F_TIPOCF)[0];
_gruppo = _msk->get_int (F_GRUPPO);
_conto = _msk->get_int (F_CONTO);
_sottoc = _msk->get_long(F_SOTTOCONTO);
_anno = _msk->get_int (F_ANNO);
_numpart = _msk->get (F_NUMPART);
_nriga = _msk->get_int (F_NRIGA);
setta_campi_maschera(*_mask);
_mask->force_update();
tasto = _mask->run();
switch (tasto)
{
case K_ESC :
break;
case K_QUIT :
break;
case K_SAVE :
{
registra_partita(*_mask);
_registrato = TRUE;
}
break;
default:
break;
}
}
while (tasto != K_QUIT); //K_ENTER
return TRUE;
}
bool TVar_sc::descr_conto(const TString& tipo,int g,int c,long s,TString& d_conto)
{
if (tipo == "C" || tipo == "F")
{
TLocalisamfile clifo (LF_CLIFO);
clifo.setkey(1);
clifo.zero();
clifo.put(CLI_TIPOCF, tipo);
clifo.put(CLI_CODCF, s);
if (clifo.read() == NOERR)
{
d_conto = clifo.get(CLI_RAGSOC);
return TRUE;
}
else
{
d_conto = "";
return FALSE;
}
}
else
{
TLocalisamfile pcon (LF_PCON);
pcon.setkey(1);
pcon.zero();
pcon.put(PCN_GRUPPO, g);
pcon.put(PCN_CONTO, c);
pcon.put(PCN_SOTTOCONTO, s);
if (pcon.read() == NOERR)
{
d_conto = pcon.get(PCN_DESCR);
return TRUE;
}
else
{
d_conto = "";
return FALSE;
}
}
return TRUE;
}
bool TVar_sc::descr_caus(const TString& codcaus,TString& d_caus)
{
TLocalisamfile cau (LF_CAUSALI);
cau.setkey(1);
cau.zero();
cau.put("CODCAUS", (const char*) codcaus);
if (cau.read() == NOERR)
{
d_caus = cau.get (CAU_DESCR);
_dd_caus = cau.get_bool(CAU_DATADOC);
_nd_caus = cau.get_bool(CAU_NUMDOC);
_tm_caus = cau.get_int (CAU_TIPOMOV);
_movval = cau.get_bool(CAU_MOVVAL);
return TRUE;
}
else
{
d_caus = "";
_dd_caus = FALSE;
_nd_caus = FALSE;
_tm_caus = 0;
_movval = FALSE;
return FALSE;
}
return TRUE;
}
bool TVar_sc::descr_contocl(int g,int c,TString& d_conto)
{
TLocalisamfile pcon (LF_PCON);
pcon.setkey(1);
pcon.zero();
pcon.put(PCN_GRUPPO, g);
pcon.put(PCN_CONTO, c);
pcon.read();
if ( (g == pcon.get_int(PCN_GRUPPO)) && (c == pcon.get_int(PCN_CONTO)) )
{
d_conto = pcon.get(PCN_DESCR);
return TRUE;
}
else
{
d_conto = "";
return FALSE;
}
return TRUE;
}
void TVar_sc::setta_campi_maschera(TMask& m)
{
if (_gruppo == 0 && _conto == 0 && _sottoc == 0 && _anno == 0
&& _numpart.empty() && _nriga == 0)
{
_tpart->setkey(1);
_tpart->zero();
_tpart->first();
}
else
{
_tpart->setkey(1);
_tpart->zero();
_tpart->put(PART_TIPOCF, _tipocf);
if (_gruppo != 0)
_tpart->put(PART_GRUPPO, _gruppo);
if (_conto != 0)
_tpart->put(PART_CONTO, _conto);
if (_sottoc != 0)
_tpart->put(PART_SOTTOCONTO, _sottoc);
if (_anno != 0)
_tpart->put(PART_ANNO, _anno);
_tpart->put(PART_NUMPART, _numpart);
if (_nriga != 0)
_tpart->put(PART_NRIGA, _nriga);
TRectype partita (_tpart->curr());
_tpart->read(_isgteq);
if (_tpart->curr() != partita)
{
_tpart->zero();
_tpart->first();
}
}
TSheet_field& partita = (TSheet_field&)m.field(F_RIGAPART);
const long last_c = _tpart->items();
partita.destroy();
for (int i = 0 ; !_tpart->eof(); _tpart->next(), i++)
{
TToken_string& row = partita.row(i);
TString16 tipoc (_tpart->get (PART_TIPOCF));
int gruppo = _tpart->get_int (PART_GRUPPO);
int conto = _tpart->get_int (PART_CONTO);
long sottoc = _tpart->get_long(PART_SOTTOCONTO);
int anno = _tpart->get_int (PART_ANNO);
TString16 numpart (_tpart->get (PART_NUMPART));
int nriga = _tpart->get_int (PART_NRIGA);
TString16 datareg (_tpart->get_date(PART_DATAREG));
TString16 codcaus (_tpart->get (PART_CODCAUS));
int gruppocl = _tpart->get_int (PART_GRUPPOCL);
int contocl = _tpart->get_int (PART_CONTOCL);
int tipomov = _tpart->get_int (PART_TIPOMOV);
TString descr (_tpart->get (PART_DESCR));
TString16 sezione (_tpart->get (PART_SEZ));
TString16 datapag (_tpart->get_date(PART_DATAPAG));
TString16 codval (_tpart->get (PART_CODVAL));
TString16 datacam (_tpart->get_date(PART_DATACAM));
TString16 numdoc (_tpart->get (PART_NUMDOC));
TString16 datadoc (_tpart->get_date(PART_DATADOC));
int tipopag = _tpart->get_int (PART_TIPOPAG);
real cambio (_tpart->get_real(PART_CAMBIO));
long numreg = _tpart->get_long(PART_NREG);
int numrig = _tpart->get_int (PART_NUMRIG);
TString d_conto,d_caus,d_contocl;
descr_conto(tipoc,gruppo,conto,sottoc,d_conto);
descr_caus(codcaus,d_caus);
descr_contocl(gruppocl,contocl,d_contocl);
TString16 str;
row.add(tipoc);
str.format("%3d", gruppo);
row.add(str);
str.format("%3d", conto);
row.add(str);
str.format("%6ld", sottoc);
row.add(str);
row.add(d_conto);
str.format("%4d", anno);
row.add(str);
row.add(numpart);
str.format("%4d", nriga);
row.add(str);
row.add(datadoc);
row.add(numdoc);
row.add(codcaus);
row.add(d_caus);
str.format("%7ld", numreg);
row.add(str);
str.format("%3d", numrig);
row.add(str);
row.add(datareg);
str.format("%3d", gruppocl);
row.add(str);
str.format("%3d", contocl);
row.add(str);
row.add(d_contocl);
str.format("%d", tipomov);
row.add(str);
row.add(descr);
row.add(sezione);
row.add(datapag);
str.format("%d", tipopag);
row.add(str);
row.add(codval);
row.add(datacam);
row.add(cambio.string());
row.add(tipoc);
str.format("%3d", gruppo);
row.add(str);
str.format("%3d", conto);
row.add(str);
str.format("%6ld", sottoc);
row.add(str);
row.add(d_conto);
row.add(tipoc);
str.format("%3d", gruppo);
row.add(str);
str.format("%3d", conto);
row.add(str);
str.format("%6ld", sottoc);
row.add(str);
row.add(d_conto);
}
}
bool TVar_sc::tipo_contocl(int g,int c,TString& tipo)
{
TLocalisamfile pcon (LF_PCON);
pcon.setkey(1);
pcon.zero();
pcon.put(PCN_GRUPPO, g);
pcon.put(PCN_CONTO, c);
pcon.read();
if ( (g == pcon.get_int(PCN_GRUPPO)) && (c == pcon.get_int(PCN_CONTO)) )
{
tipo = pcon.get(PCN_TMCF);
return TRUE;
}
else
{
tipo = "";
return FALSE;
}
return TRUE;
}
bool TVar_sc::codvaluta(const TString& codval)
{
TTable val ("%VAL");
TString dep;
dep.format("%-3s", (const char*) codval);
val.zero();
val.put("CODTAB", dep);
if (val.read() == NOERR)
return TRUE;
else
return FALSE;
return TRUE;
}
int TVar_sc::tipo_movimento(char tipo,int gruppo,int conto,long sottoc,int anno,const TString& npart,int nriga,TMask& m)
{
int tipomov = 0;
TSheet_field& part = (TSheet_field&)m.field(F_RIGAPART);
for (int i = 0 ; i < part.items(); i++)
{
TToken_string& row = part.row(i);
char tp = row.get (0)[0];
int g = row.get_int (1);
int c = row.get_int (2);
long s = row.get_long(3);
int an = row.get_int (5);
TString np = row.get (6);
int nr = row.get_int (7);
if (tipo == tp && gruppo == g && conto == c && sottoc == s &&
anno == an && npart == np && nriga == nr)
{
tipomov = part.sheet_mask().get_int(119);
break;
}
}
return tipomov;
}
// *****************************************
// ***** HANDLER sulla riga di partita *****
// *****************************************
bool TVar_sc::tipocf_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString16 tipocf(f.get());
if (tipocf != "" && tipocf != "C" && tipocf != "F")
return f.warning_box("Tipo anagrafica errato");
}
return TRUE;
}
bool TVar_sc::codcf_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString tipocf = f.mask().get (101);
int gruppo = f.mask().get_int(102);
int conto = f.mask().get_int(103);
long sottoc = atol(f.get());
TString desc;
if (!app().descr_conto(tipocf,gruppo,conto,sottoc,desc))
return f.warning_box("Codice anagrafica errato");
}
return TRUE;
}
bool TVar_sc::rifpart_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
int anno = f.mask().get_int(106);
TString numpart = f.mask().get (107);
int nriga = atoi(f.get());
if (anno == 0 || numpart.empty() || nriga == 0)
return f.warning_box("Riferimento partita errato");
}
return TRUE;
}
bool TVar_sc::datareg_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
if ( !(TDate::isdate(f.get())) )
return warning_box("Data errata o formato non valido");
}
return TRUE;
}
bool TVar_sc::codcaus_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString appoggio;
TString codcaus = f.get();
int tipomov = f.mask().get_int(119);
if (codcaus.not_empty())
if (!app().descr_caus(codcaus,appoggio))
return f.warning_box("Valore non valido per codice causale");
long nreg = f.mask().get_long(113);
if (nreg != 0 && codcaus.empty())
return f.warning_box("Se e' indicato il numero di operazione la causale deve essere significativa");
if (tipomov == 0)
f.mask().set(119,app()._tm_caus);
else
{
if (codcaus.not_empty())
if (tipomov != app()._tm_caus)
return f.warning_box("Tipo movimento partita non congruo con tipo movimento indicato sulla causale");
}
}
return TRUE;
}
bool TVar_sc::datadoc_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString appoggio;
TString codcaus = f.mask().get(111);
TString datadoc = f.get();
datadoc.trim();
app().descr_caus(codcaus,appoggio);
if (datadoc.empty() && app()._dd_caus)
return f.warning_box("Data documento obbligatoria");
}
return TRUE;
}
bool TVar_sc::numdoc_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString appoggio;
TString codcaus = f.mask().get(111);
TString numdoc = f.get();
app().descr_caus(codcaus,appoggio);
if (numdoc.empty() && app()._nd_caus)
return f.warning_box("Numero documento obbligatorio");
}
return TRUE;
}
bool TVar_sc::contocl_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString tmcf;
int gruppo = f.mask().get_int(116);
int conto = atoi(f.get());
if (gruppo == 0 && conto == 0) return TRUE;
if (!app().tipo_contocl(gruppo,conto,tmcf))
return f.warning_box("Codice conto non esistente su piano dei conti");
TString tipo = f.mask().get(101);
if (tipo != tmcf)
return f.warning_box("Tipo conto C/F non congruo con tipo anagrafica");
}
return TRUE;
}
bool TVar_sc::tipomov_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
int tipomov = atoi(f.get());
if (tipomov != 1 && tipomov != 2 && tipomov != 3 && tipomov != 5 && tipomov != 6)
return f.warning_box("Tipo movimento errato");
TString appoggio = "";
TString codcaus = f.mask().get(111);
if (codcaus.not_empty())
{
app().descr_caus(codcaus,appoggio);
if (tipomov != app()._tm_caus)
return f.warning_box("Tipo movimento partita non congruo con tipo movimento indicato sulla causale");
}
}
return TRUE;
}
bool TVar_sc::sezione_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString sezione = f.get();
if (sezione != "D" && sezione != "A")
return f.warning_box("Sezione dare/avere errata");
}
return TRUE;
}
bool TVar_sc::tipopag_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
int tipomov = f.mask().get_int(119);
int tipopag = atoi(f.get());
if (tipomov == 1 && tipopag != 0)
return f.warning_box("In caso di fattura non e' possibile indicare il tipo pagamento");
if (tipomov != 1 && tipomov != 2)
if (tipopag < 1 || tipopag > 9)
return f.warning_box("Tipo pagamento errato");
}
return TRUE;
}
bool TVar_sc::datapag_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
int tipomov = f.mask().get_int(119);
TString datapag (f.get());
datapag.trim();
if (tipomov == 1 && datapag.not_empty())
return f.warning_box("In caso di fattura non e' possibile indicare la data del pagamento");
if (tipomov != 1)
if (datapag.empty() || !(TDate::isdate(datapag)))
return f.warning_box("Se il movimento non e' una fattura la data di pagamento deve essere indicata");
}
return TRUE;
}
bool TVar_sc::codval_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString codval (f.get());
if (codval.not_empty())
{
if (!app().codvaluta(codval))
return f.warning_box("Codice valuta non presente in tabella");
TConfig conf (CONFIG_DITTA);
TString valuta = conf.get("GesVal");
if (codval.not_empty && valuta.empty())
return f.warning_box("Non e' possibile indicare il codice valuta se non indicata la gestione valuta sui parametri ditta");
if (codval.empty() && valuta.not_empty())
return f.warning_box("Il codice valuta deve essere indicato in quanto indicata la gestione in valuta sui parametri ditta");
TString codcaus (f.mask().get(111));
if (codcaus.not_empty())
{
TString appoggio;
if (app().descr_caus(codcaus,appoggio))
{
if (app()._movval && codval.empty())
return f.warning_box("Il codice valuta deve essere indicato in quanto indicata la gestione in valuta sulla causale");
if (!app()._movval && codval.not_empty())
return f.warning_box("Non e' possibile indicare il codice in valuta se non indicato il flag gestione valuta sulla causale");
}
}
}
else
{
TDate datacam (f.mask().get_date(125));
real cambio (f.mask().get_real(126));
if (datacam.ok())
return f.warning_box("Non e' possibile indicare la data cambio se non e' indicato il codice valuta");
if (cambio != ZERO)
return f.warning_box("Non e' possibile indicare il cambio se non e' indicato il codice valuta");
}
}
return TRUE;
}
bool TVar_sc::datacam_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString codval (f.mask().get(124));
TString datacam (f.get());
datacam.trim();
if (codval.not_empty())
if (datacam.empty() || !(TDate::isdate(datacam)))
return f.warning_box("Se il codice valuta e' indicato la data cambio deve essere significativa");
}
return TRUE;
}
bool TVar_sc::cambio_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString codval (f.mask().get(124));
real cambio (f.get());
if (codval.not_empty())
if (cambio == ZERO)
return f.warning_box("Se il codice valuta e' indicato il cambio deve essere significativo");
}
return TRUE;
}
// ******************************************
// ***** HANDLER sulla riga di scadenza *****
// ******************************************
bool TVar_sc::nrata_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
int nrata = atoi(f.get());
if (nrata == 0)
return f.warning_box("Il numero di rata deve essere significativo");
}
return TRUE;
}
bool TVar_sc::codpag_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) )
{
TString descr;
TString codpag = f.get();
if (codpag.not_empty())
{
if (f.mask().is_running())
{
TTable cpg ("%CPG");
TString dep (format("%-4s", (const char*) codpag));
cpg.zero();
cpg.put("CODTAB", dep);
if (cpg.read() != NOERR)
return f.warning_box("Codice di pagamento errato o non presente in tabella");
}
TTable rpg ("%RPG");
int tipo;
int tipopag = f.mask().get_int(112);
TString dep;
for (int i = 0; !rpg.eof(); rpg.next(), i++)
{
dep.format("%-s%3d", (const char*) codpag, i);
rpg.zero();
rpg.put("CODTAB", dep);
if (rpg.read() == NOERR)
{
tipo = rpg.get_int("I1");
if (tipo == tipopag)
{
switch(tipo)
{
case 1: descr = "Rimessa diretta";
break;
case 2: descr = "Tratta";
break;
case 3: descr = "Ricevuta bancaria";
break;
case 4: descr = "Cessione";
break;
case 5: descr = "Paghero'";
break;
case 6: descr = "Lettera di credito";
break;
case 7: descr = "Tratta accettata";
break;
case 8: descr = "Rapporti interbancari diretti";
break;
case 9: descr = "Bonifico";
break;
case 10: descr = "Altro";
break;
default: break;
};
break;
}
}
else
{
descr = "";
break;
}
}
if (f.mask().is_running())
{
if (tipopag != 0)
{
if (tipopag != tipo)
return f.warning_box("Il tipo pagamento della scadenza non e' congruo con il tipo pagamento del codice di pagamento");
}
else
f.mask().set(112,tipo);
}
}
TString ultclass = f.mask().get(113);
if (ultclass.empty())
f.mask().set(114, descr);
}
return TRUE;
}
bool TVar_sc::tpscad_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString codpag = f.mask().get(111);
if (codpag.empty()) return TRUE;
int tipopag = atoi(f.get());
if (tipopag < 1 || tipopag > 9)
return f.warning_box("Tipo pagamento errato");
TTable cpg ("%CPG");
TString dep (format("%-4s", (const char*) codpag));
int tipo = 0;
cpg.zero();
cpg.put("CODTAB", dep);
if (cpg.read() == NOERR)
tipo = atoi(cpg.get("S4"));
if (tipopag != tipo)
return f.warning_box("Il tipo pagamento della scadenza non e' congruo con il tipo pagamento del codice di pagamento");
}
return TRUE;
}
bool TVar_sc::ultclass_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString descr;
TString ultclass = f.get();
int tipopag = f.mask().get_int(112);
if (ultclass.empty())
{
TTable rpg ("%RPG");
int tipo;
TString codpag = f.mask().get(111);
int tipopag = f.mask().get_int(112);
TString dep;
for (int i = 0; !rpg.eof(); rpg.next(), i++)
{
dep.format("%-s%3d", (const char*) codpag, i);
rpg.zero();
rpg.put("CODTAB", dep);
if (rpg.read() == NOERR)
{
tipo = rpg.get_int("I1");
if (tipo == tipopag)
{
switch(tipo)
{
case 1: descr = "Rimessa diretta";
break;
case 2: descr = "Tratta";
break;
case 3: descr = "Ricevuta bancaria";
break;
case 4: descr = "Cessione";
break;
case 5: descr = "Paghero'";
break;
case 6: descr = "Lettera di credito";
break;
case 7: descr = "Tratta accettata";
break;
case 8: descr = "Rapporti interbancari diretti";
break;
case 9: descr = "Bonifico";
break;
case 10: descr = "Altro";
break;
default: break;
};
break;
}
}
else
{
descr = "";
break;
}
}
f.mask().set(114, descr);
return TRUE;
}
TTable clr ("%CLR");
TString dep (format("%d%s", tipopag,(const char*) ultclass));
clr.zero();
clr.put("CODTAB", dep);
if (clr.read() == NOERR)
descr = clr.get("S0");
else
return f.warning_box("Ulteriore classificazione errata o non presente in tabella");
f.mask().set(114, descr);
}
return TRUE;
}
bool TVar_sc::datascad_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString datascad (f.get());
datascad.trim();
if (datascad.empty() || !(TDate::isdate(datascad)))
return f.warning_box("Data scadenza errata");
}
return TRUE;
}
bool TVar_sc::banca_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString mess;
long abi;
long cab = atol(f.get());
int id = f.dlg();
if (id == 120)
{
abi = f.mask().get_long(119);
mess = "Codice nostra banca errato o non presente in tabella";
}
else
if (id == 122)
{
abi = f.mask().get_long(121);
mess = "Codice vostra banca errato o non presente in tabella";
}
else
if (id == 127)
{
abi = f.mask().get_long(126);
mess = "Codice nostra banca errato o non presente in tabella";
}
else
if (id == 129)
{
abi = f.mask().get_long(128);
mess = "Codice vostra banca errato o non presente in tabella";
}
if (abi == 0 && cab == 0) return TRUE;
TTable ban ("%BAN");
TString dep;
if (abi != 0 && cab != 0)
dep.format("%05ld%05ld", abi,cab);
if (abi != 0 && cab == 0)
dep.format("%05ld", abi);
ban.zero();
ban.put("CODTAB", dep);
if (ban.read() != NOERR)
return f.warning_box("%s", (const char*) mess);
}
return TRUE;
}
bool TVar_sc::codag_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString dep;
TString codag = f.get();
if (codag.empty()) return TRUE;
TTable age ("AGE");
if (real::is_natural(codag))
dep.format("%05s", (const char*) codag);
else
dep.format("%-5s", (const char*) codag);
age.zero();
age.put("CODTAB", dep);
if (age.read() != NOERR)
return f.warning_box("Codice agente errato o non presente in tabella");
}
return TRUE;
}
bool TVar_sc::datasoll_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString datasoll (f.get());
datasoll.trim();
if (datasoll.empty) return TRUE;
if (!(TDate::isdate(datasoll)))
return f.warning_box("Data sollecito errata");
}
return TRUE;
}
bool TVar_sc::importo_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
real importo (f.get());
if (importo == ZERO)
return f.warning_box("L'importo del pagamento deve essere significativo");
}
return TRUE;
}
bool TVar_sc::impval_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString codval;
real importo (f.get());
char tipo = f.mask().get (101)[0];
int g = f.mask().get_int (102);
int c = f.mask().get_int (103);
long s = f.mask().get_long(104);
int anno = f.mask().get_int (106);
TString npart = f.mask().get (107);
int nriga = f.mask().get_int (108);
app().sezione(tipo,g,c,s,anno,npart,nriga,codval,*(app()._mask));
if (codval.empty() && importo != ZERO)
return f.warning_box("L'importo in valuta della scadenza non puo' essere indicato se non indicato il codice valuta");
if (codval.not_empty() && importo == ZERO)
return f.warning_box("L'importo in valuta della scadenza deve essere significativo");
}
return TRUE;
}
// *******************************************
// ***** HANDLER sulla riga di pagamento *****
// *******************************************
bool TVar_sc::record_partite(char tipo,int g,int c,long s,int anno,TString& npart,int nriga)
{
TRecnotype nrec = _tpart->recno();
TIsamtempfile& part = *_tpart;
part.zero();
part.put(PART_TIPOCF, tipo);
part.put(PART_GRUPPO, g);
part.put(PART_CONTO, c);
part.put(PART_SOTTOCONTO, s);
part.put(PART_ANNO, anno);
part.put(PART_NUMPART, npart);
part.put(PART_NRIGA, nriga);
if (part.read() == NOERR)
{
_tpart->readat(nrec);
return TRUE;
}
_tpart->readat(nrec);
return FALSE;
}
bool TVar_sc::record_scadenze(char tipo,int g,int c,long s,int anno,TString& npart,int nriga,int nrata)
{
TRecnotype nrec = _tscad->recno();
TIsamtempfile& scad = *_tscad;
scad.zero();
scad.put(SCAD_TIPOCF, tipo);
scad.put(SCAD_GRUPPO, g);
scad.put(SCAD_CONTO, c);
scad.put(SCAD_SOTTOCONTO, s);
scad.put(SCAD_ANNO, anno);
scad.put(SCAD_NUMPART, npart);
scad.put(SCAD_NRIGA, nriga);
scad.put(SCAD_NRATA, nrata);
if (scad.read() == NOERR)
{
_tscad->readat(nrec);
return TRUE;
}
_tscad->readat(nrec);
return FALSE;
}
bool TVar_sc::rifpartita_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
int nriga = f.mask().get_int(108);
int nrata = f.mask().get_int(109);
if (nriga == 9999 || nrata == 9999) return TRUE;
char t = f.mask().get (101)[0];
int g = f.mask().get_int (102);
int c = f.mask().get_int (103);
long s = f.mask().get_long(104);
int anno = f.mask().get_int (106);
TString npart = f.mask().get (107);
if (!app().record_partite(t,g,c,s,anno,npart,nriga))
return f.warning_box("Non esiste la riga partita corrispondente");
if (!app().record_scadenze(t,g,c,s,anno,npart,nriga,nrata))
return f.warning_box("Non esiste la rata di scadenza corrispondente");
}
return TRUE;
}
bool TVar_sc::accsal_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString accsal = f.get();
char t = f.mask().get (101)[0];
int g = f.mask().get_int (102);
int c = f.mask().get_int (103);
long s = f.mask().get_long(104);
int anno = f.mask().get_int (106);
TString npart = f.mask().get (107);
int nriga = f.mask().get_int (110);
int tipo = app().tipo_movimento(t,g,c,s,anno,npart,nriga,*(app()._mask));
if ( (tipo == 2 || tipo == 5) && accsal == "S")
return f.warning_box("Il flag in acconto / a saldo non puo' essere indicato in caso di Nota credito e Insoluto");
if (accsal != "S" && accsal != "A")
return f.warning_box("Flag in acconto / a saldo errato");
}
return TRUE;
}
bool TVar_sc::passat_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
real abbuoni (f.mask().get_real(117));
TString passat = f.get();
if (abbuoni != ZERO)
if (passat != "P" && passat != "A")
return f.warning_box("Flag attivo / passivo errato");
}
return TRUE;
}
bool TVar_sc::impvalp_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString codval;
real importo (f.get());
char tipo = f.mask().get (101)[0];
int g = f.mask().get_int (102);
int c = f.mask().get_int (103);
long s = f.mask().get_long(104);
int anno = f.mask().get_int (106);
TString npart = f.mask().get (107);
int nriga = f.mask().get_int (110);
app().sezione(tipo,g,c,s,anno,npart,nriga,codval,*(app()._mask));
if (codval.empty() && importo != ZERO)
return f.warning_box("L'importo in valuta del pagamento non puo' essere indicato se non indicato il codice valuta");
if (codval.not_empty() && importo == ZERO)
return f.warning_box("L'importo in valuta del pagamento deve essere significativo");
}
return TRUE;
}
bool TVar_sc::sezione_abb_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString sez (f.get());
real abbuoni (f.mask().get(117));
if (sez != "D" && sez != "A" && sez != "")
return f.warning_box("Valore non valido per sezione");
if (abbuoni != ZERO && sez.empty())
return f.warning_box("Se gli abbuoni sono significativi la sezione deve essere indicata");
if (sez == "D")
f.mask().set(131,"A");
else
if (sez == "A")
f.mask().set(131,"P");
else
f.mask().set(131,"");
}
return TRUE;
}
bool TVar_sc::ritenute_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString codval;
char tipo = f.mask().get (101)[0];
int g = f.mask().get_int (102);
int c = f.mask().get_int (103);
long s = f.mask().get_long(104);
int anno = f.mask().get_int (106);
TString npart = f.mask().get (107);
int nriga = f.mask().get_int (110);
real ritenute (f.get());
int tipomov = app().tipo_movimento(tipo,g,c,s,anno,npart,nriga,*(app()._mask));
if ( (tipomov == 2 || tipomov == 5) && ritenute != ZERO)
return f.warning_box("La ritenuta non puo' essere indicata in caso di Nota credito e Insoluto");
char sez = app().sezione(tipo,g,c,s,anno,npart,nriga,codval,*(app()._mask));
TString str (format("%c", sez));
if (ritenute != ZERO)
f.mask().set(114,str);
else
f.mask().set(114,"");
}
return TRUE;
}
bool TVar_sc::abbuoni_handler(TMask_field& f, KEY k)
{
if (k == K_TAB)
{
TString codval;
char tipo = f.mask().get (101)[0];
int g = f.mask().get_int (102);
int c = f.mask().get_int (103);
long s = f.mask().get_long(104);
int anno = f.mask().get_int (106);
TString npart = f.mask().get (107);
int nriga = f.mask().get_int (110);
app().sezione(tipo,g,c,s,anno,npart,nriga,codval,*(app()._mask));
if (codval.not_empty())
((TReal_field&)f).set_decimals(3);
else
((TReal_field&)f).set_decimals(0);
}
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString accsal (f.mask().get(111));
real abbuoni (f.get());
if (accsal == "A" && abbuoni != ZERO)
return f.warning_box("Gli abbuoni possono essere indicati solo se a SALDO");
}
return TRUE;
}
bool TVar_sc::sezione_dc_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString sez (f.get());
real diffcam (f.mask().get(119));
if (sez != "D" && sez != "A" && sez != "")
return f.warning_box("Valore non valido per sezione");
if (diffcam != ZERO && sez.empty())
return f.warning_box("Se la differenza cambio e' significativa la sezione deve essere indicata");
}
return TRUE;
}
bool TVar_sc::diffcambio_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
TString codval;
char tipo = f.mask().get (101)[0];
int g = f.mask().get_int (102);
int c = f.mask().get_int (103);
long s = f.mask().get_long(104);
int anno = f.mask().get_int (106);
TString npart = f.mask().get (107);
int nriga = f.mask().get_int (110);
app().sezione(tipo,g,c,s,anno,npart,nriga,codval,*(app()._mask));
TString accsal (f.mask().get(111));
real diffcam (f.get());
if (accsal == "A" && diffcam != ZERO)
return f.warning_box("La differenza cambio puo' essere indicata solo se a SALDO");
if (codval.empty() && diffcam != ZERO)
return f.warning_box("La differenza cambio puo' essere indicata solo in caso di valuta");
}
return TRUE;
}
bool TVar_sc::contropartita_handler(TMask_field& f, KEY k)
{
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{
char tipo = f.mask().get (101)[0];
int g = f.mask().get_int (102);
int c = f.mask().get_int (103);
long s = f.mask().get_long(104);
int anno = f.mask().get_int (106);
TString npart = f.mask().get (107);
int nriga = f.mask().get_int (110);
// int tipomov = app().tipo_movimento(tipo,g,c,s,anno,npart,nriga,*(app()._mask));
// if ( (tipomov == 2 || tipomov == 5) && (g != 0 || c != 0 || s != 0) )
// return f.warning_box("La contropartita non puo' essere indicata in caso di Nota credito e Insoluto");
TString tipocf = f.mask().get(121);
if (tipocf == "C" || tipocf == "F")
{
long codcf = f.mask().get_long(124);
if (codcf == 0) return TRUE;
TLocalisamfile clifo (LF_CLIFO);
clifo.setkey(1);
clifo.zero();
clifo.put(CLI_TIPOCF, tipocf);
clifo.put(CLI_CODCF, codcf);
if (clifo.read() != NOERR)
return f.warning_box("Codice di contropartita errato o non presente in anagrafica clienti/fornitori");
}
else
{
int gruppo = f.mask().get_int (122);
int conto = f.mask().get_int (123);
long sottoc = f.mask().get_long(124);
if (gruppo == 0 && conto == 0 && sottoc == 0) return TRUE;
TLocalisamfile pcon (LF_PCON);
pcon.setkey(1);
pcon.zero();
pcon.put(PCN_GRUPPO, gruppo);
pcon.put(PCN_CONTO, conto);
pcon.put(PCN_SOTTOCONTO, sottoc);
if (pcon.read() != NOERR)
return f.warning_box("Codice contropartita errato o non presente in piano conti");
}
}
return TRUE;
}
bool TVar_sc::registra_dati_comuni(TMask_field& f, KEY k)
{
if (k == K_ENTER && f.mask().is_running())
{
long nreg = f.mask().get_long(113);
int nrig = f.mask().get_int (114);
if (nreg != 0 && nrig != 0)
{
TDate datareg (f.mask().get_date(115));
TString numdoc (f.mask().get (110));
TDate datadoc (f.mask().get_date(109));
TString codcaus (f.mask().get (111));
TSheet_field& part = (TSheet_field&)app()._mask->field(F_RIGAPART);
for (int i = 0; i < part.items(); i++)
{
TToken_string& row = part.row(i);
long numreg = row.get_long(12);
int numrig = row.get_int (13);
if (nreg != numreg || nrig != numrig) continue;
TString d_caus;
app().descr_caus(codcaus,d_caus);
row.add(datadoc,8);
row.add(numdoc,9);
row.add(codcaus,10);
row.add(d_caus,11);
row.add(datareg,14);
}
part.force_update();
}
}
return TRUE;
}
bool TVar_sc::cancella_partita(TMask_field& f)
{
TIsamtempfile& part = *_tpart;
char tipo = f.mask().get (101)[0];
int gruppo = f.mask().get_int (102);
int conto = f.mask().get_int (103);
long sottoc = f.mask().get_long(104);
int anno = f.mask().get_int (106);
TString numpart = f.mask().get (107);
int nriga = f.mask().get_int (108);
int tipomov = f.mask().get_int (119);
if (!controlla_abbuoni_diffcam(tipo,gruppo,conto,sottoc,anno,numpart,nriga,0))
return f.message_box("Impossibile eliminare questa partita in quanto esistono uno o piu' pagamenti riferiti ad essa contenenti abbuoni o differenze cambio");
part.setkey(1);
part.zero();
part.put(PART_TIPOCF, tipo);
part.put(PART_GRUPPO, gruppo);
part.put(PART_CONTO, conto);
part.put(PART_SOTTOCONTO, sottoc);
part.put(PART_ANNO, anno);
part.put(PART_NUMPART, numpart);
part.put(PART_NRIGA, nriga);
if (part.read() == NOERR)
{
part.remove();
if (tipomov == 1)
{
TIsamtempfile& scad = *_tscad;
scad.setkey(1);
scad.zero();
scad.put(SCAD_TIPOCF, tipo);
scad.put(SCAD_GRUPPO, gruppo);
scad.put(SCAD_CONTO, conto);
scad.put(SCAD_SOTTOCONTO, sottoc);
scad.put(SCAD_ANNO, anno);
scad.put(SCAD_NUMPART, numpart);
scad.put(SCAD_NRIGA, nriga);
TRectype scadenza (scad.curr());
for (scad.read(_isgteq); !scad.eof(); scad.next())
{
TString rec = scadenza.get(SCAD_NUMPART);
TString file = scad.get(SCAD_NUMPART);
if (scad.curr() != scadenza || file != rec) break;
int nrata = scad.get_int (SCAD_NRATA);
scad.remove();
sgancia_pagamenti(tipo,gruppo,conto,sottoc,anno,numpart,nriga,nrata);
}
}
else
if (tipomov != 1)
{
TIsamtempfile& pagsca = *_tpagsca;
pagsca.setkey(1);
pagsca.zero();
pagsca.put(PAGSCA_TIPOC, tipo);
pagsca.put(PAGSCA_GRUPPO, gruppo);
pagsca.put(PAGSCA_CONTO, conto);
pagsca.put(PAGSCA_SOTTOCONTO, sottoc);
pagsca.put(PAGSCA_ANNO, anno);
pagsca.put(PAGSCA_NUMPART, numpart);
TRectype pagamenti (pagsca.curr());
for (pagsca.read(_isgteq); !pagsca.eof(); pagsca.next())
{
TString rec = pagamenti.get(PAGSCA_NUMPART);
TString file = pagsca.get(PAGSCA_NUMPART);
if (pagsca.curr() != pagamenti || file != rec) break;
int nrigp = pagsca.get_int (PAGSCA_NRIGP);
if (nriga != nrigp) continue;
pagsca.remove();
}
}
}
else
return f.warning_box("Non esiste la riga di partita richiesta sull'archivio delle partite");
return TRUE;
}
bool TVar_sc::controlla_abbuoni_diffcam(char tipo,int g,int c,long s,int anno,TString& npart,int nriga,int nrata)
{
TIsamtempfile& pagsca = *_tpagsca;
pagsca.setkey(1);
pagsca.zero();
pagsca.put(PAGSCA_TIPOC, tipo);
pagsca.put(PAGSCA_GRUPPO, g);
pagsca.put(PAGSCA_CONTO, c);
pagsca.put(PAGSCA_SOTTOCONTO, s);
pagsca.put(PAGSCA_ANNO, anno);
pagsca.put(PAGSCA_NUMPART, npart);
pagsca.put(PAGSCA_NRIGA, nriga);
if (nrata != 0)
pagsca.put(PAGSCA_NRATA, nrata);
TRectype pagamenti (pagsca.curr());
for (pagsca.read(_isgteq); !pagsca.eof(); pagsca.next())
{
TString rec = pagamenti.get(PAGSCA_NUMPART);
TString file = pagsca.get(PAGSCA_NUMPART);
if (pagsca.curr() != pagamenti || file != rec) break;
real abbuoni = pagsca.get_real(PAGSCA_ABBUONI);
real diffcam = pagsca.get_real(PAGSCA_DIFFCAM);
if (abbuoni != ZERO || diffcam != ZERO)
return FALSE;
}
return TRUE;
}
bool TVar_sc::elimina_partita(TMask_field& f, KEY k)
{
if (k == K_SPACE && f.mask().is_running())
if (!app().cancella_partita(f))
return FALSE;
return TRUE;
}
void TVar_sc::sgancia_pagamenti(char tipo,int g,int c,long s,int anno,TString& npart,int nriga,int nrata)
{
TIsamtempfile& pagsca = *_tpagsca;
pagsca.setkey(1);
pagsca.zero();
pagsca.put(PAGSCA_TIPOC, tipo);
pagsca.put(PAGSCA_GRUPPO, g);
pagsca.put(PAGSCA_CONTO, c);
pagsca.put(PAGSCA_SOTTOCONTO, s);
pagsca.put(PAGSCA_ANNO, anno);
pagsca.put(PAGSCA_NUMPART, npart);
pagsca.put(PAGSCA_NRIGA, nriga);
pagsca.put(PAGSCA_NRATA, nrata);
TRectype pagamenti (pagsca.curr());
for (pagsca.read(_isgteq); !pagsca.eof(); pagsca.next())
{
TString rec = pagamenti.get(PAGSCA_NUMPART);
TString file = pagsca.get(PAGSCA_NUMPART);
if (pagsca.curr() != pagamenti || file != rec) break;
TRectype pag (pagsca.curr());
pag.put(PAGSCA_NRIGA, 9999);
pag.put(PAGSCA_NRATA, 9999);
TRecnotype nrec = pagsca.recno();
pagsca.remove();
pagsca.curr() = pag;
if (pagsca.read() == NOERR)
{
real importo = pagsca.get_real(PAGSCA_IMPORTO) + pag.get_real(PAGSCA_IMPORTO);
real impval = pagsca.get_real(PAGSCA_IMPORTOVAL) + pag.get_real(PAGSCA_IMPORTOVAL);
real ritenute = pagsca.get_real(PAGSCA_RITENUTE) + pag.get_real(PAGSCA_RITENUTE);
pagsca.put(PAGSCA_IMPORTO, importo);
pagsca.put(PAGSCA_IMPORTOVAL, impval);
pagsca.put(PAGSCA_RITENUTE, ritenute);
pagsca.put(PAGSCA_ACCSAL, "A");
pagsca.rewrite();
}
else
{
pagsca.curr() = pag;
pagsca.write();
}
pagsca.readat(nrec);
}
}
bool TVar_sc::elimina_scadenza(TMask_field& f, KEY k)
{
if (k == K_SPACE && f.mask().is_running())
if (!app().cancella_scadenza(f))
return FALSE;
return TRUE;
}
bool TVar_sc::cancella_scadenza(TMask_field& f)
{
TIsamtempfile& scad = *_tscad;
char tipo = f.mask().get (101)[0];
int gruppo = f.mask().get_int (102);
int conto = f.mask().get_int (103);
long sottoc = f.mask().get_long(104);
int anno = f.mask().get_int (106);
TString numpart = f.mask().get (107);
int nriga = f.mask().get_int (108);
int nrata = f.mask().get_int (109);
if (!controlla_abbuoni_diffcam(tipo,gruppo,conto,sottoc,anno,numpart,nriga,nrata))
return f.message_box("Impossibile eliminare questa scadenza in quanto esistono uno o piu' pagamenti riferiti ad essa contenenti abbuoni o differenze cambio");
scad.setkey(1);
scad.zero();
scad.put(SCAD_TIPOCF, tipo);
scad.put(SCAD_GRUPPO, gruppo);
scad.put(SCAD_CONTO, conto);
scad.put(SCAD_SOTTOCONTO, sottoc);
scad.put(SCAD_ANNO, anno);
scad.put(SCAD_NUMPART, numpart);
scad.put(SCAD_NRIGA, nriga);
scad.put(SCAD_NRATA, nrata);
if (scad.read() == NOERR)
{
scad.remove();
sgancia_pagamenti(tipo,gruppo,conto,sottoc,anno,numpart,nriga,nrata);
}
else
return f.warning_box("Non esiste la scadenza richiesta sull'archivio delle scadenze");
return TRUE;
}
bool TVar_sc::elimina_pagamenti(TMask_field& f, KEY k)
{
if (k == K_SPACE && f.mask().is_running())
if (!app().cancella_pagamenti(f))
return FALSE;
return TRUE;
}
bool TVar_sc::cancella_pagamenti(TMask_field& f)
{
TIsamtempfile& pagsca = *_tpagsca;
char tipo = f.mask().get (101)[0];
int gruppo = f.mask().get_int (102);
int conto = f.mask().get_int (103);
long sottoc = f.mask().get_long(104);
int anno = f.mask().get_int (106);
TString numpart = f.mask().get (107);
int nriga = f.mask().get_int (108);
int nrata = f.mask().get_int (109);
int nrigp = f.mask().get_int (110);
pagsca.setkey(1);
pagsca.zero();
pagsca.put(PAGSCA_TIPOC, tipo);
pagsca.put(PAGSCA_GRUPPO, gruppo);
pagsca.put(PAGSCA_CONTO, conto);
pagsca.put(PAGSCA_SOTTOCONTO, sottoc);
pagsca.put(PAGSCA_ANNO, anno);
pagsca.put(PAGSCA_NUMPART, numpart);
pagsca.put(PAGSCA_NRIGA, nriga);
pagsca.put(PAGSCA_NRATA, nrata);
pagsca.put(PAGSCA_NRIGP, nrigp);
if (pagsca.read() == NOERR)
{
pagsca.remove();
}
else
return f.warning_box("Non esiste il pagamento richiesto sull'archivio dei pagamenti");
return TRUE;
}
void TVar_sc::registra_partita(TMask& m)
{
TSheet_field& part = (TSheet_field&)m.field(F_RIGAPART);
for (int i = 0 ; i < part.items(); i++)
{
TToken_string& row = part.row(i);
char tipo = row.get (0)[0];
int gruppo = row.get_int (1);
int conto = row.get_int (2);
long sottoc = row.get_long(3);
int anno = row.get_int (5);
TString numpart = row.get (6);
int nriga = row.get_int (7);
TDate datadoc (row.get (8));
TString numdoc = row.get (9);
TString codcaus = row.get (10);
long nreg = row.get_long(12);
int nrig = row.get_int (13);
TDate datareg (row.get (14));
int gruppocl = row.get_int (15);
int contocl = row.get_int (16);
int tipomov = row.get_int (18);
TString descr = row.get (19);
char sez = row.get (20)[0];
TDate datapag (row.get (21));
int tipopag = row.get_int (22);
TString codval (row.get (23));
TDate datacam (row.get (24));
real cambio (row.get (25));
_tpart->setkey(1);
_tpart->zero();
_tpart->put(PART_TIPOCF, tipo);
_tpart->put(PART_GRUPPO, gruppo);
_tpart->put(PART_CONTO, conto);
_tpart->put(PART_SOTTOCONTO, sottoc);
_tpart->put(PART_ANNO, anno);
_tpart->put(PART_NUMPART, numpart);
_tpart->put(PART_NRIGA, nriga);
if (_tpart->read() == NOERR)
{
_tpart->put(PART_TIPOCF, tipo);
_tpart->put(PART_GRUPPO, gruppo);
_tpart->put(PART_CONTO, conto);
_tpart->put(PART_SOTTOCONTO, sottoc);
_tpart->put(PART_ANNO, anno);
_tpart->put(PART_NUMPART, numpart);
_tpart->put(PART_NRIGA, nriga);
_tpart->put(PART_DATADOC, datadoc);
_tpart->put(PART_NUMDOC, numdoc);
_tpart->put(PART_CODCAUS, codcaus);
_tpart->put(PART_NREG, nreg);
_tpart->put(PART_NUMRIG, nrig);
_tpart->put(PART_DATAREG, datareg);
_tpart->put(PART_GRUPPOCL, gruppocl);
_tpart->put(PART_CONTOCL, contocl);
_tpart->put(PART_TIPOMOV, tipomov);
_tpart->put(PART_DESCR, descr);
_tpart->put(PART_SEZ, sez);
_tpart->put(PART_DATAPAG, datapag);
_tpart->put(PART_TIPOPAG, tipopag);
_tpart->put(PART_CODVAL, codval);
_tpart->put(PART_DATACAM, datacam);
_tpart->put(PART_CAMBIO, cambio);
_tpart->rewrite();
}
else
{
_tpart->put(PART_TIPOCF, tipo);
_tpart->put(PART_GRUPPO, gruppo);
_tpart->put(PART_CONTO, conto);
_tpart->put(PART_SOTTOCONTO, sottoc);
_tpart->put(PART_ANNO, anno);
_tpart->put(PART_NUMPART, numpart);
_tpart->put(PART_NRIGA, nriga);
_tpart->put(PART_DATADOC, datadoc);
_tpart->put(PART_NUMDOC, numdoc);
_tpart->put(PART_CODCAUS, codcaus);
_tpart->put(PART_NREG, nreg);
_tpart->put(PART_NUMRIG, nrig);
_tpart->put(PART_DATAREG, datareg);
_tpart->put(PART_GRUPPOCL, gruppocl);
_tpart->put(PART_CONTOCL, contocl);
_tpart->put(PART_TIPOMOV, tipomov);
_tpart->put(PART_DESCR, descr);
_tpart->put(PART_SEZ, sez);
_tpart->put(PART_DATAPAG, datapag);
_tpart->put(PART_TIPOPAG, tipopag);
_tpart->put(PART_CODVAL, codval);
_tpart->put(PART_DATACAM, datacam);
_tpart->put(PART_CAMBIO, cambio);
_tpart->write();
}
}
}
void TVar_sc::registra_scadenze(TMask& m)
{
TSheet_field& scad = (TSheet_field&)m.field(F_RIGASCAD);
for (int i = 0 ; i < scad.items(); i++)
{
TToken_string& row = scad.row(i);
char tipo = row.get (0)[0];
int gruppo = row.get_int (1);
int conto = row.get_int (2);
long sottoc = row.get_long(3);
int anno = row.get_int (5);
TString numpart = row.get (6);
int nriga = row.get_int (7);
int nrata = row.get_int (8);
TDate datascad (row.get (9));
TString codpag = row.get (10);
int tipopag = row.get_int (11);
TString ultclass = row.get (12);
real importo (row.get (15));
real impval (row.get (16));
TString descr = row.get (17);
long nsabi = row.get_long(19);
long nscab = row.get_long(19);
long vsabi = row.get_long(20);
long vscab = row.get_long(21);
TString codag = row.get (22);
TDate datasoll (row.get (23));
int nsoll = row.get_int (24);
_tscad->setkey(1);
_tscad->zero();
_tscad->put(SCAD_TIPOCF, tipo);
_tscad->put(SCAD_GRUPPO, gruppo);
_tscad->put(SCAD_CONTO, conto);
_tscad->put(SCAD_SOTTOCONTO, sottoc);
_tscad->put(SCAD_ANNO, anno);
_tscad->put(SCAD_NUMPART, numpart);
_tscad->put(SCAD_NRIGA, nriga);
_tscad->put(SCAD_NRATA, nrata);
if (_tscad->read() == NOERR)
{
_tscad->put(SCAD_TIPOCF, tipo);
_tscad->put(SCAD_GRUPPO, gruppo);
_tscad->put(SCAD_CONTO, conto);
_tscad->put(SCAD_SOTTOCONTO, sottoc);
_tscad->put(SCAD_ANNO, anno);
_tscad->put(SCAD_NUMPART, numpart);
_tscad->put(SCAD_NRIGA, nriga);
_tscad->put(SCAD_NRATA, nrata);
_tscad->put(SCAD_DATASCAD, datascad);
_tscad->put(SCAD_CODPAG, codpag);
_tscad->put(SCAD_TIPOPAG, tipopag);
_tscad->put(SCAD_ULTCLASS, ultclass);
_tscad->put(SCAD_IMPORTO, importo);
_tscad->put(SCAD_IMPORTOVAL, impval);
_tscad->put(SCAD_DESCR, descr);
_tscad->put(SCAD_CODABIPR, nsabi);
_tscad->put(SCAD_CODCABPR, nscab);
_tscad->put(SCAD_CODABI, vsabi);
_tscad->put(SCAD_CODCAB, vscab);
_tscad->put(SCAD_CODAG, codag);
_tscad->put(SCAD_DATASOLL, datasoll);
_tscad->put(SCAD_NSOLL, nsoll);
_tscad->rewrite();
}
else
{
_tscad->put(SCAD_TIPOCF, tipo);
_tscad->put(SCAD_GRUPPO, gruppo);
_tscad->put(SCAD_CONTO, conto);
_tscad->put(SCAD_SOTTOCONTO, sottoc);
_tscad->put(SCAD_ANNO, anno);
_tscad->put(SCAD_NUMPART, numpart);
_tscad->put(SCAD_NRIGA, nriga);
_tscad->put(SCAD_NRATA, nrata);
_tscad->put(SCAD_DATASCAD, datascad);
_tscad->put(SCAD_CODPAG, codpag);
_tscad->put(SCAD_TIPOPAG, tipopag);
_tscad->put(SCAD_ULTCLASS, ultclass);
_tscad->put(SCAD_IMPORTO, importo);
_tscad->put(SCAD_IMPORTOVAL, impval);
_tscad->put(SCAD_DESCR, descr);
_tscad->put(SCAD_CODABIPR, nsabi);
_tscad->put(SCAD_CODCABPR, nscab);
_tscad->put(SCAD_CODABI, vsabi);
_tscad->put(SCAD_CODCAB, vscab);
_tscad->put(SCAD_CODAG, codag);
_tscad->put(SCAD_DATASOLL, datasoll);
_tscad->put(SCAD_NSOLL, nsoll);
_tscad->write();
}
}
}
void TVar_sc::registra_pagamenti(TMask& m)
{
TString passat;
TSheet_field& pag = (TSheet_field&)m.field(F_RIGAPAGSCA);
for (int i = 0 ; i < pag.items(); i++)
{
TToken_string& row = pag.row(i);
char tipo = row.get (0)[0];
int gruppo = row.get_int (1);
int conto = row.get_int (2);
long sottoc = row.get_long(3);
int anno = row.get_int (5);
TString numpart = row.get (6);
int nriga = row.get_int (7);
int nrata = row.get_int (8);
int nrigp = row.get_int (9);
TString accsal = row.get (10);
real importo (row.get (12));
real ritenute (row.get (14));
real abbuoni (row.get (16));
real diffcam (row.get (18));
real impval (row.get (19));
char tipoc = row.get (20)[0];
int gruppoc = row.get_int(21);
int contoc = row.get_int(22);
long sottocc = row.get_long(23);
long nsabi = row.get_long(25);
long nscab = row.get_long(26);
long vsabi = row.get_long(27);
long vscab = row.get_long(28);
TString codag = row.get (29);
TString codval = "";
char sez = sezione(tipo,gruppo,conto,sottoc,anno,numpart,nriga,codval,*_mask);
char sezab = row.get(15)[0];
if (sezab != sez)
abbuoni = abbuoni * -1;
if (sezab == 'A')
passat = "P";
else
if (sezab == 'D')
passat = "A";
char sezdc = row.get(17)[0];
if (sezdc != sez)
diffcam = diffcam * -1;
_tpagsca->setkey(1);
_tpagsca->zero();
_tpagsca->put(PAGSCA_TIPOC, tipo);
_tpagsca->put(PAGSCA_GRUPPO, gruppo);
_tpagsca->put(PAGSCA_CONTO, conto);
_tpagsca->put(PAGSCA_SOTTOCONTO, sottoc);
_tpagsca->put(PAGSCA_ANNO, anno);
_tpagsca->put(PAGSCA_NUMPART, numpart);
_tpagsca->put(PAGSCA_NRIGA, nriga);
_tpagsca->put(PAGSCA_NRATA, nrata);
_tpagsca->put(PAGSCA_NRIGP, nrigp);
if (_tpagsca->read() == NOERR)
{
_tpagsca->put(PAGSCA_TIPOC, tipo);
_tpagsca->put(PAGSCA_GRUPPO, gruppo);
_tpagsca->put(PAGSCA_CONTO, conto);
_tpagsca->put(PAGSCA_SOTTOCONTO, sottoc);
_tpagsca->put(PAGSCA_ANNO, anno);
_tpagsca->put(PAGSCA_NUMPART, numpart);
_tpagsca->put(PAGSCA_NRIGA, nriga);
_tpagsca->put(PAGSCA_NRATA, nrata);
_tpagsca->put(PAGSCA_NRIGP, nrigp);
_tpagsca->put(PAGSCA_ACCSAL, accsal);
_tpagsca->put(PAGSCA_IMPORTO, importo);
_tpagsca->put(PAGSCA_RITENUTE, ritenute);
_tpagsca->put(PAGSCA_ABBUONI, abbuoni);
_tpagsca->put(PAGSCA_DIFFCAM, diffcam);
_tpagsca->put(PAGSCA_IMPORTOVAL, impval);
_tpagsca->put(PAGSCA_TIPOCC, tipoc);
_tpagsca->put(PAGSCA_GRUPPOC, gruppoc);
_tpagsca->put(PAGSCA_CONTOC, contoc);
_tpagsca->put(PAGSCA_SOTTOCONTC, sottocc);
_tpagsca->put(PAGSCA_CODABIPR, nsabi);
_tpagsca->put(PAGSCA_CODCABPR, nscab);
_tpagsca->put(PAGSCA_CODABI, vsabi);
_tpagsca->put(PAGSCA_CODCAB, vscab);
_tpagsca->put(PAGSCA_CODAG, codag);
_tpagsca->put(PAGSCA_PASSATT, passat);
_tpagsca->rewrite();
}
else
{
_tpagsca->put(PAGSCA_TIPOC, tipo);
_tpagsca->put(PAGSCA_GRUPPO, gruppo);
_tpagsca->put(PAGSCA_CONTO, conto);
_tpagsca->put(PAGSCA_SOTTOCONTO, sottoc);
_tpagsca->put(PAGSCA_ANNO, anno);
_tpagsca->put(PAGSCA_NUMPART, numpart);
_tpagsca->put(PAGSCA_NRIGA, nriga);
_tpagsca->put(PAGSCA_NRATA, nrata);
_tpagsca->put(PAGSCA_NRIGP, nrigp);
_tpagsca->put(PAGSCA_ACCSAL, accsal);
_tpagsca->put(PAGSCA_IMPORTO, importo);
_tpagsca->put(PAGSCA_RITENUTE, ritenute);
_tpagsca->put(PAGSCA_ABBUONI, abbuoni);
_tpagsca->put(PAGSCA_DIFFCAM, diffcam);
_tpagsca->put(PAGSCA_IMPORTOVAL, impval);
_tpagsca->put(PAGSCA_TIPOCC, tipoc);
_tpagsca->put(PAGSCA_GRUPPOC, gruppoc);
_tpagsca->put(PAGSCA_CONTOC, contoc);
_tpagsca->put(PAGSCA_SOTTOCONTC, sottocc);
_tpagsca->put(PAGSCA_CODABIPR, nsabi);
_tpagsca->put(PAGSCA_CODCABPR, nscab);
_tpagsca->put(PAGSCA_CODABI, vsabi);
_tpagsca->put(PAGSCA_CODCAB, vscab);
_tpagsca->put(PAGSCA_CODAG, codag);
_tpagsca->put(PAGSCA_PASSATT, passat);
_tpagsca->write();
}
}
}
bool TVar_sc::leggi_trasfer()
{
_trasf = _tras_file.path(_dittaric);
_trasf << HEADER;
_tras_file.open(_trasf);
if (_tras_file.exist())
{
if (_tras_file.read_control_rec())
_control_rec = _tras_file.record();
else
return error_box("Rilevati gravi errori negli archivi:procedura interrotta");
}
else
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata");
return TRUE;
}
bool TVar_sc::esegui_controlli()
{
TConfig conf(CONFIG_DITTA);
_std = conf.get("FlStTra");
if (!prefix().exist(_dittaric))
return error_box("Rilevati gravi errori negli archivi: procedura interrotta");
if (!leggi_trasfer())
return FALSE;
if (!controlli())
return FALSE;
return TRUE;
}
void TVar_sc::setta_parametri_record(const TString& sigla,const TString& flag)
{
TConfig conf (CONFIG_DITTA);
conf.set("FlStTra", flag);
leggi_record_controllo();
_control_rec.overwrite(sigla,240);
const int size = 1024;
_tras_file.write_control_rec(_control_rec, size);
}
bool TVar_sc::controlli()
{
TString16 chiave,sigla;
chiave = _control_rec.sub(241,256);
chiave.trim();
sigla = _control_rec.sub(240,241);
sigla.trim();
if (_std == "M" && sigla == "Z" && chiave != "")
return error_box("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato");
if (_std == "M" && sigla == "U")
return error_box("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato");
if (_std == "M" && sigla == "B")
return error_box("Variazione NON POSSIBILE: trasferimento movimenti saldaconto gia' iniziato");
if (_std == "*")
{
warning_box("Trasferimento interamente completato: proseguire per cancellare il file");
_tras_file.remove_all();
setta_parametri_record(" "," ");
return FALSE;
}
if (_std == "T")
return error_box("Variazione NON POSSIBILE: eseguire prima la ricezione delle tabelle");
return TRUE;
}
bool TVar_sc::menu(MENU_TAG m)
{
if (m == BAR_ITEM(1))
return main_loop();
return FALSE;
}