reutilizar ClientDataSet

[[oscarac]]

Efectivamente Al Gonzales

lo que estoy haciendo es crear dentro del formulario una tabla temporal, entonces le doy click al boton aceptar y me crea la tabla temporal y me genera el reporte, hasta ahi todo bien

pero cuando doy click nuevamente (para otro rango de fechas), me sale ese error

estoy haciendo esto

Código Delphi [-]
 
  CDSFacturacion.Close;
  CDSFacturacion.FieldDefs.Clear;
  CDSFacturacion.FieldDefs.Add('Cos', ftString, 10);
  CDSFacturacion.FieldDefs.Add('Codigo', ftString, 10);
  CDSFacturacion.FieldDefs.Add('Trabajador', ftString, 80);
  for x:= 1 to 31 do
    Begin
      for y := 1 to 6 do
        begin
          if y = 1 then _campo1 := 'Desa';
          if y = 2 then _campo1 := 'Almu';
          if y = 3 then _campo1 := 'Sala';
          if y = 4 then _campo1 := 'Lonc';
          if y = 5 then _campo1 := 'Cena';
          if y = 6 then _campo1 := 'Aman';
          _Campo2 := _Campo1 + Llenar( IntToStr(x),2);
          CDSFacturacion.FieldDefs.Add(_Campo2, ftFloat,0,False);
          end;
        End;
  CDSFacturacion.FieldDefs.Add('tDesa', ftFloat, 0, False);
  CDSFacturacion.FieldDefs.Add('tAlmu', ftFloat, 0, False);
  CDSFacturacion.FieldDefs.Add('tSala', ftFloat, 0, False);
  CDSFacturacion.FieldDefs.Add('tLonc', ftFloat, 0, False);
  CDSFacturacion.FieldDefs.Add('tCena', ftFloat, 0, False);
  CDSFacturacion.FieldDefs.Add('tAman', ftFloat, 0, False);
  CDSFacturacion.IndexDefs.Add('Codigo','Codigo', []);
  CDSFacturacion.CreateDataSet;
  CDSFacturacion.Open;
  CDSFacturacion.Edit;

al final hago mas o menos esto

Código Delphi [-]
 
 
 CDSFacturacion.EmptyDataSet;
  CDSFacturacion.Close;
  CDSFacturacion.Free;

podrias darme alguna sugerencia?

saludos

[[Al González]]

Empezado por oscarac

podrias darme alguna sugerencia?

Veo en tu código que limpias las definiciones de campos (FieldDefs.Clear), mas no las definiciones de índices. Eso explicaría el mensaje de error que nos comentabas al principio.

Por otro lado, no me queda claro si el conjunto de datos tendrá en todo momento los mismos campos. Si esto es así, te aconsejo emplear el evento OnCreate del formulario para colocar ahí el código que prepara el conjunto de datos. De tal suerte que en el evento OnClick del botón Aceptar tengas solamente lo que corresponda a la operación en turno. Así no tendrás que definir los campos e índices cada vez.

En el código del botón Aceptar sólo necesitarías llamar al método CreateDataSet, realizar la operación que necesitas y luego llamar al método Close:

Código Delphi [-]
procedure TForm1.btAceptarClick(Sender: TObject);
begin
  CDSFacturacion.CreateDataSet;

  // Código de la operación a realizar con CDSFacturacion

  CDSFacturacion.Close;
end;

Adicionalmente, si el conjunto de datos fue añadido al formulario en tiempo de diseño, no tienes necesidad de destruirlo (llamada a Free), puesto que todo componente agregado a un formulario es destruido automáticamente cuando el formulario es liberado.

Espero haberme explicado.

Empezado por Caral

Me alegro que le metas mano a este hilo, ya me conoces, yo seria bueno en el béisbol

Deberíamos formar un equipo entre los colegas Delphi. Podríamos llamarnos los Callbacks de Iberoamérica.

Un abrazo en la tercera base.

Al González.

[[oscarac]]

Bien explicadito....
efectivamente, la tabla tendra los mismo campos, asi que lo pasare al Create... voy aprobar y te comento
gracias

[[oscarac]]

estoy colocando el codigo aqui (completo), a ver si me pueden decir que estoy haciendo mal, la primara vez funciona perfecto, pero a la segunda
me sale que no tiene Provider :S

[[Al González]]

Hola Oscarac.

El error aparece porque estás llamando al método Open en lugar de llamar al método CreateDataSet. El método CreateDataSet es como si fuera un "Open" pero sin leer nada de una base de datos.

Debes quitar la llamada a CreateDataSet del evento OnCreate y ponerla, como te comenté antes, en el código del botón (en lugar de Open).

Saludos.

Al González.