UNIDAD VIRTUAL

[LOUIS]

Hola Amigos, os pido vuestra ayuda nuevamente, el caso es que el programa principal (ejecutable) está en el Servidor y las otras pc se conectan al servidor usando Conectar a Unidad de Red (click derecho sobre mi ícono Red) y luego les creo el acceso directo en cada pc ... todo trabaja bien, Ingresos, Consultas, Reportes, pero tengo un Informe Gráfico que en el Servidor trabaja y se ve muy bien, mas no en las pc, porque estas buscan las DBF en el C:\ cuando deberían buscar en W:\ que es la unidad virtual asignada.

Qué instrucción debo poner para que el programa entienda que está conectado a travéz de la Unidad W y busque allá, mas no en el disco C las DBF ?

Muchas Gracias de antemano.

[andyglezl]

No deberías manejar la letra de la unidad en tu programación, te limitas a que sea siempre C:,
las bases de datos las toma desde la carpeta donde arranca el ejecutable...

todo trabaja bien, Ingresos, Consultas, Reportes, pero tengo un Informe Gráfico que en el Servidor trabaja y se ve muy bien, mas no en las pc, porque estas buscan las DBF en el C:\ cuando deberían buscar en W:\ que es la unidad virtual asignada.

??? Que los Ingresos, Consultas y Reportes no los tomas de las mismas DBFs que el Reporte Gráfico ???

[danielmaximiliano]

Hola : usa algo simple..

Code: Select all

 If ! FILE( "c:\SERVIDOR.TXT")  
   cDisco := "Z:\Seguros"
   else
   cDisco := "C:\Seguros"
   Endif 
   cPathbases := cDisco + '\bases\'
 SET DEFAULT TO ( cPathbases )
 SET PATH TO    ( cPathbases )

utlizar unidad de disco "Z" en todas las maquinas ya que es imposible que este este ocupado si en la maquina hay varios disco fisicos y de unidad de red...

[luisvasquezcl]

Estimado,
Prueba la función GetCurrentFolder().

cDbf := GetCurrentFolder()+'Miarchivo.dbf'

espero te sea de ayuda.
saludos cordiales,
Luis Vasquez

[LOUIS]

Gracias Andy, Gracias Luis V.
Gracias Daniel, utilicé tu sugerencia, me fue muy bien

Gracias a todos, muy amables.