tag:blogger.com,1999:blog-8847231238348131912.post6167030586563050329..comments2024-03-18T09:05:30.791-03:00Comments on Comunidad de Visual FoxPro en Español: Actualizar nuestra aplicación VFP "on the fly"Luis Mariahttp://www.blogger.com/profile/01349796512778225709noreply@blogger.comBlogger3125tag:blogger.com,1999:blog-8847231238348131912.post-86180926208360209782016-12-19T12:02:47.990-03:002016-12-19T12:02:47.990-03:00DIMENSION verificarversionlocl(1000,100)
DIMENSION...DIMENSION verificarversionlocl(1000,100)<br />DIMENSION verificarversionsrvr(1000,100)<br /><br />AGETFILEVERSION(verificarversionlocl,"C:\directorio\aplicacion.exe")<br />AGETFILEVERSION(verificarversionsrvr,"\\servidor\directorio\aplicacion.exe")<br /><br />IF verificarversionlocl(1,4) <> verificarversionsrvr(1,4)<br /> CLEAR<br /> ?'Versión Local: ',verificarversionlocl(1,4)<br /> ?'Versión Servidor: ',verificarversionsrvr(1,4)<br /> MESSAGEBOX('Actualizar Versión para continuar...',0+16+0,'')<br /> QUIT<br />ENDIFAriel Lópezhttps://www.blogger.com/profile/06406848987413293079noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-25025551776128571072016-12-19T12:01:32.966-03:002016-12-19T12:01:32.966-03:00yo a mi manera lo he hecho del siguiente modo, así...yo a mi manera lo he hecho del siguiente modo, así controlo que los usuarios de la red puedan utilizar la ultima versión del sistema y que todos obtengan los reportes que necesitan, y lo mas importante que todos sean iguales:<br /><br />DIMENSION verificarversionlocl(1000,100)<br />DIMENSION verificarversionsrvr(1000,100)<br /><br />AGETFILEVERSION(verificarversionlocl,"EJECUTABLE A COMPARAR PUEDE ESTAR EN UNA UNIDAD DEL DISCO DURO LOCAL")<br />&& Ejemplo: c:\app\aplication.exe<br />AGETFILEVERSION(verificarversionsrvr,"\\EJECUTABLE A COMPARAR EN EL SERVIDOR DE LA RED DONDE SE TRABAJA ACTUALMENTE")<br />&& Ejemplo: \\srvr\app\aplication.exe<br /><br />IF verificarversionlocl(1,4) <> verificarversionsrvr(1,4)<br /> CLEAR<br /> ?'Versión Local: ',verificarversionlocl(1,4)<br /> ?'Versión Servidor: ',verificarversionsrvr(1,4)<br /> MESSAGEBOX('Actualizar Versión para continuar...',0+16+0,'')<br /> QUIT<br />ENDIFAriel Lópezhttps://www.blogger.com/profile/06406848987413293079noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-73203325272205586372015-09-24T15:14:27.224-03:002015-09-24T15:14:27.224-03:00no esta el link en linea donde puedo bajar el arch...no esta el link en linea donde puedo bajar el archivoAnonymoushttps://www.blogger.com/profile/04723859396308089079noreply@blogger.com