Function descend() distinto valor FWH19.06 Vs FWH19.12

[Enrrique Vertiz]

Saludos Equipo de FWH

He trabajado sin problemas con las versiones desde FWH 10.XX hasta esta ultima que tenia la FWH 19.06, acabo de actualizar mi FTDN y he bajado FWH 19.12, y veo que una comparacion que siempre me daba positivo ahora no lo hace, revisando veo que el valor que retorna la funcion descend() es distinto en esta version a lo que devolvia en versiones anteriores, tenemos alguna soluciona para que devuelva los mismos valores que en el pasado ??
Gracias

[karinha]

Como haces, asi?

Code: Select all

#include "FiveWin.ch"

/*
      USE Customer VIA "DBFCDX"
      INDEX ON LastName TAG Last
      INDEX ON FirstName TAG First DESCENDING

<alias>->( OrdDescend( ,,.T. ) ) //<- DESCENDING
<alias>->( OrdDescend( ,,.F. ) ) //<- sem DESCENDING

OrdDescend( ,, .T. )

OrdDescend( ,, .F. )

*/

EXTERNAL DESCEND

FUNCTION Main()

   FIELD LAST, First

   USE Customer

   INDEX ON Upper( Last + First ) TO Cust01

   GO TOP

   ? LAST               // result: Alberts

   GO BOTTOM

   ? LAST               // result: Waters

   OrdDescend( , , .T. )     // change navigational order

   SKIP - 1                  // skipping backwards from the last

   // record hits begin of file.
   ? Bof()                  // result: .T.

   GO BOTTOM
   ? Eof()                  // result: .F.
   ? LAST               // result: Alberts

   SKIP

   ? Eof()                  // Result: .T.

   GO TOP

   ? LAST               // result: Waters

   BROWSE()

   USE

RETURN NIL
 

Saludos.

[Enrrique Vertiz]

Karinha gracias por contestar

No lo uso para ordenar, lo uso para cambiar los valores de una variable : Descend(cPass) , y guardarla para que no se vea el contenido real, entonces cuando ingreso la clave le hago el descend(clave) y lo comparo con el valor que guarde.
Todo este tiempo, 10 años aprox. me devolvio el mismo valor, he cambiado de versiones de FWH, de la 10 a la 13 a la 15 a la 17 y ahora a la 19 y hasta la 19.06 daba lo mismo, pero cuando lo uso con la 19.12 el valor de retorno es distinto al que da con la 19.06 ... ya lo probe mostrando la info ...
Por eso pregunto si ha cambiado en algo descend() ??

[cnavarro]

No tengo constancia que esa function sea de Fivewin
Pero si la conozco de Clipper / Harbour
https://harbour.github.io/ng/c53g01c/ng369b2.html
Quizás sea la versión de harbour que estés utilizando ahora.

[Enrrique Vertiz]

Gracias Cristobal

reviso