Hola, A mi me parece que lo que se esta usando es el comando SEEK y no la funcion. Primero vayamos a las fuentes
Seek function: http://msdn2.microsoft.com/en-us/library/9143x601(VS.80).aspx Seek command http://msdn2.microsoft.com/en-us/library/bz5ys9dy(VS.80).aspx (menos mal que los manuales estan en linea, no?) Cuando pones una variable entre parentesis, si esa variable es LOCAL, le estas pidiendo al compilador que la reemplace por el contenido de la variable en el comando. Creo que no tiene que ver porque tenga el espacio detras de la palabra SEEK, sino que mas tiene que ver porque las clausulas ORDER TAG e IN estan fuera de los parentesis, y ademas no tiene el signo de asignacion, =, a la izquierda de la funcion. Aunque claro, puedo estar equivocado. El archivo DBF si debe estar indexado, ya sea un IDX o un tag dentro de un CDX. Y le indice abierto, claro esta. De todas formas el punto de Alberto no es si esta usando la funcion SEEK() o el comando SEEK; sino por que el EXE funciona distinto del PRG? Para mi esto pasa porque el ambiente es distinto. El PRG siempre funciona igual que el EXE, el PRG esta interpretado, y el EXE compilado. Si esto no es asi, estamos en la lona, che. Por que no apuntas al ambiente de trabajo? Puede ser que estes apuntando a otra base de datos, o a otro directorio con los DBFs? Sugiero que imprimas los valores de las variables de ambiente, tanto cuando ejecutas el PRG como cuando ejecutas el EXE. Fijate si hay alguna que sea distinta y este provocando el diferente comportamiento. Saludos, Davo. On 8/7/07, Omar Bellio <[EMAIL PROTECTED]> wrote: > > Me parece que hay un espacio entre el seek y los (), por eso > funciona(ría) > aunque no tenga los parámetros, por otro lado, asegurate que esté la tabla > indexada, porque eso sí tiene que ocurrir. > > -----Mensaje original----- > De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Alejandro David > Nelis Robles (GUFA) > Enviado el: Tuesday, August 07, 2007 2:26 PM > Para: GUFA List Member > Asunto: [GUFA] Comportamiento distinto en .exe y .prg > > Primero > > al hacer seek() lo estas usando como función por lo tanto le tenes que dar > los parámetros > si lo queres hacer así te recomiendo lo siguiente > select zfna > set order to cncm > seek ck > > y si lo queres usar como función > > seek(ck,"zfna","cncm") > > si mi memoria no me falla. > > Alejandro Nelis > > Un abrazo. > > > > ----- Original Message ----- > From: "Alberto J. Giussani" <[EMAIL PROTECTED]> > To: "GUFA List Member" <[email protected]> > Sent: Tuesday, August 07, 2007 1:39 PM > Subject: [GUFA] Comportamiento distinto en .exe y .prg > > > Estimados amigos: > > Tengo un programa que contiene unos comandos semejantes a los siguientes: > > ck=uncálculo > if !used('zfna') > use zfna in 0 > endif > seek (ck) order tag cncm in zfna > > El problema es que como .prg funciona OK, pero como .exe en la última > instrucción da el error "table has no index order set". Independientemente > de que el comando no exige que haya un índice seleccionado, me sorprende > la > diferencia de comportamiento, y no sé qué se puede hacer. > > Les agradeceré cualquier sugerencia. > > Gracias de antemano. > > Alberto J. Giussani > > No virus found in this outgoing message. > Checked by AVG Free Edition. > Version: 7.5.476 / Virus Database: 269.11.8/940 - Release Date: 06/08/2007 > 16:53 > > > > > __________ Información de NOD32, revisión 2442 (20070807) __________ > > Este mensaje ha sido analizado con NOD32 antivirus system > http://www.nod32.com > > > > I'm protected by SpamBrave > http://www.spambrave.com/ > > > > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.476 / Virus Database: 269.11.8/940 - Release Date: > 06-Aug-2007 > 4:53 PM > > > No virus found in this outgoing message. > Checked by AVG Free Edition. > Version: 7.5.476 / Virus Database: 269.11.8/940 - Release Date: > 06-Aug-2007 > 4:53 PM > > > > -- ======================= David Brunstein Java/PB/VFP Developer Winnipeg, MB Canada Before I speak, I have something important to say. Antes de dar mi discurso, tengo algo importante que decir. Antes de dar meu discurso, tenho algo importante para dizer. G.M.
