Help Executing this SP

Question

Hi, i have this query below:
CREATE TABLE ORDEN_COMPRA_TMP
    "ID_OC"  NUMBER PRIMARY KEY,
    "COD_OC" VARCHAR2(16 BYTE) NOT NULL ENABLE,
    "FCH_FECHA" DATE NOT NULL ENABLE,
    "FLG_TIPO"      CHAR(1 BYTE) NOT NULL ENABLE
  CREATE SEQUENCE SEQ_GEN_ORDEN_COMPRA
  MINVALUE 1 MAXVALUE 2147483647 INCREMENT BY 1 START WITH 1 ;
  create or replace  TRIGGER TRG_SEQ_GEN_ORDEN_COMPRA
  BEFORE INSERT ON ORDEN_COMPRA_TMP
  FOR EACH ROW
   WHEN (new.ID_OC IS NULL) BEGIN
    SELECT SEQ_GEN_ORDEN_COMPRA.NEXTVAL
    INTO   :new.ID_OC FROM   dual;
  end;
  CREATE TABLE ITEM_OC_TMP
    "ID_ITEM_OC"      NUMBER PRIMARY KEY,
    "ID_OC"           NUMBER NOT NULL ENABLE,
    "NUM_LINEA"       NUMBER(*,0) NOT NULL ENABLE,
    "ID_PRODUCTO"     NUMBER NOT NULL ENABLE
  ALTER TABLE ITEM_OC_TMP
  drop CONSTRAINT ID_OC_FK
  FOREIGN KEY(ID_OC) REFERENCES ORDEN_COMPRA_TMP (ID_OC);
  create SEQUENCE SEQ_GEN_ITEM_OC
  MINVALUE 1 MAXVALUE 2147483647 INCREMENT BY 1 START WITH 1 ;
  create or replace  TRIGGER TRG_SEQ_GEN_ITEM_OC
  BEFORE INSERT ON ITEM_OC_TMP
  FOR EACH ROW
   WHEN (new.ID_ITEM_OC IS NULL) BEGIN
    SELECT SEQ_GEN_ITEM_OC.NEXTVAL
    INTO   :new.ID_ITEM_OC FROM   dual;
  end;
CREATE TABLE TB_PRODUCTO_TMP
    "ID_PRODUCTO"  Number Primary Key,
    "CODE" VARCHAR2(16 BYTE) NOT NULL ENABLE
Insert Into Tb_Producto_Tmp Values (10,'100');
Insert Into Tb_Producto_Tmp Values (20,'200');
Insert Into Tb_Producto_Tmp Values (30,'300');
COMMIT;
Create Or Replace
PACKAGE PKG_INV_ORDERS_TMP
AS
  Cursor C_Item_Oc Is
  --ItemOrdenCompra (CURSOR DEL DETALLE [ITEMs] DE UNA ORDEN DE COMPRA
  SELECT "ID_ITEM_OC",
    "ID_OC",
    "NUM_LINEA",
    "ID_PRODUCTO" From ITEM_OC_TMP;
  Type T_Oc_Detalle Is Table Of C_Item_Oc%Rowtype;
Procedure Usp_Inv_Orden_Compra_Service
  Strcod_Oc     In varchar2,
  Strfch_Fecha     In Varchar2,
  Strflg_Tipo     In Varchar2,
  P_Detalle T_Oc_Detalle,
  strMsgOut OUT Varchar2);
End PKG_INV_ORDERS_TMP;
PACKAGE Pkg_Inv_Orders_Tmp compiled
Create Or Replace Package Body Pkg_Inv_Orders_Tmp
AS
Procedure Usp_Inv_Orden_Compra_Service
  Strcod_Oc     In varchar2,
  Strfch_Fecha     In Varchar2,
  Strflg_Tipo     In Varchar2,
  P_Detalle T_Oc_Detalle,
  strMsgOut OUT Varchar2)
As
   Cont Number:=0;
   Intid_Oc Number:=0;
   Intid_Producto NUMBER:=0;
    Begin
      Select  Count(*) Into Cont From Orden_Compra_Tmp Where Cast(Strcod_Oc As Char(11))=Cod_Oc;
   If Cont=0 Then
    Insert Into Orden_Compra_Tmp
        (Cod_Oc,
        Fch_Fecha,
        Flg_Tipo)
      Values
      (Strcod_Oc,
      Strfch_Fecha,
      Strflg_Tipo);
   Else
       Update Orden_Compra_Tmp
        Set Fch_Fecha=Strfch_Fecha,
        Flg_Tipo=Strflg_Tipo
          Where Id_Oc=Strcod_Oc;
  End If;
      Select Id_Oc Into Intid_Oc From  Orden_Compra_Tmp Where Strcod_Oc=Cod_Oc;
  For I In P_Detalle.First .. P_Detalle.Last Loop
  SELECT COUNT(*) INTO Intid_Producto FROM TB_PRODUCTO_TMP WHERE CODE = P_Detalle(I).Id_Producto;
  If Intid_Producto = 0 Then
    Strmsgout:=Strmsgout || 'Producto '|| to_char(P_Detalle(I).Id_Producto) || ' Invalid';
  Else
     Select Distinct (Id_Producto) Into Intid_Producto From TB_PRODUCTO_TMP Where CODE = P_Detalle(I).Id_Producto;
  End If;
    Insert Into Item_Oc_Tmp (Id_Oc,Num_Linea,Id_Producto)
                     Values (Intid_Oc,P_Detalle(I).Num_Linea,Intid_Producto);
   Intid_Producto:=0;
  end loop;
Commit;
   End Usp_Inv_Orden_Compra_Service;
END Pkg_Inv_Orders_Tmp;
PACKAGE BODY Pkg_Inv_Orders_Tmp compiledin the for i need check if P_Detalle(I).Id_Producto exists in the table tb_producto_tmp if exists its ok, else send a msg output. i don't know if my code its OK, so anyone can improve on its OK, please not use merge for the "upsert", that is not standard code in the company at i work.
I need help test this code executing, but i don't know how i can start, i need execute from vb.net too..
Thanks!

Answer 1

DUPLICATE THREAD!
https://forums.oracle.com/forums/message.jspa?messageID=10594928#10594928
You already posted this question in the thread above so please mark this new thread ANSWERED and continue to use your previous thread.
You also did not mention this thread which deals with exactly the same code.
Re: List of Records as Input - Stored Procedure