Estoy programando que en TXBrowse, me haga la busqueda incremental dentro del contenido del campo de xBrowse con el metodo lSeekWild, tome el ejemplo de Mr. Rao, y compile su ejemplo , funciona bien y hace la busqueda dentro del contenido, aunque no se vea muy elegante, pero lo adapto a mi sistema, no me hace nada, ni se ve lo que estoy tecleando, ya que lo hago desde recursos y el ejemplo de Rao, es por says..!, pero no logro hacerlo funcionar. Ya averigue en el foro, y al igual no he visto que lo tenga en recursos , solo con says.
Este es el codigo , si alguien me puede orientar, o en que parte de mi codigo, este mal, en incremental normal, todo va bien, no tengo problemas,pero en busqueda del contenido , nada de nada.
REDEFINE SAY oBrw:oSeek PROMPT Upper(oBrw:cSeek) ID 102 OF oDlg UPDATE COLOR CLR_BLACK,CLR_YELLOW // Aqui no hace nada..ni al teclear
REDEFINE SAY oBrw:oSeek Var UPPER(oBrw:cSeek) ID 102 OF oDlg UPDATE PICTURE "@!" COLOR CLR_BLACK,CLR_YELLOW y este menos de esta forma..
Entonces como seria en recursos...
- Code: Select all Expand view
- DEFINE WINDOW oWChld MDIChild FROM 5,1 TO 6,6 OF oWnd TITLE "Proceso de búsquedas < Favor de tomar en cuenta Segmentos de Negocios...>";
COLOR "N/W";
NOZOOM // ICON oIcon
DEFINE DIALOG oDlg RESOURCE "BUSCAR" COLOR CLR_BLUE FONT oWnd:oFont OF oWChld
REDEFINE RADIO nOpc ID 104,105 OF oDlg ON CHANGE Alterna(oBrw,nOpc)
REDEFINE GET oGet[01] VAR nMA_Ini ID 101 OF oDlg PICTURE "####" UPDATE VALID Actualiza(.T.) ;
ACTION (A_MA("nMA_Ini",S05,oGet[01]))
oGet[01]:bKeyDown := { |nKey| IIF( nKey == VK_F2,(oGet[01]:Assign(),Eval( oGet[01]:bAction )),"" ) }
oGet[01]:cToolTip := "Presiona F2"
REDEFINE XBROWSE oBrw ID 103 OF oDlg ;
HEADERS "Cuenta", "Seg","Póliza","Fecha","Referencia","Concepto","Cargo","Abono","Proveedor" ;
FIELDS EXT_xNIV((S16)->CUENTAS), STR((S16)->SEGNEG,4), (S16)->TIPO+" "+LTRIM(STR((S16)->NUMPOL,5)), ;
DTOC((S16)->FHAMOV), (S16)->REFERE, SUBS((S16)->CONCEP,1,26), ;
TRANSFORM((S16)->SALCARG,"@z 99,999,999.99"),TRANSFORM((S16)->SALCRED,"@z 99,999,999.99"),;
DespFld8();
SIZES 112,30,46,52,60,120,75,75,200 ;
ALIAS (S16)->( ALIAS() ) // FOOTERS CELL AUTOCOLS
WITH OBJECT oBrw
//ESTILOS DE LINEAS
:nMarqueeStyle := MARQSTYLE_HIGHLROW //barra selectora
:lColDividerComplete:= .T. //completa pintado hasta el footer cuando lineas no llenan todo el browse
:nColDividerStyle := LINESTYLE_BLACK
:lHScroll := .F. // Horizontal
:lVScroll := .T. // Vertical
:bKeyCount := { || (S16)->( OrdKeyCount() ) }
:bClrSel := { || { nRGB( 0, 0,255), aGradBarSel } } // para barra de linea selecc cuando el control no tiene el foco
:bClrSelFocus := { || { CLR_BLACK, aGradBarSelFocus } } // para barra de linea selecc cuando el control tiene el foco
:lKinetic := .F.
:lContrastClr := .F. //para que no cambie color de texto automaticamente segun intensidad del fondo
:Referencia:cSortOrder := Ind1Tmp
:lIncrFilter := .T.
:lSeekWild := .T.
:cFilterFld := "Referencia"
END
oWChld:bGotFocus := {|| oBrw:SetFocus() }
REDEFINE SAY oBrw:oSeek PROMPT Upper(oBrw:cSeek) ID 102 OF oDlg UPDATE COLOR CLR_BLACK,CLR_YELLOW // Aqui no hace nada..ni al teclear
nW:=IF(GetVersion()[1]>5,15, 8)
nH:=IF(IsWinNT(),33,25)
ACTIVATE DIALOG oDlg CENTERED NOWAIT VALID oWChld:End() // IT HAS TO BE NONMODAL -->NOWAIT CLAUSE
ACTIVATE WINDOW oWChld ON INIT oDlg:Move(0,0) ON RESIZE oWChld:SetSize(oDlg:nWidth+nW,oDlg:nHeight+nH,.T.) ;
VALID Finaliza(oItem)
Release cMes, cAno
RETURN NIL
Esperando contar con el apoyo de todos ustedes, por cualquier ejemplo o ayuda que necesite.
Saludos y buen dia.!
Atte: Adrian C. C.
acc69@hotmail.com
.
y eso que ya me cambie a Harbour.!