While not enter the cycle...

Question

because the procedure did not execute the process ...
While not enter the cycle ...
create or replace
Procedure metodo_inventario( tipo_inventario varchar2 )
is
cursor compras is select id_tp_movimiento
from c_factura_aux
where estado = 1
and fecha_Factura = (select min(fecha_factura)
from c_factura_aux
where estado = 1);
pl_aux           number;
pl_fecha_factura      date;
pl_numero_factura     number;
pl_id_tp_movimiento      number;     
pl_id_tp_movimientos NUMBER;
pl_id_producto     number;
pl_cantidad          number;
pl_vlr_unitario     number;
pl_vlr_vairable      number;
pl_vlr_peps           number;
pl_vlr_upes           number;
pl_sum_aux          number;
pl_cant_aux          number;
pl_vlr_promedio number;
pl_vlr_variable number;
cont number;
Begin      
     pl_vlr_promedio :=0;
     pl_vlr_peps      :=0;     
     pl_vlr_upes      :=0;
     pl_sum_aux     :=0;
     pl_cant_aux     :=0;
cont :=0;
--pl_id_tp_movimientos  := 0;
--pl_id_tp_movimiento   := 0;
DBMS_OUTPUT.PUT_LINE('<<---- Se acabo de declarar las variables -->>> ');
DBMS_OUTPUT.PUT_LINE('----- ');
     --if (tipo_inventario = '%PEPS%') then
open compras;
DBMS_OUTPUT.PUT_LINE('Se abrio el cursor -->>> ');
fetch compras into plid_tp_movimiento;_*
while compras%found loop*
DBMS_OUTPUT.PUT_LINE('Acaba de ingresar al cursor -->>> ');
DBMS_OUTPUT.PUT_LINE('Abre el Ciclo Mientras');
DBMS_OUTPUT.PUT_LINE('pl_id_tp_movimientos es '||pl_id_tp_movimientos );
DBMS_OUTPUT.PUT_LINE('pl_id_tp_movimiento es '||pl_id_tp_movimiento );
select min(FECHA_FACTURA)
,     min(NUMERO_FACTURA)
into pl_fecha_factura, pl_numero_factura
from      c_factura_aux
where     estado = 1;
select id_tp_movimiento
into pl_id_tp_movimiento
from c_factura_aux
where numero_factura = pl_numero_factura;
--if (pl_id_tp_movimiento = '%COMPRA%') then
          if (pl_id_tp_movimiento = 4) then
select FECHA_FACTURA
,     NUMERO_FACTURA
,     ID_TP_MOVIMIENTO
,     ID_PRODUCTO
,     CANTIDAD           -- cantidad
,     VLR_UNITARIO               -- vlr unitario
,     (CANTIDAD * VLR_UNITARIO)     -- vlr total
INTO     pl_fecha_factura      
,     pl_numero_factura     
,     pl_id_tp_movimiento      
,     pl_id_producto     
,     pl_cantidad          
,     pl_vlr_unitario     
,     pl_vlr_variable
from      c_factura_aux
where     NUMERO_FACTURA = pl_numero_factura
and      Estado = 1;
select cantidad, vlr_unitario
into      pl_cantidad, pl_vlr_unitario
from c_factura_aux
where estado = 1
and numero_factura = pl_numero_factura;
update c_factura_aux set estado = 0
where numero_factura = pl_numero_factura;
pl_cant_aux := pl_cantidad+pl_cant_aux;
pl_vlr_variable := pl_vlr_peps+pl_vlr_variable;
DBMS_OUTPUT.PUT_LINE('apenas se va insertar la informacion -->>> ');
insert into c_inventario_final(FECHA_FACTURA, ID_TIPO_MOVIMIENTO,
VLR_UNITARIO, E_CANTIDAD_PRODUCTO, E_VLR_FACTURA, S_CANTIDAD_PRODUCTO,
S_VLR_FACTURA, IF_CANTIDAD, IF_VLR, ESTADO_FACTURA) values (pl_fecha_factura,
pl_numero_factura, pl_id_tp_movimiento, pl_id_producto, pl_cantidad,
pl_vlr_unitario, pl_vlr_variable, pl_cant_aux, pl_vlr_variable, 1);
cont := cont+1;
DBMS_OUTPUT.PUT_LINE('numero de vuelta va en --> ' ||cont);
end if;
end loop;
close compras;
--end if;
--end if;
exception
when others then
dbms_output.put_line(sqlerrm);
DBMS_OUTPUT.PUT_LINE('hay error, Corregir...');
--> PROCEDIMIENTO DE GENERACION MEOTDOS DE INVENTARIO...
end;
I appreciate your attention and cooperation extended ...
Martinez Salazar Reynel ...
good day ...

Answer 1

It looks like you are asking why your procedure never entered WHILE loop. If so, the answer woud be as follows:
select id_tp_movimiento
from c_factura_aux
where estado = 1
and fecha_Factura = (select min(fecha_factura)
from c_factura_aux
where estado = 1);does not return any rows. Try executing the above SQL and make sure table c_factura_aux has rows with estado = 1 and at least one of these rows has NOT NULL fecha_factura.
SY.