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

Corretti errori MI3638 e MI3639

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@5002 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-07-31 14:48:35 +00:00
parent ace3ea0609
commit 949ace5226
2 changed files with 21 additions and 5 deletions

25
cg/cglib04.cpp

@ -1031,11 +1031,6 @@ const char* TTransfer_file::cerca_comune_cap(TString& field, const TString& loca
if (comuni.curr() != com) break;
TString denominazione (comuni.get(COM_DENCOM));
if (prima_volta)
{
TEMP = comuni.get(COM_COM);
prima_volta = FALSE;
}
for (int i = 0; i < 3; i++)
{
@ -1058,6 +1053,21 @@ const char* TTransfer_file::cerca_comune_cap(TString& field, const TString& loca
return TEMP;
}
const char* TTransfer_file::cerca_cap_comune(const TString& localita)
{
TLocalisamfile comuni (LF_COMUNI);
comuni.setkey(2);
comuni.zero();
comuni.put(COM_DENCOM, localita);
if (comuni.read() == NOERR)
TEMP = comuni.get(COM_CAPCOM);
else
TEMP = "";
return TEMP;
}
const char* TTransfer_file::cerca_comune_den(TString& field)
{
TLocalisamfile comuni (LF_COMUNI);
@ -1275,6 +1285,8 @@ void TTransfer_file::write_tmp_tabelle(TString& record, bool create)
if (cap.not_empty())
comune = cerca_comune_cap(cap,field);
else
dep->put(CLI_CAPCF,cerca_cap_comune(field));
if (comune.empty())
comune = cerca_comune_den(field);
if (comune.not_empty())
@ -3920,6 +3932,9 @@ void TTransfer_file::write_clienti_fornitori(TString& record)
{
comune = "";
if (cap.empty())
_depclifo->put(CLI_CAPCF,cerca_cap_comune(field));
if (com.empty() && !is_foreign)
{
if (cap.not_empty())

1
cg/cglib04.h

@ -263,6 +263,7 @@ public:
void temp_dir(TString& orig,TString& dest,TString& sigle);
const char* cerca_comune_cap(TString& field,const TString& localita);
const char* cerca_cap_comune(const TString& localita);
const char* cerca_comune_den(TString& field);
void datafine_esprec(const int aep, TDate& datacomp);