problemas con el try catch
Publicado: Vie Mar 26, 2010 10:07 pm
Modificando la funcion del Locks del viajo clipper, enla diguiente funcion
cuando el archivo lo tengo en uso no entra al Catch saliendo directamente
por el END, en una funcion que ya estaba hecho y andando.Desde ya mucha
gracias
Marco Argentina
FUNCTION NET_USE(fArchivo,bExclusivo,bBandera)
LOCAL bResultado:=.T.
try
IF bExclusivo
USE &fArchivo EXCLUSIVE
ELSE
USE &fArchivo
ENDIF
Catch
IF NETERR()
bResultado:=.F.
ELSE
bBandera :=.T.
ENDIF
end
RETURN bResultado
cuando el archivo lo tengo en uso no entra al Catch saliendo directamente
por el END, en una funcion que ya estaba hecho y andando.Desde ya mucha
gracias
Marco Argentina
FUNCTION NET_USE(fArchivo,bExclusivo,bBandera)
LOCAL bResultado:=.T.
try
IF bExclusivo
USE &fArchivo EXCLUSIVE
ELSE
USE &fArchivo
ENDIF
Catch
IF NETERR()
bResultado:=.F.
ELSE
bBandera :=.T.
ENDIF
end
RETURN bResultado