[[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?