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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@21090 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2010-10-29 07:55:05 +00:00
parent 763df4c407
commit e3904a340f
1 changed files with 73 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

144
ha/hacnv100.cpp
View File

@ -735,77 +735,6 @@ bool THardy_pcon::trasferisci_gruppi()
pcon.close();
return write_enabled();
}
long THardy_clienti::get_codcf(const TString &key)
{
long codcf = 0;
const char first = key[0];
const long cod_hardy = atoi(key.mid(2,6));
switch (first)
{
case 'H':
{
codcf = 130000+cod_hardy;
}
break;
case 'P':
{
codcf = 140000+cod_hardy;
}
break;
case '0':
{
const char second = key[1];
if (second == '1')
codcf = 120000+cod_hardy;
else if (second == '0')
{
const char third = key[2];
if (third == '4')
codcf = 110000+cod_hardy;
else if (third == '3')
codcf = 100000+cod_hardy;
else
codcf = cod_hardy;
}
}
break;
default:
codcf = cod_hardy;
}
return codcf;
}
bool THardy_clienti::trasferisci()
{
TString query =
"SELECT * "
"FROM dbo.Clienti ";
TRecordset& recset = create_recordset(query);
TConfig& ini = config();
TString_array lista_campi;
ini.list_variables(lista_campi, true, "CLIENTI", true);
TSystemisamfile clienti(LF_CLIFO);
clienti.open(_lock);
TRectype& rec = clienti.curr();
THardy_iterator hi(this);
while (++hi)
{
// costruisco la chiave
const TString16 key = get_str("IdConto");
long codcf = get_codcf(key);
rec.zero();
rec.put(CLI_TIPOCF, "C");
rec.put(CLI_CODCF, codcf);
aggiorna_record(rec, lista_campi);
test_write(clienti);
}
clienti.close();
return write_enabled();
}
bool THardy_pcon::trasferisci_conti()
{
TString query =
@ -891,6 +820,79 @@ bool THardy_pcon::trasferisci_sottoconti()
return write_enabled();
}
long THardy_clienti::get_codcf(const TString &key)
{
long codcf = 0;
const char first = key[0];
long cod_hardy = atoi(key.mid(3,6));
switch (first)
{
case 'H':
{
codcf = 130000+cod_hardy;
}
break;
case 'P':
{
codcf = 140000+cod_hardy;
}
break;
case '0':
{
const char second = key[1];
if (second == '1')
codcf = 120000+cod_hardy;
else if (second == '0')
{
const char third = key[2];
if (third == '4')
codcf = 110000+cod_hardy;
else if (third == '3')
codcf = 100000+cod_hardy;
else if (third == '2')
codcf = 200000+cod_hardy;
else
codcf = cod_hardy;
}
}
break;
default:
codcf = cod_hardy;
}
return codcf;
}
bool THardy_clienti::trasferisci()
{
TString query =
"SELECT * "
"FROM dbo.Clienti ";
TRecordset& recset = create_recordset(query);
TConfig& ini = config();
TString_array lista_campi;
ini.list_variables(lista_campi, true, "CLIENTI", true);
TSystemisamfile clienti(LF_CLIFO);
clienti.open(_lock);
TRectype& rec = clienti.curr();
THardy_iterator hi(this);
while (++hi)
{
// costruisco la chiave
const TString16 key = get_str("IdConto");
long codcf = get_codcf(key);
rec.zero();
rec.put(CLI_TIPOCF, "C");
rec.put(CLI_CODCF, codcf);
aggiorna_record(rec, lista_campi);
test_write(clienti);
}
clienti.close();
return write_enabled();
}
///////////////////////////////////////////////////////////
// TImportazioneHardy_mask
///////////////////////////////////////////////////////////