SET DEFINE OFF;

UPDATE MODOCUMENTOSFISCAIS set devolucaoAnulacaoRetorno = 1 WHERE finalidadeNota = '3';
UPDATE MOPREDOCUMENTOS set devolucaoAnulacaoRetorno = 1 WHERE finalidadeNota = '3';

COMMIT;

UPDATE SITABELASSISTEMA SET descricao = 'Autorizados Pessoa' WHERE tabelaSistema = 'CAAUTORIZADOSPESSOA';
UPDATE SIMENUS SET descricao = 'Autorizados Pessoa' WHERE menu = 163;
UPDATE SIMENUS SET descricao = 'Autorizados' WHERE menu = 333;

COMMIT;

DROP FUNCTION FUNC_ADD_GRADE_PROD_MONTA_SQL2;
DROP FUNCTION FUNC_ADD_GRADE_PROD_MONTA_SQL;

create or replace PROCEDURE ADD_GRADE_PRODUTO_TROCA(
    p_config_28_somenteProdEst     IN NUMBER,
    p_config_31_pesqPeloIdProduto  IN NUMBER,
    p_config_32_pesqPeloEanGtin    IN NUMBER,
    p_config_33_pesqPelaReferencia IN NUMBER,
    p_config_34_pesqPeloIdGradePro IN NUMBER,
    p_config_35_pesqPeloProdutoImp IN NUMBER,
    p_config_36_pesqPeloCodFabrica IN NUMBER,
    p_config_37_pesqPeloCodAnterio IN NUMBER,
    p_config_38_pesqPeloProdXPess  IN NUMBER,
    p_config_39_pesqPeloLote       IN NUMBER,
    p_config_40_pesqPeloNumSerie   IN NUMBER,
    p_config_142_digitosProdEanInt IN CHAR,
    p_config_348_excessaoBuscaCod  IN NUMBER,
    p_estabelecimentoAtivo         IN NUMBER,
    p_gradeProduto                 IN NUMBER,
    p_codigoDescricao              IN VARCHAR2,
    p_trocou                       IN NUMBER,
    p_join                         IN CLOB,
    p_andWhere                     IN CLOB,
    p_cab_estabelecimento          IN NUMBER,
    p_cab_pessoa                   IN NUMBER,
    p_quantidade                   IN NUMBER,
    p_produto                      IN NUMBER,
    /* Retornos */
    r_gradeProduto                 OUT NUMBER,
    r_codigoDescricao              OUT VARCHAR2,
    r_trocou                       OUT NUMBER,
    r_selecionou                   OUT NUMBER,
    r_abrirTelaOnline              OUT NUMBER,
    r_mensagemErro                 OUT VARCHAR2,
    r_observacoesErro              OUT CLOB,
    r_codigoEANInterno             OUT VARCHAR2,
    r_idLoteEstoque                OUT NUMBER,
    r_loteEstoque                  OUT VARCHAR2,
    r_idNumeroSerie                OUT NUMBER,
    r_numeroSerie                  OUT VARCHAR2,
    r_quantidade                   OUT NUMBER)
IS
  v_codigoDescricaoComPontos   VARCHAR2(4000);
  v_codigoDescricaoSemPontos   VARCHAR2(4000);
  v_codigoDescricaoLoop        VARCHAR2(4000);
  v_contadorSubSelects         NUMBER;
  v_select                     CLOB;
  v_gradeProduto               NUMBER;
  v_produtoImpresso            VARCHAR2(60);
  v_descricaoImpressa          VARCHAR2(120);
  v_idLoteEstoque              NUMBER;
  v_loteEstoque                VARCHAR2(20);
  v_idNumeroSerie              NUMBER;
  v_numeroSerie                VARCHAR2(60);
  v_quantidade                 NUMBER;
  v_contaRegistros             NUMBER;
