Page 2 of 3
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Mar 09, 2012 12:09 am
by sysctrl2
ok. Daniel voy a revisar,
gracias por tu apoyo.
saludos.
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Mar 09, 2012 1:27 am
by joseluisysturiz
Siempre es bueno antes de descargar hacer un CLEAN y eliminar algunos archivos manualmente, aunque la propia actualizacion lo hace, estoy usando xHarbour, descargue con Tortoise, actualize la lib de xH y todo funciono sin problema, cualquier cosa estamos a la orden....saludos...
![Shocked :shock:](./images/smilies/icon_eek.gif)
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Mon Mar 12, 2012 9:42 pm
by sysctrl2
Amigos gracias, ya pude crear la lib.
ya probe el method oQry:seek y todo correcto,
pero probando nSeek := ::oQryNotas:Locate( { nFolio }, {"folio"} )
es el mismo problema ,
estoy localizando el numero: 7280 y el puntero se mueve a 72800,
o intento localizar 7262 y el puntero se mueve a 72620,
el metodo LOCATE deberia de responder lo mismo que en seek,
eso pienso yo jeje.
saludos.
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Mon Mar 12, 2012 10:38 pm
by Daniel Garcia-Gil
Cesar
revisandolo.. Gracias por el feedbak
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Wed Oct 10, 2012 3:05 pm
by MarioG
Estimados;
Retomo este tema porque estoy teniendo el mismo problema descripto
He actualizado desde el SVN hoy: 10/10, luego actualizada la lib sin problemas (Daniel, tiene algun VerInfo(), como para saber q version es la última? )
De cualqueir manera, paso la tabla en cuestion y el codigo de busqueda, para que me cuenten si todo esta bien, o algo no hago de manera correcta.
- Code: Select all Expand view
"CREATE TABLE IF NOT EXISTS ctrlins (" + ;
"id_obra INT(5) UNSIGNED ZEROFILL NOT NULL," + ;
"id_ins INT(7) UNSIGNED ZEROFILL NOT NULL," + ;
"unidenv CHAR(2)," + ;
"prc_cotizado FLOAT(10,2) UNSIGNED NOT NULL," + ;
"proyectado FLOAT(10,2) UNSIGNED NOT NULL," + ;
"canttotal FLOAT(10,2)," + ;
"existencia FLOAT(10,2)," + ;
"incidencia FLOAT(7,4) UNSIGNED," + ;
"codins CHAR(7)," + ;
"INDEX idobra (id_obra)," + ;
"INDEX idinsumo (id_ins) )" + ;
"COMMENT= 'Tabla de Ctrl de Insumos'" + ;
"ENGINE= INNODB;"
// hago lo siguiente, reccorro un array, donde guardo el valor de busqueda (por inseguridad hice estas pruebas previas)
oQry:= ::oConn:oSrv:Query( "SELECT id_ins FROM ctrlins ORDER BY id_ins" )
? oQry:nRecCount // muestra correctamente la cantidad de registros
oQry:GoTo( 10 ) // se posiciona correctamente
? oQry:id_ins // muestra el valor que corresponde
for each aFieldIDIns in h1:aTotalIns
if !oQry:Find( {aFieldIDIns[_IDInsumo]}, {"id_ins"} ) > 0
? "no encontro",valtype(aFieldIDIns[_IDInsumo]),aFieldIDIns[_IDInsumo],oQry:Find( {aFieldIDIns[_IDInsumo]}, {"id_ins"} )
else
? "encontro:",aFieldIDIns[_IDInsumo] // nunca encuentra. En esta prueba tengo un rango de id_ins de 1 a 14 (tiene algo que ver que lo relleno con ceros a la izq.?)
end
end
oQry:End()
hago algo mal?
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Wed Oct 10, 2012 7:58 pm
by sysctrl2
- Code: Select all Expand view
nSeek := ::oQryNotas:Seek( str(nFolio,7), "FOLIO" )
if nSeek > 0
? ::oQry:folio
else
? 'no hay'
endif
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Thu Oct 11, 2012 12:39 pm
by MarioG
Amigo, gracias por responder
Tu sugerencia no es posible, porque la busqueda se realiza sobre un campo numérico. De manera que con tu sugerencia provoca el siguiente error:
- Code: Select all Expand view
Descripción de Error generado:
___________________________________________________
Error BASE/1099 Argument error: STR
Args:
[ 1] = C 1
[ 2] = U
[ 3] = U
Llamadas al Stack:
___________________________________________________
Llamado desde: STR(0)
Llamado desde: .\source\prg\tdolpsrv.prg CLIPVALUE2SQL(2276)
Llamado desde: .\source\prg\tdolpqry.prg TDOLPHINQRY:FIND(802)
Llamado desde: D:\Fuen32\SiGIC\CI2\Source\PersConn.prg PERSISTENCIACONEXION:CALCTOTINSUMO(411)
...
En realidad, el problema fue anteriormente expuesto y ya se solucionó (de aceurdo a los post anteriores). Entonce la pregunta es si será que tengo los fuentes correctos.
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Thu Oct 11, 2012 2:46 pm
by MarioG
Cesar;
me voy a retractar!
Usando ::Find(), la busqueda NO resulta exitosa
Usando ::Seek()
- Code: Select all Expand view
//asi:
oQry:Seek( aFieldIDIns[_IDInsumo], 1 )
// o asi:
oQry:Seek( Str(aFieldIDIns[_IDInsumo],7), 1 )
la búsqueda resulta exitosa
Esperemos que Daniel le pueda encontrar la vuelta a ::Find(), asi TDolhpin se "pule" cada vez mas
Gracias Daniel!
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Thu Oct 11, 2012 4:49 pm
by sysctrl2
Asi es Amigo, el metodo seek y locate funcionan correctamente,
el method find ya se ha reportado al Amigo Daniel, esperemos se corrija la lib.
Saludos.
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Thu Jun 20, 2013 11:56 pm
by cmsoft
Hola Gente!
Este tema está solucionado?
Ya que estoy teniendo el mismo problema que se indica anteriormente:
Tengo una tabla con códigos numéricos, y algunos me da como que los encuentra y otros que no, pero todos están
Paso el código
- Code: Select all Expand view
// n contiene el valor a buscar, el campo 1 es código
oQ := oServer:Query( "SELECT codigo,nombre FROM codigos ORDER BY codigo")
IF oQ:Seek(n,1) > 0
RETURN .t.
ELSE
RETURN .f.
ENDIF
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Jun 21, 2013 12:17 am
by MarioG
cmsoft
Usando :Seek() no volvi a experimentar problemas
Saludos
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Jun 21, 2013 12:58 am
by cmsoft
Gracias por responder Mario!
Voy a ver si tengo la última versión de TDolphin, porque la que tengo sigue dando el error.
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Jun 21, 2013 1:26 am
by cmsoft
Efectivamente Mario, tenía una versión vieja de Tdolphin!!
Muchisimas gracias por mostrarme la punta del ovillo!!
Saludos
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Jun 21, 2013 10:27 pm
by MarioG
Cuanto me alegra!, que tan solo se haya solucionado con el cambio de version
Saludos
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Sat Jun 22, 2013 12:55 am
by cmsoft
Mario, por si acaso te pasó alguna vez
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=24040&start=0El programa deja de responder después de cambiar el orden de la consulta reiteradamente con SetOrder.
Gracias de antemano