TMS Planner - Reserva de habitaciones

[amadis]

Gracias Radenf, había mal interpretado el proceso llenado.

Si revisas mas arriba, mi error era que estaba llenando el RESOURCE desde la misma tabla de RESERVAS, por eso tenía solamente las habitaciones con reservas.

[radenf]

Cualquier cosa en la que pueda ayudarte me sentiré encantado, porque yo he aprendido quizás más que tú.
Salu2

[amadis]

Amigos, alguien ha cambiado el color de un item en el momento de llenado del planner?

Sería usando las propiedades que compartió el amigo Radenf para marcar los items.

Código Delphi [-]
dbplanner1.PopupPlannerItem.Color := $00C6FFC6;
dbplanner1.PopupPlannerItem.Update;

la cuestión es en el procedimiento de LLENADO (fillplanner) interceptar por ej una variable numerica ESTADO,
y aplicar un case para que pinte de color distinto cada estado (si esta reservado, pendiente, ocupado, etc).

[radenf]

Exactamente amadis, con ese código le asignas el color a los ítems seleccionados y su valor es guardado en la Tabla de la BD, en el campo Color.
El código, como te había señalado, está asignado a las diferentes acciones del PopUpMenu (Asignada, Reservada, Bloqueada, etc.).
Aquí tienes un ejemplo:



Salu2

[amadis]

Redenf

¿y de esa forma se rellena solo del color que corresponde?

Como seria un ejemplo de codigo.

Yo con los dbgrids, en tiempo de diseño comprobaba el valor de un campo y si el valor es X pintaba de un color, si es otro, de otro.

Me cuesta salir de las viejas estructuras.

El codigo que mencionabas lo he usado para marcar pero NO TENGO CAMPO COLOR, en que tabla iria?.

Por eso pensaba de la forma que explicaba en los post anteriores y en este. Revisar que estado tiene la reserva en momento de llenar el planner y ahi pintar de color que sea

[radenf]

Yo sólo he modificado el demo 26, por lo que el campo color se encuentra en la tabla Schedules.
El código que utilizo ya lo había puesto más arriba en el mensaje #12, pero te lo incluyo de nuevo porque le agregué la opción de bloquear una habitación.
Estos procedimientos yo los he colocado en el menú del PopUpMenu porque me parece más ordenado, pero los puedes colocar en botones si lo deseas.

Para reservar una habitación (Color verde:= $00B9FFB9)

Código Delphi [-]
procedure TFPrincipal.ReservarHabitacion1Click(Sender: TObject);
begin
ADOTable1.Active:= True;
if (ADOTable1.Fields.FieldByName ('Notes').AsString= 'Habitación bloqueada') then
begin
ADOTable1.Edit;
ADOTable1.Fields.FieldByName ('Notes').Clear;
ADOTable1.Post;
end
else
begin
dbplanner1.PopupPlannerItem.Color := $00B9FFB9;
dbplanner1.PopupPlannerItem.Update;
FillPlanner;
end;
end;

Para asignar una habitación(Color gris claro)

Código Delphi [-]
procedure TFPrincipal.AsignarHabitacion1Click(Sender: TObject);
begin
ADOTable1.Active:= True;
if (ADOTable1.Fields.FieldByName ('Notes').AsString= 'Habitación bloqueada') then
begin
ADOTable1.Edit;
ADOTable1.Fields.FieldByName ('Notes').Clear;
ADOTable1.Post;
end
else
begin
dbplanner1.PopupPlannerItem.Color := clWhite;
dbplanner1.PopupPlannerItem.Update;
FillPlanner;
end;
end;

Para bloquear una habitación(Color gris oscuro)

Código Delphi [-]
procedure TFPrincipal.BloquearHabitacion1Click(Sender: TObject);
begin
ADOTable1.Active:= True;
ADOTable1.Edit;
ADOTable1.Fields.FieldByName ('Notes').AsString:= 'Habitación bloqueada';
ADOTable1.Post;
dbplanner1.PopupPlannerItem.Color := clGray;
dbplanner1.PopupPlannerItem.Update;
FillPlanner;
end;

Para eliminar una reserva o asignación

Código Delphi [-]
procedure Pulsar(Key: Byte);
begin
keybd_event(Key, 0, 0, 0);
keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);
end;

Código Delphi [-]
procedure TFPrincipal.Eliminar1Click(Sender: TObject);
begin
Pulsar(VK_DELETE);
end;

El efecto 3D de los ítems se obtiene en mi caso asignando en DefaultItem>ColorTo:= $002E2E30, que es un gris oscuro. Por supuesto tú puedes elegir los colores que más te agraden. La barra verde brillante en el margen superior de cada ítem la asignas en DefaultItem>TrackColor, colocando TrackVisible:= True.
Ya te había señalado que este componente posee cientos de opciones de configuración y de diseño y que muchas de las funciones las puedes asignar a los ítems.
Saludos amadis y ojalá haya podido ayudarte.

[amadis]

Lo que me estaba faltando era en el DBPeriodSource1 un par de eventos que levantan y guardan los colores en la tabla.

Porque sin eso lo pintaba en tiempo de ejecucion pero la proxima vez perdía los colores.

Código Delphi [-]

procedure TFform1.DBPeriodSource1FieldsToItem(Sender: TObject;
  Fields: TFields; Item: TPlannerItem);
begin
  Item.Color := TColor(Fields.FieldByName('COLOR').AsInteger);
end;

procedure TFform1.DBPeriodSource1ItemToFields(Sender: TObject;
  Fields: TFields; Item: TPlannerItem);
begin
  Fields.FieldByName('COLOR').AsInteger := Integer(Item.Color);
end;