[novato_erick]

Hola chicos como estan:

Tengo dos ClientDataSet

cdsConsultaVentaFactura el cual me trae todas las ventas durante un periodo de fechas.

cdsConsultarArancel el cual me trae un todos los aranceles existente en mi db con su respectivo campo en comun en los ClientDataSet llamado Cod_barra

en fin desearia saber si es posible

una fraccion de mi codigo es asi:

Código Delphi [-]

procedure TfrmPrincipal.btnBuscarArancelClick(Sender: TObject);
var
  i, icv: integer;
begin
  begin
    with dmConecta.qConsultaVentaFecha do
    begin
      Close;
      ParamByName('FechaInicio').AsDate := dtpInicio.Date;
      ParamByName('FechaFin').AsDate := dtpFinal.Date;
      open;
    end;
    dmlogica.cdsConsultaFacturaFecha.open;
  end;
   dmLogica.cdsInventarioConsulta.open;
       begin
        with dmConecta.qConsultarArancel do
        begin
          Open;
        end;
          dmlogica.cdsConsultarArancel.Open;
          i := dmlogica.cdsConsultarArancel.RecordCount;
          edit2.Text := inttostr(i);
     end;
         dmlogica.cdsConsultarArancel.First;
         for i := 1 to dmlogica.cdsConsultarArancel.RecordCount do
       begin
         dmlogica.cdsConsultaFacturaFecha.First;
         CodBarra := dmlogica.cdsConsultaFacturaFechaCODIGO_ARTICULO.AsString;
         icv := dmLogica.cdsConsultaFacturaFecha.RecordCount;
         Edit3.Text := IntToStr(icv);
    // para conocer en el edit la cantidad de registros devueltos
         dmlogica.cdsConsultaFacturaFecha.First;
         for icv := 1 to dmlogica.cdsConsultaFacturaFecha.RecordCount do
        begin
         with dmconecta.qConsultaArticuloVenta do
         begin
           Close;
           ParamByName('CodBarra').AsString := CodBarra;
           ParamByName('CodArancel').AsString :=
         end;
end;

saludos

novato_erick