Clipper/FiveWin - Error al abrir archivo bdf

   
Vista:

Error al abrir archivo bdf

Publicado por Juan (2 intervenciones) el 20/06/2014 23:58:27
No se mucho de clipper, recién estoy aprendiendo, descompile un programa antiguo con Valkirie y lo compile con Harbour, se compila bien pero al ejecutar da error en la funcion NET_USE y no lo encuentro

Este es el codigo
function NET_USE

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
function NET_USE
 
   parameters file, ex_use, wait, calias
   if (!file(file))
    	colorto(4)
        draw_box(14, 20, 16, 70, .F.)
        @ 15, 25 say "Error: El archivo " + file + " no existe"
        @ 17, 25 say "Cerrando programa"
        quit
*Este codigo del if lo agrege yo para asegurarme que no fallaba al no encontrar el archivo
   endif
   private forever
   if ("{" $ file .AND. !(ISCHARACTER(calias)))
      calias:= strtran(file, "{")
      calias:= strtran(calias, "")
   endif
   calias:= iif(!(ISCHARACTER(calias)), Nil, calias)
   forever:= wait = 0
   do while (forever .OR. wait > 0)
      if (ex_use)
*Aqui es donde falla
         use (file) alias (calias) exclusive
      else
*Aqui es donde falla
         use (file) alias (calias) shared
      endif
      if (!neterr())
         return .T.
      endif
      InKey(1)
      wait:= wait - 1
   enddo
   return .F


cuando lo llamado con
net_use("./ACTUALIZ.DBF", .F., 5) *Con este funciona bien
net_use("./HELP.DBF", .F., 5) *Pero con este falla
no entiendo por que uno funciona y el otro no
de ante mano muchas gracias por su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error al abrir archivo bdf

Publicado por Juan (2 intervenciones) el 21/06/2014 05:57:20
ya encontré la solución, el problema era que los nombres estaban en mayúscula y la extencion .dbt tenia que estar en minúscula, (creo que solo en linux se distinguen entre minúsculas y mayúsculas)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar