al Cargar cToolTip es muy leno

[jbrita]

colegas Tengo este codigo:

FOR Z= 1 TO 60
nSit:=Z
REDEFINE BTNBMP oBtns[nSit] ID bId OF oDlg RESOURCE "asiento_sSS" NOBORDER CENTER UPDATE
oBtns[nSit]:cCaption := AllTrim(Str( nSit ))
oBtns[nSit]:cargo := nSit
oBtns[nSit]:bLostFocus := {|oBtn| oBtn:lPressed := .t.}
oBtns[nSit]:oFont := oFnt1
oBtns[nSit]:cToolTip := verasiento(nSit,CodViaje,CodControl)
Next


STATIC function verasiento(nSit,CodViaje,CodControl)
*--------------------------
Local cVendido
Local aAsiento:=""

cVendido=xServer:Query("SELECT asiento,ori,des,reserva FROM vendido WHERE cod_viaje='"+AllTrim(CodViaje)+"' and cod_interno='"+AllTrim(Str(CodControl))+"' and asiento='"+Str(nSit)+"' Order By asiento")
cVendido:GoTop()
Do While !cVendido:Eof()
aAsiento:=aAsiento+"Origen :"+cVendido:Ori + " Destino:"+cVendido:Des + CRLF
aAsiento:=aAsiento+"Nª Asiento :"+Str(cVendido:asiento,2) + CRLF
aAsiento:=aAsiento+"Nª Reserva :"+Str(cVendido:reserva,10) + CRLF + CRLF
cVendido:Skip(1)
EndDo
cVendido:End()
Return(aASiento)


Al carga el cTooltip se demora mucho hay forma de hacerlo mas rapido

Saludos

[karinha]

.RC Para testes?

Regards, saludos.

[jbrita]

lo resolvi.. solo puse el asiento nada mas... quedo bien.. gracias
saludos