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

Modifica occasionali per codice comune in ricezione da pc

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2712 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1996-04-09 14:53:57 +00:00
parent c509b05c07
commit 3c79c260b9
2 changed files with 67 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
cg/cglib04.cpp
View File

@ -2474,7 +2474,7 @@ void TTransfer_file::write_testata_causali(TString& record)
if (fname == CAU_TIPOMOV) if (fname == CAU_TIPOMOV)
if (field == "0") if (field == "0")
field == ""; field = "";
_depcaus->put(fname, (const char*)field); _depcaus->put(fname, (const char*)field);
@ -2582,7 +2582,7 @@ void TTransfer_file::write_righe_causali(TString& record)
void TTransfer_file::write_clienti_fornitori(TString& record) void TTransfer_file::write_clienti_fornitori(TString& record)
{ {
TString sigla,key; TString sigla,key,com,comune,cap;
int numfield = 1; int numfield = 1;
TMappa_trc& trc = mappa(); TMappa_trc& trc = mappa();
@ -2630,6 +2630,34 @@ void TTransfer_file::write_clienti_fornitori(TString& record)
long sottoc = atol(field); long sottoc = atol(field);
field.format("%6ld", sottoc); field.format("%6ld", sottoc);
} }
if (fname == CLI_COMCF)
{
com = field;
com.trim();
}
if (fname == CLI_CAPCF)
{
field.trim();
if (field == "00000")
cap = "";
else
cap = field;
}
if (fname == CLI_LOCCF)
{
comune = "";
if (com.empty())
{
if (cap.not_empty())
comune = cerca_comune_cap(cap);
if (comune.empty())
comune = cerca_comune_den(field);
if (comune.not_empty())
_depclifo->put(CLI_COMCF, comune);
}
}
if (flag == 2) if (flag == 2)
{ {
TString f = converti(field,TRUE); TString f = converti(field,TRUE);
@ -2800,7 +2828,7 @@ void TTransfer_file::write_testata_movimenti(TString& record)
if (trc.is_key((const char *) key)) if (trc.is_key((const char *) key))
{ {
_numreg = atol(record.sub(2,8)); _numreg = atol(record.sub(2,9));
do do
{ {
@ -2958,6 +2986,34 @@ void TTransfer_file::write_testata_movimenti(TString& record)
_depmov->put(fname,field); _depmov->put(fname,field);
_depoccas->put("CFPI", field); _depoccas->put("CFPI", field);
} }
else
if (fname == "COM")
{
field.trim();
if (field.empty())
{
TString denominazione = record.sub(403,453);
denominazione.trim();
TString comune (cerca_comune_den(denominazione));
_depoccas->put("COM", comune);
}
else
_depoccas->put("COM", field);
}
else
if (fname == "COMNASC")
{
field.trim();
if (field.empty())
{
TString denominazione = record.sub(473,523);
denominazione.trim();
TString comune (cerca_comune_den(denominazione));
_depoccas->put("COMNASC", comune);
}
else
_depoccas->put("COMNASC", field);
}
else else
_depoccas->put(fname, field); _depoccas->put(fname, field);
registra_occas = TRUE; registra_occas = TRUE;
@ -3349,7 +3405,7 @@ int packindex(bool vis, int num, TString& name)
d.get(num,_nolock, _nordir,_sysdirop); d.get(num,_nolock, _nordir,_sysdirop);
d.get(num,_nolock, (d.is_com()) ? _comdir : _nordir); d.get(num,_nolock, (d.is_com()) ? _comdir : _nordir);
r.get(num); r.get(num);
err=DB_packindex(vis, name, r.rec(), &peod,TRUE); err=DB_packindex(vis, name, r.rec(), &peod);
if (err != NOERR) err = get_error(err); if (err != NOERR) err = get_error(err);
#ifdef DBG #ifdef DBG

8
cg/cgtrcpc.ini
View File

@ -64,10 +64,10 @@ A1|2|4|9|20|CODCF|||
A1|3|61|110|20|RAGSOC|1|| A1|3|61|110|20|RAGSOC|1||
A1|4|111|145|20|INDCF|1|| A1|4|111|145|20|INDCF|1||
A1|5|146|155|20|CIVCF|1|| A1|5|146|155|20|CIVCF|1||
A1|6|156|190|20|LOCALITACF|1|| A1|6|191|193|20|STATOCF|1||
A1|7|191|193|20|STATOCF|1|| A1|7|194|197|20|COMCF|1||
A1|8|194|197|20|COMCF|1|| A1|8|248|252|20|CAPCF|1||
A1|9|248|252|20|CAPCF|1|| A1|9|156|190|20|LOCALITACF|1||
A1|10|253|268|20|COFI|1|| A1|10|253|268|20|COFI|1||
A1|11|269|270|20|STATOPAIV|1|| A1|11|269|270|20|STATOPAIV|1||
A1|12|271|282|20|PAIV|1|| A1|12|271|282|20|PAIV|1||