Amigos del foro:
Con el siguiente c贸digo creo una cantidad de botones (BTNBMP)
Resalto que en la data CARGO guardo el n煤mero de habitaci贸n.
Posteriormente, con un clic sobre cualquier boton voy a la funci贸n Eventos()
cuyo c贸digo es el siguiente
En esta funci贸n necesito saber que valor tiene la data cargo
pero el msginfo me tira error
Alguna pista?
Saludos y gracias por el apoyo
Con el siguiente c贸digo creo una cantidad de botones (BTNBMP)
聽 聽 聽 DO WHILE ! oRsHab:EOF()
聽 聽 聽 聽 聽nVez++
聽 聽 聽 聽 聽REDEFINE BTNBMP oBtn[nVez] PROMPT AllTrim(Str(oRsHab:Fields("HAB_NUM"):Value,03,0)) + CRLF + "$" + AllTrim(Str(oRsHab:Fields("TIP_PRE"):Value,07,2)) ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ID nVez + 100 CENTER FONT oFont OF oDlg UPDATE
聽 聽 聽 聽 聽oBtn[nVez]:cargo 聽 聽 := oRsHab:Fields("HAB_NUM"):Value
聽 聽 聽 聽 聽oBtn[nVez]:bAction 聽 := {|oBtn| Eventos(oBtn) }
聽 聽 聽 聽 聽DO CASE
聽 聽 聽 聽 聽 聽 CASE oRsHab:Fields("HAB_STS"):Value = 0 聽 聽 聽 聽 聽 聽// Disponible
聽 聽 聽 聽 聽 聽 聽 聽oBtn[nVez]:SetColor( CLR_BLACK, CLR_WHITE)
聽 聽 聽 聽 聽 聽 CASE oRsHab:Fields("HAB_STS"):Value = 1 聽 聽 聽 聽 聽 聽// Ocupada
聽 聽 聽 聽 聽 聽 聽 聽oBtn[nVez]:SetColor( CLR_WHITE, CLR_RED)
聽 聽 聽 聽 聽 聽 CASE oRsHab:Fields("HAB_STS"):Value = 2 聽 聽 聽 聽 聽 聽// En aseo
聽 聽 聽 聽 聽 聽 聽 聽oBtn[nVez]:SetColor( CLR_BLACK, CLR_YELLOW)
聽 聽 聽 聽 聽ENDCASE
聽 聽 聽 聽 聽oRsHab:MoveNext()
聽 聽 聽 ENDDOResalto que en la data CARGO guardo el n煤mero de habitaci贸n.
Posteriormente, con un clic sobre cualquier boton voy a la funci贸n Eventos()
cuyo c贸digo es el siguiente
STATIC FUNCTION Eventos(oBtn)
聽 聽MsgInfo(oBtn)
聽 聽MsgInfo(oBtn[17]:cargo)
RETURN(.T.)En esta funci贸n necesito saber que valor tiene la data cargo
pero el msginfo me tira error
Alguna pista?
Saludos y gracias por el apoyo
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
