Estoy usando Xbrowse y me esta presentando un problema, cada ves que busco por la Columna APE_PAC, digito letras, la ubica en el Browser, pero al dar Click en el registro, este cambia de posicion, ademas no actualiza el contenido mostrado, a medida que me desplazo por las filas hacia arriba o abajo, estas recien comienzan a cambiar su contenido o reescribir cada fila.
Desde ya muchas gracias.
Saludos
Antonio.
Dejo El Codigo:
- Code: Select all Expand view RUN
Function Buscar_Pac()
local oDlg, oBrw, oFont, oCol,otitu,oFont1,otitu1 ,oFont7
Abre_dbf("maepacie",1,.f.,"")
set inde to maepacie
set order to 2
go top
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
DEFINE FONT oFont1 NAME 'TAHOMA' SIZE 0,24 BOLD
DEFINE FONT oFont7 NAME "TAHOMA" SIZE 0,-14 BOLD
DEFINE DIALOG oDlg SIZE 680,530 PIXEL FONT oFont
@ 00,50 SAY otitu PROMPT " MAESTRO DE PACIENTES " PIXEL OF oDlg COLORS RGB(12, 135, 27) FONT oFont1
@ 20,10 XBROWSE oBrw SIZE -10,-30 PIXEL OF oDlg DATASOURCE "MAEPACIE" ;
HEADERS 'Apellidos', 'Nombres', 'R.u.t';
COLUMNS "APE_PAC",OemToAnsi("NOM_PAC"),"RUT_PAC";
CELL LINES AUTOSORT NOBORDER
WITH OBJECT oBrw
:lHScroll := .f.
:lIncrFilter := .f.
:lSeekWild := .f.
//:bLClickHeader := { || oBrw:Seek(""), oBrw:cFilterFld := "newfld" }
//:cFilterFld := "APE_PAC"
:lFooter := .t.
:SetStyle( 2018)
oCol := oBrw:aCols[ 1 ]
oCol:cSortOrder := 'maep2'
ocol:cToolTip:="Clique para ordenar por APELLIDOS"
oCol := oBrw:aCols[ 3 ]
oCol:cSortOrder := 'maep1'
ocol:cToolTip:="Clique para ordenar por RUT"
oBrw:bKeyDown:={|nKey| iif(nKey=32.or.nKey=VK_RETURN,Actu_Ficha(),oBrw:Refresh())}
oBrw:bLDblClick:={||Actu_Ficha(),oBrw:Refresh()}
:CreateFromCode()
END
@ 10,10 SAY otitu1 PROMPT "Buscar : " PIXEL OF oDlg COLORS RGB(12, 135, 27) FONT oFont
@ 10,40 SAY oBrw:oSeek VAR oBrw:cSeek SIZE 100,10 PIXEL OF oDlg COLOR CLR_HRED,CLR_YELLOW
@ 235,250 BTNBMP SIZE 30,30 PROMPT "SALIR" OF oDlg PIXEL 2007 FONT oFont7 ;
filename"c:\Desa\FichasWin\Iconos\door_in.png" ToolTip "SALIR DEL SISTEMA";
ACTION oDlg:End()
@ 235,10 BTNBMP SIZE 30,30 PROMPT "NUEVO" OF oDlg 2007 FONT oFont7 ;
filename"c:\Desa\FichasWin\Iconos\add.png" ToolTip "NUEVO PACIENTE" ;
ACTION ( Actu_Ficha() )
@ 235,60 BTNBMP SIZE 30,30 PROMPT "VER" OF oDlg 2007 FONT oFont7 ;
filename"c:\Desa\FichasWin\Iconos\report_user.png" ToolTip "MUESTRA PACIENTE" ;
ACTION ( Muestra_Pac() )
@ 235,110 BTNBMP SIZE 30,30 PROMPT "SELEC" OF oDlg 2007 FONT oFont7 ;
filename"c:\Desa\FichasWin\Iconos\group_add.png" ToolTip "OBTENER PACIENTE" ;
ACTION ( Actu_Ficha() )
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
return nil