BEGIN
  r_gradeProduto               := p_gradeProduto;
  r_codigoDescricao            := p_codigoDescricao;
  r_trocou                     := p_trocou;
  r_selecionou                 := 0;
  r_abrirTelaOnline            := 0;
  r_mensagemErro               := ' ';
  r_observacoesErro            := ' ';
  r_codigoEANInterno           := ' ';
  r_idLoteEstoque              := 0;
  r_loteEstoque                := ' ';
  r_idNumeroSerie              := 0;
  r_numeroSerie                := ' ';
  r_quantidade                 := p_quantidade;
  v_codigoDescricaoComPontos   := ' ';
  v_codigoDescricaoSemPontos   := ' ';
  v_codigoDescricaoLoop        := ' ';
  v_contadorSubSelects         := 0;
  v_select                     := ' ';
  v_gradeProduto               := 0;
  v_produtoImpresso            := ' ';
  v_descricaoImpressa          := ' ';
  v_idLoteEstoque              := 0;
  v_loteEstoque                := ' ';
  v_idNumeroSerie              := 0;
  v_numeroSerie                := ' ';
  v_quantidade                 := 0;
  v_contaRegistros             := 0;
  IF p_codigoDescricao = ' ' AND p_produto = 0 THEN
    r_gradeProduto := 0;
    r_selecionou   := 1;
    r_trocou       := 0;
  ELSE
    IF p_config_142_digitosProdEanInt IN ('4','5','6')
      AND p_produto = 0
      AND SUBSTR(p_codigoDescricao,1,1)='2'
      AND LENGTH (RTRIM(p_codigoDescricao))=13
      AND FUNC_ADD_CONTEUDO_NUMERICO(p_codigoDescricao) = 1 THEN
      SELECT
        COALESCE(MAX(gradeProduto),0),
        COALESCE(MAX(produtoImpresso),' '),
        COALESCE(MAX(descricaoImpressa),' '),
        COUNT(1) contaRegistros
      INTO
        v_gradeProduto,
        v_produtoImpresso,
        v_descricaoImpressa,
        v_contaRegistros
      FROM CAGRADESPRODUTO
      WHERE produtoImpresso = TRIM(TO_CHAR(TO_NUMBER(SUBSTR(p_codigoDescricao,2,TO_NUMBER(p_config_142_digitosProdEanInt)))));
      IF v_contaRegistros = 1 THEN
        r_gradeProduto      := v_gradeProduto;
        r_codigoDescricao   := TRIM (v_produtoImpresso) || ' - ' || TRIM (v_descricaoImpressa);
        r_trocou            := 0;
        r_selecionou        := 1;
        r_codigoEANInterno  := p_codigoDescricao;
      ELSE
        v_gradeProduto      := 0;
        v_produtoImpresso   := ' ';
        v_descricaoImpressa := ' ';
        v_contaRegistros    := 0;
      END IF;
    END IF;
    IF v_contaRegistros = 0 THEN
      IF p_codigoDescricao = ' ' THEN
        v_select := 'SELECT
  COALESCE(MIN(a.gradeProduto),0),
  COALESCE(MIN(a.produtoImpresso),'' ''),
  COALESCE(MIN(a.descricaoImpressa),'' ''),
  COALESCE(MIN(a.idLoteEstoque),0),
  COALESCE(MIN(a.loteEstoque),'' ''),
  COALESCE(MIN(a.idNumeroSerie),0),
  COALESCE(MIN(a.numeroSerie),'' ''),
  COALESCE(MIN(a.quantidade),0),
  COUNT (1)
