Hola Grupo:
Termine un sistema en vfp8 luego de desarrollarlo en mi
PC y de realizar todas las pruebas con los usuarios., Ahora que ya esta
funcionando me solicitaron que lo instalara en el Servidor (ufff??..).
Detalló, el Proyecto tiene un Prg donde lo direccionaba de la siguiente
forma, set defa to '\\quique\c\secplac' y funciono muy bien en las pruebas.,
¡Ahora como que se me complico la cosa!, cree una carpeta en el Servidor y
copie todo el proyecto en esa carpeta (secplac) luego cambie el programa
inicial y la línea de código por la siguiente: Set defa to
'\\SRV-LOESPEJO\BASE_QUIQUE$\SECPLAC'
Genere nuevamente el proyecto y luego genere un nuevo exe. Luego para
probarlo, en mi PC hice un icono con acceso directo y funciono bien sin
ningún error. Ahora pensé en crear un acceso directo en cada estación y ¿
problema solucionado?, pero me arroja en las estaciones el siguiente error
“La ruta o el nombre de archivo no es valido” si le doy pasar por alto,
aparece el formulario principal del sistema (Login), aquí el usuario se
selecciona y luego de ingresar su clave y presionar el botón de comando
Entrar, manda el error “ No se puede actualizar el cursor Usuarios, ya que
es de solo lectura”.Por casualidad tengo una tabla de nombre usuarios donde
estan loss perfiles de cada usuario. Estas son la líneas del código del botón
entrar del formulario Login:
USE usuarios shared
….
….
mNick=THISFORM.mNick.Value
mClave=THISFORM.mClave.Value
set orde to nombre
SEEK mNick
IF mClave=clave
If LockUser=.F.
=MessageBox("Usuario Bloqueado. Consulte al
Administrador",16,"Municipalidad Informa")
THISFORM.mclave.Value=' '
THISFORM.mclave.SetFocus
RETURN
ELSE
WAIT WINDOWS "Bienvenido al Sistema.." NOWAIT
replace hora WITH dateTIME()
replace estado WITH "En Linea"
replace fecha WITH DATE()
mNick=THISFORM.mNick.Value
CLOSE tables
release form
CLOSE form login
RELEASE THISFORM
do presenta.prg
ENDIF
ELSE
WAIT WINDOWS "Clave No Concuerda..." NOWAIT
THISFORM.mclave.Value=' '
THISFORM.mclave.SetFocus
ENDIF
Y este son las líneas de mi prg principal:
set sysmenu to
application.statusbar=''
SET SCOREBOARD OFF
SET TALK OFF
SET DATE BRITISH
SET CENTURY ON
SET BELL OFF
SET HELP OFF
SET SAFETY OFF
SET DELETED ON
SET CONFIRM OFF
set compatible on
SET SEPARATOR TO '.'
SET POINT TO ','
SET ESCAPE OFF
SET REPROCESS TO AUTOMATIC
* > REDES <
SET MULTILOCKS ON
SET EXCLUSIVE OFF
SET LOCK OFF
set refresh to 5
set defa to '\\SRV-LOESPEJO\BASE_QUIQUE$\SECPLAC'
******set defa to '\\quique\c\secplac' && mi PC
bufferout=''
SET SYSMENU off
DO FORM LOGINDE && formulario de Login del sistema
READ EVENTS
RETURN
Disculpen lo extenso pero soy novato.
Gracias y saludos a Todos. Enrique.
"El objeto más noble que puede ocupar el hombre es ilustrar a
sus semejantes"
Simón Bolívar "El Libertador"
Estadista y Militar Venezolano.
Santiago de Chile
Leer las respuestas