create or replace procedure ejemplo (p_producto_id in number) is --agregar sus propios parametros
producto sys_refcursor; --declaracion de la variable para el cursor
--variables para el cursor de salida
producto_id number:=p_producto_id;
nombre varchar2(200);
precio number;
marca_nombre varchar2(200);
linea_nombre varchar2(200);
ubicacion_nombre varchar2(200);
almacen_nombre varchar2(200);
marca_id number;
linea_id number;
ubicacion_id number;
almacen_id number;
inicio number;
compra number;
venta number;
merma number;
existencia number;
p_valido number;
p_error varchar2(200);
begin
--llamada al procedimiento del equipo 1, se debe pasar variables para los campos de tipo out
a181eq1.productos_abcc (4, p_valido, p_error, producto_id, nombre, precio, marca_id, linea_id, ubicacion_id,
almacen_id, producto);
loop
fetch producto into producto_id, nombre, precio, marca_nombre, linea_nombre, ubicacion_nombre,
almacen_nombre, marca_id, linea_id, ubicacion_id, almacen_id, inicio, compra, venta, merma, existencia;
exit when producto%notfound; --se sale cuando no recupera nada
--codigo propio
end loop;
end;
No hay comentarios:
Publicar un comentario