Tarda mucho en ejecutar un SP

Choclito · #1 27-07-2010

Buenas amigos del foro tengo el siguiente problema: tengo dos procedimientos almacenados el primero es el siguiente:

Código SQL [-]  SET TERM ^ ;

CREATE OR ALTER PROCEDURE LISTADO_REGISTRO_SERVICIOS_AMB (
    f1 date,
    f2 date,
    valor char(1))
returns (
    fecha date,
    nro_recibo integer,
    tipo_servicio varchar(30),
    servicio varchar(70),
    costo numeric(18,2),
    costo_total numeric(18,2),
    literal varchar(300),
    nro_ambulatorio integer,
    usuario varchar(20),
    nombre_amb varchar(70),
    edad integer,
    sexo char(1),
    tipo_pac varchar(20),
    factura varchar(10),
    hora time,
    monto_cobrar numeric(18,2),
    porcentaje integer,
    nro_registro integer,
    nro_factura integer)
as
declare variable nro_asegurado integer;
declare variable nro_internado integer;
begin
/*para el caso de consulta medica */
for
select  r.nro_recibo,cast(r.fecha as date),d.ap_paterno||' '||d.ap_materno||' '||d.nombres||'-->'||e.nombre_e, case r.porcentaje_cobro when 100 then  c.costo else (r.porcentaje_cobro*c.costo)/100 end,r.costo_total,r.literal,r.nro_ambulatorio,r.usuario,r.tipo_paciente,r.nro_asegurado,r.nro_intern  acion,r.factura,cast(r.fecha as time),r.monto_cobrar,r.porcentaje_cobro,c.nro,r.nro_factura
from  (recibo r inner join registro_consulta_med c on r.nro_recibo=c.nro_recibo),c_externa c1,especialidad e,doctor d
where ((c.nro_consulta=c1.nro)and(c1.id_doctor=d.ci)and(d.esp=e.nro)and(cast(r.fecha as date) between :f1 and :f2)and((r.cancelado=:valor)or(r.cancelado='M')))
into :nro_recibo,:fecha,:servicio,:costo,:costo_total,:literal,:nro_ambulatorio,:usuario,:tipo_pac,:nro_a  segurado,:nro_internado,:factura,:hora,:monto_cobrar,orcentaje,:nro_registro,:nro_factura
DO
begin
   if (factura='F') then
   factura='RECIBO';
   ELSE
   FACTURA='FACTURA';
  tipo_servicio='CONSULTA EXTERNA';
if (tipo_pac='AMBULATORIO') then
BEGIN
  select X.ap_paterno||'  '||coalesce(X.ap_materno,'')||'  '||X.nombreS,X.edad,X.sexo
  from paciente_externo  X
  where (x.nro=:nro_ambulatorio)
  into :nombre_amb,:edad,:sexo;

  end
  if (tipo_pac='ASEGURADO') then
  BEGIN
 select R.ap_paterno||'  '||coalesce(R.ap_materno,'')||'  '||r.nombres,R.edad,R.sexo
  from paciente_asegurado  R,instituciones i
  where ((r.nro_registro=:nro_asegurado)and(R.habilitado='T')and(r.institucion=i.nro))
  into :nombre_amb,:edad,:sexo;
 
  END
  if (TIPO_PAC='INTERNADO') then
  BEGIN
 select  p.ap_paterno||'  '||coalesce(p.ap_materno,'')||'  '||p.nombre,p.edad,p.sexo
  from paciente p,registro_internacion n
  where ((n.nro=:nro_internado)and(n.nro_historia=p.nro))
  into :nombre_amb,:edad,:sexo;
  END
suspend;
end
/*para emergencias*/
for
select  r.nro_recibo,cast(r.fecha as date),e.nombre, case r.porcentaje_cobro when 100 then  g.costo else (r.porcentaje_cobro*g.costo)/100 end,r.costo_total,r.literal,r.nro_ambulatorio,r.usuario,r.tipo_paciente,r.nro_asegurado,r.nro_intern  acion,r.factura,cast(r.fecha as time),r.monto_cobrar,r.porcentaje_cobro,g.nro,r.nro_factura
from  recibo r,registro_emergencias g,emergencias e
where ((R.nro_recibo=G.nro_recibo)AND(g.nro_emergencias=e.nro)and(cast(g.fecha as date) between :f1 and :f2)and((r.cancelado=:valor)or(r.cancelado='M')))
into :nro_recibo,:fecha,:servicio,:costo,:costo_total,:literal,:nro_ambulatorio,:usuario,:tipo_pac,:nro_a  segurado,:nro_internado, :factura,:hora,:monto_cobrar,orcentaje,:nro_registro,:nro_factura
DO
begin
   if (factura='F') then
   factura='RECIBO';
   ELSE
   FACTURA='FACTURA';
