fw: prc

[da...@fbssistemas.com.br]

---

De: "da...@fbssistemas.com.br" <da...@fbssistemas.com.br>
Enviar: domingo, 14 de outubro de 2012 12:36
Para: treiname...@googlegroups.com
Assunto: fw: prc

---

De: "Ricardo Francisco" <rickfr...@gmail.com>
Enviar: domingo, 14 de outubro de 2012 12:35
Para: "David - FBS Sistemas Informática" <da...@fbssistemas.com.br>
Assunto: prc

DECLARE

  V_SEQ_ITEM NUMBER;

BEGIN

  FOR C IN

  (SELECT c001 PRODUTO,

    c002 QUANTIDADE,

    c003 VLR_UNITARIO,

    c004 OBS

  FROM apex_collections

  WHERE collection_name = 'COL_ENTRADA'

  )

  LOOP

    SELECT NVL(MAX(ID),0) + 1

    INTO V_SEQ_ITEM

    FROM ITEM_ENTRADA

    WHERE ID_ENTRADA = :P17_ID;

    INSERT

    INTO ITEM_ENTRADA

      (

        ID,

        QUANTIDADE,

        VLR_UNITARIO,

        OBSERVACAO,

        ID_PRODUTO,

        ID_ENTRADA

      )

      VALUES

      (

        V_SEQ_ITEM,

        C.QUANTIDADE,

        C.VLR_UNITARIO,

        C.OBS,

        C.PRODUTO,

        :P17_ID

      );

  END LOOP;

  APEX_COLLECTION.DELETE_COLLECTION ( p_collection_name => 'COL_ENTRADA');

END;

--
Ricardo Luiz Francisco

"É muito melhor arriscar coisas grandiosas, alcançar triunfos e glórias, mesmo expondo-se a derrota, do que formar fila com os pobres de espírito que nem gozam muito nem sofrem muito, porque vivem nessa penumbra cinzenta que não conhece vitória nem derrota." Theodore Roosevelt