procedure TfPrincipal.Listado5Click(Sender: TObject);
begin
if not Assigned(fmodulo) then raise Exception.Create('¡ fmodulo no ha sido creado aún !'); fmodulo.qVentas.Active:=true;
fmodulo.qdetalle.Active:=true;
tfListadosVentas.Create(self).ShowModal;
end;