Patch level :
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:
parent
763df4c407
commit
e3904a340f
144
ha/hacnv100.cpp
144
ha/hacnv100.cpp
@ -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
|
||||
///////////////////////////////////////////////////////////
|
||||
|
Loading…
x
Reference in New Issue
Block a user