Error de acceso a Datos

[karinha]

dbUseArea(.T.,,"PROVE","PROVE",.T.)


José, porque haces la apertura del banco asi?

[pymsoft]

Jose Luis:

No tiene nada que ver, pero prueba a mapear la unidad del servidor en el servidor.

Tipo, unidad S: = \\tuservidor\c y accede al programa desde la unidad compartida.

Saludos.

[karinha]

Jose, teste este ejemplo, añande um .DBF y teste.

http://www.fivewin.com.br/exibedicas.asp?id=747

[JoseLuis]

Voy a explicar un poco el procedimiento que utilizo, y que hasta ahora no me había dado problemas:
- El Exe está en todos los equipos y también en el servidor en C:\mocwin
- Los datos cuelgan de éste directorio en carpetas de años c:\mocwin\2007
- Los path los tengo puestos en un ini que cargo al inicio:

[DATOS]
Unidad=S:\
Nombre Comercial=A.C.M. SERVIRUTA
[ALBARAN]
Automatico=N
Copias de Albaran=2
[REEMBOLSO]
Importe=4
Minimo=3.25
[BITMAP]
Ruta Bitmap=C:\mocwinn\BMPS\logoacm.bmp
[JPG]
Ruta Imagenes=C:\mocwinn\IMAGEN\
Ruta Imagenes entrada=P:\PES\ERRORES\
Ruta Imagenes busqueda=P:\PES\ESCANEO\
Ruta Imagenes Servidor=P:\PES\HTDOCS\

[PDF]
Ruta Facturas Pdf=P:\PES\HTDOCS\FACTURAS\
Ruta Directorio Pdf=C:\PDF\

(Este ini se encuentra en cada una de las maquinas, excepto en el servidor que tiene otro ini, ya que las unidades de acceso son distintas. Para una máquina, el servidor de datos esta en S:\, etc., y en el ini del propio servidor los datos estan en c:\ etc.)

- La llamada a los datos los hago así:

Code: Select all  Expand view  RUN

  dbUseArea(.T.,,Publicas:cUnidad+Publicas:cSubd+"\PROVE",aAlias[21],.T.)
  (aAlias[21])->(OrdSetFocus("Codigo"))
  (aAlias[21])->( dbGotop() )


El aAlias[21] es por el tema de mdi, para que me abra alias distintos si accedo a la misma base de datos desde otra parte del menú. esto lo hago mediante la funcion siguiente:

Code: Select all  Expand view  RUN

Function CargaAlias
*******************

return { ;
         cGetNewAlias( "ARTICULO" ),;   // 1
         cGetNewAlias( "MUNICI" )  ,;   // 2
         cGetNewAlias( "PROVIN" )  ,;   // 3
         cGetNewAlias( "PROPIE" )  ,;   // 4
    cGetNewAlias( "SEAT1"  )  ,;   // 5
         cGetNewAlias( "RAPPEL" )  ,;   // 6
         cGetNewAlias( "EQUIPO" )  ,;   // 7
         cGetNewAlias( "REFEREN" ) ,;   // 8
    cGetNewAlias( "MATERIAL" ),;   // 9
         cGetNewAlias( "VEHICULO" ),;   // 10
    cGetNewAlias( "TIPOS" )   ,;   // 11
    cGetNewAlias( "CANON" )   ,;   // 12
    cGetNewAlias( "TEXTOS" )  ,;   // 13
    cGetNewAlias( "IMAGEN" )  ,;   // 14
    cGetNewAlias( "ENVIO" )  ,;   // 15
               ,;   // 16
               ,;   // 17
    cGetNewAlias( "PARTE" )   ,;   // 18
    cGetNewAlias( "FIESTAS" ) ,;   // 19
    cGetNewAlias( "VACAS" )   ,;   // 20
    cGetNewAlias( "PROVE" )   ,;   // 21
    cGetNewAlias( "FACTURA" ) ,;   // 22
    cGetNewAlias( "ALMACEN" ) ,;   // 23
    cGetNewAlias( "ALBARAN" ) ,;   // 24
    cGetNewAlias( "EXTRAS" )  ,;   // 25
    cGetNewAlias( "CONDUC" )  ,;   // 26
    cGetNewAlias( "GASTOS" )  ,;   // 27
    cGetNewAlias( "REEMBOL" ) ,;   // 28
         cGetNewAlias( "RUTA" )    ,;   // 29
         cGetNewAlias( "AVISOS" )  ,;   // 30
         cGetNewAlias( "NALBARAN" ) ;   // 31
   }


Esto ha funcionado siempre bien, ya que no habíamos nunca ejecutado el programa desde el servidor, y nos hemos dado cuenta del fallo, como digo, al faltar un puesto de trabajo y utilizar el servidor como otro puesto más.

Saludos

Jose Luis

[Kleyber]

Hola Jose,

Si te lo entendi bien... fijate en el numero maximo de usuarios de tu servidor... puede ser que esté en la limitación de usuarios al mismo tiempo...

Saludos,

[Willi Quintana]

A ver....
Cuales la ruta para abrir las dbfs??
imagino que para cada estacion sera algo asi como:
...
cDBF := "\\server\data\archivo.dbf"
USE &cDBF ..............
...

ahora, si solo para el exe del servidor cambias la ruta :
...
cDbf := "D:\data\archivo.dbf"
USE &cDBF ...............
...


Salu2

[sysctrl2]

Hola Jose,

No olvides que el windows xp.

solo acepta 10 conecciones maximo,

una maquina mas no JUNCIONA,

saludos....