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);
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