Power Builder - Colorear Celdas dinamicamente

wf_color_reservas()

//Esta funcion le pone un color diferente a cada reserva diferente, cuando la reserva es de contingentes.Para los demás estados de la habitacion (Ocupada, Fuera de Uso, En Limpio, etc) los colores son unicos por cada estado (ocupada = rojo, Fuera de Uso = negro, En Limpio = amarillo, etc)

Long vid_Reserva, cant, v_fila, v_col, a_Reservas[ ], vid_habitacion

datetime f1, f2

String vid_estado, a_colores[ ], vtipo_reserva, v_contingente

Declare prox_rc cursor for

	select distinct(id_reserva), fecha_i, fecha_f, 'C' as vtipo_reserva

	From Hmv_reservas_contingentes

	where id_hotel = :vid_hotel_actual AND id_Reserva IN (Select DISTINCT(id_Reserva) From Hmv_maincouranse)

	UNION

	select distinct(id_reserva), fecha_i, fecha_f, 'P'

	From Hmv_reservas_pasajeros

	where id_hotel = 1 AND contingente = 'Y' AND id_Reserva IN (Select DISTINCT(id_Reserva) From Hmv_maincouranse)

	order by vtipo_reserva, fecha_i;

//En el vector a_reservas pongo cada numero de reserva distinto que se muestra en el plano ese mes.El plano es mensual, cada fila es una habitacion y cada columna es el dia del mes.

Open prox_rc;

cant = 0

Do while Sqlca.Sqlcode = 0

	Fetch prox_rc into :vid_reserva, :f1, :f2, :vtipo_reserva;

	If Sqlca.sqlcode = 100 then

			exit

		else

			cant = cant + 1

			a_Reservas[cant] = vid_Reserva

		End if

Loop

Close prox_rc;

a_colores = {'16777088', '8421631', '16754856',  '33023', '16758711', '12615935', '64000', '14862079', '6160571','4079359', '52428', '9830399', '9882571', '50372', '12648641', '16888215', '16999215', '16877215', '17777215','17877215','19777215', '14777215', '14877210', '14888215','14999210','14999225','14999315', '11777210','11777225', '11777240', '10666210', '67250', '16348711', '10665230', '67500', '14615235', '67800' ,'10666245' , '12615935', '10346245', '8761539', '6482598','15329721', '19655218', '18333215'}

For v_fila = 1 To datawin.rowcount()

	For v_col = 3 TO f_ultimo_diames( f_mesnum(w_maincouranse.ddlb_meses.text), Integer(ddlb_anios.text)) + 2

		vid_estado = datawin.getitemstring(v_Fila,v_col)

		If vid_estado = 'O' then

				datawin.setitem(v_fila, v_col, vid_estado + '   ' + '255')

			elseif vid_estado = 'EL' then

				datawin.setitem(v_fila, v_col, vid_estado + '   ' + '65535')

			elseif vid_estado = 'FU' then

					datawin.setitem(v_fila, v_col, vid_estado + '   ' + '0')

			elseif vid_estado = 'OA' then

					datawin.setitem(v_fila, v_col, vid_estado + '   ' + '16711935')

			elseif	Mid(vid_estado, 1, 1) = 'R' then

				vId_habitacion = datawin.getitemnumber(v_fila, 1)

				Select id_Reserva Into :vid_reserva From Hmv_maincouranse Where id_hotel = :vid_hotel_actual AND id_habitacion = :vid_habitacion AND num_dia = :v_col - 2 and substring(id_estado, 1, 1) = 'R';

				If Sqlca.sqlcode = -1 then 	Messagebox("ERROR", "Fila = " + string(v_fila) + " COLUMNA = " + string(v_col) + sqlca.sqlerrtext)

				if vid_estado <> 'RC' then

						Select MAX(contingente) INTO :v_contingente From Hmv_reservas_pasajeros where id_reserva = :vid_reserva;

						If v_contingente = 'Y' then

								vtipo_Reserva = 'P'

							else

								vtipo_reserva = 'C'

							end if

						else

							vtipo_Reserva = 'C'

				End if

				If vtipo_reserva = 'C' then

						If vid_Reserva > 0 then

								For cant = 1 To Upperbound(a_Reservas)

									If a_reservas[cant] = vid_reserva then exit

								Next

								If cant <= Upperbound(a_colores) then

										datawin.setitem(v_fila, v_col, vid_estado + '   ' + a_colores[cant])

									else

										datawin.setitem(v_fila, v_col, vid_estado + '   16777215')

								End if

							else

								Messagebox("ERROR EN LA BUSQUEDA DE LA RESERVA", string(vid_Reserva))

						End if

					else

						If vid_estado = 'RP' then

								datawin.setitem(v_fila, v_col, vid_estado + '   ' + '16711680')

							elseif vid_estado = 'RS' then

								datawin.setitem(v_fila, v_col, vid_estado + '   ' + '16744448')

							else

								datawin.setitem(v_fila, v_col, vid_estado + '   ' + '16763541')

						End if

				End if

			Else

				datawin.setitem(v_fila, v_col, vid_estado + '     ' + '12632256')

		End if

	Next

Next

f_color_estatus

parametro string     as_status

long ll_color

choose case as_status

    case 'A'

          ll_color = gl_color_cielo

    case 'C'

          ll_color = gl_color_rojo

    case 'T'

          ll_color = gl_color_verde

    case 'L'

          ll_color = gl_color_amarillo

end choose

//  gl_color_x   son variables globales con los codigos de color,   esta simplificado porque realmente lo tengo en un nvo

return ll_color