Busqueda contenido xBrowse..(Cerrado)
Posted: Wed Aug 27, 2014 5:29 pm
Hola buenos dias mis estimados, de antameno les envio cordial saludos.
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...
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
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