API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 11th, 2018
63
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PL/SQL 36.04 KB | None | 0 0
raw download clone embed print report
  1. SELECT NRO_EMPRESA            AS NRO_EMPRESA ,
  2.   UPPER(RM_CHAPA_FUNCIONARIO) AS RM_CHAPA_FUNCIONARIO ,
  3.   NRO_USUARIO                 AS NRO_USUARIO ,
  4.   (SELECT UPPER(P.DESC_PERFIL_USUARIO)
  5.   FROM MV_PERFIL_USUARIO P
  6.   WHERE P.NRO_PERFIL_USUARIO = B.NRO_PERFIL_USUARIO
  7.   )
  8.   || ' - '
  9.   || UPPER(NOME_USUARIO)           AS NOME_USUARIO ,
  10.   UPPER(COD_NRO_LOJA)              AS COD_NRO_LOJA ,
  11.   UPPER(DESC_LOJA)                 AS DESC_LOJA ,
  12.   NRO_LOJA_PEDIDO                  AS NRO_LOJA_PEDIDO ,
  13.   NRO_PERFIL_USUARIO               AS NRO_PERFIL_USUARIO ,
  14.   NRO_DEPTO_TIPO_SERVICO           AS NRO_DEPTO_TIPO_SERVICO ,
  15.   UPPER(DESC_DEPTO_TIPO_SERVICO)   AS DESC_DEPTO_TIPO_SERVICO ,
  16.   UPPER(TIPO_COMISSAO)             AS TIPO_COMISSAO ,
  17.   SUM(QTDE_PEDIDA_PRODUTO_SERVICO) AS QTDE_PEDIDA_PRODUTO_SERVICO ,
  18.   SUM(VR_UNITARIO_PRODUTO_SERVICO) AS VR_UNITARIO_PRODUTO_SERVICO ,
  19.   SUM(VR_TOTAL_VENDA)              AS VR_TOTAL_VENDA ,
  20.   SUM(VR_CANCELADO)                AS VR_CANCELADO ,
  21.   SUM(VR_VENDIDO)                  AS VR_VENDIDO ,
  22.   SUM(VR_COMISSAO_PRODUTO_SERVICO) AS VR_COMISSAO_PRODUTO_SERVICO
  23.   /*    , SUM(VR_DSR_PRODUTO_SERVICO) AS VR_DSR_PRODUTO_SERVICO */
  24.   ,
  25.   SUM(VR_TROCA) AS VR_TROCA
  26.   /*  , DECODE(SUM(VR_TOTAL_VENDA),0,0,ROUND(((SUM(VR_COMISSAO_PRODUTO_SERVICO) / (SUM(VR_TOTAL_VENDA))) * 100),2)) AS PERCENTUAL */
  27.   ,
  28.   DECODE(SUM(VR_TOTAL_VENDA), 0,0, DECODE(SUM(PERC_COMISSAO_PRODUTO_SERVICO), 0, 0, ROUND(((SUM(VR_COMISSAO_PRODUTO_SERVICO) / (SUM(VR_TOTAL_VENDA))) * 100),2))) AS PERCENTUAL ,
  29.   NULL                                                                                                                                                            AS VR_DSR_PRODUTO_SERVICO
  30. FROM
  31.   (SELECT A.NRO_EMPRESA AS NRO_EMPRESA
  32.     /*   , CC.DATA_REF_INICIAL AS DATA_REF_INICIAL */
  33.     /*   , CC.DATA_REF_FINAL AS DATA_REF_FINAL */
  34.     ,
  35.     A.RM_CHAPA_FUNCIONARIO AS RM_CHAPA_FUNCIONARIO ,
  36.     A.NRO_USUARIO          AS NRO_USUARIO ,
  37.     UPPER(A.NOME_USUARIO)  AS NOME_USUARIO ,
  38.     UPPER(A.COD_NRO_LOJA)  AS COD_NRO_LOJA ,
  39.     UPPER(A.DESC_LOJA)     AS DESC_LOJA ,
  40.     A.NRO_LOJA_PEDIDO      AS NRO_LOJA_PEDIDO ,
  41.     TO_CHAR(A.NRO_PEDIDO) NRO_PEDIDO ,
  42.     NRO_ITEM_PEDIDO_PRODUTO ,
  43.     NRO_PERFIL_USUARIO ,
  44.     NRO_PRODUTO ,
  45.     COD_PRODUTO_QTDE_MESES_SERVICO ,
  46.     DESC_PRODUTO ,
  47.     COD_SITUACAO_PRODUTO ,
  48.     NRO_PROMOCAO ,
  49.     NRO_DEPTO_TIPO_SERVICO ,
  50.     DESC_DEPTO_TIPO_SERVICO ,
  51.     QTDE_PEDIDA_PRODUTO_SERVICO ,
  52.     VR_UNITARIO_PRODUTO_SERVICO ,
  53.     (DECODE(A.FLAG_TIPO_VENDA,'V',((A.QTDE_PEDIDA_PRODUTO_SERVICO * A.VR_UNITARIO_PRODUTO_SERVICO) - A.VR_TROCA),0) - DECODE(A.FLAG_TIPO_VENDA,'C',((A.QTDE_PEDIDA_PRODUTO_SERVICO * A.VR_UNITARIO_PRODUTO_SERVICO) - A.VR_TROCA),0)) VR_TOTAL_VENDA ,
  54.     DECODE(A.FLAG_TIPO_VENDA,'C',(A.QTDE_PEDIDA_PRODUTO_SERVICO   * A.VR_UNITARIO_PRODUTO_SERVICO),0) AS VR_CANCELADO ,
  55.     DECODE(A.FLAG_TIPO_VENDA,'V',(A.QTDE_PEDIDA_PRODUTO_SERVICO   * A.VR_UNITARIO_PRODUTO_SERVICO),0) AS VR_VENDIDO ,
  56.     PERC_COMISSAO_PRODUTO_SERVICO ,
  57.     DECODE(A.FLAG_TIPO_VENDA,'C',DECODE(SIGN(VR_COMISSAO_PRODUTO_SERVICO),-1,VR_COMISSAO_PRODUTO_SERVICO, VR_COMISSAO_PRODUTO_SERVICO * (-1)),VR_COMISSAO_PRODUTO_SERVICO) VR_COMISSAO_PRODUTO_SERVICO ,
  58.     FLAG_TIPO_VENDA ,
  59.     VR_TROCA ,
  60.     TIPO_COMISSAO
  61.   FROM
  62.     (
  63.     /* PRODUTOS */
  64.     SELECT 'V' FLAG_TIPO_VENDA ,
  65.       P.NRO_LOJA AS NRO_LOJA_PEDIDO ,
  66.       P.NRO_PEDIDO ,
  67.       I.NRO_ITEM_PEDIDO_PRODUTO ,
  68.       I.NRO_USUARIO ,
  69.       DECODE(I.NRO_PERFIL_USUARIO_VENDA, NULL, U.nro_perfil_usuario, I.NRO_PERFIL_USUARIO_VENDA) NRO_PERFIL_USUARIO ,
  70.       U.RM_CHAPA_FUNCIONARIO AS RM_CHAPA_FUNCIONARIO ,
  71.       U.NOME_USUARIO         AS NOME_USUARIO ,
  72.       I.NRO_PRODUTO ,
  73.       I.NRO_DEPTO AS NRO_DEPTO_TIPO_SERVICO ,
  74.       I.NRO_PROMOCAO ,
  75.       P.DT_FATURAMENTO_PEDIDO AS DT_FATURAMENTO_PEDIDO ,
  76.       I.QTDE_PEDIDA_PRODUTO   AS QTDE_PEDIDA_PRODUTO_SERVICO ,
  77.       I.VR_UNITARIO_PRODUTO   AS VR_UNITARIO_PRODUTO_SERVICO ,
  78.       NVL(DECODE(NVL((((NVL(I.PRECO_LISTA_EQUALIZADO,0) * ABS(I.QTDE_PEDIDA_PRODUTO)) - NVL(ABS((I.VR_UNITARIO_PRODUTO*I.QTDE_PEDIDA_PRODUTO)),0))/DECODE(I.PRECO_LISTA_EQUALIZADO * ABS(I.QTDE_PEDIDA_PRODUTO),0,1,I.PRECO_LISTA_EQUALIZADO * ABS(I.QTDE_PEDIDA_PRODUTO)))*100,0) /*PERC_PRECO_LISTA_EQUALIZADO,*/
  79.       ,0,NVL((((NVL(I.PRECO_LISTA,0)                    * ABS(I.QTDE_PEDIDA_PRODUTO)) - NVL(ABS((I.VR_UNITARIO_PRODUTO*I.QTDE_PEDIDA_PRODUTO)),0))/DECODE(I.PRECO_LISTA * ABS(I.QTDE_PEDIDA_PRODUTO),0,1,I.PRECO_LISTA * ABS(I.QTDE_PEDIDA_PRODUTO)))*100,0)                       /*PERC_PRECO_LISTA,*/
  80.       ,NVL((((NVL(I.PRECO_LISTA_EQUALIZADO,0)           * ABS(I.QTDE_PEDIDA_PRODUTO)) - NVL(ABS((I.VR_UNITARIO_PRODUTO*I.QTDE_PEDIDA_PRODUTO)),0))/DECODE(I.PRECO_LISTA_EQUALIZADO * ABS(I.QTDE_PEDIDA_PRODUTO),0,1,I.PRECO_LISTA_EQUALIZADO * ABS(I.QTDE_PEDIDA_PRODUTO)))*100,0) /*PERC_PRECO_LISTA_EQUALIZADO*/
  81.       ),0) PERC_DESCONTO ,
  82.       NVL(I.PRECO_LISTA,0) PRECO_LISTA
  83.       /* , NVL(I.PRECO_LISTA_EQUALIZADO,0) PRECO_LISTA_EQUALIZADO */
  84.       /*   , I.PERC_COMISSAO_VENDEDOR PERC_COMISSAO_PRODUTO */
  85.       /*   , I.COMISSAO_PRODUTO */
  86.       ,
  87.       I.COD_SITUACAO_PRODUTO ,
  88.       L.NRO_EMPRESA ,
  89.       UPPER(L.COD_NRO_LOJA) AS COD_NRO_LOJA ,
  90.       UPPER(L.DESC_LOJA)    AS DESC_LOJA ,
  91.       NVL(I.VR_TROCA_PRODUTO,0) VR_TROCA ,
  92.       (SELECT (NVL(VR_TOTAL_PRODUTOS,0) + NVL(VR_TOTAL_SERVICOS,0) - NVL(VR_TOTAL_DESCONTOS,0)) VR_TOTAL_PEDIDO
  93.       FROM MV_PEDIDO T
  94.       WHERE T.NRO_LOJA = P.NRO_LOJA
  95.       AND T.NRO_PEDIDO = P.NRO_PEDIDO
  96.       ) VR_TOTAL_PEDIDO ,
  97.       CASE I.COD_SITUACAO_PRODUTO
  98.         WHEN 'FL'
  99.         THEN
  100.           (SELECT NRO_TIPO_COMISSAO
  101.           FROM FP_TIPO_COMISSAO
  102.           WHERE NRO_EMPRESA                = L.NRO_EMPRESA
  103.           AND DESC_TIPO_COMISSAO_ABREVIADO = 'FL'
  104.           AND FLAG_ATIVO                   = 'S'
  105.           )
  106.         ELSE
  107.           CASE NVL(I.NRO_PROMOCAO,0)
  108.             WHEN 0
  109.             THEN
  110.               (SELECT NRO_TIPO_COMISSAO
  111.               FROM FP_TIPO_COMISSAO
  112.               WHERE NRO_EMPRESA                = L.NRO_EMPRESA
  113.               AND DESC_TIPO_COMISSAO_ABREVIADO = 'PL'
  114.               AND FLAG_ATIVO                   = 'S'
  115.               )
  116.             ELSE
  117.               (SELECT NRO_TIPO_COMISSAO
  118.               FROM FP_TIPO_COMISSAO
  119.               WHERE NRO_EMPRESA                = L.NRO_EMPRESA
  120.               AND DESC_TIPO_COMISSAO_ABREVIADO = 'LP'
  121.               AND FLAG_ATIVO                   = 'S'
  122.               )
  123.           END
  124.       END NRO_TIPO_COMISSAO ,
  125.       (SELECT DESC_DEPTO FROM MV_DEPTO D WHERE D.NRO_DEPTO = PROD.NRO_DEPTO
  126.       ) AS DESC_DEPTO_TIPO_SERVICO ,
  127.       UPPER(PROD.COD_NRO_PRODUTO
  128.       || '.'
  129.       || PROD.COD_COR_PRODUTO
  130.       || '.'
  131.       || PROD.COD_TIPO_VOLTAGEM) AS COD_PRODUTO_QTDE_MESES_SERVICO ,
  132.       PROD.DESC_PRODUTO ,
  133.       SUBSTR('PROD',1,4) AS TIPO_COMISSAO ,
  134.       I.PERC_COMISSAO    AS PERC_COMISSAO_PRODUTO_SERVICO ,
  135.       I.VALOR_COMISSAO   AS VR_COMISSAO_PRODUTO_SERVICO
  136.     FROM MV_ITEM_PEDIDO_PRODUTO I ,
  137.       MV_PEDIDO P ,
  138.       MV_USUARIO U ,
  139.       MV_LOJA L ,
  140.       MV_PRODUTO PROD
  141.     WHERE P.DT_FATURAMENTO_PEDIDO >= TO_DATE(:DT_REF_INICIO_PARAM,'DD/MM/YYYY')
  142.     AND P.DT_FATURAMENTO_PEDIDO    < TO_DATE(:DT_REF_FIM_PARAM,'DD/MM/YYYY') + 1
  143.     AND P.STS_PEDIDO                                                        IN (40,50,91)
  144.     AND ( :NRO_LOJA_PARAM             IS NULL
  145.     OR P.NRO_LOJA                  = :NRO_LOJA_PARAM)
  146.     AND L.NRO_EMPRESA              = :NRO_EMPRESA_PARAM
  147.     AND P.NRO_LOJA                 = L.NRO_LOJA
  148.     AND I.NRO_LOJA                 = P.NRO_LOJA
  149.     AND I.NRO_PEDIDO               = P.NRO_PEDIDO
  150.     AND U.NRO_USUARIO              = I.NRO_USUARIO
  151.     AND I.NRO_PRODUTO              = PROD.NRO_PRODUTO
  152.     AND (:NRO_USUARIO_PARAM           IS NULL
  153.     OR U.NRO_USUARIO               = :NRO_USUARIO_PARAM)
  154.     UNION
  155.     /* PRODUTOS CANCELADOS */
  156.     SELECT 'C' FLAG_TIPO_VENDA ,
  157.       P.NRO_LOJA NRO_LOJA_PEDIDO ,
  158.       P.NRO_PEDIDO ,
  159.       I.NRO_ITEM_PEDIDO_PRODUTO ,
  160.       I.NRO_USUARIO ,
  161.       DECODE(I.NRO_PERFIL_USUARIO_VENDA, NULL, U.nro_perfil_usuario, I.NRO_PERFIL_USUARIO_VENDA) NRO_PERFIL_USUARIO ,
  162.       U.RM_CHAPA_FUNCIONARIO AS RM_CHAPA_FUNCIONARIO ,
  163.       U.NOME_USUARIO         AS NOME_USUARIO ,
  164.       I.NRO_PRODUTO ,
  165.       I.NRO_DEPTO AS NRO_DEPTO_TIPO_SERVICO ,
  166.       I.NRO_PROMOCAO ,
  167.       IR.DT_INCLUSAO        AS DT_VENDA ,
  168.       IR.QTDE_DEVOLVIDA     AS QTDE_PEDIDA_PRODUTO_SERVICO ,
  169.       I.VR_UNITARIO_PRODUTO AS VR_UNITARIO_PRODUTO_SERVICO ,
  170.       NVL(DECODE(NVL((((NVL(I.PRECO_LISTA_EQUALIZADO,0) * ABS(-IR.QTDE_DEVOLVIDA)) - NVL(ABS((-I.VR_UNITARIO_PRODUTO*IR.QTDE_DEVOLVIDA)),0))/DECODE(I.PRECO_LISTA_EQUALIZADO * ABS(-IR.QTDE_DEVOLVIDA),0,1,I.PRECO_LISTA_EQUALIZADO * ABS(-IR.QTDE_DEVOLVIDA)))*100,0) /*PERC_PRECO_LISTA_EQUALIZADO*/
  171.       ,0, NVL((((NVL(I.PRECO_LISTA,0)                   * ABS(-IR.QTDE_DEVOLVIDA)) - NVL(ABS((-I.VR_UNITARIO_PRODUTO*IR.QTDE_DEVOLVIDA)),0))/DECODE(I.PRECO_LISTA * ABS(-IR.QTDE_DEVOLVIDA),0,1,I.PRECO_LISTA * ABS(-IR.QTDE_DEVOLVIDA)))*100,0)                       /*PERC_PRECO_LISTA*/
  172.       , NVL((((NVL(I.PRECO_LISTA_EQUALIZADO,0)          * ABS(-IR.QTDE_DEVOLVIDA)) - NVL(ABS((-I.VR_UNITARIO_PRODUTO*IR.QTDE_DEVOLVIDA)),0))/DECODE(I.PRECO_LISTA_EQUALIZADO * ABS(-IR.QTDE_DEVOLVIDA),0,1,I.PRECO_LISTA_EQUALIZADO * ABS(-IR.QTDE_DEVOLVIDA)))*100,0) /*PERC_PRECO_LISTA_EQUALIZADO*/
  173.       ),0) PERC_DESCONTO ,
  174.       NVL(I.PRECO_LISTA,0) PRECO_LISTA
  175.       /*   , NVL(I.PRECO_LISTA_EQUALIZADO,0) PRECO_LISTA_EQUALIZADO */
  176.       /*   , I.PERC_COMISSAO_VENDEDOR PERC_COMISSAO_PRODUTO */
  177.       /*   , I.COMISSAO_PRODUTO*/
  178.       ,
  179.       I.COD_SITUACAO_PRODUTO ,
  180.       L.NRO_EMPRESA ,
  181.       UPPER(L.COD_NRO_LOJA) AS COD_NRO_LOJA ,
  182.       UPPER(L.DESC_LOJA)    AS DESC_LOJA ,
  183.       NVL(I.VR_TROCA_PRODUTO,0) VR_TROCA ,
  184.       (SELECT (NVL(VR_TOTAL_PRODUTOS,0) + NVL(VR_TOTAL_SERVICOS,0) - NVL(VR_TOTAL_DESCONTOS,0)) VR_TOTAL_PEDIDO
  185.       FROM MV_PEDIDO T
  186.       WHERE T.NRO_LOJA = P.NRO_LOJA
  187.       AND T.NRO_PEDIDO = P.NRO_PEDIDO
  188.       ) VR_TOTAL_PEDIDO ,
  189.       CASE I.COD_SITUACAO_PRODUTO
  190.         WHEN 'FL'
  191.         THEN
  192.           (SELECT NRO_TIPO_COMISSAO
  193.           FROM FP_TIPO_COMISSAO
  194.           WHERE NRO_EMPRESA                = L.NRO_EMPRESA
  195.           AND DESC_TIPO_COMISSAO_ABREVIADO = 'FL'
  196.           AND FLAG_ATIVO                   = 'S'
  197.           )
  198.         ELSE
  199.           CASE NVL(I.NRO_PROMOCAO,0)
  200.             WHEN 0
  201.             THEN
  202.               (SELECT NRO_TIPO_COMISSAO
  203.               FROM FP_TIPO_COMISSAO
  204.               WHERE NRO_EMPRESA                = L.NRO_EMPRESA
  205.               AND DESC_TIPO_COMISSAO_ABREVIADO = 'PL'
  206.               AND FLAG_ATIVO                   = 'S'
  207.               )
  208.             ELSE
  209.               (SELECT NRO_TIPO_COMISSAO
  210.               FROM FP_TIPO_COMISSAO
  211.               WHERE NRO_EMPRESA                = L.NRO_EMPRESA
  212.               AND DESC_TIPO_COMISSAO_ABREVIADO = 'LP'
  213.               AND FLAG_ATIVO                   = 'S'
  214.               )
  215.           END
  216.       END NRO_TIPO_COMISSAO ,
  217.       (SELECT DESC_DEPTO FROM MV_DEPTO D WHERE D.NRO_DEPTO = PROD.NRO_DEPTO
  218.       ) AS DESC_DEPTO_TIPO_SERVICO ,
  219.       UPPER(PROD.COD_NRO_PRODUTO
  220.       || '.'
  221.       || PROD.COD_COR_PRODUTO
  222.       || '.'
  223.       || PROD.COD_TIPO_VOLTAGEM) AS COD_PRODUTO_QTDE_MESES_SERVICO ,
  224.       PROD.DESC_PRODUTO
  225.       /*  , PROD.COD_SITUACAO_PRODUTO */
  226.       ,
  227.       SUBSTR('PROD',1,4) AS TIPO_COMISSAO ,
  228.       I.PERC_COMISSAO    AS PERC_COMISSAO_PRODUTO_SERVICO ,
  229.       I.VALOR_COMISSAO   AS VR_COMISSAO_PRODUTO_SERVICO
  230.     FROM MV_ITEM_RECIBO_DEVOLUCAO IR ,
  231.       MV_ITEM_PEDIDO_PRODUTO I ,
  232.       MV_PEDIDO P ,
  233.       MV_USUARIO U ,
  234.       MV_LOJA L ,
  235.       MV_PRODUTO PROD
  236.     WHERE ir.nro_seq_nf IS NULL
  237.     AND IR.DT_INCLUSAO  >= TO_DATE(:DT_REF_INICIO_PARAM,'DD/MM/YYYY')
  238.     AND IR.DT_INCLUSAO   < TO_DATE(:DT_REF_FIM_PARAM,'DD/MM/YYYY') + 1
  239.     AND IR.NRO_PEDIDO_NOVO       IS NULL
  240.     AND IR.IND_UTILIZACAO         = 'S'
  241.     AND ( :NRO_LOJA_PARAM            IS NULL
  242.     OR IR.NRO_LOJA_PEDIDO         = :NRO_LOJA_PARAM )
  243.     AND L.NRO_EMPRESA             = :NRO_EMPRESA_PARAM
  244.     AND IR.NRO_LOJA_PEDIDO        = L.NRO_LOJA
  245.     AND I.NRO_LOJA                = IR.NRO_LOJA_PEDIDO
  246.     AND I.NRO_PEDIDO              = IR.NRO_PEDIDO
  247.     AND I.NRO_ITEM_PEDIDO_PRODUTO = IR.NRO_ITEM_PEDIDO_PRODUTO
  248.     AND P.NRO_LOJA                = I.NRO_LOJA
  249.     AND P.NRO_PEDIDO              = I.NRO_PEDIDO
  250.     AND U.NRO_USUARIO             = I.NRO_USUARIO
  251.     AND I.NRO_PRODUTO             = PROD.NRO_PRODUTO
  252.     AND (:NRO_USUARIO_PARAM          IS NULL
  253.     OR U.NRO_USUARIO              = :NRO_USUARIO_PARAM)
  254.     UNION
  255.     /* PRODUTOS COM NF DE DEVOLUCAO */
  256.     SELECT 'C' FLAG_TIPO_VENDA ,
  257.       P.NRO_LOJA NRO_LOJA_PEDIDO ,
  258.       P.NRO_PEDIDO ,
  259.       I.NRO_ITEM_PEDIDO_PRODUTO ,
  260.       I.NRO_USUARIO ,
  261.       DECODE(I.NRO_PERFIL_USUARIO_VENDA, NULL, U.nro_perfil_usuario, I.NRO_PERFIL_USUARIO_VENDA) NRO_PERFIL_USUARIO ,
  262.       U.RM_CHAPA_FUNCIONARIO AS RM_CHAPA_FUNCIONARIO ,
  263.       U.NOME_USUARIO         AS NOME_USUARIO ,
  264.       I.NRO_PRODUTO ,
  265.       I.NRO_DEPTO AS NRO_DEPTO_TIPO_SERVICO ,
  266.       I.NRO_PROMOCAO ,
  267.       IR.DT_INCLUSAO        AS DT_VENDA ,
  268.       IR.QTDE_DEVOLVIDA     AS QTDE_PEDIDA_PRODUTO_SERVICO ,
  269.       I.VR_UNITARIO_PRODUTO AS VR_UNITARIO_PRODUTO_SERVICO ,
  270.       NVL(DECODE(NVL((((NVL(I.PRECO_LISTA_EQUALIZADO,0) * ABS(-IR.QTDE_DEVOLVIDA)) - NVL(ABS((-I.VR_UNITARIO_PRODUTO*IR.QTDE_DEVOLVIDA)),0))/DECODE(I.PRECO_LISTA_EQUALIZADO * ABS(-IR.QTDE_DEVOLVIDA),0,1,I.PRECO_LISTA_EQUALIZADO * ABS(-IR.QTDE_DEVOLVIDA)))*100,0) /*PERC_PRECO_LISTA_EQUALIZADO*/
  271.       ,0, NVL((((NVL(I.PRECO_LISTA,0)                   * ABS(-IR.QTDE_DEVOLVIDA)) - NVL(ABS((-I.VR_UNITARIO_PRODUTO*IR.QTDE_DEVOLVIDA)),0))/DECODE(I.PRECO_LISTA * ABS(-IR.QTDE_DEVOLVIDA),0,1,I.PRECO_LISTA * ABS(-IR.QTDE_DEVOLVIDA)))*100,0)                       /*PERC_PRECO_LISTA*/
  272.       , NVL((((NVL(I.PRECO_LISTA_EQUALIZADO,0)          * ABS(-IR.QTDE_DEVOLVIDA)) - NVL(ABS((-I.VR_UNITARIO_PRODUTO*IR.QTDE_DEVOLVIDA)),0))/DECODE(I.PRECO_LISTA_EQUALIZADO * ABS(-IR.QTDE_DEVOLVIDA),0,1,I.PRECO_LISTA_EQUALIZADO * ABS(-IR.QTDE_DEVOLVIDA)))*100,0) /*PERC_PRECO_LISTA_EQUALIZADO*/
  273.       ),0) PERC_DESCONTO ,
  274.       NVL(I.PRECO_LISTA,0) PRECO_LISTA
  275.       /*   , NVL(I.PRECO_LISTA_EQUALIZADO,0) PRECO_LISTA_EQUALIZADO */
  276.       /*   , I.PERC_COMISSAO_VENDEDOR PERC_COMISSAO_PRODUTO */
  277.       /*   , I.COMISSAO_PRODUTO */
  278.       ,
  279.       I.COD_SITUACAO_PRODUTO ,
  280.       L.NRO_EMPRESA ,
  281.       UPPER(L.COD_NRO_LOJA) AS COD_NRO_LOJA ,
  282.       UPPER(L.DESC_LOJA)    AS DESC_LOJA ,
  283.       NVL(I.VR_TROCA_PRODUTO,0) VR_TROCA ,
  284.       (SELECT (NVL(VR_TOTAL_PRODUTOS,0) + NVL(VR_TOTAL_SERVICOS,0) - NVL(VR_TOTAL_DESCONTOS,0)) VR_TOTAL_PEDIDO
  285.       FROM MV_PEDIDO T
  286.       WHERE T.NRO_LOJA = P.NRO_LOJA
  287.       AND T.NRO_PEDIDO = P.NRO_PEDIDO
  288.       ) VR_TOTAL_PEDIDO ,
  289.       CASE I.COD_SITUACAO_PRODUTO
  290.         WHEN 'FL'
  291.         THEN
  292.           (SELECT NRO_TIPO_COMISSAO
  293.           FROM FP_TIPO_COMISSAO
  294.           WHERE NRO_EMPRESA                = L.NRO_EMPRESA
  295.           AND DESC_TIPO_COMISSAO_ABREVIADO = 'FL'
  296.           AND FLAG_ATIVO                   = 'S'
  297.           )
  298.         ELSE
  299.           CASE NVL(I.NRO_PROMOCAO,0)
  300.             WHEN 0
  301.             THEN
  302.               (SELECT NRO_TIPO_COMISSAO
  303.               FROM FP_TIPO_COMISSAO
  304.               WHERE NRO_EMPRESA                = L.NRO_EMPRESA
  305.               AND DESC_TIPO_COMISSAO_ABREVIADO = 'PL'
  306.               AND FLAG_ATIVO                   = 'S'
  307.               )
  308.             ELSE
  309.               (SELECT NRO_TIPO_COMISSAO
  310.               FROM FP_TIPO_COMISSAO
  311.               WHERE NRO_EMPRESA                = L.NRO_EMPRESA
  312.               AND DESC_TIPO_COMISSAO_ABREVIADO = 'LP'
  313.               AND FLAG_ATIVO                   = 'S'
  314.               )
  315.           END
  316.       END NRO_TIPO_COMISSAO ,
  317.       (SELECT DESC_DEPTO FROM MV_DEPTO D WHERE D.NRO_DEPTO = PROD.NRO_DEPTO
  318.       ) AS DESC_DEPTO_TIPO_SERVICO ,
  319.       UPPER(PROD.COD_NRO_PRODUTO
  320.       || '.'
  321.       || PROD.COD_COR_PRODUTO
  322.       || '.'
  323.       || PROD.COD_TIPO_VOLTAGEM) AS COD_PRODUTO_QTDE_MESES_SERVICO ,
  324.       PROD.DESC_PRODUTO
  325.       /*  , PROD.COD_SITUACAO_PRODUTO*/
  326.       ,
  327.       SUBSTR('PROD',1,4) AS TIPO_COMISSAO ,
  328.       I.PERC_COMISSAO    AS PERC_COMISSAO_PRODUTO_SERVICO ,
  329.       I.VALOR_COMISSAO   AS VR_COMISSAO_PRODUTO_SERVICO
  330.     FROM mv_nf nf,
  331.       MV_ITEM_RECIBO_DEVOLUCAO IR ,
  332.       MV_ITEM_PEDIDO_PRODUTO I ,
  333.       MV_PEDIDO P ,
  334.       MV_USUARIO U ,
  335.       MV_LOJA L ,
  336.       MV_PRODUTO PROD
  337.     WHERE nf.dt_emissao_nf >= TO_DATE(:DT_REF_INICIO_PARAM,'DD/MM/YYYY')
  338.     AND nf.dt_emissao_nf    < TO_DATE(:DT_REF_FIM_PARAM,'DD/MM/YYYY') + 1
  339.     AND nf.nro_tipo_nf                                               IN (22, 23)
  340.     AND ir.nro_seq_nf       = nf.nro_seq_nf
  341.     AND ir.NRO_LOJA_ITEM_NF = nf.nro_loja
  342.     AND IR.NRO_PEDIDO_NOVO       IS NULL
  343.     AND IR.IND_UTILIZACAO         = 'S'
  344.     AND ( :NRO_LOJA_PARAM            IS NULL
  345.     OR IR.NRO_LOJA_PEDIDO         = :NRO_LOJA_PARAM )
  346.     AND L.NRO_EMPRESA             = :NRO_EMPRESA_PARAM
  347.     AND IR.NRO_LOJA_PEDIDO        = L.NRO_LOJA
  348.     AND I.NRO_LOJA                = IR.NRO_LOJA_PEDIDO
  349.     AND I.NRO_PEDIDO              = IR.NRO_PEDIDO
  350.     AND I.NRO_ITEM_PEDIDO_PRODUTO = IR.NRO_ITEM_PEDIDO_PRODUTO
  351.     AND P.NRO_LOJA                = I.NRO_LOJA
  352.     AND P.NRO_PEDIDO              = I.NRO_PEDIDO
  353.     AND U.NRO_USUARIO             = I.NRO_USUARIO
  354.     AND I.NRO_PRODUTO             = PROD.NRO_PRODUTO
  355.     AND (:NRO_USUARIO_PARAM          IS NULL
  356.     OR U.NRO_USUARIO              = :NRO_USUARIO_PARAM)
  357.     UNION
  358.     /* ITEM SERVICO */
  359.     SELECT 'V' FLAG_TIPO_VENDA ,
  360.       P.NRO_LOJA AS NRO_LOJA_PEDIDO ,
  361.       P.NRO_PEDIDO ,
  362.       I.NRO_ITEM_PEDIDO_PRODUTO ,
  363.       S.NRO_USUARIO ,
  364.       DECODE(S.NRO_PERFIL_USUARIO_VENDA, NULL, U.nro_perfil_usuario, S.NRO_PERFIL_USUARIO_VENDA) NRO_PERFIL_USUARIO ,
  365.       U.RM_CHAPA_FUNCIONARIO AS RM_CHAPA_FUNCIONARIO ,
  366.       U.NOME_USUARIO         AS NOME_USUARIO ,
  367.       NULL                   AS NRO_PRODUTO /*I.NRO_PRODUTO*/
  368.       ,
  369.       TS.NRO_TIPO_SERVICO     AS NRO_DEPTO_TIPO_SERVICO ,
  370.       NULL                    AS NRO_PROMOCAO ,
  371.       P.DT_FATURAMENTO_PEDIDO AS DT_FATURAMENTO_PEDIDO ,
  372.       I.QTDE_PEDIDA_PRODUTO   AS QTDE_PEDIDA_PRODUTO_SERVICO ,
  373.       S.VR_UNITARIO_SERVICO   AS VR_UNITARIO_PRODUTO_SERVICO ,
  374.       NVL((((NVL(S.PRECO_LISTA,0) * ABS(I.QTDE_PEDIDA_PRODUTO)) - NVL(ABS((S.VR_UNITARIO_SERVICO*I.QTDE_PEDIDA_PRODUTO)),0))/DECODE(S.PRECO_LISTA * ABS(I.QTDE_PEDIDA_PRODUTO),0,1,S.PRECO_LISTA * ABS(I.QTDE_PEDIDA_PRODUTO)))*100,0) PERC_DESCONTO ,
  375.       NVL(S.PRECO_LISTA,0) PRECO_LISTA ,
  376.       NULL AS COD_SITUACAO_PRODUTO ,
  377.       L.NRO_EMPRESA ,
  378.       UPPER(L.COD_NRO_LOJA) AS COD_NRO_LOJA ,
  379.       UPPER(L.DESC_LOJA)    AS DESC_LOJA ,
  380.       NVL(S.VR_TROCA_SERVICO,0) VR_TROCA ,
  381.       (SELECT (NVL(VR_TOTAL_PRODUTOS,0) + NVL(VR_TOTAL_SERVICOS,0) - NVL(VR_TOTAL_DESCONTOS,0)) VR_TOTAL_PEDIDO
  382.       FROM MV_PEDIDO T
  383.       WHERE T.NRO_LOJA = P.NRO_LOJA
  384.       AND T.NRO_PEDIDO = P.NRO_PEDIDO
  385.       ) VR_TOTAL_PEDIDO ,
  386.       (SELECT NRO_TIPO_COMISSAO
  387.       FROM FP_TIPO_COMISSAO
  388.       WHERE NRO_EMPRESA                = L.NRO_EMPRESA
  389.       AND DESC_TIPO_COMISSAO_ABREVIADO = 'SRV'
  390.       AND FLAG_ATIVO                   = 'S'
  391.       ) NRO_TIPO_COMISSAO ,
  392.       (SELECT DESC_TIPO_SERVICO
  393.       FROM MV_TIPO_SERVICO T
  394.       WHERE T.NRO_TIPO_SERVICO = TS.NRO_TIPO_SERVICO
  395.       )                          AS DESC_DEPTO_TIPO_SERVICO ,
  396.       TO_CHAR(TS.GARANTIA_MESES) AS COD_PRODUTO_QTDE_MESES_SERVICO ,
  397.       NULL                       AS DESC_PRODUTO ,
  398.       SUBSTR('SERV',1,4)         AS TIPO_COMISSAO ,
  399.       S.PERC_COMISSAO            AS PERC_COMISSAO_PRODUTO_SERVICO ,
  400.       S.VALOR_COMISSAO           AS VR_COMISSAO_PRODUTO_SERVICO
  401.     FROM MV_ITEM_PEDIDO_PRODUTO I ,
  402.       MV_ITEM_PEDIDO_SERVICO S ,
  403.       MV_SERVICO TS ,
  404.       MV_PEDIDO P ,
  405.       MV_USUARIO U ,
  406.       MV_LOJA L
  407.     WHERE P.DT_FATURAMENTO_PEDIDO >= TO_DATE(:DT_REF_INICIO_PARAM,'DD/MM/YYYY')
  408.     AND P.DT_FATURAMENTO_PEDIDO    < TO_DATE(:DT_REF_FIM_PARAM,'DD/MM/YYYY') + 1
  409.     AND P.STS_PEDIDO                                                        IN (40,50,91)
  410.     AND ( :NRO_LOJA_PARAM             IS NULL
  411.     OR P.NRO_LOJA                  = :NRO_LOJA_PARAM)
  412.     AND L.NRO_EMPRESA              = :NRO_EMPRESA_PARAM
  413.     AND P.NRO_LOJA                 = L.NRO_LOJA
  414.     AND I.NRO_LOJA                 = P.NRO_LOJA
  415.     AND I.NRO_PEDIDO               = P.NRO_PEDIDO
  416.     AND I.NRO_PEDIDO               = S.NRO_PEDIDO
  417.     AND I.NRO_LOJA                 = S.NRO_LOJA
  418.     AND I.NRO_ITEM_PEDIDO_PRODUTO  = S.NRO_ITEM_PEDIDO_PRODUTO
  419.     AND TS.NRO_SERVICO             = S.NRO_SERVICO
  420.     AND U.NRO_USUARIO              = S.NRO_USUARIO
  421.     AND (:NRO_USUARIO_PARAM           IS NULL
  422.     OR U.NRO_USUARIO               = :NRO_USUARIO_PARAM)
  423.     UNION
  424.     /* SERVICOS CANCELADOS */
  425.     SELECT 'C' FLAG_TIPO_VENDA ,
  426.       P.NRO_LOJA NRO_LOJA_PEDIDO ,
  427.       P.NRO_PEDIDO ,
  428.       I.NRO_ITEM_PEDIDO_PRODUTO ,
  429.       S.NRO_USUARIO ,
  430.       DECODE(S.NRO_PERFIL_USUARIO_VENDA, NULL, U.nro_perfil_usuario, S.NRO_PERFIL_USUARIO_VENDA) NRO_PERFIL_USUARIO ,
  431.       U.RM_CHAPA_FUNCIONARIO AS RM_CHAPA_FUNCIONARIO ,
  432.       U.NOME_USUARIO         AS NOME_USUARIO ,
  433.       NULL                   AS NRO_PRODUTO /* I.NRO_PRODUTO */
  434.       ,
  435.       TS.NRO_TIPO_SERVICO   AS NRO_DEPTO_TIPO_SERVICO ,
  436.       NULL                  AS NRO_PROMOCAO ,
  437.       IR.DT_INCLUSAO        AS DT_FATURAMENTO_PEDIDO ,
  438.       sd.QTDE_DEVOLVIDA     AS QTDE_PEDIDA_PRODUTO_SERVICO ,
  439.       S.VR_UNITARIO_SERVICO AS VR_UNITARIO_PRODUTO_SERVICO ,
  440.       NVL((((NVL(S.PRECO_LISTA,0) * ABS(-sd.qtde_devolvida)) - NVL(ABS((-S.VR_UNITARIO_SERVICO*sd.QTDE_DEVOLVIDA)),0))/DECODE(S.PRECO_LISTA * ABS(-sd.QTDE_DEVOLVIDA),0,1,S.PRECO_LISTA * ABS(-sd.QTDE_DEVOLVIDA)))*100,0) PERC_DESCONTO ,
  441.       NVL(S.PRECO_LISTA,0) PRECO_LISTA ,
  442.       NULL AS COD_SITUACAO_PRODUTO ,
  443.       L.NRO_EMPRESA ,
  444.       UPPER(L.COD_NRO_LOJA) AS COD_NRO_LOJA ,
  445.       UPPER(L.DESC_LOJA)    AS DESC_LOJA ,
  446.       NVL(S.VR_TROCA_SERVICO,0) VR_TROCA ,
  447.       (SELECT (NVL(VR_TOTAL_PRODUTOS,0) + NVL(VR_TOTAL_SERVICOS,0) - NVL(VR_TOTAL_DESCONTOS,0)) VR_TOTAL_PEDIDO
  448.       FROM MV_PEDIDO T
  449.       WHERE T.NRO_LOJA = P.NRO_LOJA
  450.       AND T.NRO_PEDIDO = P.NRO_PEDIDO
  451.       ) VR_TOTAL_PEDIDO ,
  452.       (SELECT NRO_TIPO_COMISSAO
  453.       FROM FP_TIPO_COMISSAO
  454.       WHERE NRO_EMPRESA                = L.NRO_EMPRESA
  455.       AND DESC_TIPO_COMISSAO_ABREVIADO = 'SRV'
  456.       AND FLAG_ATIVO                   = 'S'
  457.       ) NRO_TIPO_COMISSAO ,
  458.       (SELECT DESC_TIPO_SERVICO
  459.       FROM MV_TIPO_SERVICO T
  460.       WHERE T.NRO_TIPO_SERVICO = TS.NRO_TIPO_SERVICO
  461.       )                          AS DESC_DEPTO_TIPO_SERVICO ,
  462.       TO_CHAR(TS.GARANTIA_MESES) AS COD_PRODUTO_QTDE_MESES_SERVICO ,
  463.       NULL                       AS DESC_PRODUTO ,
  464.       SUBSTR('SERV',1,4)         AS TIPO_COMISSAO ,
  465.       S.PERC_COMISSAO            AS PERC_COMISSAO_PRODUTO_SERVICO ,
  466.       S.VALOR_COMISSAO           AS VR_COMISSAO_PRODUTO_SERVICO
  467.     FROM MV_ITEM_RECIBO_DEVOLUCAO IR ,
  468.       MV_ITEM_PEDIDO_PRODUTO I ,
  469.       MV_ITEM_PEDIDO_SERVICO S ,
  470.       mv_servico_recibo_devolucao sd ,
  471.       MV_SERVICO TS ,
  472.       MV_PEDIDO P ,
  473.       MV_USUARIO U ,
  474.       MV_LOJA L
  475.     WHERE ir.nro_seq_nf IS NULL
  476.     AND IR.DT_INCLUSAO  >= TO_DATE(:DT_REF_INICIO_PARAM,'DD/MM/YYYY')
  477.     AND IR.DT_INCLUSAO   < TO_DATE(:DT_REF_FIM_PARAM,'DD/MM/YYYY') + 1
  478.     AND IR.NRO_PEDIDO_NOVO            IS NULL
  479.     AND IR.IND_UTILIZACAO              = 'S'
  480.     AND ( :NRO_LOJA_PARAM                 IS NULL
  481.     OR IR.NRO_LOJA_PEDIDO              = :NRO_LOJA_PARAM)
  482.     AND IR.NRO_LOJA_PEDIDO             = L.NRO_LOJA
  483.     AND I.NRO_LOJA                     = IR.NRO_LOJA_PEDIDO
  484.     AND I.NRO_PEDIDO                   = IR.NRO_PEDIDO
  485.     AND I.NRO_ITEM_PEDIDO_PRODUTO      = IR.NRO_ITEM_PEDIDO_PRODUTO
  486.     AND sd.nro_pedido (+)              = s.nro_pedido
  487.     AND sd.nro_loja_pedido (+)         = s.nro_loja
  488.     AND sd.nro_item_pedido_produto (+) = s.nro_item_pedido_produto
  489.     AND sd.nro_servico (+)             = s.nro_servico
  490.     AND P.NRO_LOJA                     = I.NRO_LOJA
  491.     AND P.NRO_PEDIDO                   = I.NRO_PEDIDO
  492.     AND I.NRO_PEDIDO                   = S.NRO_PEDIDO
  493.     AND I.NRO_LOJA                     = S.NRO_LOJA
  494.     AND I.NRO_ITEM_PEDIDO_PRODUTO      = S.NRO_ITEM_PEDIDO_PRODUTO
  495.     AND TS.NRO_SERVICO                 = S.NRO_SERVICO
  496.     AND U.NRO_USUARIO                  = S.NRO_USUARIO
  497.     AND (:NRO_USUARIO_PARAM               IS NULL
  498.     OR U.NRO_USUARIO                   = :NRO_USUARIO_PARAM)
  499.     AND L.NRO_EMPRESA                  = :NRO_EMPRESA_PARAM
  500.     UNION
  501.     /* SERVICOS COM NF DE DEVOLUCAO */
  502.     SELECT 'C' FLAG_TIPO_VENDA ,
  503.       P.NRO_LOJA NRO_LOJA_PEDIDO ,
  504.       P.NRO_PEDIDO ,
  505.       I.NRO_ITEM_PEDIDO_PRODUTO ,
  506.       S.NRO_USUARIO ,
  507.       DECODE(S.NRO_PERFIL_USUARIO_VENDA, NULL, U.nro_perfil_usuario, S.NRO_PERFIL_USUARIO_VENDA) NRO_PERFIL_USUARIO ,
  508.       U.RM_CHAPA_FUNCIONARIO AS RM_CHAPA_FUNCIONARIO ,
  509.       U.NOME_USUARIO         AS NOME_USUARIO ,
  510.       NULL                   AS NRO_PRODUTO /*I.NRO_PRODUTO*/
  511.       ,
  512.       TS.NRO_TIPO_SERVICO   AS NRO_DEPTO_TIPO_SERVICO ,
  513.       NULL                  AS NRO_PROMOCAO ,
  514.       IR.DT_INCLUSAO        AS DT_FATURAMENTO_PEDIDO ,
  515.       sd.QTDE_DEVOLVIDA     AS QTDE_PEDIDA_PRODUTO_SERVICO ,
  516.       S.VR_UNITARIO_SERVICO AS VR_UNITARIO_PRODUTO_SERVICO ,
  517.       NVL((((NVL(S.PRECO_LISTA,0) * ABS(-sd.qtde_devolvida)) - NVL(ABS((-S.VR_UNITARIO_SERVICO*sd.QTDE_DEVOLVIDA)),0))/DECODE(S.PRECO_LISTA * ABS(-sd.QTDE_DEVOLVIDA),0,1,S.PRECO_LISTA * ABS(-sd.QTDE_DEVOLVIDA)))*100,0) PERC_DESCONTO ,
  518.       NVL(S.PRECO_LISTA,0) PRECO_LISTA ,
  519.       NULL AS COD_SITUACAO_PRODUTO ,
  520.       L.NRO_EMPRESA ,
  521.       UPPER(L.COD_NRO_LOJA) AS COD_NRO_LOJA ,
  522.       UPPER(L.DESC_LOJA)    AS DESC_LOJA ,
  523.       NVL(S.VR_TROCA_SERVICO,0) VR_TROCA ,
  524.       (SELECT (NVL(VR_TOTAL_PRODUTOS,0) + NVL(VR_TOTAL_SERVICOS,0) - NVL(VR_TOTAL_DESCONTOS,0)) VR_TOTAL_PEDIDO
  525.       FROM MV_PEDIDO T
  526.       WHERE T.NRO_LOJA = P.NRO_LOJA
  527.       AND T.NRO_PEDIDO = P.NRO_PEDIDO
  528.       ) VR_TOTAL_PEDIDO ,
  529.       (SELECT NRO_TIPO_COMISSAO
  530.       FROM FP_TIPO_COMISSAO
  531.       WHERE NRO_EMPRESA                = L.NRO_EMPRESA
  532.       AND DESC_TIPO_COMISSAO_ABREVIADO = 'SRV'
  533.       AND FLAG_ATIVO                   = 'S'
  534.       ) NRO_TIPO_COMISSAO ,
  535.       (SELECT DESC_TIPO_SERVICO
  536.       FROM MV_TIPO_SERVICO T
  537.       WHERE T.NRO_TIPO_SERVICO = TS.NRO_TIPO_SERVICO
  538.       )                          AS DESC_DEPTO_TIPO_SERVICO ,
  539.       TO_CHAR(TS.GARANTIA_MESES) AS COD_PRODUTO_QTDE_MESES_SERVICO ,
  540.       NULL                       AS DESC_PRODUTO ,
  541.       SUBSTR('SERV',1,4)         AS TIPO_COMISSAO ,
  542.       S.PERC_COMISSAO            AS PERC_COMISSAO_PRODUTO_SERVICO ,
  543.       S.VALOR_COMISSAO           AS VR_COMISSAO_PRODUTO_SERVICO
  544.     FROM mv_nf nf,
  545.       MV_ITEM_RECIBO_DEVOLUCAO IR ,
  546.       MV_ITEM_PEDIDO_PRODUTO I ,
  547.       MV_ITEM_PEDIDO_SERVICO S ,
  548.       mv_servico_recibo_devolucao sd ,
  549.       MV_SERVICO TS ,
  550.       MV_PEDIDO P ,
  551.       MV_USUARIO U ,
  552.       MV_LOJA L
  553.     WHERE nf.dt_emissao_nf >= TO_DATE(:DT_REF_INICIO_PARAM,'DD/MM/YYYY')
  554.     AND nf.dt_emissao_nf    < TO_DATE(:DT_REF_FIM_PARAM,'DD/MM/YYYY') + 1
  555.     AND nf.nro_tipo_nf                                               IN (22, 23)
  556.     AND ir.nro_seq_nf       = nf.nro_seq_nf
  557.     AND ir.NRO_LOJA_ITEM_NF = nf.nro_loja
  558.     AND IR.NRO_PEDIDO_NOVO            IS NULL
  559.     AND IR.IND_UTILIZACAO              = 'S'
  560.     AND ( :NRO_LOJA_PARAM                 IS NULL
  561.     OR IR.NRO_LOJA_PEDIDO              = :NRO_LOJA_PARAM)
  562.     AND IR.NRO_LOJA_PEDIDO             = L.NRO_LOJA
  563.     AND I.NRO_LOJA                     = IR.NRO_LOJA_PEDIDO
  564.     AND I.NRO_PEDIDO                   = IR.NRO_PEDIDO
  565.     AND I.NRO_ITEM_PEDIDO_PRODUTO      = IR.NRO_ITEM_PEDIDO_PRODUTO
  566.     AND sd.nro_pedido (+)              = s.nro_pedido
  567.     AND sd.nro_loja_pedido (+)         = s.nro_loja
  568.     AND sd.nro_item_pedido_produto (+) = s.nro_item_pedido_produto
  569.     AND sd.nro_servico (+)             = s.nro_servico
  570.     AND P.NRO_LOJA                     = I.NRO_LOJA
  571.     AND P.NRO_PEDIDO                   = I.NRO_PEDIDO
  572.     AND I.NRO_PEDIDO                   = S.NRO_PEDIDO
  573.     AND I.NRO_LOJA                     = S.NRO_LOJA
  574.     AND I.NRO_ITEM_PEDIDO_PRODUTO      = S.NRO_ITEM_PEDIDO_PRODUTO
  575.     AND TS.NRO_SERVICO                 = S.NRO_SERVICO
  576.     AND U.NRO_USUARIO                  = S.NRO_USUARIO
  577.     AND (:NRO_USUARIO_PARAM               IS NULL
  578.     OR U.NRO_USUARIO                   = :NRO_USUARIO_PARAM)
  579.     AND L.NRO_EMPRESA                  = :NRO_EMPRESA_PARAM
  580.     UNION
  581.     /*PEDIDO SERVICO*/
  582.     SELECT 'V' FLAG_TIPO_VENDA ,
  583.       P.NRO_LOJA NRO_LOJA_PEDIDO ,
  584.       P.NRO_PEDIDO ,
  585.       NULL AS NRO_ITEM_PEDIDO_PRODUTO ,
  586.       S.NRO_USUARIO ,
  587.       DECODE(S.NRO_PERFIL_USUARIO_VENDA, NULL, U.nro_perfil_usuario, S.NRO_PERFIL_USUARIO_VENDA) NRO_PERFIL_USUARIO ,
  588.       U.RM_CHAPA_FUNCIONARIO         AS RM_CHAPA_FUNCIONARIO ,
  589.       U.NOME_USUARIO                 AS NOME_USUARIO ,
  590.       NULL                           AS NRO_PRODUTO ,
  591.       TS.NRO_TIPO_SERVICO            AS NRO_DEPTO_TIPO_SERVICO ,
  592.       NULL                           AS NRO_PROMOCAO ,
  593.       TRUNC(P.DT_FATURAMENTO_PEDIDO) AS DT_FATURAMENTO_PEDIDO ,
  594.       SUM(S.QTDE_SERVICO)            AS QTDE_PEDIDA_PRODUTO_SERVICO ,
  595.       S.VR_UNITARIO_SERVICO          AS VR_UNITARIO_PRODUTO_SERVICO ,
  596.       NVL((((NVL(S.PRECO_LISTA,0) * ABS(S.QTDE_SERVICO)) - NVL(ABS((S.VR_UNITARIO_SERVICO*S.QTDE_SERVICO)),0))/DECODE(S.PRECO_LISTA * ABS(S.QTDE_SERVICO),0,1,S.PRECO_LISTA * ABS(S.QTDE_SERVICO)))*100,0) PERC_DESCONTO ,
  597.       NVL(S.PRECO_LISTA,0) PRECO_LISTA ,
  598.       NULL AS COD_SITUACAO_PRODUTO ,
  599.       L.NRO_EMPRESA ,
  600.       UPPER(L.COD_NRO_LOJA) AS COD_NRO_LOJA ,
  601.       UPPER(L.DESC_LOJA)    AS DESC_LOJA ,
  602.       NVL(S.VR_TROCA_SERVICO,0) VR_TROCA ,
  603.       (SELECT (NVL(VR_TOTAL_PRODUTOS,0) + NVL(VR_TOTAL_SERVICOS,0) - NVL(VR_TOTAL_DESCONTOS,0)) VR_TOTAL_PEDIDO
  604.       FROM MV_PEDIDO T
  605.       WHERE T.NRO_LOJA = P.NRO_LOJA
  606.       AND T.NRO_PEDIDO = P.NRO_PEDIDO
  607.       ) VR_TOTAL_PEDIDO ,
  608.       (SELECT NRO_TIPO_COMISSAO
  609.       FROM FP_TIPO_COMISSAO
  610.       WHERE NRO_EMPRESA                = L.NRO_EMPRESA
  611.       AND DESC_TIPO_COMISSAO_ABREVIADO = 'SRV'
  612.       AND FLAG_ATIVO                   = 'S'
  613.       ) NRO_TIPO_COMISSAO ,
  614.       (SELECT DESC_TIPO_SERVICO
  615.       FROM MV_TIPO_SERVICO T
  616.       WHERE T.NRO_TIPO_SERVICO = TS.NRO_TIPO_SERVICO
  617.       )                          AS DESC_DEPTO_TIPO_SERVICO ,
  618.       TO_CHAR(TS.GARANTIA_MESES) AS COD_PRODUTO_QTDE_MESES_SERVICO ,
  619.       NULL                       AS DESC_PRODUTO ,
  620.       SUBSTR('SERV',1,4)         AS TIPO_COMISSAO ,
  621.       S.PERC_COMISSAO            AS PERC_COMISSAO_PRODUTO_SERVICO ,
  622.       S.VALOR_COMISSAO           AS VR_COMISSAO_PRODUTO_SERVICO
  623.     FROM MV_PEDIDO_SERVICO S ,
  624.       MV_SERVICO TS ,
  625.       MV_PEDIDO P ,
  626.       MV_USUARIO U ,
  627.       MV_LOJA L
  628.     WHERE P.DT_FATURAMENTO_PEDIDO >= TO_DATE(:DT_REF_INICIO_PARAM,'DD/MM/YYYY')
  629.     AND P.DT_FATURAMENTO_PEDIDO    < TO_DATE(:DT_REF_FIM_PARAM,'DD/MM/YYYY') + 1
  630.     AND P.STS_PEDIDO                                                        IN (40,50,91)
  631.     AND ( :NRO_LOJA_PARAM             IS NULL
  632.     OR P.NRO_LOJA                  = :NRO_LOJA_PARAM)
  633.     AND P.NRO_LOJA                 = L.NRO_LOJA
  634.     AND P.NRO_PEDIDO               = S.NRO_PEDIDO
  635.     AND P.NRO_LOJA                 = S.NRO_LOJA
  636.     AND TS.NRO_SERVICO             = S.NRO_SERVICO
  637.     AND U.NRO_USUARIO              = S.NRO_USUARIO
  638.     AND (:NRO_USUARIO_PARAM           IS NULL
  639.     OR U.NRO_USUARIO               = :NRO_USUARIO_PARAM)
  640.     AND L.NRO_EMPRESA              = :NRO_EMPRESA_PARAM
  641.     GROUP BY P.NRO_LOJA ,
  642.       P.NRO_PEDIDO ,
  643.       S.NRO_USUARIO ,
  644.       RM_CHAPA_FUNCIONARIO ,
  645.       NOME_USUARIO ,
  646.       S.NRO_PERFIL_USUARIO_VENDA ,
  647.       U.NRO_PERFIL_USUARIO ,
  648.       COD_NRO_LOJA ,
  649.       DESC_LOJA ,
  650.       S.VR_TROCA_SERVICO ,
  651.       TS.NRO_TIPO_SERVICO ,
  652.       TS.GARANTIA_MESES ,
  653.       TRUNC(P.DT_FATURAMENTO_PEDIDO) ,
  654.       S.VR_UNITARIO_SERVICO ,
  655.       S.QTDE_SERVICO ,
  656.       S.PRECO_LISTA ,
  657.       L.NRO_EMPRESA ,
  658.       S.PERC_COMISSAO ,
  659.       S.VALOR_COMISSAO
  660.     UNION
  661.     SELECT 'C' FLAG_TIPO_VENDA ,
  662.       P.NRO_LOJA NRO_LOJA_PEDIDO ,
  663.       P.NRO_PEDIDO ,
  664.       NULL AS NRO_ITEM_PEDIDO_PRODUTO ,
  665.       S.NRO_USUARIO ,
  666.       DECODE(S.NRO_PERFIL_USUARIO_VENDA, NULL, U.nro_perfil_usuario, S.NRO_PERFIL_USUARIO_VENDA) NRO_PERFIL_USUARIO ,
  667.       U.RM_CHAPA_FUNCIONARIO AS RM_CHAPA_FUNCIONARIO ,
  668.       U.NOME_USUARIO         AS NOME_USUARIO ,
  669.       NULL                   AS NRO_PRODUTO /*I.NRO_PRODUTO*/
  670.       ,
  671.       TS.NRO_TIPO_SERVICO              AS NRO_DEPTO_TIPO_SERVICO ,
  672.       NULL                             AS NRO_PROMOCAO ,
  673.       TRUNC(S.DT_CANCELAMENTO_SERVICO) AS DT_FATURAMENTO_PEDIDO ,
  674.       SUM(Sd.qtde_devolvida)           AS QTDE_PEDIDA_PRODUTO_SERVICO ,
  675.       S.VR_UNITARIO_SERVICO            AS VR_UNITARIO_PRODUTO_SERVICO ,
  676.       NVL((((NVL(S.PRECO_LISTA,0) * ABS(-Sd.qtde_devolvida)) - NVL(ABS((-S.VR_UNITARIO_SERVICO*Sd.qtde_devolvida)),0))/DECODE(S.PRECO_LISTA * ABS(-Sd.qtde_devolvida),0,1,S.PRECO_LISTA * ABS(-Sd.qtde_devolvida)))*100,0) PERC_DESCONTO ,
  677.       NVL(S.PRECO_LISTA,0) PRECO_LISTA ,
  678.       NULL AS COD_SITUACAO_PRODUTO ,
  679.       L.NRO_EMPRESA ,
  680.       UPPER(L.COD_NRO_LOJA) AS COD_NRO_LOJA ,
  681.       UPPER(L.DESC_LOJA)    AS DESC_LOJA ,
  682.       NVL(S.VR_TROCA_SERVICO,0) VR_TROCA ,
  683.       (SELECT (NVL(VR_TOTAL_PRODUTOS,0) + NVL(VR_TOTAL_SERVICOS,0) - NVL(VR_TOTAL_DESCONTOS,0)) VR_TOTAL_PEDIDO
  684.       FROM MV_PEDIDO T
  685.       WHERE T.NRO_LOJA = P.NRO_LOJA
  686.       AND T.NRO_PEDIDO = P.NRO_PEDIDO
  687.       ) VR_TOTAL_PEDIDO ,
  688.       (SELECT NRO_TIPO_COMISSAO
  689.       FROM FP_TIPO_COMISSAO
  690.       WHERE NRO_EMPRESA                = L.NRO_EMPRESA
  691.       AND DESC_TIPO_COMISSAO_ABREVIADO = 'SRV'
  692.       AND FLAG_ATIVO                   = 'S'
  693.       ) NRO_TIPO_COMISSAO ,
  694.       (SELECT DESC_TIPO_SERVICO
  695.       FROM MV_TIPO_SERVICO T
  696.       WHERE T.NRO_TIPO_SERVICO = TS.NRO_TIPO_SERVICO
  697.       )                          AS DESC_DEPTO_TIPO_SERVICO ,
  698.       TO_CHAR(TS.GARANTIA_MESES) AS COD_PRODUTO_QTDE_MESES_SERVICO ,
  699.       NULL                       AS DESC_PRODUTO ,
  700.       SUBSTR('SERV',1,4)         AS TIPO_COMISSAO ,
  701.       S.PERC_COMISSAO            AS PERC_COMISSAO_PRODUTO_SERVICO ,
  702.       S.VALOR_COMISSAO           AS VR_COMISSAO_PRODUTO_SERVICO
  703.     FROM MV_PEDIDO_SERVICO S ,
  704.       mv_servico_recibo_devolucao sd ,
  705.       MV_SERVICO TS ,
  706.       MV_PEDIDO P ,
  707.       MV_USUARIO U ,
  708.       MV_LOJA L
  709.     WHERE S.DT_CANCELAMENTO_SERVICO >= TO_DATE(:DT_REF_INICIO_PARAM,'DD/MM/YYYY')
  710.     AND S.DT_CANCELAMENTO_SERVICO    < TO_DATE(:DT_REF_FIM_PARAM,'DD/MM/YYYY') + 1
  711.     AND ( :NRO_LOJA_PARAM               IS NULL
  712.     OR S.NRO_LOJA                    = :NRO_LOJA_PARAM)
  713.     AND P.NRO_LOJA                   = S.NRO_LOJA
  714.     AND P.NRO_PEDIDO                 = S.NRO_PEDIDO
  715.     AND sd.nro_loja_pedido (+)       = S.NRO_LOJA
  716.     AND sd.NRO_PEDIDO (+)            = S.NRO_PEDIDO
  717.     AND sd.nro_servico (+)           = s.nro_servico
  718.     AND sd.nro_item_pedido_produto  IS NULL
  719.     AND SD.NRO_PEDIDO_NOVO          IS NULL
  720.     AND TS.NRO_SERVICO               = S.NRO_SERVICO
  721.     AND U.NRO_USUARIO                = S.NRO_USUARIO
  722.     AND (:NRO_USUARIO_PARAM             IS NULL
  723.     OR U.NRO_USUARIO                 = :NRO_USUARIO_PARAM)
  724.     AND L.NRO_EMPRESA                = :NRO_EMPRESA_PARAM
  725.     AND L.nro_loja                   = S.nro_loja
  726.     GROUP BY P.NRO_LOJA ,
  727.       P.NRO_PEDIDO ,
  728.       S.NRO_USUARIO ,
  729.       S.NRO_PERFIL_USUARIO_VENDA ,
  730.       U.NRO_PERFIL_USUARIO ,
  731.       RM_CHAPA_FUNCIONARIO ,
  732.       NOME_USUARIO ,
  733.       COD_NRO_LOJA ,
  734.       DESC_LOJA ,
  735.       S.VR_TROCA_SERVICO ,
  736.       TS.NRO_TIPO_SERVICO ,
  737.       TS.GARANTIA_MESES ,
  738.       TRUNC(S.DT_CANCELAMENTO_SERVICO) ,
  739.       S.VR_UNITARIO_SERVICO ,
  740.       Sd.qtde_devolvida ,
  741.       S.PRECO_LISTA ,
  742.       L.NRO_EMPRESA ,
  743.       S.PERC_COMISSAO ,
  744.       S.VALOR_COMISSAO
  745.     ) A
  746.   ) B
  747. GROUP BY NRO_EMPRESA ,
  748.   RM_CHAPA_FUNCIONARIO ,
  749.   NRO_USUARIO ,
  750.   NOME_USUARIO ,
  751.   COD_NRO_LOJA ,
  752.   DESC_LOJA ,
  753.   NRO_LOJA_PEDIDO ,
  754.   NRO_PERFIL_USUARIO ,
  755.   NRO_DEPTO_TIPO_SERVICO ,
  756.   DESC_DEPTO_TIPO_SERVICO ,
  757.   TIPO_COMISSAO
  758. ORDER BY NRO_LOJA_PEDIDO ,
  759.   NOME_USUARIO ,
  760.   NRO_USUARIO ,
  761.   TIPO_COMISSAO ,
  762.   DESC_DEPTO_TIPO_SERVICO
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!