Page 3 of 3
Re: ¿Ajuste en AUTOGET?
Posted:
Sun Apr 24, 2022 1:50 pmby 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
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
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.
Re: ¿Ajuste en AUTOGET?
Posted:
Sun Apr 24, 2022 5:40 pmby AIDA
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: Select all Expand view
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
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.
Re: ¿Ajuste en AUTOGET?
Posted:
Sun Apr 24, 2022 6:46 pmby AIDA
que crees al borrar todo en el get con la tecla backspace brinca un error
- Code: Select all Expand view
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 )
Re: ¿Ajuste en AUTOGET?
Posted:
Mon Apr 25, 2022 2:37 pmby Ariel
Aida,
aca me funciona bien, no se genera el error, puedes mostrar como defines el browseget ?
Re: ¿Ajuste en AUTOGET? para Angel Salom
Posted:
Mon Apr 25, 2022 3:42 pmby Ariel
Angel,
un pregunta, cual es la funcion de :
ADAPTAGET ?
Gracias.
Re: ¿Ajuste en AUTOGET?
Posted:
Mon Apr 25, 2022 3:47 pmby 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
Re: ¿Ajuste en AUTOGET?
Posted:
Mon Apr 25, 2022 4:15 pmby Ariel
Angel,
gracias x tu respuesta, lo voy a investigar un rato,
Saludos.
Re: ¿Ajuste en AUTOGET?
Posted:
Mon Apr 25, 2022 6:11 pmby AIDA
A si lo tengo
- Code: Select all Expand view
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 ?
Re: ¿Ajuste en AUTOGET?
Posted:
Tue Apr 26, 2022 11:17 amby Ariel
Aida,
muestrame el codigo de la funcion de filtro ?
Re: ¿Ajuste en AUTOGET?
Posted:
Wed Apr 27, 2022 3:29 amby AIDA
Aqui esta
- Code: Select all Expand view
//---------------------------------------------------------------------------//
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 ?