qryListadoComprasArticuloAnalitico.Open; <- Data asociada al reporte
if qryListadoComprasArticuloAnalitico.IsEmpty then
MessageDlg('No existe informacion en el rango solicitado',mtWarning,[mbRetry],0)
Else
begin
if qrListadoComprasArticuloAnalitico = Nil then
qrListadoComprasArticuloAnalitico := TqrListadoComprasArticuloAnalitico.Create(Nil); <- Reporte
with qrListadoComprasArticuloAnalitico do
begin
qrListadoComprasArticuloAnalitico.qrlEmpresa.Caption:= dmGlobal.g_NombreEmpresa;
qrListadoComprasArticuloAnalitico.qrlRuc.Caption:= dmGlobal.g_RUCEmpresa;
qrListadoComprasArticuloAnalitico.qrlSubTitulo.Caption := 'En moneda ' + iif (rgmoneda.itemindex =0, 'Nacional ','Extranjera') + ' Del ' + DateToStr(dtInicial.Date) + ' al ' + DateToStr(dtFinal.Date);
qrListadoComprasArticuloAnalitico.Preview;
end;
FreeAndNil(qrListadoComprasArticuloAnalitico);
End;
qryListadoComprasArticuloAnalitico.Close;