Tirgger ON-INSERT

[pmv]

Boa tarde.

Fiz uma procedure para inserir registros, e a chamo em um botão, só que está dando essa mensagem:

PROCEDURE nome_da_procedure ONLY ALLOWED IN AN ON-INSERT TRIGGER

Alguém sabe o porque de citar a trigger ON-INSERT ?

[dr_gori]

Passa pra gente o código do erro que deu: ORA.xxx ou FRM

[pmv]

Bom dia o erro é: FRM 40740.

[dr_gori]

Estranho, no botão deveria ser permitido qualquer tipo de comando!!!
O que você tem nessa procedure?

[pmv]

Boa tarde, a procedure é essa, não sei o código está totalmente correto, porém compila, mas acredito q o erro não tenha relação com isso.

Selecionar tudo

PROCEDURE insert_record (pCodigo number) is

 cursor cInsert (cod_ped number) is
                                  select cd_pedido 
																			  ,fornecedor 
																				,data_doc 
                                        ,num_doc 
                                        ,tp_doc
                                        ,valor_doc 
                                        ,venc_doc 
                                        ,tp_pagto 
                                        ,num_email 
                                        ,status 
                                        ,obs 
                                        ,outro_tp_pagto
                                    from tab_pedidos
                                   where cd_pedido = :cadastro_ped.cd_pedido;
                                    
	begin
		
		last_record;
	
		for record in cInsert(pCodigo) loop
			
			create_record;
			
			:cadastro_ped.cd_pedido            := record.cd_pedido;
      :cadastro_ped.fornecedor           := record.fornecedor;
      :cadastro_ped.data_doc             := record.data_doc;
      :cadastro_ped.num_doc              := record.num_doc;
      :cadastro_ped.tp_doc               := record.tp_doc;	  	
      :cadastro_ped.valor_doc            := record.valor_doc;
      :cadastro_ped.dt_venc_doc          := record.venc_doc;
      :cadastro_ped.tp_pagto             := record.tp_pagto;
      :cadastro_ped.num_email            := record.num_email;
      :cadastro_ped.status               := record.status;
      :cadastro_ped.observacoes          := record.obs;
      :cadastro_ped.desc_outro_tp_pagto  := record.outro_tp_pagto;  
          
		end loop;
		
    first_record;
      
 end;
	

[pmv]

Boa tarde.

Alguém sabe porque esse erro está acontecendo ?