//mi get en el dialogo
/*
oGET[x]:=TGet():New(aGETS[x,gROW],;
aGETS[x,gCOL],;
{|u|If(PCount()==0,aGETS[x,gDAT],aGETS[x,gDAT]:=u)},;
if(lFOLDER,;
oFOLDER:aDialogs[COLU_NUM(x)],;
if(FORMATO_VENT=='P',oVENTANA,oDLG(1))),;
aGETS[x,gLAR],;
aGETS[x,gANC],;
aGETS[x,gPIC],;
{|val|val:=aGETS[x,gREQ].and.empty(aGETS[x,gDAT]),if(val,AVISO_REQ(x),.T.).and.eval(aGETS[x,gVAL])},nColorTxt,nColorPan,aGETS[x,gFON],.F.,,.T.,,.T.,;
{||COLU_BUS(x)[1]<>NIL.or.(lMODIFICA.and.eval(aGETS[x,gWHE]))},;
.F.,;
aGETS[x,gDER],,;
aGETS[x,gRED],.F.,.F.,,,,,,,{||MiBusqueda(aVent,oGET[x],x,COLU_BUS(x)[1],COLU_BUS(x)[2],COLU_BUS(x)[3])},xFile('GOFIND.BMP'))
*/
// --- Buscar en dbf con get activo
static function MiBusqueda(aVent,oGet,nGet,nOrden,cCampo,cTitulo)
local VentBusc,nOrdAnt,oBuscar,xBuscar,aRect,oRect,oWnd,nReg:=Recno()
local nRow,nCol,nLar,oDlg,oFont
if lALTAVENT.or.lMODIFICA
return NIL
endif
aRect:=GetCoors(oGet:hWnd)
nRow:=aRect[1]
nCol:=aRect[2]
oWnd:=oGet:oWnd
oRect:=oWnd:GetRect()
nRow+=oRect:nTop-1
nCol+=oRect:nLeft-1
nLar:=aGETS[nGet,gLAR]
xBuscar:=Space(Len(oGet:cCaption))
nOrdAnt:=OrdSetFocus(nOrden)
DEFINE FONT oFont NAME "ARIAL" SIZE 0,SIZE_FONT_GETS BOLD
DEFINE DIALOG oDlg FROM 0, 0 TO aGETS[nGet,gANC]+4,nLar PIXEL;
STYLE nOr( DS_MODALFRAME, WS_POPUP )
@ 0, 0 GETFWH oBuscar VAR xBuscar PICTURE aGETS[nGet,gPIC];
SIZE aGETS[nGet,gLAR],nLar PIXEL COLOR COLOR_AZUL,COLOR_SAMARILLO OF oDlg
oBuscar:bChange:={|nKey|IF(nKey==VK_RETURN,oDlg:End(),NIL)}
oBuscar:SetFont(oFont)
ACTIVATE DIALOG oDlg ON INIT oDlg:Move(nRow,nCol)
oFont:End()
if GetAsyncKey(VK_RETURN)
DBSeek(AllTrim(xBuscar),.t.)
@ 0,0 inicia ventana VentBusc titulo "BUSQUEDA" largo 15 mover nRow,nCol
opciones ventana VentBusc seleccionar
columna ventana cTitulo en VentBusc variable '{||'+cCampo+'}' formato '@!'
procesa ventana VentBusc
if !KeyEnter(VentBusc)
DBGoTo(nReg)
endif
endif
OrdSetFocus(nOrdAnt)
DespVent(aVent)
return NIL