if (tipo_pac='AMBULATORIO') then
BEGIN
  select X.ap_paterno||'  '||coalesce(X.ap_materno,'')||'  '||X.nombreS,X.edad,X.sexo
  from paciente_externo  X
  where (x.nro=:nro_ambulatorio)
  into :nombre_amb,:edad,:sexo;

  end
  if (tipo_pac='ASEGURADO') then
  BEGIN
 select R.ap_paterno||'  '||coalesce(R.ap_materno,'')||'  '||r.nombres,R.edad,R.sexo
  from paciente_asegurado  R,instituciones i
  where ((r.nro_registro=:nro_asegurado)and(R.habilitado='T')and(r.institucion=i.nro))
  into :nombre_amb,:edad,:sexo;
 
  END
  if (TIPO_PAC='INTERNADO') then
  BEGIN
 select  p.ap_paterno||'  '||coalesce(p.ap_materno,'')||'  '||p.nombre,p.edad,p.sexo
  from paciente p,registro_internacion n
  where ((n.nro=:nro_internado)and(n.nro_historia=p.nro))
  into :nombre_amb,:edad,:sexo;
  END
  tipo_servicio='EMERGENCIAS';
suspend;
end
/*PARA ECOGRAFIA*/
for
select  r.nro_recibo,cast(r.fecha as date),g.nombre, case r.porcentaje_cobro when 100 then  r1.costo else (r.porcentaje_cobro*r1.costo)/100 end,r.costo_total,r.literal,r.nro_ambulatorio,r.usuario,r.tipo_paciente,r.nro_asegurado,r.nro_intern  acion,r.factura,cast(r.fecha as time),r.monto_cobrar,r.porcentaje_cobro,r1.nro,r.nro_factura
from  recibo r,registro__ecografia R1,ecografia g
where ((r1.nro_recibo=r.nro_recibo)and(r1.tipo_ecografia=g.nro)and(cast(r.fecha as date) between :f1 and :f2)and(r.cancelado=:valor)and((r.cancelado=:valor)or(r.cancelado='M')))
into :nro_recibo,:fecha,:servicio,:costo,:costo_total,:literal,:nro_ambulatorio,:usuario,:tipo_pac,:nro_a  segurado,:nro_internado,:factura,:hora,:monto_cobrar,orcentaje,:nro_registro,:nro_factura
DO
begin
   if (factura='F') then
   factura='RECIBO';
   ELSE
   FACTURA='FACTURA';
if (tipo_pac='AMBULATORIO') then
BEGIN
  select X.ap_paterno||'  '||coalesce(X.ap_materno,'')||'  '||X.nombreS,X.edad,X.sexo
  from paciente_externo  X
  where (x.nro=:nro_ambulatorio)
  into :nombre_amb,:edad,:sexo;

  end
  if (tipo_pac='ASEGURADO') then
  BEGIN
 select R.ap_paterno||'  '||coalesce(R.ap_materno,'')||'  '||r.nombres,R.edad,R.sexo
  from paciente_asegurado  R,instituciones i
  where ((r.nro_registro=:nro_asegurado)and(R.habilitado='T')and(r.institucion=i.nro))
  into :nombre_amb,:edad,:sexo;
 
  END
  if (TIPO_PAC='INTERNADO') then
  BEGIN
 select  p.ap_paterno||'  '||coalesce(p.ap_materno,'')||'  '||p.nombre,p.edad,p.sexo
  from paciente p,registro_internacion n
  where ((n.nro=:nro_internado)and(n.nro_historia=p.nro))
  into :nombre_amb,:edad,:sexo;
  END
  tipo_servicio='ECOGRAFIA';
