FoxPro/Visual FoxPro - Error al abrir TXT

   
Vista:

Error al abrir TXT

Publicado por Eleazar (18 intervenciones) el 01/09/2011 01:19:12
***Esta es la procedure de un boton

LOCAL SelecArchivo,TieneInf,ChecaInf,vMes,Vdia,vPeriodo
STORE " " TO SelecArchivo,vMes,vDia,vPeriodo
STORE 1 TO TieneInf,ChecaInf
**Selecciono Archivo
SelecArchivo=getfile("txt","Abrir...","Abrir")
***Checo si tiene inf
TieneInf = FOPEN(SelecArchivo,12)
STORE FSEEK(TieneInf, 0, 2) TO ChecaInf
IF ChecaInf <= 0
*** si No tiene
=MESSAGEBOX("Este Archivo no tiene informacion o es invalido",0+16,"!!! Error ¡¡¡")
ELSE
CREATE Cursor Temporal(Campo_Memo M)
SELECT Temporal
APPEND BLANK
FCLOSE(SelecArchivo)
APPEND MEMO Campo_Memo FROM &SelecArchivo
SCATTER MEMVAR Memo
FOR Renglon=1 TO to MEMLINES(m.campo.memo)
LaLineaLeida=mline(m.campo_memo,Renglon)
IF LEFT(LalineaLeida,1)="P"
vMes=Substr(LaLineaLeida,10,2)
vDia=SubStr(LaLineaLeida,8,2)
vPeriodo=SubStr(LaLinea,4,4)
ENDIF
LaFechaMov=vDia+"/"+vMes+"/"+vPeriodo
WAIT WINDOW LaFechaMov
Endfor
ENDIF

RELEASE Temporal

ME MARCA ESTOS ERRORES

** En Append Memo siempre me marca "Error del Programa","Denegado [nombre del archivo]al acceso del archivo

** y cuando trato de ejecutarlo mas de 1 vez siempre me marca el error del MessageBox aun asi seleccione el archivo que use la primera vez

Gracias por su ayuda
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

Error al abrir TXT

Publicado por Eleazar (18 intervenciones) el 01/09/2011 19:29:24
Ya quedo!! los dos errores venian del mal uso del Fclose, ya que en el FCLOSE ponia lo obtenido en GETFILE cuando en realidad deberia de poner la variable usada en FOPEN
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