82 lines
1.9 KiB
C++
82 lines
1.9 KiB
C++
|
#include "calib01.h"
|
||
|
|
#include "calib02.h"
|
||
|
|
#include "ca3883.h"
|
||
|
|
#include "panapdc.h"
|
||
|
|
|
||
|
|
TObject* TIndbil_cache::key2obj(const char* key)
|
||
|
|
{
|
||
|
|
TString80 conto = key;
|
||
|
|
if (_usepdcc && conto.len() == 12 && real::is_natural(conto))
|
||
|
|
{
|
||
|
|
TLocalisamfile panapdc(LF_PANAPDC);
|
||
|
|
panapdc.setkey(2);
|
||
|
|
const int gr = atoi(conto.left(3));
|
||
|
|
const int co = atoi(conto.mid(3,3));
|
||
|
|
const long so = atol(conto.mid(6,6));
|
||
|
|
|
||
|
|
TRectype& panapdrec = panapdc.curr();
|
||
|
|
for (int i = 2; i >= 0; i--)
|
||
|
|
{
|
||
|
|
panapdrec.zero();
|
||
|
|
panapdrec.put(PANAPDC_GRUPPO, gr);
|
||
|
|
if (i > 0)
|
||
|
|
panapdrec.put(PANAPDC_CONTO, co);
|
||
|
|
if (i == 2)
|
||
|
|
panapdrec.put(PANAPDC_SOTTOCONTO, so);
|
||
|
|
|
||
|
|
//occhio al prefisso!
|
||
|
|
panapdrec.put(PANAPDC_CODCONTO, _prefix);
|
||
|
|
|
||
|
|
if (panapdc.read(_isgteq) == NOERR)
|
||
|
|
{
|
||
|
|
bool found = panapdrec.get_int(PANAPDC_GRUPPO) == gr;
|
||
|
|
if (found)
|
||
|
|
found = panapdrec.get_int(PANAPDC_CONTO) == (i > 0 ? co : 0);
|
||
|
|
if (found)
|
||
|
|
found = panapdrec.get_long(PANAPDC_SOTTOCONTO) == (i > 1 ? so : 0L);
|
||
|
|
if (found && _prefix.full())
|
||
|
|
found = panapdrec.get(PANAPDC_CODCONTO).starts_with(_prefix);
|
||
|
|
|
||
|
|
if (found)
|
||
|
|
{
|
||
|
|
conto = panapdrec.get(PANAPDC_CODCONTO);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
//se non trova il corrispondente conto analitico azzera il conto per il prossimo giro
|
||
|
|
if (i < 0)
|
||
|
|
conto.cut(0);
|
||
|
|
}
|
||
|
|
//conto analitico
|
||
|
|
TAnal_bill bill(conto);
|
||
|
|
int indbil = bill.indicatore_bilancio();
|
||
|
|
TToken_string* ib = new TToken_string;
|
||
|
|
*ib << indbil;
|
||
|
|
ib->add(conto);
|
||
|
|
return ib;
|
||
|
|
}
|
||
|
|
|
||
|
|
int TIndbil_cache::get_indbil(const TString& conto, TString& conto_anale)
|
||
|
|
{
|
||
|
|
TToken_string* ib = (TToken_string*)objptr(conto);
|
||
|
|
if (ib != NULL)
|
||
|
|
ib->get(1, conto_anale);
|
||
|
|
return ib ? ib->get_int(0) : 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
void TIndbil_cache::set_prefix(const char* prefix)
|
||
|
|
{
|
||
|
|
if (_prefix != prefix)
|
||
|
|
{
|
||
|
|
_prefix = prefix;
|
||
|
|
destroy();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
TIndbil_cache::TIndbil_cache()
|
||
|
|
{
|
||
|
|
TConfig& cfg = ca_config();
|
||
|
|
_usepdcc = cfg.get_bool("UsePdcc");
|
||
|
|
}
|