Hola Daniel...
En estas líneas hay un error en :Refresh()
...
cQuery := "SELECT * FROM productos ORDER BY detalle"
oDatos := oMySQL:Query(cQuery)
// aquí se hacen alguna modificaciones a la tabla productos, también podrían modificar en otra estación
..
..
oDatos:Refresh() // recargamos la data, péro aquí tira el error
Salu2
Hola,
¿Sabes que tipo de variable y qué contiene odatos?
Te da error diciendo que no existe el método refresh??
Deberías poner el error que te sale y los tipos de datos para poder
Ayudarte.
Hola amigos:
Mensaje de TDolphin
Unknown table 'herrera.productos'
ERROR No: 1051
Internal: No
Mensaje de FW
Path and name: D:\PRGS\AMB\DOLPHIN\BIN\AMBTD.Exe (32 bits)
Size: 726,528 bytes
Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 9445)
FiveWin Version: FWHX 12.08
Windows version: 6.1, Build 7601 Service Pack 1
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 09/06/14, 22:33:15
Error description: Warning BASE/1004 Message not found: TDOLPHINSRV:REFRESH
Called from: source\rtl\tobject.prg => TDOLPHINSRV:ERROR( 0 )
Called from: source\rtl\tobject.prg => TDOLPHINSRV:MSGNOTFOUND( 0 )
Called from: source\rtl\tobject.prg => TDOLPHINSRV:REFRESH( 0 )
Called from: D:\PRGS\AMB\DOLPHIN\PRG\ambtd.prg => AMB( 71 )
Called from: D:\PRGS\AMB\DOLPHIN\PRG\ambtd.prg => (b)MAIN( 49 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 983 )
Called from: D:\PRGS\AMB\DOLPHIN\PRG\ambtd.prg => MAIN( 49 )
CPU type: Intel(R) Core(TM) i5-2400 CPU @ 3.10GHz 3100 Mhz
Willi, a grandes razgos veo que no esta consiguiendo la tabla y por eso te dice que no puede aplicar el REFRESH(), verificate si en el camino no estas matando el query oDatos, oDatos:END(), es lo unico que se me viene a la mente por los momentos, talves con un poco mas de codigo se te pueda ayudar mas, saludos... 
jmartial wrote:Willy,
Creo que no deberías darle más vueltas. Es exactamente lo que te comenté y creo que algún compañero del foro también.
Error description: Warning BASE/1004 Message not found: TDOLPHINSRV:REFRESH
Antes del refresh() pon un msginfo( oDatos:ClassName() ) y di que nombre sale, verás que no es un objeto tabla, será un objeto de la clase TDOLPHINSRV.
Hola Daniel, gracias por contestar.. creo que halle el error
cQuery := "SELECT productos.* FROM productos ORDER BY producto "
oDatos := oMySQL:Query(cQuery)
oDatos:Refresh() <---- funciona correctamente
cQuery := "SELECT productos.*, productos.precio_neto, IFNULL((SELECT imagenes.registro FROM imagenes WHERE imagenes.cod_producto = productos.cod_producto),0) AS imagen FROM herrera.productos WHERE productos.cod_producto <> '' ORDER BY productos.producto" // armamos la cadena de seleccion de datos
oDatos := oMySQL:Query(cQuery)
oDatos:Refresh() <------ el error es cuando la sentencia es compleja con varias tablas (JOIN incluido), se pierde el objeto....
CREATE VIEW AS viewProd AS SELECT productos.*, productos.precio_neto, IFNULL((SELECT imagenes.registro FROM imagenes WHERE imagenes.cod_producto = productos.cod_producto),0) AS imagen FROM herrera.productoscQuery := "SELECT viewProd WHERE cod_producto <> '' ORDER BY producto"
oDatos := oMySQL:Query(cQuery)
oDatos:Refresh()acuellar wrote:Willi
Quizas tengas una versión antigua de TDolphin, la última es del 07/04/2014
https://bitbucket.org/danielgarciagil/tdolphin/commits/all
No da error en Refresh().
Saludos,
Adhemar
Mario
En el enlace que te ha puesto el compañero aparece solo una modificacion desde esa fecha
Bájate de downloads el .zip
Vete al enlace https://bitbucket.org/danielgarciagil/t ... ommits/all
Pincha en el numero que aparece en la linea de fecha 08/04/2014 en la columna "confirmar"
Te aparece el codigo modificado
Abre el fichero y modificalo con lo que aparezca alli
Espero te sirva de ayuda
Te recomiendo que te pelees con bitbucket y lo instales
cQuery := "SELECT productos.*, productos.precio_neto, IFNULL((SELECT imagenes.registro FROM imagenes WHERE imagenes.cod_producto = productos.cod_producto),0) AS imagen FROM herrera.productos WHERE productos.cod_producto <> '' ORDER BY productos.producto" // armamos la cadena de seleccion de datos
oDatos := oMySQL:Query(cQuery)
oDatos:LoadQuery() // <------ funciona bien, actualiza el objeto con los datos de la tabla que otro usuario haya modificado o actualizado ...Mario es como indica Cristóbal
Tenes que descargar el danielgarciagil-tdolphin-d9d98a01d609.zip descomprimirlo
Cambiar el contenido de source\c\function.c por la parte que muestra.
Luego utilizas uno de los .bat para compilar y crear la librería dolphin.lib la libmysql.lib viene creada
Saludos,
Adhemar
oMySQL := TDolphinSrv():New( cHost, ;
cUser, ;
cPass, ;
nPort, nFlags, cDBName ,;
{| oServer, nError, lInternal | GetError( oServer, nError, lInternal ) } ) oMySQL := TDolphinSrv():New( cHost, ;
cUser, ;
cPass, ;
nPort, nFlags, cDBName )Gracias| por las rcomendaciones!