¿Ajuste en AUTOGET?

[Ariel]

Buenos dias,

Angel muchas gracias por la clase, esta espectacular.
Aida, el problema esta en que debes mandar el array original para volver a recuperar los datos sino no funciona igual que la autoget, pero si le pones :

Code: Select all  Expand view  RUN

REDEFINE BROWSEGET oApp:Mentra1 var oApp:McNombre2 ID 16 of oSof PICTURE "@!";
         DATASOURCE marcas;
         FILTER ListFilter1( marcas, cData, Self );                // ----> uDataSource
         COLUMN 2 ;
         HEIGHTLIST 100  COLOR RGB(0,0,0),RGB(0,0,0)
 

y en ListFilter1 :

Code: Select all  Expand view  RUN

function ListFilter3( aList, cData, oSelf )
   local aNewList := { }
   local uItem
 
   for each uItem in aList            /// -> oSelf:uOrgData

      if Lower( cData )$ lower( uItem[ "name" ] )
         AAdd( aNewList, uItem )
      endif
     
   next

RETURN aNewList
 

Deberia funcionar correctamente.


Espero que sirva.
Saludos.

[AIDA]

Siiiii ya funciona correctamente con los cambios que recomendaste

Gracias!

Buenos dias,

Angel muchas gracias por la clase, esta espectacular.
Aida, el problema esta en que debes mandar el array original para volver a recuperar los datos sino no funciona igual que la autoget, pero si le pones :

Code: Select all  Expand view  RUN

REDEFINE BROWSEGET oApp:Mentra1 var oApp:McNombre2 ID 16 of oSof PICTURE "@!";
         DATASOURCE marcas;
         FILTER ListFilter1( marcas, cData, Self );                // ----> uDataSource
         COLUMN 2 ;
         HEIGHTLIST 100  COLOR RGB(0,0,0),RGB(0,0,0)
 

y en ListFilter1 :

Code: Select all  Expand view  RUN

function ListFilter3( aList, cData, oSelf )
   local aNewList := { }
   local uItem
 
   for each uItem in aList            /// -> oSelf:uOrgData

      if Lower( cData )$ lower( uItem[ "name" ] )
         AAdd( aNewList, uItem )
      endif
     
   next

RETURN aNewList
 

Deberia funcionar correctamente.


Espero que sirva.
Saludos.

[AIDA]

que crees al borrar todo en el get con la tecla backspace brinca un error

Code: Select all  Expand view  RUN

Error description: Error BASE/1004  Class: 'NIL' has no exported method: SETLIST
   Args:
     [   1] = U  
     [   2] = A   {} length: 0
     [   3] = N   2

Stack Calls
===========
   Called from:  => SETLIST( 0 )
   Called from: tbrowseget.prg => TBROWSEGET:CREATELIST( 148 )
   Called from: tbrowseget.prg => TBROWSEGET:KEYDOWN( 208 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1855 )
   Called from: .\source\classes\TGET.PRG => TBROWSEGET:HANDLEEVENT( 1280 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3560 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
   Called from: model.prg => ARMADO( 9614 )
   Called from: model.prg => ARMADO0( 8648 )
   Called from: model.prg => (b)BUILDMENU( 17931 )
   Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 1563 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1141 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3560 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1097 )
   Called from: model.prg => MAIN( 803 )

[Ariel]

Aida,
aca me funciona bien, no se genera el error, puedes mostrar como defines el browseget ?

[Ariel]

Angel,

un pregunta, cual es la funcion de :

ADAPTAGET ?

Gracias.

[AngelSalom]

Ariel, si está definido lo evalúa en el método LButtonUp() y en el método Change().
Yo lo uso para manipular la cadena resultante en ciertos campos, por ejemplo en una contabilidad al introducir el texto 43.1 lo convierto a 430000001 cargando el codeblock correspondiente a bAdaptaGet

[Ariel]

Angel,

gracias x tu respuesta, lo voy a investigar un rato,

Saludos.

[AIDA]

A si lo tengo

Code: Select all  Expand view  RUN

oApp:McNombre2:= space(60)
REDEFINE BROWSEGET oApp:Mentra1 var oApp:McNombre2 ID 16 of oSof PICTURE "@!";
         DATASOURCE marcas;
         FILTER ListFilter1( marcas, cData, Self ); // ----> uDataSource
         COLUMN 2 ;
         HEIGHTLIST 100  COLOR RGB(0,0,0),RGB(0,0,0)

Aida,
aca me funciona bien, no se genera el error, puedes mostrar como defines el browseget ?

[Ariel]

Aida,

muestrame el codigo de la funcion de filtro ?

[AIDA]

Aqui esta

Code: Select all  Expand view  RUN

//---------------------------------------------------------------------------//
function ListFilter1( aList, cData, oSelf )
   local aNewList := { }
   local uItem

   for each uItem in aList            /// -> oSelf:uOrgData

      if Lower( cData )$ lower( uItem[ "name" ] )
         AAdd( aNewList, uItem )
      endif

   next

RETURN aNewList
//---------------------------------------------------------------------------//

Aida,

muestrame el codigo de la funcion de filtro ?