Hola.
tengo un sistema que genera codigos de barras. Yo muestro en un dbGrid una lista de registros.. yo necesito que que al seleccionar varios productos me genere el codigo de barra.
Por ejemplo si seleccionada 10 productos que me genere 10 codigos de barras cada uno con su id. Logre crear los 10 codigos de Barras pero todos tiene el mismo id, que es del ultimo registro selccionado..
Tengo este codigo
Código Delphi
[-]
procedure AgregaCodeBar(cant: integer);
var
frxPagina: TfrxReportPage;
frxBarra: TfrxBarCodeView;
i:integer;
begin
frxPagina:=creaUnaPagReport();
for i:=0 to cant-1 do
begin
frxBarra:= TfrxBarCodeView.Create(frxPagina);
frxBarra.CreateUniqueName;
frxBarra.Left:= 220*i+20;
frxBarra.Top:=30;
frxBarra.Width:=500;
frxBarra.Height:=40;
frxBarra.Text:= fmodulo.zqlistado_Socios['dni'];
frxBarra.Visible:=true;
fmodulo.zqlistado_Socios.Next;
end;
flistado_alumnos.frxR_codeBar.ShowReport;
end;
Pero no hace lo que necesito