2

Estou com um problema na parte de cursor: cursor with the name 'CursoBanco' does not exist.

Código sql:

if @Opcao='1'                
  begin                
  set @tipoPagamento='20'                
  set @LayOut='040'                
  declare CursoBanco Cursor LOCAL STATIC for                

     Select distinct ct.BcoNum AS BANCO,                 
      (case when left(ct.BcoNum,3) = '341' then '01'                

          THEN (case WHEN left(empcpfcgc,8)=left(entcpfcgc,8) then '43' else 
      '41' end)                
         else (case WHEN left(empcpfcgc,8)=left(entcpfcgc,8) then '07' else '03' end)                
                    END)                
         END) AS TipoRemesa                

    From PARC_DOC_FIN  PDF With(Nolock),ITEM_COB_BANC ICB 
   With(Nolock),conta_parc_doc_fin ct With(Nolock),                
         Empresa_filial ef With(Nolock), entidade ent with(nolock)          
      Where PDF.EmpCod = ICB.EmpCodparc                    
        And PDF.DocFinChv = ICB.DocFinChv                     
        And PDF.ParcDocFinSeq = ICB.ParcDocFinSeq                    
        And PDF.ParcDocFinDesmPag = ICB.ParcDocFinDesmPag                  
        And ICB.BcoNum = @Banco                    
        And ICB.CobBancRemNum = @Remessa                    
        And left(ICB.EmpCod,2) = left(@Empresa,2)                
        And ICB.CobBancTipo = @Tipo                    
        And ICB.AgNum = @Agencia                    
        And left(ICB.EmpCod,2)=ef.empcod                
        And PDF.entcod=ent.entcod                
        and ct.empcod = icb.empcod             
        and ct.docfinchv = icb.docfinchv                
        and ct.ParcDocFinSeq = icb.ParcDocFinSeq                
       order by TipoRemesa                
    end                


if @Opcao='2'                
 begin                
   set @tipoPagamento='20'                
   set @LayOut='030'                
   declare CursoBanco Cursor LOCAL STATIC for                
   Select distinct left(pdf.parcdocfincodleit,3) AS BANCO, (CASE left(pdf.parcdocfincodleit,3) WHEN '341' THEN '30' ELSE '31' END) AS TipoRemesa                
     From  PARC_DOC_FIN PDF With(Nolock),ITEM_COB_BANC ICB With(Nolock)                    
       Where PDF.EmpCod = ICB.EmpCodparc                    
         And PDF.DocFinChv = ICB.DocFinChv                     
         And PDF.ParcDocFinSeq = ICB.ParcDocFinSeq                    
         And PDF.ParcDocFinDesmPag = ICB.ParcDocFinDesmPag                  
         And ICB.BcoNum = @Banco                    
     And ICB.CobBancRemNum = @Remessa                    
         And left(ICB.EmpCod,2) = left(@Empresa,2)                
         And ICB.CobBancTipo = @Tipo                    
        And ICB.AgNum = @Agencia                    
   order by TipoRemesa                      
 end                

if @Opcao='3'                
begin                

    -- DARF = 22 - 16     GPS = 22 - 17    FGTS/GFIP = 22 - 35                
   set @tipoPagamento='22'                
   set @LayOut='030'                

declare CursoBanco Cursor LOCAL STATIC for                
   Select distinct left(pdf.parcdocfincodleit,3) AS BANCO,                 
       (Case when (docfinespec = 'FGTS') or (pdf.entcod = '0000069') or 
(pdf.entcod = '0002924') then '35'                
             when (docfinespec = 'GPS') or (pdf.entcod = '0002481') then '17'                
                when docfinespec = 'DARF' then '16' end) as TipoRemesa                       
     From  PARC_DOC_FIN PDF With(Nolock),ITEM_COB_BANC ICB With(Nolock), 
    Doc_fin DF With(noLock)                    
       Where PDF.EmpCod = ICB.EmpCodparc                    
         And PDF.DocFinChv = df.DocFinChv                 
          And PDF.EmpCod = Df.EmpCod                 
         And PDF.DocFinChv = ICB.DocFinChv                     
         And PDF.ParcDocFinSeq = ICB.ParcDocFinSeq                    
         And PDF.ParcDocFinDesmPag = ICB.ParcDocFinDesmPag                  
         And ICB.BcoNum = @Banco                    
         And ICB.CobBancRemNum = @Remessa                    
         And ICB.EmpCod = @Empresa                         
         And ICB.CobBancTipo = @Tipo                    
        And ICB.AgNum = @Agencia                    
       order by BANCO                      
      end   


   if @Opcao='4'
   begin
     set @tipoPagamento='20' -- Diversos - FP- 13 Pagto Concessionarias;
     set @LayOut='030'

    declare CursoBanco Cursor LOCAL STATIC for
    Select distinct substring(pdf.parcdocfincodleit,2,1) AS Banco,  '13' as 
    TipoRemessa
      From  PARC_DOC_FIN PDF With(Nolock),ITEM_COB_BANC ICB With(Nolock)
     Where PDF.EmpCod = ICB.EmpCodparc
       And PDF.DocFinChv = ICB.DocFinChv
       And PDF.ParcDocFinSeq = ICB.ParcDocFinSeq
       And PDF.ParcDocFinDesmPag = ICB.ParcDocFinDesmPag
       And ICB.BcoNum = @Banco
       And ICB.CobBancRemNum = @Remessa
       And left(ICB.EmpCod,2) = left(@Empresa,2)
       And ICB.CobBancTipo = @Tipo
       And ICB.AgNum = @Agencia
     order by Banco -- Banco = Segmento = 1-Prefeituras;2-Saneamento;3-Energia Eletrica e Gas;4-Telecomunicações; 5- DARF/GPS com codigo
