Preço Dinâmico

Comentários

2 comentários

  • Avatar
    Felipe J. R. Ferreira

    Bom dia!

    Como não encontrei material sobre preço dinâmico, segue um exemplo que pode ajudar:

    CREATE OR REPLACE PROCEDURE STP_CALCULA_PRECO_DINAMICO(p_IdSessao VARCHAR2, p_Result OUT VARCHAR2)
    AS
    PRECO FLOAT;
    PRECOBASE FLOAT;

    BEGIN

    -- PRECO
    SELECT
    VLRVENDA INTO PRECO
    FROM TGFEXC WHERE NUTAB = 15 AND CODPROD = 1;

    -- PRECO BASE
    SELECT
    VLRVENDA INTO PRECOBASE
    FROM TGFEXC WHERE NUTAB = 18 AND CODPROD = 1;


    /*
    SELECT
    NVL(ACT_DEC_FIELD(p_IdSessao, 0, 'VLRUNIT'),0)
    , NVL(ACT_DEC_FIELD(p_IdSessao, 0, 'VLRICMS'),0)
    , NVL(ACT_DEC_FIELD(p_IdSessao, 0, 'VLRSUBST'),0)
    , NVL(ACT_DEC_FIELD(p_IdSessao, 0, 'VLRIPI'),0)
    , NVL(ACT_DEC_FIELD(p_IdSessao, 0, 'NUNOTA'),0)
    , NVL(ACT_DEC_FIELD(p_IdSessao, 0, 'IDALIQ'),0)
    , NVL(ACT_DEC_FIELD(p_IdSessao, 0, 'CODPROD'),0)
    , NVL(ACT_DEC_FIELD(p_IdSessao, 0, 'CODPARC'),0)
    , NVL(ACT_DEC_FIELD(p_IdSessao, 0, 'ICMSPRO_VLRDIFALDEST'),0)
    , NVL(ACT_DEC_FIELD(p_IdSessao, 0, 'ICMSPRO_VLRDIFALREM'),0)
    , NVL(ACT_DEC_FIELD(p_IdSessao, 0, 'ICMSPRO_VLRFCP'),0)
    , NVL(ACT_DEC_FIELD(p_IdSessao, 0, 'IPIPRO_PERCIPI'),0)
    , NVL(ACT_DEC_FIELD(p_IdSessao, 0, 'QTD'),0)
    INTO
    --VLRUNIT, VLRICMS, VLRSUBST, VLRIPI, NUNOTA, IDALIQ, CODPROD, CODPROD, CODPARC,
    --VLRUNIT, ICMSPRO_VLRDIFALDEST, ICMSPRO_VLRDIFALREM, ICMSPRO_VLRFCP, IPIPRO_PERCIPI, QTDNEG
    -- VLRUNIT, QTDNEG

    FROM DUAL;
    */

    p_Result :=

    '{' ||
    'PRECO : "' || PRECO || '",' ||
    'PRECOBASE : "' || PRECOBASE || '"' ||
    '}';

    RETURN;
    END;

     

    5
    Ações de comentário Permalink
  • Avatar
    MARTTINI.SOUZA

    Felipe, obrigado pelo exemplo! Foi muito útil para complementar o conteúdo deste artigo.
    #Grato

    0
    Ações de comentário Permalink

Por favor, entre para comentar.