Progress - Sentencia Output

   
Vista:

Sentencia Output

Publicado por Mauro Vilosio (4 intervenciones) el 19/05/2009 22:03:44
Hola a todos,

Tengo un problema.

Quiero crear un archivo .txt con datos que recorro de una tabla. Este código me funciona correctamente, el problema es que cuando coloco una ruta a la que no tengo permiso de escritura me sale un error. Hay alguna forma de controlar esta excepción?

Muchas gracias y saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Sentencia Output

Publicado por Camilo Gonzalez (8 intervenciones) el 21/05/2009 03:00:32
Hola Mauro,

Puede utilizar la variable de sistema FILE-INFO de la siguiente manera

1. Se asigna la ruta del directorio que se desea evaluar

FILE-INFO:FILE-NAME = "C:directorioprueba".

2. Se verifica el atributo FILE-TYPE , para el cual se debe verificar que contenga lo siguiente

D = Identifica que es un directorio
R = Habilitada la Lectura
W = Habilitada la Escritura

IF INDEX(FILE-INFO:FILE-TYPE,"W") <> 0 THEN DO :
MESSAGE "No se puede escribbir"
VIEW-AS ALERT-BOX.
END.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Sentencia Output

Publicado por Mauro Vilosio (4 intervenciones) el 25/05/2009 20:37:34
Muchas gracias por la ayuda, voy a probarlo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Sentencia Output

Publicado por Mauro Vilosio (4 intervenciones) el 26/05/2009 14:59:16
Hola Camilo, Muchas gracias por responder a mi consulta.

Te comento que estuve probando, pero no me funciona.

1º Error: siempre me sale el mensaje "No se puede escribir". Si le cambio por = 0, ahí no sale más.

2º Error: Yo mostré un mensaje con lo siguiente:

MESSAGE FILE-INFO:FILE-TYPE
VIEW-AS ALERT-BOX INFO BUTTONS OK.

y siempre me sale DRW, ya sea para un directorio donde tenga permisos o donde no.

Como puedo solucionarlo?

Muchas gracias y saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar