(Resolvido) Update em SP

[ritamara]

Pessoal, bom dia!

Tenho a seguinte SP...

DELIMITER $$
DROP PROCEDURE IF EXISTS `mercodb`.`func_baixa_teste` $$
CREATE PROCEDURE `mercodb`.`func_baixa_teste` ()
BEGIN

  DECLARE existe_mais_linhas INT DEFAULT 0;
  DECLARE var_idcontrec BigInt(20);
  DECLARE var_loja      int(3);
  DECLARE var_lojarec   int(3);
  DECLARE var_caixa     int(3);
  DECLARE var_tipodoc   char(1);


  DECLARE var_nrdoc     bigint(16);
  DECLARE var_docto     varchar(16);
  DECLARE var_desdobr   char(2);
  DECLARE var_datareceb datetime;
  DECLARE var_valor     decimal(13,2);
  DECLARE var_cdhist    int(5);
  DECLARE var_portador  int(6);
  DECLARE var_usuario   varchar(30);

  DECLARE var_pendente  decimal(13,2);
  DECLARE var_atraso    int(6);
  DECLARE var_juros     decimal(13,2) DEFAULT 0.00;
  DECLARE var_obsjuros  varchar(40);

  DECLARE meu_cursor CURSOR FOR SELECT t.idcontrec, t.pendente, t.valor,   t.atraso,  t.juros, t.datareceb, t.obsjuros, t.nrdoctorec, t.usr, t.loja,
                                       c.nrdoc,      c.tipodoc, c.desdobr, c.loja,  c.caixa,     c.cdhist,   c.portador
                                  FROM tmp_rita t
                            inner join contrec c on c.id=t.idcontrec;

  -- Definição da variável de controle de looping do cursor
  DECLARE CONTINUE HANDLER FOR NOT FOUND SET existe_mais_linhas=1;

  DECLARE EXIT HANDLER FOR SQLWARNING
  BEGIN
      SELECT 'O dado foi truncado!' AS Msg_1;
      ROLLBACK;  -- a transação sofre um ROLLBACK
      SELECT 'A transação sofreu um ROLLBACK!' AS Msg_2;
  END;

  /*inicio a transaction*/
  START TRANSACTION;

  -- Abertura do cursor
  OPEN meu_cursor;

  -- Looping de execução do cursor
  meuLoop: LOOP
  FETCH meu_cursor INTO var_idcontrec, var_pendente, var_valor,   var_atraso, var_juros, var_datareceb, var_obsjuros, var_docto,   var_usuario, var_lojarec,
                        var_nrdoc,     var_tipodoc,  var_desdobr, var_loja,   var_caixa, var_cdhist,    var_portador;

  -- Controle de existir mais registros na tabela
  IF existe_mais_linhas = 1 THEN
  LEAVE meuLoop;
  END IF;

    -- Grava uma ocorrência na movrec
    insert into movrec set loja     = var_loja,
                           caixa    = var_caixa,
                           tipodoc  = var_tipodoc,
                           nrdoc    = var_nrdoc,
                           desdobr  = var_desdobr,
                           data     = var_data,
                           valor    = var_valor,
                           cdhist   = var_cdhist,
                           nrdocto  = var_nrdoc,
                           portador = var_portador,
                           usuarui  = var_usuario,
                           lojarec  = var_lojarec;


     UPDATE contrec  SET valrec = (valrec+var_pendente),
                         receb  = var_data,
                         atraso = var_atraso,
                         usrrec = var_usuario,
                   WHERE id = var_idcontrec;


   -- Se tiver juros eu lanco uma ocorrência na corno
    IF var_juros > 0 THEN
      insert into contrecocorfin set loja    = var_lojarec,
                                   caixa   = var_caixa,
                                   tipodoc = var_tipodoc,
                                   nrdoc   = var_nrdoc,
                                   desdobr = var_desdobr,
                                   data    = var_data,
                                   valor   = var_juros,
                                   obs     = var_obsjuros,
                                   usrinc  = var_usuario;
    END IF;

  -- Retorna para a primeira linha do loop
  END LOOP meuLoop;

  COMMIT;
end $$

DELIMITER;

Porém ao executar o código acima apresenta mensagem de erro na linha do update. Qualquer ajuda será bem vinda!

Obrigada! :rolleyes:

Editado Fevereiro 8, 2010 por Jonathan Queiroz
Remover caixa alta do título (Jonathan)

[lbvitoriano]

Olá ritamara, bom dia!

Seu problema ocorre, pois tem uma vírgula sobrando, antes do where no seu comando update.

Tente remover e teste novamente, é para funcionar.

qualquer coisa tamos ae.