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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
nuovo cliente in upload


git-svn-id: svn://10.65.10.50/branches/R_10_00@21562 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2011-02-01 17:13:18 +00:00
parent c99302a8de
commit f055c78e2d
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ha/ha1300.cpp
View File

@ -716,28 +716,27 @@ void TUpload2Campo::elabora_TF(THardy_upload_recordset& recset, TLog_report& log
long codcf = 0L;
const TString& str_codcf = recset.get(DOC_CODCF).as_string();
const bool new_cliente = str_codcf.find('*') >= 0;
if (new_cliente)
{
const real* ptr = (const real*)_nuovi_clienti.objptr(str_codcf);
codcf = ptr ? ptr->integer() : 0L;
}
else
codcf = atol(str_codcf);
//controllo effettuabile solo se il cliente è già presente (vecchio o nuovo aggiunto con la importa_VC se era _can_write)
if (!new_cliente || _can_write)
{
TToken_string key_clifo;
key_clifo.add("C");
key_clifo.add(codcf);
const long cliente = atol(cache().get(LF_CLIFO, key_clifo, CLI_CODCF));
if (cliente != codcf)
{
_can_write = false;
TString msg;
msg << "Codice cliente " << codcf << " sconosciuto";
log.log(2, msg);
}
key_clifo.add(str_codcf);
codcf = atol(cache().get(LF_CLIFO, key_clifo, CLI_CODCF));
}
//controllo effettuabile solo se il cliente è già presente (vecchio o nuovo aggiunto con la importa_VC se era _can_write)
if (codcf <= 0)
{
_can_write = false;
TString msg;
msg << "Codice cliente " << str_codcf << " sconosciuto";
log.log(2, msg);
}
doc.put(DOC_CODCF, codcf);