Tengo abierto un xbrowse con una tabla.
En la misma pantalla tengo un ícono para hacer consultas, (como por ejemplo por número de cliente).
Dicha consulta está hecha con una función dentro del mismo programa.
Luego de hacer la búsqueda del cliente, ¿ como hago que se refresque el xbrowse ,
parándose o haciendo foco el el registro del mismo ?
(Como cuando usaba clientes.dbf el refresco y el foco lo hacía pasando el parámetro
oLbx y funcionaba).
Les paso el código...
* VTA0100.PRG
* Actualización maestro de clientes.
#include "vta0000.ch"
#include "report.ch"
#include "xbrowse.ch"
#include "folder.ch"
*--------------------------------------
FUNCTION VTA0100()
*--------------------------------------
local oBrw
local oBtn
local oDlg
local oLbx
local nKey
local cSql
public o03
public oR3
public xcli
cSql := "SELECT * FROM mae_cli ORDER BY cliente"
oR3 := oCn:RowSet( cSql )
DEFINE DIALOG oDlg RESOURCE "MAE_CLI" FONT m->oFontBrw // CREO EL XBROWSE...
REDEFINE XBROWSE oBrw ID 181 OF oDlg DATASOURCE oR3 ;
COLUMNS ;
"cliente",;
"nombre",;
"direccion",;
"cuit";
HEADERS ;
"Cliente",;
"Nombre",;
"Dirección",;
"C.U.I.T.";
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL // es 3
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:nHeaderLines := 1 // Altura encabezamiento
oBrw:nDataLines := 1 // Altura líneas
oBrw:lRecordSelector := .t. //poner o no, COL de la flechita de la izq
oBrw:bClrStd := { || { CLR_BLACK, If( oBrw:KeyNo % 2 == 0, RGB(160,225,255), CLR_WHITE ) } } // Efecto pijama
oBrw:SetFocus()
oBrw:SetRDD()
REDEFINE BTNBMP oBtn ID 182 OF oDlg RESOURCE "plus" ;
ACTION vta0100a(oBrw) ;
PROMPT "Agregar" ;
TOOLTIP "Agregar Registro" NOBORDER TOP FONT m->oFontBmp
REDEFINE BTNBMP oBtn ID 183 OF oDlg RESOURCE "editar" ;
ACTION vta0100m(oBrw) ;
PROMPT "Editar" ;
TOOLTIP "Modificar Registro" NOBORDER TOP FONT m->oFontBmp
REDEFINE BTNBMP oBtn ID 184 OF oDlg RESOURCE "delete" ;
ACTION vta0100b(oBrw) ;
PROMPT "Borrar" ;
TOOLTIP "Borrar Registro" NOBORDER TOP FONT m->oFontBmp // --> BUSQUEDA !!!
REDEFINE BTNBMP oBtn ID 185 OF oDlg RESOURCE "search" ;
ACTION VTA0100S(oBrw) ;
PROMPT "Buscar" ;
TOOLTIP "Buscar Registro" NOBORDER TOP FONT m->oFontBmp
REDEFINE BTNBMP oBtn ID 186 OF oDlg RESOURCE "impresora" ;
ACTION vta0100l(oBrw) ;
PROMPT "Imprimir" ;
TOOLTIP "Impresion Listados" NOBORDER TOP FONT m->oFontBmp
REDEFINE BTNBMP oBtn ID 187 OF oDlg RESOURCE "quit" ;
ACTION (oDlg:End()) ;
PROMPT "Salir" ;
TOOLTIP "Salida" NOBORDER TOP FONT m->oFontBmp
sysrefresh()
return nil
*--------------------------------------
FUNCTION VTA0100S( oBrw )
*--------------------------------------
LOCAL oConDlg, xconsulta := 1
LOCAL lGoOn, oBtn
DEFAULT lGoOn:=.f.
DEFINE DIALOG oConDlg RESOURCE "VTA0100CO" FONT m->oFontBrw
REDEFINE RADIO xconsulta ID 100,120 OF oConDlg
REDEFINE BTNBMP oBtn ID 105 OF oConDlg RESOURCE "yes" ; // SI
ACTION (lGoOn:=.t.,oConDlg:End()) ;
TOOLTIP "Correcto" BORDER
REDEFINE BTNBMP oBtn ID 106 OF oConDlg RESOURCE "no2" ; // NO
ACTION (lGoOn:=.f.,oConDlg:End()) ;
TOOLTIP "Cancelar" BORDER
ACTIVATE DIALOG oConDlg CENTERED
IF lGoOn
CursorWait()
do case
case xconsulta == 1
V0100CO1(oBrw) // BUSQUEDA POR CLIENTE !!!
case xconsulta == 2
V0100CO2(oBrw)
endcase
ENDIF
cSql := "SELECT * FROM mae_cli ORDER BY cliente"
oR3 := oCn:RowSet( cSql )
sysrefresh()
RETURN
// ------------------------------------
// BUSQUEDA POR NUMERO DE CLIENTE
// ------------------------------------
*--------------------------------------
FUNCTION V0100CO1(oBrw)
*--------------------------------------
local oDlg2, oBtn
public oxccc
public xccc:=0
set cursor on
DEFINE DIALOG oDlg2 RESOURCE "VTA0100S1" FONT m->oFontBrw
REDEFINE GET oxccc VAR xccc ID 102 OF oDlg2 picture "999999"
REDEFINE BTNBMP oBtn ID 105 OF oDlg2 RESOURCE "yes" ; // SI
ACTION V0100B1(oBrw,oDlg2:End()) ;
TOOLTIP "Correcto" BORDER
REDEFINE BTNBMP oBtn ID 106 OF oDlg2 RESOURCE "no2" ; // NO
ACTION oDlg2:End() ;
TOOLTIP "Cancelar" BORDER
ACTIVATE DIALOG oDlg2 NOMODAL
oBrw:setfocus()
oBrw:Refresh()
return nil
*--------------------------------------
FUNCTION V0100B1(oBrw)
*--------------------------------------
cSql := "SELECT * FROM mae_cli ORDER BY cliente"
oR3 := oCn:RowSet( cSql )
oR3:Locate("cliente = xccc") //
oBrw:setfocus()
oBrw:Refresh()
endif
oR3:Requery()
oBrw:Update()
oBrw:Refresh()
sysrefresh()
return .t. // A PESAR QUE EL REGISTRO ES ENCONTRADO, CUANDO RETORNA AL XBROWSE NO SE PARA EN EL REGISTRO DEL CLIENTE ...
Gracias amigos !