FROM (
  SELECT DISTINCT /*+ FIRST_ROWS(2) */
    a.gradeProduto,
    a.produtoImpresso,
    a.descricaoImpressa,
    a.idLoteEstoque,
    a.loteEstoque,
    a.idNumeroSerie,
    a.numeroSerie,
    a.quantidade
  FROM (
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.ativo = 1
    AND ' || CASE WHEN p_produto = 0 THEN 'a.gradeProduto <> 0' ELSE 'a.produto = ' || p_produto END
  || '
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END
  || '
  ) a
  WHERE ROWNUM <=2
  ) a';
      ELSE
        v_codigoDescricaoComPontos := UPPER (REPLACE (REPLACE (TRIM (r_codigoDescricao), '*', '%'), '''', ''''''));
        IF p_config_348_excessaoBuscaCod = 1 AND LENGTH (TRIM (v_codigoDescricaoComPontos)) = 16 AND FUNC_ADD_CONTEUDO_NUMERICO (v_codigoDescricaoComPontos) = 1 THEN
          v_codigoDescricaoComPontos := SUBSTR(v_codigoDescricaoComPontos,1,12);
        END IF;
        v_codigoDescricaoSemPontos := REPLACE (REPLACE (REPLACE (REPLACE (RTRIM (v_codigoDescricaoComPontos), '.', ''), '-', ''), '/', ''), '\', '');
        IF v_codigoDescricaoSemPontos = ' ' THEN 
          v_select := 'SELECT
  COALESCE(MIN(a.gradeProduto),0),
  COALESCE(MIN(a.produtoImpresso),'' ''),
  COALESCE(MIN(a.descricaoImpressa),'' ''),
  COALESCE(MIN(a.idLoteEstoque),0),
  COALESCE(MIN(a.loteEstoque),'' ''),
  COALESCE(MIN(a.idNumeroSerie),0),
  COALESCE(MIN(a.numeroSerie),'' ''),
  COALESCE(MIN(a.quantidade),0),
  COUNT (1)
FROM (
  SELECT DISTINCT /*+ FIRST_ROWS(2) */
    a.gradeProduto,
    a.produtoImpresso,
    a.descricaoImpressa,
    a.idLoteEstoque,
    a.loteEstoque,
    a.idNumeroSerie,
    a.numeroSerie,
    a.quantidade
  FROM (
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.ativo = 1
    AND ' || CASE WHEN p_produto = 0 THEN 'a.gradeProduto <> 0' ELSE 'a.produto = ' || p_produto END
  || '
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END
  || '
  ) a
  WHERE ROWNUM <=2
  ) a';
        ELSE
          v_select := 'SELECT
  COALESCE(MIN(a.gradeProduto),0),
  COALESCE(MIN(a.produtoImpresso),'' ''),
  COALESCE(MIN(a.descricaoImpressa),'' ''),
  COALESCE(MIN(a.idLoteEstoque),0),
  COALESCE(MIN(a.loteEstoque),'' ''),
  COALESCE(MIN(a.idNumeroSerie),0),
  COALESCE(MIN(a.numeroSerie),'' ''),
  COALESCE(MIN(a.quantidade),0),
  COUNT (1)
FROM (
  SELECT DISTINCT /*+ FIRST_ROWS(2) */
    a.gradeProduto,
    a.produtoImpresso,
    a.descricaoImpressa,
    a.idLoteEstoque,
    a.loteEstoque,
    a.idNumeroSerie,
    a.numeroSerie,
    a.quantidade
  FROM (';
          v_contadorSubSelects := 0;
          -- Se digitou número
          IF LENGTH (TRIM (v_codigoDescricaoSemPontos)) <= 14 AND FUNC_ADD_CONTEUDO_NUMERICO (v_codigoDescricaoSemPontos) = 1 THEN
            IF p_config_31_pesqPeloIdProduto = 1 THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.produto = ' || RTRIM (v_codigoDescricaoSemPontos)
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            END IF;
            IF p_config_32_pesqPeloEanGtin = 1 THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.eanGtin  = ''' || RTRIM (v_codigoDescricaoSemPontos) || ''''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            END IF;
            IF p_config_34_pesqPeloIdGradePro = 1 THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.gradeProduto = ' || RTRIM (v_codigoDescricaoSemPontos)
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            END IF;
            IF p_config_35_pesqPeloProdutoImp = 1 THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.produtoImpresso = ''' || RTRIM (v_codigoDescricaoSemPontos) || ''''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
              IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.produtoImpresso = ''' || RTRIM (v_codigoDescricaoComPontos) || ''''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
              END IF;
              v_codigoDescricaoLoop := v_codigoDescricaoComPontos;
              WHILE (v_codigoDescricaoLoop <> '0' AND SUBSTR (v_codigoDescricaoLoop, 1, 1) = '0') LOOP
                v_codigoDescricaoLoop := SUBSTR (v_codigoDescricaoLoop, 2, 299);
              END LOOP;
              IF v_codigoDescricaoLoop <> ' ' THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.produtoImpresso = ''' || RTRIM (v_codigoDescricaoLoop) || ''''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
              END IF;
            END IF;
            IF p_config_36_pesqPeloCodFabrica = 1 THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.codigoFabrica = ''' || RTRIM (v_codigoDescricaoSemPontos) || ''''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
              IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.codigoFabrica = ''' || RTRIM (v_codigoDescricaoComPontos) || ''''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
              END IF;
            END IF;
          -- Se não digitou número
          ELSE
            v_contadorSubSelects := v_contadorSubSelects + 1;
            v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.descricaoImpressa LIKE ''' || RTRIM (REPLACE (RTRIM (v_codigoDescricaoComPontos), ' ', '%')) || '%'''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            IF p_config_32_pesqPeloEanGtin = 1 AND FUNC_ADD_CONTEUDO_NUMERICO (SUBSTR(v_codigoDescricaoSemPontos,1,1)) = 1 THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.eanGtin  = ''' || RTRIM (v_codigoDescricaoSemPontos) || ''''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            END IF;
            IF p_config_35_pesqPeloProdutoImp = 1 AND FUNC_ADD_CONTEUDO_NUMERICO (SUBSTR(v_codigoDescricaoSemPontos,1,1)) = 1 THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.produtoImpresso = ''' || RTRIM (v_codigoDescricaoSemPontos) || ''''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
              IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.produtoImpresso = ''' || RTRIM (v_codigoDescricaoComPontos) || ''''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
              END IF;
              v_codigoDescricaoLoop := v_codigoDescricaoComPontos;
              WHILE (v_codigoDescricaoLoop <> '0' AND SUBSTR (v_codigoDescricaoLoop, 1, 1) = '0') LOOP
                v_codigoDescricaoLoop := SUBSTR (v_codigoDescricaoLoop, 2, 299);
              END LOOP;
              IF v_codigoDescricaoLoop <> ' ' THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.produtoImpresso = ''' || RTRIM (v_codigoDescricaoLoop) || ''''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
              END IF;
            END IF;
          END IF;
          -- Válido tanto para números quanto não números
          IF p_config_33_pesqPelaReferencia = 1 THEN
            v_contadorSubSelects := v_contadorSubSelects + 1;
            v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE produt.referencia LIKE ''' || RTRIM (v_codigoDescricaoSemPontos) || ''''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE produt.referencia LIKE ''' || RTRIM (v_codigoDescricaoComPontos) || ''''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            END IF;
          END IF;
          IF p_config_37_pesqPeloCodAnterio = 1 THEN
            v_contadorSubSelects := v_contadorSubSelects + 1;
            v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.codigoAnterior LIKE ''' || RTRIM (v_codigoDescricaoSemPontos) || ''''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    WHERE a.codigoAnterior LIKE ''' || RTRIM (v_codigoDescricaoComPontos) || ''''
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            END IF;
          END IF;
          IF p_config_38_pesqPeloProdXPess = 1 THEN
            v_contadorSubSelects := v_contadorSubSelects + 1;
            v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      prodXPess.quantidadePorEmbalagem quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    JOIN CAGRADEPRODUTOXPESSOAS prodXPess
    ON prodXPess.gradeProduto = a.gradeProduto
    WHERE ' || CASE WHEN p_produto = 0 THEN 'a.gradeProduto <> 0' ELSE 'a.produto = ' || p_produto END
      || '
    AND ' || CASE WHEN p_cab_pessoa = 0 THEN 'prodXPess.pessoa = 0' ELSE '(prodXPess.pessoa = 0 OR prodXPess.pessoa = ' || p_cab_pessoa || ')' END
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || '
    AND prodXPess.codigoProduto = ''' || RTRIM (v_codigoDescricaoSemPontos) || '''
    AND prodXPess.ativo = 1'  
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      0 idLoteEstoque,
      '' '' loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      prodXPess.quantidadePorEmbalagem quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    JOIN CAGRADEPRODUTOXPESSOAS prodXPess
    ON prodXPess.gradeProduto = a.gradeProduto
    WHERE ' || CASE WHEN p_produto = 0 THEN 'a.gradeProduto <> 0' ELSE 'a.produto = ' || p_produto END
      || '
    AND ' || CASE WHEN p_cab_pessoa = 0 THEN 'prodXPess.pessoa = 0' ELSE '(prodXPess.pessoa = 0 OR prodXPess.pessoa = ' || p_cab_pessoa || ')' END
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || '
    AND prodXPess.codigoProduto = ''' || RTRIM (v_codigoDescricaoComPontos) || '''
    AND prodXPess.ativo = 1'
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            END IF;
          END IF;
          IF p_config_39_pesqPeloLote = 1 THEN
            v_contadorSubSelects := v_contadorSubSelects + 1;
            v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      prodXLote.idLoteEstoque,
      prodXLote.loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    JOIN CAGRADEPRODUTOXLOTESESTOQ prodXLote
    ON prodXLote.gradeProduto = a.gradeProduto
    WHERE ' || CASE WHEN p_produto = 0 THEN 'a.gradeProduto <> 0' ELSE 'a.produto = ' || p_produto END
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || '
    AND prodXLote.loteEstoque = ''' || RTRIM (v_codigoDescricaoSemPontos) || '''
    AND prodXLote.ativo = 1'
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      prodXLote.idLoteEstoque,
      prodXLote.loteEstoque,
      0 idNumeroSerie,
      '' '' numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    JOIN CAGRADEPRODUTOXLOTESESTOQ prodXLote
    ON prodXLote.gradeProduto = a.gradeProduto
    WHERE ' || CASE WHEN p_produto = 0 THEN 'a.gradeProduto <> 0' ELSE 'a.produto = ' || p_produto END
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || '
    AND prodXLote.loteEstoque = ''' || RTRIM (v_codigoDescricaoComPontos) || '''
    AND prodXLote.ativo = 1'
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            END IF;
          END IF;
          IF p_config_40_pesqPeloNumSerie = 1 THEN
            v_contadorSubSelects := v_contadorSubSelects + 1;
            v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      prodXNumSer.idLoteEstoque,
      prodXLote.loteEstoque,
      prodXNumSer.idNumeroSerie,
      prodXNumSer.numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    JOIN CAGRADEPRODUTOXNUMEROSSER prodXNumSer
    ON prodXNumSer.gradeProduto = a.gradeProduto
    JOIN CAGRADEPRODUTOXLOTESESTOQ prodXLote
    ON prodXLote.idLoteEstoque = prodXNumSer.idLoteEstoque
    WHERE ' || CASE WHEN p_produto = 0 THEN 'a.gradeProduto <> 0' ELSE 'a.produto = ' || p_produto END
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || '
    AND prodXNumSer.numeroSerie = ''' || RTRIM (v_codigoDescricaoSemPontos) || '''
    AND prodXNumSer.ativo = 1
    AND prodXLote.ativo = 1'
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
    UNION ALL' END || '
    SELECT
      a.gradeProduto,
      a.produtoImpresso,
      a.descricaoImpressa,
      prodXNumSer.idLoteEstoque,
      prodXLote.loteEstoque,
      prodXNumSer.idNumeroSerie,
      prodXNumSer.numeroSerie,
      0 quantidade
    FROM CAGRADESPRODUTO a
    JOIN CAPRODUTOS produt
    ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    JOIN CAPRODUTOXESTABELECIMENTO prodXEst
    ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
    ' || p_join ELSE '' END
  || '
    JOIN CAGRADEPRODUTOXNUMEROSSER prodXNumSer
    ON prodXNumSer.gradeProduto = a.gradeProduto
    JOIN CAGRADEPRODUTOXLOTESESTOQ prodXLote
    ON prodXLote.idLoteEstoque = prodXNumSer.idLoteEstoque
    WHERE ' || CASE WHEN p_produto = 0 THEN 'a.gradeProduto <> 0' ELSE 'a.produto = ' || p_produto END
  || '
    AND a.ativo = 1
    AND produt.ativo = 1'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
    AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
    AND prodXEst.ativo = 1' ELSE '' END
  || '
    AND prodXNumSer.numeroSerie = ''' || RTRIM (v_codigoDescricaoComPontos) || '''
    AND prodXNumSer.ativo = 1
    AND prodXLote.ativo = 1'
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
    ' || p_andWhere END;
            END IF;
          END IF;
          v_select := v_select || '
  ) a
  WHERE ROWNUM <=2
) a';
          IF v_contadorSubSelects = 0 THEN
            v_select := 'SELECT
  0,
  '' '',
  '' '',
  0,
  '' '',
  0,
  '' '',
  0,
  0
FROM DUAL';
          END IF;
        END IF;
      END IF;
      EXECUTE IMMEDIATE v_select
      INTO
        v_gradeProduto,
        v_produtoImpresso,
        v_descricaoImpressa,
        v_idLoteEstoque,
        v_loteEstoque,
        v_idNumeroSerie,
        v_numeroSerie,
        v_quantidade,
        v_contaRegistros;
      IF v_contaRegistros = 1 THEN
        r_gradeProduto      := v_gradeProduto;
        r_codigoDescricao   := TRIM (v_produtoImpresso) || ' - ' || TRIM (v_descricaoImpressa);
        r_trocou            := 0;
        r_selecionou        := 1;
        r_idLoteEstoque     := v_idLoteEstoque;
        r_loteEstoque       := v_loteEstoque;
        r_idNumeroSerie     := v_idNumeroSerie;
        r_numeroSerie       := v_numeroSerie;
        IF v_quantidade > 0 THEN
          r_quantidade      := v_quantidade;
        END IF;
      ELSE
        IF v_contaRegistros > 1 THEN
          r_abrirTelaOnline   := 1;
        ELSE
          r_mensagemErro      := 'Nenhum produto encontrado.';
          r_observacoesErro   := '-- Componente: TrocaGradeProduto
-- Select da pesquisa:
' || v_select;
          IF v_codigoDescricaoSemPontos <> ' ' THEN
            v_select := 'SELECT COUNT (1)
FROM (';
            v_contadorSubSelects := 0;
            -- Se digitou número
            IF LENGTH (TRIM (v_codigoDescricaoSemPontos)) <= 14 AND FUNC_ADD_CONTEUDO_NUMERICO (v_codigoDescricaoSemPontos) = 1 THEN
              IF p_config_31_pesqPeloIdProduto = 1 THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.produto = ' || RTRIM (v_codigoDescricaoSemPontos)
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              END IF;
              IF p_config_32_pesqPeloEanGtin = 1 THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.eanGtin  = ''' || RTRIM (v_codigoDescricaoSemPontos) || ''''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              END IF;
              IF p_config_34_pesqPeloIdGradePro = 1 THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.gradeProduto = ' || RTRIM (v_codigoDescricaoSemPontos)
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              END IF;
              IF p_config_35_pesqPeloProdutoImp = 1 THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.produtoImpresso = ''' || RTRIM (v_codigoDescricaoSemPontos) || ''''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
                IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
                  v_contadorSubSelects := v_contadorSubSelects + 1;
                  v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.produtoImpresso = ''' || RTRIM (v_codigoDescricaoComPontos) || ''''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
                END IF;
                v_codigoDescricaoLoop := v_codigoDescricaoComPontos;
                WHILE (v_codigoDescricaoLoop <> '0' AND SUBSTR (v_codigoDescricaoLoop, 1, 1) = '0') LOOP
                  v_codigoDescricaoLoop := SUBSTR (v_codigoDescricaoLoop, 2, 299);
                END LOOP;
                IF v_codigoDescricaoLoop <> ' ' THEN
                  v_contadorSubSelects := v_contadorSubSelects + 1;
                  v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.produtoImpresso = ''' || RTRIM (v_codigoDescricaoLoop) || ''''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
                END IF;
              END IF;
              IF p_config_36_pesqPeloCodFabrica = 1 THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.codigoFabrica = ''' || RTRIM (v_codigoDescricaoSemPontos) || ''''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
                IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
                  v_contadorSubSelects := v_contadorSubSelects + 1;
                  v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.codigoFabrica = ''' || RTRIM (v_codigoDescricaoComPontos) || ''''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
                END IF;
              END IF;
            -- Se não digitou número
            ELSE
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.descricaoImpressa LIKE ''' || RTRIM (REPLACE (RTRIM (v_codigoDescricaoComPontos), ' ', '%')) || '%'''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              IF p_config_32_pesqPeloEanGtin = 1 AND FUNC_ADD_CONTEUDO_NUMERICO (SUBSTR(v_codigoDescricaoSemPontos,1,1)) = 1 THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.eanGtin  = ''' || RTRIM (v_codigoDescricaoSemPontos) || ''''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              END IF;
              IF p_config_35_pesqPeloProdutoImp = 1 AND FUNC_ADD_CONTEUDO_NUMERICO (SUBSTR(v_codigoDescricaoSemPontos,1,1)) = 1 THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.produtoImpresso = ''' || RTRIM (v_codigoDescricaoSemPontos) || ''''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
                IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
                  v_contadorSubSelects := v_contadorSubSelects + 1;
                  v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.produtoImpresso = ''' || RTRIM (v_codigoDescricaoComPontos) || ''''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
                END IF;
                v_codigoDescricaoLoop := v_codigoDescricaoComPontos;
                WHILE (v_codigoDescricaoLoop <> '0' AND SUBSTR (v_codigoDescricaoLoop, 1, 1) = '0') LOOP
                  v_codigoDescricaoLoop := SUBSTR (v_codigoDescricaoLoop, 2, 299);
                END LOOP;
                IF v_codigoDescricaoLoop <> ' ' THEN
                  v_contadorSubSelects := v_contadorSubSelects + 1;
                  v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.produtoImpresso = ''' || RTRIM (v_codigoDescricaoLoop) || ''''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
                END IF;
              END IF;
            END IF;
            -- Válido tanto para números quanto não números
            IF p_config_33_pesqPelaReferencia = 1 THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE produt.referencia LIKE ''' || RTRIM (v_codigoDescricaoSemPontos) || ''''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE produt.referencia LIKE ''' || RTRIM (v_codigoDescricaoComPontos) || ''''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              END IF;
            END IF;
            IF p_config_37_pesqPeloCodAnterio = 1 THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.codigoAnterior LIKE ''' || RTRIM (v_codigoDescricaoSemPontos) || ''''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  WHERE a.codigoAnterior LIKE ''' || RTRIM (v_codigoDescricaoComPontos) || ''''
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              END IF;
            END IF;
            IF p_config_38_pesqPeloProdXPess = 1 THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  JOIN CAGRADEPRODUTOXPESSOAS prodXPess
  ON prodXPess.gradeProduto = a.gradeProduto
  WHERE ' || CASE WHEN p_produto = 0 THEN 'a.gradeProduto <> 0' ELSE 'a.produto = ' || p_produto END
  || '
  AND ' || CASE WHEN p_cab_pessoa = 0 THEN 'prodXPess.pessoa = 0' ELSE '(prodXPess.pessoa = 0 OR prodXPess.pessoa = ' || p_cab_pessoa || ')' END
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || '
  AND prodXPess.codigoProduto = ''' || RTRIM (v_codigoDescricaoSemPontos) || '''
  AND prodXPess.ativo = 1'  
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  JOIN CAGRADEPRODUTOXPESSOAS prodXPess
  ON prodXPess.gradeProduto = a.gradeProduto
  WHERE ' || CASE WHEN p_produto = 0 THEN 'a.gradeProduto <> 0' ELSE 'a.produto = ' || p_produto END
  || '
  AND ' || CASE WHEN p_cab_pessoa = 0 THEN 'prodXPess.pessoa = 0' ELSE '(prodXPess.pessoa = 0 OR prodXPess.pessoa = ' || p_cab_pessoa || ')' END
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || '
  AND prodXPess.codigoProduto = ''' || RTRIM (v_codigoDescricaoComPontos) || '''
  AND prodXPess.ativo = 1'
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              END IF;
            END IF;
            IF p_config_39_pesqPeloLote = 1 THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  JOIN CAGRADEPRODUTOXLOTESESTOQ prodXLote
  ON prodXLote.gradeProduto = a.gradeProduto
  WHERE ' || CASE WHEN p_produto = 0 THEN 'a.gradeProduto <> 0' ELSE 'a.produto = ' || p_produto END
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || '
  AND prodXLote.loteEstoque = ''' || RTRIM (v_codigoDescricaoSemPontos) || '''
  AND prodXLote.ativo = 1'
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  JOIN CAGRADEPRODUTOXLOTESESTOQ prodXLote
  ON prodXLote.gradeProduto = a.gradeProduto
  WHERE ' || CASE WHEN p_produto = 0 THEN 'a.gradeProduto <> 0' ELSE 'a.produto = ' || p_produto END
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || '
  AND prodXLote.loteEstoque = ''' || RTRIM (v_codigoDescricaoComPontos) || '''
  AND prodXLote.ativo = 1'
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              END IF;
            END IF;
            IF p_config_40_pesqPeloNumSerie = 1 THEN
              v_contadorSubSelects := v_contadorSubSelects + 1;
              v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  JOIN CAGRADEPRODUTOXNUMEROSSER prodXNumSer
  ON prodXNumSer.gradeProduto = a.gradeProduto
  JOIN CAGRADEPRODUTOXLOTESESTOQ prodXLote
  ON prodXLote.idLoteEstoque = prodXNumSer.idLoteEstoque
  WHERE ' || CASE WHEN p_produto = 0 THEN 'a.gradeProduto <> 0' ELSE 'a.produto = ' || p_produto END
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || '
  AND prodXNumSer.numeroSerie = ''' || RTRIM (v_codigoDescricaoSemPontos) || '''
  AND prodXNumSer.ativo = 1
  AND prodXLote.ativo = 1'
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              IF v_codigoDescricaoComPontos <> v_codigoDescricaoSemPontos THEN
                v_contadorSubSelects := v_contadorSubSelects + 1;
                v_select := v_select || CASE WHEN v_contadorSubSelects = 1 THEN '' ELSE '
  UNION ALL' END || '
  SELECT a.gradeProduto
  FROM CAGRADESPRODUTO a
  JOIN CAPRODUTOS produt
  ON produt.produto = a.produto'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  JOIN CAPRODUTOXESTABELECIMENTO prodXEst
  ON prodXEst.produto = a.produto' ELSE '' END
  || CASE WHEN p_join IS NOT NULL AND p_join <> ' ' THEN '
  ' || p_join ELSE '' END
  || '
  JOIN CAGRADEPRODUTOXNUMEROSSER prodXNumSer
  ON prodXNumSer.gradeProduto = a.gradeProduto
  JOIN CAGRADEPRODUTOXLOTESESTOQ prodXLote
  ON prodXLote.idLoteEstoque = prodXNumSer.idLoteEstoque
  WHERE ' || CASE WHEN p_produto = 0 THEN 'a.gradeProduto <> 0' ELSE 'a.produto = ' || p_produto END
  || '
  AND produt.ativo = 0'
  || CASE WHEN p_config_28_somenteProdEst = 1 THEN '
  AND prodXEst.estabelecimento = '
  || CASE WHEN p_cab_estabelecimento = 0 THEN p_estabelecimentoAtivo ELSE p_cab_estabelecimento END || '
  AND prodXEst.ativo = 1' ELSE '' END
  || '
  AND prodXNumSer.numeroSerie = ''' || RTRIM (v_codigoDescricaoComPontos) || '''
  AND prodXNumSer.ativo = 1
  AND prodXLote.ativo = 1'
  || CASE WHEN p_andWhere IS NULL OR p_andWhere = ' ' THEN '' ELSE '
  ' || p_andWhere END;
              END IF;
            END IF;
            v_select := v_select || '
) a';
            IF v_contadorSubSelects = 0 THEN
              v_select := 'SELECT 0 FROM DUAL';
            END IF;
            EXECUTE IMMEDIATE v_select
            INTO v_contaRegistros;            
            IF v_contaRegistros > 0 THEN
              r_mensagemErro      := 'Produto inativo.';
            END IF;
          END IF;
        END IF;
      END IF;
    END IF;
  END IF;
END ADD_GRADE_PRODUTO_TROCA;

/

DROP INDEX MOORCAMENTOXCONFERENCIAS_K2;
CREATE INDEX MOORCAMENTOXCONFERENCIAS_K2 ON MOORCAMENTOXCONFERENCIAS (orcamento, documentoTransferencia, gradeProduto, idFormulaTinta, personalizacao, idLoteEstoque, idNumeroSerie, codigoErro, encerrado);

DROP INDEX MOPREDOCUMXCONFERENCIAS_K2;
CREATE INDEX MOPREDOCUMXCONFERENCIAS_K2 ON MOPREDOCUMXCONFERENCIAS (preDocumento, documentoTransferencia, gradeProduto, idFormulaTinta, personalizacao, idLoteEstoque, idNumeroSerie, codigoErro, encerrado, idItemDocTransferencia);

DROP INDEX MODOCFISCALXCONFERENCIAS_K2;
CREATE INDEX MODOCFISCALXCONFERENCIAS_K2 ON MODOCFISCALXCONFERENCIAS (idDocumentoFiscal, documentoTransferencia, gradeProduto, idFormulaTinta, personalizacao, idLoteEstoque, idNumeroSerie, codigoErro, encerrado, idItemDocTransferencia);

INSERT INTO SICONFIGURACOES (configuracao, descricao, ativo, subcategoriaConfiguracao, tipoCampo, mascara, exibirCampo, tipoArquivo, conteudoSugestao, tabelaSistema, observacoes) values (400, 'Modelo Impressão Orçamento Caractere', 1, 30001, 'N', '4', 'P', 0, '1', ' ', ' ');

COMMIT;

INSERT INTO SIOPCOESCOMBOCONFIGURACAO (id, conteudo, descricao, configuracao, ativo, ordenacao, observacoes) VALUES (139, '1', '1 - Com Percentual Desconto Item', 400, 1, 1, ' ');
INSERT INTO SIOPCOESCOMBOCONFIGURACAO (id, conteudo, descricao, configuracao, ativo, ordenacao, observacoes) VALUES (140, '2', '2 - Sem Percentual Desconto Item', 400, 1, 2, ' ');

COMMIT;

INSERT INTO SIVERSOESSISTEMA (idVersaoSistema, versaoAplicativo, dataLiberacaoVersao, possuiConversaoTabelas, atualizada, dataAtualizacaoVersao, observacoes) VALUES (2022003006, '2022.3.6', sysdate, 1, 1, sysdate, ' ');

COMMIT;

--exec dbms_utility.compile_schema('ADDERI');
--exec dbms_stats.gather_schema_stats('ADDERI');

/*
*/