2e40621509
Files correlati : ps0713 Ricompilazione Demo : [ ] Commento : Correzioni in seguito a segnalazioni Roberto git-svn-id: svn://10.65.10.50/trunk@20497 c028cbd2-c16b-5b4b-a496-9718f37d4682
149 lines
3.3 KiB
C++
Executable File
149 lines
3.3 KiB
C++
Executable File
#include "ps0713lib.h"
|
|
|
|
////////////////////////////////
|
|
//// TCOMMESSA_STRING ////
|
|
////////////////////////////////
|
|
|
|
//IDLAVORO: metodo che restituisce l'Idlavoro
|
|
const TString16 TCommessa_string::idlavoro()
|
|
{
|
|
return get(0);
|
|
}
|
|
|
|
//GRUPPO: metodo che restituisce il gruppo
|
|
const int TCommessa_string::gruppo()
|
|
{
|
|
return get_int(1);
|
|
}
|
|
|
|
//CONTO: metodo che restituisce il conto
|
|
const int TCommessa_string::conto()
|
|
{
|
|
return get_int(2);
|
|
}
|
|
|
|
//SOTCO: metodo che restituisce il sottoconto
|
|
const long TCommessa_string::sotco()
|
|
{
|
|
return get_long(3);
|
|
}
|
|
|
|
//metodo costruttore
|
|
TCommessa_string::TCommessa_string(const char* idlavoro, const int gruppo, const int conto, const long sotco)
|
|
{
|
|
add(idlavoro);
|
|
add(gruppo);
|
|
add(conto);
|
|
add(sotco);
|
|
}
|
|
|
|
|
|
|
|
/////////////////////////
|
|
//// TCOMMESSA ////
|
|
/////////////////////////
|
|
|
|
//CODICE: metodo che restituisce il codice di ripartizione
|
|
const TString8 TCommessa::codice() const
|
|
{
|
|
return _codice;
|
|
}
|
|
|
|
//CMSSTR: metodo che restituisce la TToken_string contenente le informazioni di codcms e del conto
|
|
const TCommessa_string TCommessa::cmsstr() const
|
|
{
|
|
return _commessa;
|
|
}
|
|
|
|
//metodo costruttore
|
|
TCommessa::TCommessa(const char* codcms)
|
|
{
|
|
TString query;
|
|
query << "USE RIP KEY 4\n"
|
|
<< "FROM TIPO=\"B\" CODCOSTO=\"\" CODCMS=\"" << codcms << "\"\n"
|
|
<< "TO TIPO=\"B\" CODCOSTO=\"\" CODCMS=\"" << codcms << "\"\n";
|
|
|
|
TISAM_recordset rip(query);
|
|
rip.move_first();
|
|
|
|
if(!rip.empty())
|
|
{
|
|
_codice = rip.get("CODICE").as_string();
|
|
|
|
const TString16 codcms = rip.get("CODCMS").as_string();
|
|
|
|
query.cut(0);
|
|
query << "USE RRIP\n"
|
|
<< "FROM TIPO=\"B\" CODICE=" << _codice << " NRIGA=1\n"
|
|
<< "TO TIPO=\"B\" CODICE=" << _codice << " NRIGA=1\n";
|
|
|
|
TISAM_recordset rrip(query);
|
|
rrip.move_first();
|
|
|
|
TString80 str = rrip.get("CODCONTO").as_string();
|
|
const int gruppo = atoi(str.left(3)) > 0 ? atoi(str.left(3)) : 0;
|
|
const int conto = atoi(str.mid(3,3)) > 0 ? atoi(str.mid(3,3)) : 0;
|
|
const long sotco = atol(str.right(6)) > 0L ? atol(str.right(6)) : 0L;
|
|
|
|
TCommessa_string cms(codcms, gruppo, conto, sotco);
|
|
|
|
_commessa = cms;
|
|
}
|
|
else
|
|
{
|
|
TCommessa_string cms(0L, 0, 0, 0L);
|
|
_commessa = cms;
|
|
}
|
|
|
|
}
|
|
|
|
//////////////////////////
|
|
//// TVB_RECSET ////
|
|
//////////////////////////
|
|
|
|
TRecnotype TVB_recset::new_rec(const char* buf)
|
|
{
|
|
TToken_string str(256,'\t'); //nuovo record tab separator
|
|
|
|
if(buf && *buf)
|
|
{
|
|
bool apici=false;
|
|
|
|
for (const char* c = buf; *c ; c++)
|
|
{
|
|
if (*c == '"')
|
|
{
|
|
apici = !apici;
|
|
}
|
|
else
|
|
{
|
|
if (*c == separator())
|
|
{
|
|
if (!apici)
|
|
str << str.separator();
|
|
else
|
|
str << *c;
|
|
}
|
|
else
|
|
str << *c;
|
|
|
|
}
|
|
}
|
|
}
|
|
|
|
const TRecnotype n = TText_recordset::new_rec(str);
|
|
|
|
if (n >= 0)
|
|
row(n).separator(str.separator());
|
|
|
|
return n;
|
|
}
|
|
|
|
|
|
TVB_recset::TVB_recset(const char * fileName, const char s)
|
|
: TCSV_recordset("CSV(,)")
|
|
{
|
|
set_separator(s);
|
|
load_file(fileName);
|
|
}
|