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

Aggiunto il pack dei file da FOXPRO per le tabelle.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3251 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-07-26 16:20:32 +00:00
parent e824b85219
commit 2a53633a0c
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ba/ba1100.cpp
View File

@ -481,6 +481,21 @@ void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
{
f.packfile();
f.packindex();
//Pack supplementare tramite FOXPRO (da togliere con CodeBase 6)
#if XVT_OS == XVT_OS_WIN
if (logicnum > 2 && logicnum < 6 && f.status() == NOERR)
if (fexist("packaga.exe"))
{
d.get(logicnum);
TFilename f_name(d.name());
f_name.ext("dbf");
f_name.replace('/','\\'); // A volte rimangono delle slash
TString cmd("packaga -t");
cmd << " " << f_name;
TExternal_app packapp(cmd);
packapp.run(FALSE,FALSE);
}
#endif
}
else
if (tasto == K_F6)
@ -1024,7 +1039,7 @@ bool TManutenzione_app::menu(MENU_TAG m)
case K_DEL: delete_riga(); break;
case K_ESC: done = TRUE; break;
case K_ESC: done = TRUE; close_history(); break;
case K_F7:
update(); break;