Buon giorno Aurora,
> ho la necessità di controllare se tutti gli archivi vengono
> correttamente chiusi alla conclusione della procedura. Esiste un
> modo per fare questo controllo ? In pratica vorrei chiedere se
> l'archivio oprovpres è chiuso oppure no.
basta fare un loop su tutte le workarea dalla 1 alla 1023 e vedere se
sono occupate:
#ifdef __XSHARP__
nMax := 4096
#else
nMax := 1023
#endif
for nI := nMax downto 1
if ! Empty( VODBAlias( nI ) )
// Workarea occupata
endif
next
Saluti
Wolfgang
--