eRRO EN LA 1-2A

[PILO]

Antes de instalar la version 1.2a
esto funcionaba perfectamente:
----
LOCAL oArranque
local CEXPLO := " ", CONMAES := "N", UNIACUM01 := 0, UNIACUM06 := 0
local UNIACUM24 := 0, MUGMACU := 0, MUGMACUA := 0, CONTO := "N"
local contadormio := 0
close all
::oLversion:cText := VERSION
::oLnumeroserie:cText := numeroserie
if red = "S"
RUNIDAD := curDrive()+ ":"
RCAMINO := RUNIDAD + "" + CURDIR() + ""
else
RUNIDAD := "c:"
RCAMINO := "c:srmlibro"
end if
SET DEFA TO &RCAMINO.
SET PATH TO &RCAMINO.
::oLexplotacion:cText := "Nombre explota"
ARCHIVO= RCAMINO + "EXPLOTA.DBF"
ARCHIVOA= RCAMINO + "EXPLOTA.DBT"
IF !FILE(ARCHIVO)
ORIGEN := RCAMINO + "BASEDATOEXPLOXX.DBF"
DESTINO := RCAMINO + "EXPLOTA.DBF"
COPY FILE &ORIGEN. TO &DESTINO.
ORIGEN := RCAMINO + "BASEDATOEXPLOXX.CDX"
DESTINO := RCAMINO + "EXPLOTA.CDX"
COPY FILE &ORIGEN. TO &DESTINO.
end if
SET DEFA TO &RCAMINO.
SET PATH TO &RCAMINO.
SELECT 1
USE EXPLOTA ALIAS EXPLOTA exclusive
IF FLOCK() // sitio donde da el error
Reindex
UNLOCK
END IF
SET INDEX TO EXPLOX1,EXPLOX2,EXPLOX3
---
Ahora me da el siguiente error
--->
FLOCK(0)
Error DBCMD/2001 Workarea not in use: FLOCK
Argumentos: ()
Subsistema: DBCMD
Código de error: 2001
Estado: .T.
Descripción: Workarea not in use
Operación: FLOCK
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
FLOCK (0)
TARRANQUE:FORMACTIVATE (81)
TARRANQUE:ONACTIVATE (0)
TARRANQUE:WMACTIVATE (755)
SHOWWINDOW (0)
TSCROLLINGWINCONTROL:SHOW (578)
TARRANQUE:SHOW (434)
ARRANQUE (29)
MAIN (19)
Por que es:

[ignacio]

Pilo,
Por favor os pido seais un poco más 'cuidadosos' en vuestras afirmaciones.
El error que se te produce es porque NO HA SIDO CAPAZ DE ABRIR EL ARCHIVO, y
está instrucción:
> USE EXPLOTA ALIAS EXPLOTA exclusive
Ha fallado. Pero es que ni siquiera compruebas con NETERR() si ha habido un
error de apertura.
Sin ser Raphel está súper claro que desde otra aplicación, o en esa misma
aplicación has abierto ese archivo y por eso no has podido abrirlo otra vez
en modo exclusivo.
Si me equivoco, que lo dudo, te pido disculpas, en caso contrario, te ruego
que seas más cuidadoso en el futuro con tus afirmaciones.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"PILO" <srmpilo@hotmail.com> escribió en el mensaje
news:45718f12$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Antes de instalar la version 1.2a
> esto funcionaba perfectamente:
> ----
>
> LOCAL oArranque
> local CEXPLO := " ", CONMAES := "N", UNIACUM01 := 0, UNIACUM06 := 0
> local UNIACUM24 := 0, MUGMACU := 0, MUGMACUA := 0, CONTO := "N"
> local contadormio := 0
> close all
> ::oLversion:cText := VERSION
> ::oLnumeroserie:cText := numeroserie
> if red = "S"
> RUNIDAD := curDrive()+ ":"
> RCAMINO := RUNIDAD + "" + CURDIR() + ""
> else
> RUNIDAD := "c:"
> RCAMINO := "c:srmlibro"
> end if
> SET DEFA TO &RCAMINO.
> SET PATH TO &RCAMINO.
> ::oLexplotacion:cText := "Nombre explota"
> ARCHIVO= RCAMINO + "EXPLOTA.DBF"
> ARCHIVOA= RCAMINO + "EXPLOTA.DBT"
> IF !FILE(ARCHIVO)
> ORIGEN := RCAMINO + "BASEDATOEXPLOXX.DBF"
> DESTINO := RCAMINO + "EXPLOTA.DBF"
> COPY FILE &ORIGEN. TO &DESTINO.
> ORIGEN := RCAMINO + "BASEDATOEXPLOXX.CDX"
> DESTINO := RCAMINO + "EXPLOTA.CDX"
> COPY FILE &ORIGEN. TO &DESTINO.
> end if
> SET DEFA TO &RCAMINO.
> SET PATH TO &RCAMINO.
> SELECT 1
> USE EXPLOTA ALIAS EXPLOTA exclusive
> IF FLOCK() // sitio donde da el error
> Reindex
> UNLOCK
> END IF
> SET INDEX TO EXPLOX1,EXPLOX2,EXPLOX3
>
> ---
> Ahora me da el siguiente error
> --->
> FLOCK(0)
> Error DBCMD/2001 Workarea not in use: FLOCK
> Argumentos: ()
>
> Subsistema: DBCMD
> Código de error: 2001
> Estado: .T.
> Descripción: Workarea not in use
> Operación: FLOCK
> Argumentos:
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> FLOCK (0)
> TARRANQUE:FORMACTIVATE (81)
> TARRANQUE:ONACTIVATE (0)
> TARRANQUE:WMACTIVATE (755)
> SHOWWINDOW (0)
> TSCROLLINGWINCONTROL:SHOW (578)
> TARRANQUE:SHOW (434)
> ARRANQUE (29)
> MAIN (19)
>
>
> Por que es:
>
>

[PILO]

Era un problema de estar trabajando con el ide en el exe no se produce, ya
busquere cual es el archivo abierto
Gracais de todos modos

[ignacio]

Pilo,
Es el propio IDE entonces el que tiene abierto el archivo. Si quiere abrir
un archivo en exclusivo por su aplicación CUANDO LO EJECUTE DESDE EL IDE
deberá necesariamente tenerlo cerrado en tiempo de diseño. Esto no es una
limitación de Xailer.
Saludos,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"PILO" <srmpilo@hotmail.com> escribió en el mensaje
news:4572e697$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Era un problema de estar trabajando con el ide en el exe no se produce, ya
> busquere cual es el archivo abierto
> Gracais de todos modos
>
>

[PILO]

Gracias Ignacio
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:4573e445$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Pilo,
>
> Es el propio IDE entonces el que tiene abierto el archivo. Si quiere abrir
> un archivo en exclusivo por su aplicación CUANDO LO EJECUTE DESDE EL IDE
> deberá necesariamente tenerlo cerrado en tiempo de diseño. Esto no es una
> limitación de Xailer.
>
> Saludos,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "PILO" <srmpilo@hotmail.com> escribió en el mensaje
> news:4572e697$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Era un problema de estar trabajando con el ide en el exe no se produce,
>> ya busquere cual es el archivo abierto
>> Gracais de todos modos
>>
>>
>
>