suspend;
end
/*PARA LABORATORIO*/
for
select  r.nro_recibo,cast(r.fecha as date),a.nombre_a, case r.porcentaje_cobro when 100 then  e.costo else (r.porcentaje_cobro*e.costo)/100 end,r.costo_total,r.literal,r.nro_ambulatorio,r.usuario,r.tipo_paciente,r.nro_asegurado,r.nro_intern  acion,r.factura,cast(r.fecha as time),r.monto_cobrar,r.porcentaje_cobro,e.nro,r.nro_factura
from  recibo r,registro_examenes_lab E,analisis_clinico A
where ((E.nro_recibo=r.nro_recibo)and(e.examen=a.nombre_a)and(cast(r.fecha as date) between :f1 and :f2)and((r.cancelado=:valor)or(r.cancelado='M')))
into :nro_recibo,:fecha,:servicio,:costo,:costo_total,:literal,:nro_ambulatorio,:usuario,:tipo_pac,:nro_a  segurado,:nro_internado,:factura,:hora,:monto_cobrar,orcentaje,:nro_registro,:nro_factura
DO
begin
   if (factura='F') then
   factura='RECIBO';
   ELSE
   FACTURA='FACTURA';
if (tipo_pac='AMBULATORIO') then
BEGIN
  select X.ap_paterno||'  '||coalesce(X.ap_materno,'')||'  '||X.nombreS,X.edad,X.sexo
  from paciente_externo  X
  where (x.nro=:nro_ambulatorio)
  into :nombre_amb,:edad,:sexo;

  end
  if (tipo_pac='ASEGURADO') then
  BEGIN
 select R.ap_paterno||'  '||coalesce(R.ap_materno,'')||'  '||r.nombres,R.edad,R.sexo
  from paciente_asegurado  R,instituciones i
  where ((r.nro_registro=:nro_asegurado)and(R.habilitado='T')and(r.institucion=i.nro))
  into :nombre_amb,:edad,:sexo;
 
  END
  if (TIPO_PAC='INTERNADO') then
  BEGIN
 select  p.ap_paterno||'  '||coalesce(p.ap_materno,'')||'  '||p.nombre,p.edad,p.sexo
  from paciente p,registro_internacion n
  where ((n.nro=:nro_internado)and(n.nro_historia=p.nro))
  into :nombre_amb,:edad,:sexo;
  END
  tipo_servicio='LABORATORIO';
suspend;
end
/*PARA RAYOS X*/
for
select  r.nro_recibo,cast(r.fecha as date),g.nombre, case r.porcentaje_cobro when 100 then  x.costo else (r.porcentaje_cobro*x.costo)/100 end,r.costo_total,r.literal,r.nro_ambulatorio,r.usuario,r.tipo_paciente,r.nro_asegurado,r.nro_intern  acion,r.factura,cast(r.fecha as time),r.monto_cobrar,r.porcentaje_cobro,x.nro,r.nro_factura
from  recibo r,registro_radiologia X,estudio_radiografia G
where ((x.nro_recibo=r.nro_recibo)and(g.nro_estudio=x.nro_estudio)and(cast(r.fecha as date) between :f1 and :f2)and((r.cancelado=:valor)or(r.cancelado='M')))
into :nro_recibo,:fecha,:servicio,:costo,:costo_total,:literal,:nro_ambulatorio,:usuario,:tipo_pac,:nro_a  segurado,:nro_internado,:factura,:hora,:monto_cobrar,orcentaje,:nro_registro,:nro_factura
DO
begin
   if (factura='F') then
   factura='RECIBO';
   ELSE
   FACTURA='FACTURA';
if (tipo_pac='AMBULATORIO') then
BEGIN
  select X.ap_paterno||'  '||coalesce(X.ap_materno,'')||'  '||X.nombreS,X.edad,X.sexo
  from paciente_externo  X
  where (x.nro=:nro_ambulatorio)
  into :nombre_amb,:edad,:sexo;

  end
  if (tipo_pac='ASEGURADO') then
  BEGIN
 select R.ap_paterno||'  '||coalesce(R.ap_materno,'')||'  '||r.nombres,R.edad,R.sexo
  from paciente_asegurado  R,instituciones i
  where ((r.nro_registro=:nro_asegurado)and(R.habilitado='T')and(r.institucion=i.nro))
  into :nombre_amb,:edad,:sexo;
 
  END
  if (TIPO_PAC='INTERNADO') then
  BEGIN
 select  p.ap_paterno||'  '||coalesce(p.ap_materno,'')||'  '||p.nombre,p.edad,p.sexo
  from paciente p,registro_internacion n
  where ((n.nro=:nro_internado)and(n.nro_historia=p.nro))
  into :nombre_amb,:edad,:sexo;
  END
  tipo_servicio='RAYOS X';
