Amigos del foro:
Tengo el siguiente c贸digo, ojo esta montado en un FOLDEREX para que el usuario elija
un archivo desde una carpeta.
La funci贸n ValCER(oFld,aGets3) es la siguiente
La validaci贸n es solo para saber si el archivo/fichero existe, si no existe devuelve FALSE o
TRUE si ya existe.
El problema es que cuando devuelve FALSE se queda en un LOOP, regresa al GET y vuelve a ir
a la validaci贸n, regresa al GET y vuelve a ir a la validaci贸n. Tengo que matar la aplicaci贸n con
el administrador de tareas, alguna sugerencia?
Saludos
Tengo el siguiente c贸digo, ojo esta montado en un FOLDEREX para que el usuario elija
un archivo desde una carpeta.
聽 聽 聽 聽 聽 聽 REDEFINE GET aGets3[01] VAR oEmp:CER ID 301 OF oFld:aDialogs[3] UPDATE;
聽 聽 聽 聽 聽 聽 聽 聽 BITMAP "Bus16";
聽 聽 聽 聽 聽 聽 聽 聽 ACTION (oEmp:CER := cFileName(cFileNoPath(cGetFile("Archivo CER | *.CER",;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽"Seleccione el archivo .CER",1,".\Certificados"))),oFld:UPDATE());
聽 聽 聽 聽 聽 聽 聽 聽 VALID ValCer(oFld,aGets3);
聽 聽 聽 聽 聽 聽 MESSAGE "Nombre del archivo .CER"STATIC FUNCTION ValCer(oFld,aGets3)
聽 聽 IF ! FILE(oApp:cPathCer + ALLTRIM(oEmp:CER))
聽 聽 聽 聽 MsgInfo("Archivo .CER " + ALLTRIM(oEmp:CER) + ", no existe !",oApp:cAplicacion)
聽 聽 聽 聽 oFld:SetOption(3)
聽 聽 聽 聽 oFld:nOption := 3
聽 聽 聽 聽 oFld:Refresh()
聽 聽 聽 聽 aGets3[01]:SETFOCUS()
聽 聽 聽 聽 RETURN(.F.)
聽 聽 ENDIF
RETURN(.T.)TRUE si ya existe.
El problema es que cuando devuelve FALSE se queda en un LOOP, regresa al GET y vuelve a ir
a la validaci贸n, regresa al GET y vuelve a ir a la validaci贸n. Tengo que matar la aplicaci贸n con
el administrador de tareas, alguna sugerencia?
Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
