xBrowse FW16.06 (Solucionado)

Re: xBrowse FW16.06

Postby nageswaragunupudi » Wed Sep 14, 2016 4:54 pm

I see.

Please try this modification in xbrowse and test.

In xbrowse, please locate
static function DolphinSeek
Towards the end of this function you locate this line:
Code: Select all  Expand view
  lRet  := ( oQry:Seek( c, cSortOrder, nStart - 1, oQry:LastRec(), .T., .T. ) != 0 )
 

Please replace this line with
Code: Select all  Expand view

   if oQry:FieldType( cSortorder  ) == 'N' .and. !ISDIGIT( Right( c, 1 ) )
      return .f.
   endif

   lRet  := ( oQry:Seek( c, cSortOrder, Max( 1, nStart - 1 ), oQry:LastRec(), .T., .T. ) != 0 )


Can you please test with this change in xbrowse?
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10347
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: xBrowse FW16.06

Postby cmsoft » Wed Sep 14, 2016 11:51 pm

Estimado Mr Rao:
El error dejo de ocurrir.
Igualmente, reemplace la linea
Code: Select all  Expand view
  lRet  := ( oQry:Seek( c, cSortOrder, Max( 1, nStart - 1 ), oQry:LastRec(), .T., .T. ) != 0 )

por esta
Code: Select all  Expand view
lRet := ( oQry:Seek( c, cSortOrder, nStart - 1, oQry:LastRec(),!oQry:FieldType( cSortorder  )=='N', .T. ) != 0 )

Esa sugerencia me la habia pasado Cristobal, puesto que sino cuando tenia en la tabla los valores 13,130,1300 por ejemplo, cuando presionaba 13 se iba a 1300
El cambio quedo asi:
Code: Select all  Expand view
if oQry:FieldType( cSortorder  ) == 'N' .and. !ISDIGIT( Right( c, 1 ) )
      return .f.
   endif

   lRet := ( oQry:Seek( c, cSortOrder, nStart - 1, oQry:LastRec(),!oQry:FieldType( cSortorder  )=='N', .T. ) != 0 )

Muchisimas gracias por su tiempo
User avatar
cmsoft
 
Posts: 1238
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: xBrowse FW16.06 (Solucionado)

Postby cnavarro » Thu Sep 15, 2016 11:39 am

César, han quedado solucionados todos los problemas que tenías?
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6515
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: xBrowse FW16.06 (Solucionado)

Postby cmsoft » Thu Sep 15, 2016 1:20 pm

Hola Cristobal
Ahora se me cuelga cuando pongo un numero en los campos alfanumericos.
Y no he resuelto el tema de la Ñ
Gracias por preguntar
Saludos
User avatar
cmsoft
 
Posts: 1238
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Previous

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 47 guests