suspend;
end
/*para farmacia*/
for
select  r.nro_recibo,cast(r.fecha as date),v.cantidad||'==>'||m.nombre_producto||'==>'||p.nombre, case r.porcentaje_cobro when 100 then  v.costo else (r.porcentaje_cobro*v.costo)/100 end,r.costo_total,r.literal,r.nro_ambulatorio,r.usuario,r.tipo_paciente,r.nro_asegurado,r.nro_intern  acion,r.factura,cast(r.fecha as time),r.monto_cobrar,r.porcentaje_cobro,v.nro,r.nro_factura
from  recibo r,venta_med v,medicamento m,presentacion_med p
where ((v.nro_recibo=r.nro_recibo)and(m.id_producto=v.id_medicamento)and(m.id_presentacion=p.id_presentaci  on)and(cast(r.fecha as date) between :f1 and :f2)and((r.cancelado=:valor)or(r.cancelado='M')))
into :nro_recibo,:fecha,:servicio,:costo,:costo_total,:literal,:nro_ambulatorio,:usuario,:tipo_pac,:nro_a  segurado,:nro_internado,:factura,:hora,:monto_cobrar,orcentaje,:nro_registro,:nro_factura
DO
begin
  if (valor='F') then
  begin
  select distinct v.usuario
  from venta_med v
  where (v.nro_recibo=:nro_recibo)
  into :usuario;
  end
   if (factura='F') then
   factura='RECIBO';
   ELSE
   FACTURA='FACTURA';
if (tipo_pac='AMBULATORIO') then
BEGIN
  select X.ap_paterno||'  '||coalesce(X.ap_materno,'')||'  '||X.nombreS,X.edad,X.sexo
  from paciente_externo  X
  where (x.nro=:nro_ambulatorio)
  into :nombre_amb,:edad,:sexo;

  end
  if (tipo_pac='ASEGURADO') then
  BEGIN
 select R.ap_paterno||'  '||coalesce(R.ap_materno,'')||'  '||r.nombres,R.edad,R.sexo
  from paciente_asegurado  R,instituciones i
  where ((r.nro_registro=:nro_asegurado)and(R.habilitado='T')and(r.institucion=i.nro))
  into :nombre_amb,:edad,:sexo;
 
  END
  if (TIPO_PAC='INTERNADO') then
  BEGIN
 select  p.ap_paterno||'  '||coalesce(p.ap_materno,'')||'  '||p.nombre,p.edad,p.sexo
  from paciente p,registro_internacion n
  where ((n.nro=:nro_internado)and(n.nro_historia=p.nro))
  into :nombre_amb,:edad,:sexo;
  END
  tipo_servicio='FARMACIA';
suspend;
end
/*para otros servicios*/
for
select  r.nro_recibo,cast(r.fecha as date),o.nombre, case r.porcentaje_cobro when 100 then  s.costo else (r.porcentaje_cobro*s.costo)/100 end,r.costo_total,r.literal,r.nro_ambulatorio,r.usuario,r.tipo_paciente,r.nro_asegurado,r.nro_intern  acion,r.factura,cast(r.fecha as time),r.monto_cobrar,r.porcentaje_cobro,s.nro,r.nro_factura
from recibo r,registro_otros_servicios s,otros_servicios o
where  ((s.nro_recibo=r.nro_recibo)and(s.nro_servicio=o.numero)and(cast(r.fecha as date) between :f1 and :f2)and((r.cancelado=:valor)or(r.cancelado='M')))
into :nro_recibo,:fecha,:servicio,:costo,:costo_total,:literal,:nro_ambulatorio,:usuario,:tipo_pac,:nro_a  segurado,:nro_internado,:factura,:hora,:monto_cobrar,orcentaje,:nro_registro,:nro_factura
DO
begin
   if (factura='F') then
   factura='RECIBO';
   ELSE
   FACTURA='FACTURA';
