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

Corretto il cambio del nome del file in conversione.

Browse Source 
Corretta la stampa dei tracciati in caso di campi Memo.
Azzerato il tracciato in caso di eliminazione file e conversione
di un file con tracciato vuoto.


git-svn-id: svn://10.65.10.50/trunk@1619 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1995-07-20 09:05:03 +00:00
parent ad2abb8dbe
commit bb5257f00c
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ba/ba1100.cpp
View File

@ -104,7 +104,7 @@ void TManutenzione_app::do_print(TPrinter & p, TRec_sheet & r)
const char* table[] = {"", "Alfanumerico", "Intero", "Intero Lungo",
"Reale", "Data", "Intero", "Carattere",
"Booleano", "Intero Zerofilled",
"Intero Lungo Zerofilled"};
"Intero Lungo Zerofilled","Memo"};
TPrintrow row;
TToken_string s;
TParagraph_string d("", 25);
@ -371,7 +371,7 @@ void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
const TRecnotype oldeox = atol(_mask->get(FLD_EOX));
const bool com = prefix().is_com() || !*prefix().name();
const char* name = _mask->get(FLD_NOME);
const bool enable_extend = (com ? *name != '$' : *name == '$') && (riga_sel > 0);
const bool enable_extend = (com ? *name != '$' : *name == '$') && (riga_sel > 0) && (_mask->get_int(F_LEN) > 0);
_mask->show(FLD_EXTEND, enable_extend);
_mask->show(FLD_EOX, enable_extend);
@ -495,6 +495,10 @@ void TManutenzione_app::delete_riga ()
_browse->dir()->eod()--;
_browse->set_items(_browse->dir()->eod());
_browse->dir()->put(LF_DIR);
// Azzera il tracciato record del file eliminato.
TTrec r;
r.zero();
r.put(logicnum);
}
@ -572,7 +576,6 @@ void TManutenzione_app::update_dir()
const TFilename fsi(ts.get());
TFilename fdi(fd); // Nuovo nome. (Con l'estensione)
fdi.ext("");
fdi.rtrim(1);
if (j > 1) // Means that more indexes are in TToken_string ts
{
TString xx=fdi.name();
@ -590,7 +593,7 @@ void TManutenzione_app::update_dir()
{
remove(fs); // Rimuove i files sorgenti. Crea un eventuale .cgp
fd.ext("cgp");
FILE *o;
FILE *o=NULL;
if (ts.items() > 1)
{
fs.ext("cgp");
@ -610,7 +613,8 @@ void TManutenzione_app::update_dir()
fprintf(o,"%s\n",ff.name());
}
}
fclose(o);
if (o!=NULL)
fclose(o);
}
else
{
@ -700,10 +704,10 @@ void TManutenzione_app::convert_dir()
prefix().set("");
r.get(i);
d.get(i);
if (d.len() != 0)
prefix().set(pref);
if (d.len() > 0)
{
const int module = abs((int)d.flags());
prefix().set(pref);
TSystemisamfile f(i);
f.update(r);
@ -721,7 +725,12 @@ void TManutenzione_app::convert_dir()
f.build(10L);
}
}
}
}
else
{
r.zero();
r.put(i);
}
}
prefix().set("");
const long level = prefix().filelevel();