ck=uncálculo
if !used('zfna')
use zfna in 0
endif
set order to tag cncm
seek ck
anda o anda.
Pablo Sigüenza
Socio # 1074
- Original Message -
From: Hernan Roberto Cespedes
To: GUFA List Member
Sent: Wednesday, August 08, 2007 11:46 AM
Subject: [GUFA]
Sigue comportándose diferente. Con el .prg no hay problema.
_
De: GUFA@mug.org.ar [mailto:[EMAIL PROTECTED] En nombre de chulo unl
Enviado el: miércoles, 08 de agosto de 2007 11:02
Para: GUFA List Member
Asunto: Spam detectado por Arnet - Asunto original: [GUFA] Comportamiento
distinto
¿sabés que no? Comprendo tu sorpresa, pero no.
Gracias mil, igual.
_
De: GUFA@mug.org.ar [mailto:[EMAIL PROTECTED] En nombre de Pablo Sigüenza
Enviado el: miércoles, 08 de agosto de 2007 12:08
Para: GUFA List Member
Asunto: Spam detectado por Arnet - Asunto original: [GUFA]
Hola,
Me salio el profe que tengo adentro, che.
El codigo presentado cancela si la tabla zfna ya esta abierta previamente
porque la variable cAlias esta declarada en el THEN del IF.
El codigo correcto seria:
LOCAL cAlias AS STRING
LOCAL ck AS INTEGER (o NUMERIC o lo que corresponda)
cAlias =
Hola Alberto,
Usa SET DEFAULT TO y SET PATH TO para setear el directorio de trabajo y el
directorio donde tenes los DBFs.
SET DEFAULT Specifies the default drive and directory.
http://msdn2.microsoft.com/en-us/library/w67389ce(VS.80).aspx
SET PATH Specifies a path for file searches.
mira, en principio me fijaria al momento de ejecutar el prg si la tabla zfna
esta en uso en otra workarea y si es asi quien la levanto, por que por lo q veo
vos haces q si no esta en uso la levantas en el workarea 0 o sea la va a
levantar en la siguiente workarea disponible, pero si como no
Proba de esta manera:
ck=uncálculo
if !used('zfna')
use zfna order cncm in 0
endif
if seek (ck)
*codigo si encontro
else
*error no se encontro
endif
otra forma
ck=uncálculo
if !used('zfna')
use zfna in 0
endif
if seek (ck,'zfna','cncm')
*codigo si encontro
else
*error no se