xBrowse con TDolphin - error al compilar

[MarioG]

Hola Gente;
Tengo el siguiente código:

Code: Select all  Expand view

  oQryOb:= oConx:SelectObras()

   @ 0, 0 XBROWSE oBrwOb COLUMNS "desc_obra" OF ::aoMn[_OL2003]:aDialogs[1] SIZE 190, 250 PIXEL

   oBrwOb:SetDolphin( oBrwOb, oQryOb )
   oBrwOb:CreateFromCode()
 

Al compilar recibo el error:

Error BASE/1004 Message not found: TXBROWSE:LPAGINATION

Llamadas al Stack:
___________________________________________________

Llamado desde: .\source\function\HARBOUR.PRG _CLSSETERROR(166)
Llamado desde: .\source\classes\XBROWSE.PRG TXBROWSE:LPAGINATION(7733)
Llamado desde: .\source\classes\XBROWSE.PRG TXBROWSE:SETDOLPHIN(4413)
Llamado desde: D:\Fuen32\SiGIC\CI2\Source\Menues.prg MENUES:CREATEMENUPPL(63)
Llamado desde: D:\Fuen32\SiGIC\CI2\Source\CtrlPpl.prg CONTROLADORPPL:CONCEPTOMENUES(56)
Llamado desde: D:\Fuen32\SiGIC\CI2\Source\CI2_Main.prg (b)MGMAIN(36)
Llamado desde: .\source\classes\WINDOW.PRG TWINDOW:ACTIVATE(973)
Llamado desde: D:\Fuen32\SiGIC\CI2\Source\CI2_Main.prg MGMAIN(36)

Si lo hago así, no me da error

Code: Select all  Expand view

  oQryOb:= oConx:SelectObras()

   @ 0, 0 XBROWSE oBrwOb COLUMNS "desc_obra" OBJECT oQryOb OF ::aoMn[_OL2003]:aDialogs[1] SIZE 190, 250 PIXEL

   //oBrwOb:SetDolphin( oBrwOb, oQryOb )
   oBrwOb:CreateFromCode()
 

Alguna sugerencia para la primer opcion?
La última actualizacion TDolphin fue el 26/2010
gracias

[sysctrl2]

prueba compilar setbrw.prg en tu proy.
saludos.

Code: Select all  Expand view

#include <tdolphin.ch>
#include <XBrowse.ch>

#include <fivewin.ch>
function main()
return nil

#include ".\prg\setbrw.prg"

[J. Ernesto]

Mario y Cesar.... estoy necesitando ayuda para poder compilar con la clase tdolphin, me podrian por favor facilitar sus correos para poder hacerles unas preguntas sobr el tema en cuenstion...

Gracias

jepsys@hotmail.com

[Daniel Garcia-Gil]

Ernesto

Hola, podrias indicarnos cual es el problema para compilar... tienes errores de compilacion o de ejecucion?
podrias por favor mostrarnos...

Gracias

[Daniel Garcia-Gil]

Hola

Hola Gente;
Alguna sugerencia para la primer opcion?
La última actualizacion TDolphin fue el 26/2010
gracias

deberias actualizar, tienes una version de hace dos años... esta fue la ultima actualizacion REV 267 2012-10-13
http://www.sitasoft.net/dolphindevel/listing.php?repname=TDolphin&

estas usando mal el metodo del XBroswe setDolphin

mirando la clase xbrowse la definicion del metodo es

Code: Select all  Expand view

METHOD SetDolphin( oMysql, lAddCols, lAutoOrder, aFldNames )

oBrwOb:SetDolphin( oQryOb )

el primer parametro es el Query

[MarioG]

Muchachos;
muchas gracias por responder

Daniel:
Estoy mas loco que una cabra!, actualicé al 26/10/2012
En la carpeta samples los encontré tal como lo expuse, aunque no compile ningún samlpe. Solo copie la línea SetDolphin( oBrw, oQry ).
En el primer post puse el error que me arroja al compilar... aunque ya detectaste el porqué... gracias nuevamente

Ernesto;
mi correo: mario.r.gonzalez@gmail.com

mañana verifico el codigo, en la PC que lo tengo
gracias!

[MarioG]

Daniel;
Acabo de actualizar desde el SVN y de la carpeta samples observo:
sa_vs_up.prg lo tiene como: Setdplphin( oQry, .f. )
testfile.prg lo tiene como: SetDolphin( oBrw, oQry, .F.)
testfw2.prg, testfw3 y testvar lo tienen como: Setdplphin( oBrw, oQry )
y el resto, dos, lo tienen comentado, usando OBJECT en la claúsusla del XBROWSE

Obviamente sin ánimo de generar discordia, solo para alertar a futuros usuarios.

Saludos

[Daniel Garcia-Gil]

Mario

Si te fijas con un poco mas de detalle, te daras cuenta de la diferencia...

en sa_vs_up.prg se usa

Code: Select all  Expand view

oBrw:SetDolphin( oQry, .F. )

es decir es un METODO de la clase XBrowse, significa que la clase XBrowse soporta nativamente a Dolphin

a diferencia de testfw2.prg, testfw3 y testvar testfile.prg lo tiene como:

Code: Select all  Expand view

SetDolphin( oBrw, oQry, .F.)

eso es porque SetDolphin es una FUNCION y no un METODO

Obviamente sin ánimo de generar discordia, solo para alertar a futuros usuarios.

no es ninguna ofenza y no hay discordias, todo lo contrario, son las cosas que nos hacen aprender...

[MarioG]

gracias Daniel
Me hace falta el de FW para aprender a ver!

[sysctrl2]

y dentro de SetBrw.prg esta la funcion

PROCEDURE SetDolphin( oBrw, oQry, lAddCols )

esta funcion fue creada antes de que xbrowse adoptara la compatibilidad de dolphin.

Solo para redondear el comentario de Daniel.

Saludos.

[MarioG]

Gracias Cesar