Aggiunta conversione vecchi profili di stampa. (Cancellazione dei vecchi

e caricamento dei nuovi da lf0054.txt)


git-svn-id: svn://10.65.10.50/trunk@1961 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1995-10-16 14:39:58 +00:00
parent 6708d7658e
commit d42e610d21

View File

@ -245,6 +245,22 @@ bool TConversione_archivi::menu(MENU_TAG)
TSystemisamfile comuni(LF_COMUNI);
comuni.load(format("%sstd/ncom02.txt", __ptprf));
//Cancella tutti i vecchi profili, sostituendoli con i nuovi
TSystemisamfile form(LF_FORM),rform(LF_RFORM);
TDir d;
TFilename lf;
d.get(LF_FORM, _nolock, _comdir, _sysdirop);
d.eod() = 0;
d.put(LF_FORM, _comdir, _sysdirop);
form.pack();
lf.format("%sstd/lf0054.txt", __ptprf);
if (fexist(lf)) form.load(lf);
d.get(LF_RFORM, _nolock, _comdir, _sysdirop);
d.eod() = 0;
d.put(LF_RFORM, _comdir, _sysdirop);
rform.pack();
}
}
default: