topic-39857

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: ¿Ajuste en AUTOGET?
Posted: Sun Apr 24, 2022 01:50 PM

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 Collapse

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 Collapse

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

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: ¿Ajuste en AUTOGET?
Posted: Sun Apr 24, 2022 05:40 PM

Siiiii ya funciona correctamente con los cambios que recomendaste

Gracias!

Ariel wrote: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 (fw): Select all Collapse
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 (fw): Select all Collapse
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.

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: ¿Ajuste en AUTOGET?
Posted: Sun Apr 24, 2022 06:46 PM

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

Code: Select all Collapse

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 )

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: ¿Ajuste en AUTOGET?
Posted: Mon Apr 25, 2022 02:37 PM

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

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: ¿Ajuste en AUTOGET? para Angel Salom
Posted: Mon Apr 25, 2022 03:42 PM

Angel,

un pregunta, cual es la funcion de :

ADAPTAGET ?

Gracias.

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: ¿Ajuste en AUTOGET?
Posted: Mon Apr 25, 2022 03:47 PM

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

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: ¿Ajuste en AUTOGET?
Posted: Mon Apr 25, 2022 04:15 PM

Angel,

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

Saludos.

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: ¿Ajuste en AUTOGET?
Posted: Mon Apr 25, 2022 06:11 PM

A si lo tengo :)

Code: Select all Collapse

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)

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

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: ¿Ajuste en AUTOGET?
Posted: Tue Apr 26, 2022 11:17 AM

Aida,

muestrame el codigo de la funcion de filtro ?

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: ¿Ajuste en AUTOGET?
Posted: Wed Apr 27, 2022 03:29 AM

Aqui esta :)

Code: Select all Collapse

//---------------------------------------------------------------------------//
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
//---------------------------------------------------------------------------//

Ariel wrote:Aida,

muestrame el codigo de la funcion de filtro ?

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

FiveTech Support Forums

Continue the discussion