Ver Mensaje Individual
  #4  
Antiguo 20-05-2011
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.015
Reputación: 22
oscarac Va por buen camino
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
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita