Ver Mensaje Individual
  #1  
Antiguo 18-05-2013
nickolas nickolas is offline
Miembro
NULL
 
Registrado: may 2011
Posts: 32
Reputación: 0
nickolas Va por buen camino
Validar Datos de una tabla de memoria

Hola a todos. Estoy usando un clientdataset para crear una tabla de memoria a la cual le agrego datos (fechas Sacadas de un DateTimePicker) lo que necesitaria seria saber como hacer para que no la tabla de memoria no me permita colocar dos veces la misma Fecha.si alguno sabe como hacerlo lo Agradeceria.

el codigo que tengo hasta ahora es este:

Código Delphi [-]
procedure TFRM_ViajeAgregar.BT_FechaAgregarClick(Sender: TObject);
var
  FechaColocar:TDate;

begin
 FechaColocar :=DTP_1.Date;

  while not CDST_ViajeFechas.Eof do   {Mientras no llegue al final de la tabla de memoria.}
   begin
    {Comparo si la fecha a colocar es la misma que alguna de que haya hay colocadas}
   if FechaColocar = CDST_ViajeFechas.FieldByName('CDSTCAM__FECHA').Value then
     begin
       Application.MessageBox('Fecha ya seleccionada','Agregar Fecha',MB_ICONWARNING);
     end
   else
     begin
       // Agrego una fila mas para que se coloque los datos
      CDST_ViajeFechas.Append;

      // Coloco el CLIENTDATASET en Modo de edicion
      CDST_ViajeFechas.Edit;

      // Agreguo la fecha
      CDSTCAM__FECHA.AsDateTime := FechaColocar;
     end
   end;
end;

Gracias espero sus respuestas
Responder Con Cita