TMS Planner - Reserva de habitaciones

[radenf]

El código que coloqué crea automáticamente el KeyField de la Tabla. Debe estar en false la propiedad AutoIncKey del DBPeriodSource.
Para modificar las reservas lo más simple es arrastrar el margen del item asignado, en estado de edición, hasta el día que se requiera, pudiendo incrementar o disminuir los días de reserva, ya que esa es una de las gracias del TDBPlanner.
Yo los cambios los he asignado al PopUpMenu, donde tengo las opciones de eliminar una reserva, asignarla con cambio de color o definirla con otro color, con los siguientes códigos:

Para marcarla como asignada:

Código Delphi [-]
procedure TForm1.Asignada1Click(Sender: TObject);
begin
dbplanner1.PopupPlannerItem.Color := clWhite;
dbplanner1.PopupPlannerItem.Update;
FillPlanner;
end;

Para marcarla com reservada:

Código Delphi [-]
procedure TForm1.Reservada1Click(Sender: TObject);
begin
dbplanner1.PopupPlannerItem.Color := $00C6FFC6;
dbplanner1.PopupPlannerItem.Update;
FillPlanner;
end;

Para eliminarla:

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 TForm1.Eliminar1Click(Sender: TObject);
begin
Pulsar(VK_DELETE);
end;

Ojalá te sirva. Yo me he entretenido bastante con esto ya que lo hago por hobby.
Salu2