if (tipo_pac='AMBULATORIO') then
BEGIN
  select X.ap_paterno||'  '||coalesce(X.ap_materno,'')||'  '||X.nombreS,X.edad,X.sexo
  from paciente_externo  X
  where (x.nro=:nro_ambulatorio)
  into :nombre_amb,:edad,:sexo;

  end
  if (tipo_pac='ASEGURADO') then
  BEGIN
 select R.ap_paterno||'  '||coalesce(R.ap_materno,'')||'  '||r.nombres,R.edad,R.sexo
  from paciente_asegurado  R,instituciones i
  where ((r.nro_registro=:nro_asegurado)and(R.habilitado='T')and(r.institucion=i.nro))
  into :nombre_amb,:edad,:sexo;
 
  END
  if (TIPO_PAC='INTERNADO') then
  BEGIN
 select  p.ap_paterno||'  '||coalesce(p.ap_materno,'')||'  '||p.nombre,p.edad,p.sexo
  from paciente p,registro_internacion n
  where ((n.nro=:nro_internado)and(n.nro_historia=p.nro))
  into :nombre_amb,:edad,:sexo;
  END
  tipo_servicio='OTROS SERVICIOS';
suspend;
end

end
^

SET TERM ; ^

este procedimiento hace un listado con todos los ingresos que se tiene en la seccion caja por diferentes servicios
luego tengo otro procedimiento que genera los totales por cada servicio en funcion a las fechas y que llama al procedimiento anterior, el SP es el siguiente:

Código SQL [-]begin
for
/*select distinct m.tipo_servicio
from listado_registro_servicios_amb (:f1,:f2,'T') m
into :tipo_servicio*/
  select distinct (l.tipo)
   from listado_servicios l
   where tipo<>'INTERNACION'
   into :tipo_servicio
do
begin
  for
  select distinct m.usuario
  from  listado_registro_servicios_amb (:f1, :f2, 'T') m
  where  (m.tipo_servicio=:tipo_servicio)
  into :usuario
  do
  begin
 select sum(m.costo)  /*  select  coalesce(sum(case when m.costo is null then 0 else m.costo end),0)  as monto_factura*/
from listado_registro_servicios_amb (:f1,:f2,'T') m
where ((M.usuario=:USUARIO)AND(m.factura='FACTURA')and(m.tipo_servicio=:tipo_servicio))
into :monto_factura;
select  coalesce(sum(case when m.costo is null then 0 else m.costo end),0) as monto_recibo
from listado_registro_servicios_amb (:f1,:f2,'T') m
where ((M.usuario=:USUARIO)AND(m.factura='RECIBO')and(m.tipo_servicio=:tipo_servicio))
into :monto_recibo;

select m.tipo_servicio,sum(m.costo)
from listado_registro_servicios_amb (:f1,:f2,'T') m
where ((m.tipo_servicio=:tipo_servicio)AND(M.usuario=:USUARIO))
group by m.tipo_servicio
into :tipo_servicio,:total;

  suspend;
  end
  end
end

pero cuando ejecuto el segundo procedimiento con rango de fechas de 5 dias me tarda como 2,5 minutos.
He visto en el foro el tratamiento de indices, comentarles que las llaves primarias de las tablas tienen ya creado sus indices y aun eso tarda.
Por lo que e visto en el foro creo q esta parte seria la causante:

Código SQL [-]select  coalesce(sum(case when m.costo is null then 0 else m.costo end),0) as monto_recibo
from listado_registro_servicios_amb (:f1,:f2,'T') m
where ((M.usuario=:USUARIO)AND(m.factura='RECIBO')and(m.tipo_servicio=:tipo_servicio))
into :monto_recibo;

Les pido porfavor sugerencias pues mi cliente me tiene ya loco porq tarda mucho en mostrar los datos el reporte asociado al SP
Trabajo con delphi y firebird 2.1
Agradesco cualquier sugerencia
COnsulta todos los campos a consultas en la sentencia where tienen que tener su indice creado????
Estare agradecido por la colaboracion de los amigos del foro

Choclito · #2 27-07-2010

la tabla recibo tiene 12000 registros aproximadamente y el resto de las tablas una cantidad menor a esa.
y si el rango de fechas es mas grande tarda mucho mas en ejecutar el segundo procedimiento, espero que se haya entendido el problema q tengo y gracias por las sugerencias o la ayuda que me brinden.

guillotmarc · #3 27-07-2010

Hola,

