SEEK en Tdolphin y Mysql indice campo NUMERICO (SOLUCIONADO)

[sysctrl2]

ok. Daniel voy a revisar,
gracias por tu apoyo.
saludos.

[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...

[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.

[Daniel Garcia-Gil]

Cesar

revisandolo.. Gracias por el feedbak

[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?

[sysctrl2]

Code: Select all  Expand view

nSeek := ::oQryNotas:Seek( str(nFolio,7), "FOLIO" )
if nSeek > 0
    ? ::oQry:folio
else
   ? 'no hay'
endif

[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.

[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!

[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.

[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

[MarioG]

cmsoft
Usando :Seek() no volvi a experimentar problemas

Saludos

[cmsoft]

Gracias por responder Mario!
Voy a ver si tengo la última versión de TDolphin, porque la que tengo sigue dando el error.

[cmsoft]

Efectivamente Mario, tenía una versión vieja de Tdolphin!!
Muchisimas gracias por mostrarme la punta del ovillo!!
Saludos

[MarioG]

Cuanto me alegra!, que tan solo se haya solucionado con el cambio de version

Saludos

[cmsoft]

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