Crear tabla temporal usando ClientDataSet

[[oscarac]]

mmm al parecer solo debia eliminar la linea

Código Delphi [-]
 
CDSFacturacion.Active := True;

[[Al González]]

Hola Oscarac.

"Active := True" es lo mismo que "Open", pero para crear el conjunto de datos en memoria, solamente necesitas llamar al método CreateDataSet. Éste lo crea vacío y abierto, listo para trabajar con él.

El error que mencionas posiblemente ocurre cuando intentas repetir la operación de definir los campos, estando aún el conjunto de datos abierto.

Saludos.

Al González.

[[oscarac]]

ya logre crear la tabla, mi problema ahora es que no me esta guardando los datos que grabo, hago mas o menos esto
Con esto lo creo

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);
  if dtFechaFin.Date - dtFechaIni.Date > 31 then
    Begin
      MessageDlg('Periodo Excede los 31 dias del mes', mtError, [mbAbort], 0);
      Exit
    end;
  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);
          with CDSFacturacion do
          Begin
            with FieldDefs.AddFieldDef do
              Begin
                DataType := ftFloat;
                Name := _Campo2;
              end;
          end;
        end;
    end;
    CDSFacturacion.CreateDataSet;
//    CDSFacturacion.Active := True;
    CDSFacturacion.Open;

Con esto intento Grabar los datos

Código Delphi [-]
 
qryTemporal.First;
  while not qryTemporal.Eof do
  begin
    if not CDSFacturacion.Locate('Codigo', qryTemporalAux.AsString, []) then
      Begin
        CDSFacturacion.Append;
        CDSFacturacion.FieldByName('Codigo').Value := qryTemporalAux.AsString;
        CDSFacturacion.FieldByName('trabajador').Value := qryTemporalTrabajador.AsString;
        CDSFacturacion.FieldByName('Cos').Value := qryTemporalCos.Value;
        CDSFacturacion.Post;
      end;
      tblArticulo.Locate('KOD', qryTemporalKOD.AsString, []);
      if tblArticuloTIPO.AsString = '1' then _Campo1 := 'Desa';
      if tblArticuloTIPO.AsString = '2' then _Campo1 := 'Almu';
      if tblArticuloTIPO.AsString = '3' then _Campo1 := 'Sala';
      if tblArticuloTIPO.AsString = '4' then _Campo1 := 'Lonc';
      if tblArticuloTIPO.AsString = '5' then _Campo1 := 'Cena';
      if tblArticuloTIPO.AsString = '6' then _Campo1 := 'Aman';
      DecodeDate(qryTemporalf_DOC.AsDateTime, wAnyo, wMes, wDia);
      _Campo1 := _Campo1 + Llenar( FloatToStr(wDia), 2);
      if CDSFacturacion.Locate('Codigo', qryTemporalAux.AsString, []) then
      Begin
        CDSFacturacion.Edit;
        CDSFacturacion.FieldByName(_Campo1).Value := CDSFacturacion.FieldByName(_Campo1).Value + qryTemporalCant.Value;
        CDSFacturacion.Post;
      End;
      qryTemporal.Next;

pero no tengo ningun valor en los campos....
cuando trato de ver el valor del campo me sale null

alguna sugerencia?

[[oscarac]]

alguien me da una manito?

[[newtron]]

Hola.

¿Has probado a ir parando el programa paso a paso a ver si va cogiendo los campos que se supone que deben de ser?

[[oscarac]]

Cuando lo ejecuto paso a paso y quiero ver el valor por ejemplo de.


CDSFacturacion.FieldByName(_Campo1).Value := CDSFacturacion.FieldByName(_Campo1).Value + qryTemporalCant.Value;

qryTemporalCant.Value ...... me sale 1

CDSFacturacion.FielbbyName(_Campo1).value..... me sale Null
sim embargo _campo1 tiene como valor 'Desa11'
me he dado cuenta que cuando hago el append si graba pero no en el edit

[[newtron]]

A ver si estás sumando un null con un número y por eso no te funciona bien.