end

Open CursoBanco
5
  • Você pode colocar o que você faz dentro do cursor pra vermos se é possível substituir por outro comando?
    – Sorack
    Commented 18/05/2018 às 11:51
  • Não entendi muito bem. Será que teria algum exemplo para eu ter como referência? Commented 18/05/2018 às 11:56
  • Na verdade não foi eu que fiz esse código. Mas há 4 ifs. Vou editar a pergunta para verem Commented 18/05/2018 às 12:32
  • Felipe, ignore meu comentário sobre escopo de variável; foi falha minha. A princípio o que ocorreu é que o cursor não estava declarado no momento da execução de Open.
    – José Dız
    Commented 18/05/2018 às 12:35
  • Somente para fins de testes, antes de Open CursoBanco coloque SELECT @Opcao e repita o processamento. Verifique se o valor de "@Opcao" é um dos 4 valores tratados anteriormente.
    – José Dız
    Commented 18/05/2018 às 12:44

2 Respostas 2

1

Você pode criar uma tabela variável e inserir os registros nela. Após isso crie, fora dos ifs o cursor que deseja:

DECLARE @banco TABLE(banco VARCHAR(10),
                     tipo  VARCHAR(10));

IF @opcao = '1'
BEGIN
  SET @tipoPagamento='20';
  SET @LayOut='040';

  INSERT INTO @banco(banco, tipo)
  // QUERY DA OPÇÃO 1
END;

IF @opcao = '2'
BEGIN
   SET @tipoPagamento = '20';
   SET @LayOut = '030';

  INSERT INTO @banco(banco, tipo)
  // QUERY DA OPÇÃO 2
END;

IF @Opcao='3'
BEGIN
  -- DARF = 22 - 16     GPS = 22 - 17    FGTS/GFIP = 22 - 35
  SET @tipoPagamento = '22';
  SET @LayOut = '030';

  INSERT INTO @banco(banco, tipo)
  // QUERY DA OPÇÃO 3
END;

IF @Opcao = '4'
BEGIN
  SET @tipoPagamento = '20'; -- Diversos - FP- 13 Pagto Concessionarias;
  SET @LayOut = '030';

  INSERT INTO @banco(banco, tipo)
  // QUERY DA OPÇÃO 4
END;

DECLARE CursoBanco CURSOR FOR
  SELECT b.banco,
         b.tipo
    FROM @banco b
Open CursoBanco
FETCH NEXT FROM CursoBanco Into @bancofavorecido, @formapagamento
WHILE (@@FETCH_STATUS = 0)
BEGIN
  // LOGICA DO CURSOR

  FETCH NEXT FROM CursoBanco Into @bancofavorecido, @formapagamento
END;
CLOSE CursoBanco;
DEALLOCATE CursoBanco;
7
  • A principio os erros desapareceram. Só que no valor final, na hora de passar o cursor, recebe a seguinte mensagem: Cursorfetch: The number of variables declared in the INTO list must match that of selected columns. Commented 18/05/2018 às 13:17
  • O código coloquei na sua resposta ali em cima. Commented 18/05/2018 às 13:18
  • Você colocou uma variável no select. Tem que fazer diretamente dos dois campos que você quer colocar nas variáveis
    – Sorack
    Commented 18/05/2018 às 13:20
  • Não entendi..kkkkkk Commented 18/05/2018 às 13:26
  • Ah tá eu só peguei a variável....kkkk Commented 18/05/2018 às 13:30
0

Em algumas linguagens há a questão de escopo, em que variáveis declaradas dentro de um bloco (geralmente par BEGIN END) somente existem dentro do bloco. Mas, no caso de T-SQL não há essa característica.

Considerando-se a mensagem de erro informada pelo Felipe, cursor with the name 'CursoBanco' does not exist, e a declaração condicional do cursor CursoBanco (que depende do valor da variável @Opcao), o mais provável é que nenhum dos blocos em que o cursor é declarado tenha sido executado.

Exemplificando, na execução do código abaixo não ocorre nenhum erro:

-- código #1
declare @Opcao int;
set @Opcao= 1;

IF @Opcao = 1
  begin
  declare B cursor local
    for SELECT * from tabela;
  end;

Open B;

Mas na execução do código #2 é exibida a mesma mensagem de erro citada pelo Felipe:

-- código #2
declare @Opcao int;
set @Opcao= 2;

IF @Opcao = 1
  begin
  declare B cursor local
    for SELECT * from tabela;
  end;

Open B;

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .