no 'trecho achou = TRUE; ' não seria: achou boolean := TRUE;
não precisa por duas vezes a var achou (uma declaração e a inicialização). ou se prefere iniciliar fora da declaração, tente colocar o 'achou = TRUE;' dentro do BEGIN. espero ter ajudado. []'s Em 04/09/06, cabal_o <[EMAIL PROTECTED]> escreveu: > > Já Vrf isto, troquei, mas ele continua me indicando q o trigger foi > criado, mas contém erros de compilação. Estou usando o > SqlPlusWorkSheet, para escrever o código. > > > --- Em oracle_br@yahoogrupos.com.br, "Alfonso, Carlos Eduardo" > <[EMAIL PROTECTED]> escreveu > > > > Olá cabal, > > Apesar de voce não informar qual o erro????? > > Verifique isso. > > > > Quando voce utiliza um For/Loop > > Voce Deveria definir: > > For <linha> in <cursor> > > Loop > > ... > > End Loop; > > > > Seu comando: > > FOR ConjuntoDados IN LinhaDados > > Loop > > ... > > End Loop; > > > > > > > > -----Original Message----- > > From: oracle_br@yahoogrupos.com.br > [mailto:[EMAIL PROTECTED] On Behalf Of cabal_o > > Sent: segunda-feira, 4 de setembro de 2006 13:29 > > To: oracle_br@yahoogrupos.com.br > > Subject: [oracle_br] Pq este Código não funciona ?? > > > > Quero selecionar numa tabela Todos os registos q contenhao um > campo > > status = '1' se todos os registros for 1 então devo atualizar > outra > > tabela senão, não devo fazer nada. > > fiz este código abaixo com este cursor, o Oracle8i compila, mas dá > > uma msg de Gatilho criado com erros de Compilação. > > Alguém pode ajudar ??? > > ------------------------------------------------------------------- > - > > CREATE OR REPLACE TRIGGER "GERENTE"."IND_TRI_FECHADS" > > AFTER INSERT OR UPDATE ON "IND_TB_AUXILIO_OFICINAS" REFERENCING > > OLD AS V > > NEW AS N > > FOR EACH ROW > > Declare > > Achou boolean; > > Cursor ConjuntoDados IS > > Select Cod_Protocolo, Status from > > Gerente.ind_tb_auxilio_oficinas > > Where :V.Cod_protocolo = V.Cod_protocolo; > > achou = TRUE; > > BEGIN > > FOR ConjuntoDados IN LinhaDados > > Loop > > If LinhaDados.Status = '2' then > > achou = FALSE; > > end if; > > End Loop; > > If ACHOU then > > Update Gerente.ind_tb_DS set STATUS = 'O' > > where Cod_protocolo = :V.Cod_protocolo > > end if; > > end iND_TRI_FECHADS; > > > > > > > > > > > > > > ------------------------------------------------------------------- > ------------------------------------------------------- > > Atenção! As mensagens deste grupo são de acesso público e de > inteira responsabilidade de seus remetentes. > > Acesse: http://www.mail-archive.com/oracle_br@yahoogrupos.com.br/ > > ------------------------------------------------------------------- > ------------------------------------------------------- > __________________________________________________________________ > > > > OPORTUNIDADES DE TRABALHO, VAGAS, EMPREGOS PARA PROFISSIONAIS > ORACLE VISITE: http://www.oraclebr.com.br/ > > __________________________________________________________________ > > Este Grupo recebe o apoio da SQL Magazine - > www.devmedia.com.br/sqlmagazine > > Links do Yahoo! Grupos > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] -------------------------------------------------------------------------------------------------------------------------- Atenção! As mensagens deste grupo são de acesso público e de inteira responsabilidade de seus remetentes. Acesse: http://www.mail-archive.com/oracle_br@yahoogrupos.com.br/ --------------------------------------------------------------------------------------------------------------------------__________________________________________________________________ OPORTUNIDADES DE TRABALHO, VAGAS, EMPREGOS PARA PROFISSIONAIS ORACLE VISITE: http://www.oraclebr.com.br/ __________________________________________________________________ Este Grupo recebe o apoio da SQL Magazine - www.devmedia.com.br/sqlmagazine Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/oracle_br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html