al Cargar cToolTip es muy leno
Posted: Wed Apr 06, 2022 1:54 pm
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
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