Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
Posted: Fri Mar 09, 2012 12:09 am
ok. Daniel voy a revisar,
gracias por tu apoyo.
saludos.
gracias por tu apoyo.
saludos.
FiveTech Software tech support forums
www.FiveTechSoft.com
https://fivetechsupport.com/forums/
SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
Page 2 of 3
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
Posted: Fri Mar 09, 2012 1:27 am
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...
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
Posted: Mon Mar 12, 2012 9:42 pm
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.
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)
Posted: Mon Mar 12, 2012 10:38 pm
Cesar
revisandolo.. Gracias por el feedbak
revisandolo.. Gracias por el feedbak
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
Posted: Wed Oct 10, 2012 3:05 pm
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.
hago algo mal?
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
"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)
Posted: Wed Oct 10, 2012 7:58 pm
Code: Select all | Expand
nSeek := ::oQryNotas:Seek( str(nFolio,7), "FOLIO" )
if nSeek > 0
? ::oQry:folio
else
? 'no hay'
endifRe: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
Posted: Thu Oct 11, 2012 12:39 pm
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:
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.
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
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)
Posted: Thu Oct 11, 2012 2:46 pm
Cesar;
me voy a retractar!
Usando ::Find(), la busqueda NO resulta exitosa
Usando ::Seek()
la búsqueda resulta exitosa
Esperemos que Daniel le pueda encontrar la vuelta a ::Find(), asi TDolhpin se "pule" cada vez mas
Gracias Daniel!
me voy a retractar!
Usando ::Find(), la busqueda NO resulta exitosa
Usando ::Seek()
Code: Select all | Expand
//asi:
oQry:Seek( aFieldIDIns[_IDInsumo], 1 )
// o asi:
oQry:Seek( Str(aFieldIDIns[_IDInsumo],7), 1 )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)
Posted: Thu Oct 11, 2012 4:49 pm
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.
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)
Posted: Thu Jun 20, 2013 11:56 pm
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
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
// 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.
ENDIFRe: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
Posted: Fri Jun 21, 2013 12:17 am
cmsoft
Usando :Seek() no volvi a experimentar problemas
Saludos
Usando :Seek() no volvi a experimentar problemas
Saludos
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
Posted: Fri Jun 21, 2013 12:58 am
Gracias por responder Mario!
Voy a ver si tengo la última versión de TDolphin, porque la que tengo sigue dando el error.
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)
Posted: Fri Jun 21, 2013 1:26 am
Efectivamente Mario, tenía una versión vieja de Tdolphin!!
Muchisimas gracias por mostrarme la punta del ovillo!!
Saludos
Muchisimas gracias por mostrarme la punta del ovillo!!
Saludos
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
Posted: Fri Jun 21, 2013 10:27 pm
Cuanto me alegra!, que tan solo se haya solucionado con el cambio de version
Saludos
Saludos
Re: SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)
Posted: Sat Jun 22, 2013 12:55 am
Mario, por si acaso te pasó alguna vez
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=24040&start=0
El programa deja de responder después de cambiar el orden de la consulta reiteradamente con SetOrder.
Gracias de antemano
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=24040&start=0
El programa deja de responder después de cambiar el orden de la consulta reiteradamente con SetOrder.
Gracias de antemano