Error con cualquier xBrowse (Maestro Antonio y Daniel))

[luisduque]

Maestro Antonio Linares y Maestro Daniel Garcia un Saludo

Revisando el xBrowse cuando se edita una columna y se presiona dos o tres veces la tecla derecha da un error o cuando se preciona la tecla backspace dos o tres veces da un error primero pensaba que era un error en parte de mi programacion para estar seguro ejecute el testxbr3.prg y seleccione del menu la opcion dialog rdd all cols sale un xbrowse me voy por ejemplo a una columna que se puede editar como lo es salary y al presiona dos o tres veces la tecla derecha se sale el error es Len (::oGet:buffer) ya que que el tipo es "U" y no caracter como debe ser, si arreglo por decir algo con Len( If(ValType(::oGet:buffer)$"C",::oGet:buffer,Space(1)) ) se soluciona pero dependiendo pasa a otras lineas mas abajos las cuales utilizan de nuevo Len (::oGet:buffer) y da el mismo error.

El error se presenta en la clase TGet
De antemano gracias.

[nageswaragunupudi]

This is bug in version 10.3.
Please make the following correction to xbrowse.prg:
Lines 9840 to 9851.

Code: Select all  Expand view

     case nKey != VK_LEFT .and. ::oEditGet:oGet:TypeOut .and. !Set( _SET_CONFIRM )
           // nKey != VK_LEFT is important. Otherwise continuous pressing of left key exits
           // and errors out
           lExit    := .t.
           ::oEditGet:nLastKey := VK_RETURN
           ::oEditGet:End()
           ::PostEdit()
           if ::oBrw:lFastEdit
              PostMessage( ::oBrw:hWnd, WM_KEYDOWN, nKey )
           endif

           return nil
 

Please comment out (or remove) the entire block of code above. This is a feature under development not fully tested.

[luisduque]

Muchas gracias. elimine las linea y trabaja perfecto