En este segundo procedimiento almacenado no tienes demasiadas consultas. Ejecútalas manualmente, y verás cual de ellas es la que se demora tanto.

Es decir en IBExpert (o el gestor que utilizes) lanza directamente :

select distinct (l.tipo)
from listado_servicios l
where tipo<>'INTERNACION'

Si se ejecuta rápido, te olvidas de ello y pasas a la siguiente consulta :

select distinct m.usuario
from listado_registro_servicios_amb (:f1, :f2, 'T') m
where (m.tipo_servicio=:tipo_servicio)

Hasta dar con la consulta que va lenta.

Supongamos que efectivamente resulta ser :

select coalesce(sum(case when m.costo is null then 0 else m.costo end),0) as monto_recibo
from listado_registro_servicios_amb (:f1,:f2,'T') m
where ((M.usuario=:USUARIO)AND(m.factura='RECIBO')and(m.tipo_servicio=:tipo_servicio))

Entonces tienes que optimizar la consulta, y para hacerlo se utilizan, como bien has dicho, índices.

Pero crear los índices no es simplemente hacer un índice para cada campo implicado. No, puesto que eso no le sirve al sistema para agilizar una consulta como la anterior.

En ese caso necesitas un índice múltiple, es decir un solo índice con los campos : usuario, factura, tipo_servicio

Si la consulta que te demora la ejecución del procedimiento almacenado resulta ser otra, simplemente dinos cual es y te ayudaremos a definir el índice adecuado para optimizarla.

Saludos.

guillotmarc · #4 27-07-2010

Mejor cambia el índice múltiple que te he dicho por un índice sobre : usuario, tipo_servicio, factura (el orden es importante), y ahora ya podrá optimizar las tres consultas que tienes sobre listado_registro_servicios_amb

En cambio el índice que te había propuesto inicialmente : usuario, factura, tipo_servicio no podía ser usado para optimizar la consulta :

select m.tipo_servicio,sum(m.costo)
from listado_registro_servicios_amb (:f1,:f2,'T') m
where ((m.tipo_servicio=:tipo_servicio)AND(M.usuario=:USUARIO))
group by m.tipo_servicio

Saludos.

Kipow · #5 28-07-2010

Utiliza el IB PlanAlizer ese utilizo yo para mejorar mis consultas.

[fjcg02] · #6 28-07-2010

Hola,
he estado mirando por encima la consulta, y hay algo que me 'cruje'.

Código SQL [-]from  
    (recibo r inner join registro_consulta_med c on r.nro_recibo=c.nro_recibo),
    c_externa c1,  // ** AQUI ME CRUJE **//
    especialidad e, // ** AQUI ME CRUJE **//
    doctor d // ** AQUI ME CRUJE **//
where 
    (
      (c.nro_consulta=c1.nro)and(c1.id_doctor=d.ci)and(d.esp=e.nro)and(cast(r.fecha as date) between :f1 and :f2)
      and
      ((r.cancelado=:valor)or(r.cancelado='M'))

Estás utilizando tablas en la consulta que no están incluidas en ningún inner join, por lo que te debe ( en teoría según lo que tengo entendido ) devolverte más filas de las que necesitas. Ahora no me sale el nombre de esa forma de hacer una select
SELECT * form TABLA1, TABLA2 -> devuelve el nº de registros de TABLA1 multiplicado por el nº de registros de TABLA2, que obviamente PUEDE que no sea el resultado que necesites.
Lo normal es hacer
SELECT * FROM TABLA1 T1
INNER JOIN TABLA2 T2 ON ( T1.ID=T2.ID)
WHERE condiciones
que devolverá los registros que existan en las dos tablas y cumplan las condiciones

Espero haberte ayudado.

Saludos

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Firebird, tarda mucho en conectar a base de datos en red	sonjeux	Conexión con bases de datos	1	09-04-2009 08:29:40
rewrite tarda si no hay red	jonmendi	OOP	0	25-09-2008 10:03:23
Ayuda Urgente, Por favor. Tarda mucho en traer los datos.	Paradiso	Firebird e Interbase	25	31-05-2007 04:02:37
Form que se tarda mucho en abrir	IVAND	Varios	3	29-05-2007 02:14:07
Por que tarda mucho en abrir un EXE	IcebergDelphi	Varios	5	16-06-2004 11:05:28