Hola a todos, me encuentro desarrollando un aplicativo en delphi 2010, y en la parte de informes necesito controlar las copias a imprimir; es decir, lo que se quiere es que, cuando se vaya a imprimir un reporte; en delphi o en rave me cuente la cantidad de copias y pueda almacenar el numero en la base de datos.Esto lo necesito despues de imprimir(no antes, ni en el preview);
Yo he creado un campo "acumulador", en la base de datos, donde guardare el numero de copias.
Este es el codigo que he puesto en el evento afterprint del componente rvsystem
Código Delphi
[-]
procedure Treportesmd.rsreporte1AfterPrint(Sender: TObject);
begin
if rsreporte1.SystemPrinter.Copies>=1 then begin
datos.rpcabdisponibilidad.close;
datos.rpcabdisponibilidad.open;
datos.rpcabdisponibilidad.Locate('CDI_ID',102,[]);
datos.rpcabdisponibilidad.Edit;
datos.rpcabdisponibilidadcdi_print.value:=datos.rpcabdisponibilidadcdi_print.value+ rsreporte1.SystemPrinter.Copies;
if Datos.rpcabdisponibilidad.ApplyUpdates(0) > 0 then
begin
Abort;
end;
end;
end;
aqui digo que si las copias a imprimir son mayores o igual a 1 busqueme el registro al que quiero asignarle el numero de copias. y guardeme el numero de copias a imprimir.
con esto el me guarda el numero de copias en la bd, pero el problema esta en que me lo guarda antes de imprimir el documento tangible(a pesar de que esta en el evento afterprint).
Me podrian decir que estoy haciendo mal, en verdad no lo se.
de ante mano les agradesco su ayuda.