Hola jose como estas, gracias por responder, mira aqui te mando la rutina.
Function Busca
nom:=0
save screen to pant2
se:=select()
sele &se
if reccount()>0
go top
if swe=1
a1:=10; a2:=31; a3:=12; a4:=75; a5:=13
arreglo:={"space(1)+rut_cli+' ³ '+nom_cli+space(12)"}
titulo :={" RUT ³ CLIENTES"}
elseif swe=2
a1:=10; a2:=35; a3:=12; a4:=74; a5:=10
if gg=1
set index to ub_ge2
elseif gg=2
set index to ub_ge1
endif
arreglo:={"space(1)+str(cod_geog,5)+' ³ '+desc_geog+space(12)"}
titulo :={" CODIGO ³ COMUNA "}
elseif swe=3
a1:=10; a2:=35; a3:=12; a4:=77; a5:=10
if gg=1
set index to giro2
elseif gg=2
set index to giro1
endif
arreglo:={"space(1)+str(cod_giro,4)+' ³ '+desc_giro+space(12)"}
titulo :={" CODIGO ³ DESCRIPCION "}
endif
y1=iif(reccount()>=7,6,reccount())
f_color:=setcolor()
setcolor('w+/b,n/w+')
sombra(a1+1,a2+2,a3+2+y1,a4+2)
@a1,a2,a3+1+y1,a4 box 'ÚÄ¿³ÙÄÀ³ '
@a1,a2+a5 say 'Â';@a1+2,a2 say chr(198);@a1+2,a4 say chr(181);@a3+1+y1,a2+a5 say 'Á'
dbedit(a1+1,a2+1,a1+2+y1,a4-1,arreglo,'cfunr',.t.,t