Menu de navegação

[LeloStyleParticipante]

Boa tarde pessoal,

to com uma dúvida, se alguem puder me dar um help !!!

[b]È assim estou precisando validar o campo e tem essas condições
Se o endosso for de inclusão de item e o tipo de seguro for ‘O’ ou ‘R’, deixar este campo disponível para digitação. A validação deste campo será feita utilizando as rotinas PROD1703_002 e PROD1703_003. Caso o dígito verificador não seja válido, será mostrada a mensagem “Dígito Verificador Inválido.” e não será permitida a inclusão/alteração.
[/b]

Só que como sou iniciante to com dificuldade, se laguem pudesse postar um exemplo.

Gratooo

[LeloStyleParticipante]

Galera, tinha feitooo uma lagum tempo atras, creio que é nesse caminho, só que da erro falando tipo para declarar as proc
declare
v_digito_antn varchar2(2); --variável criada para validar o digito pela ci recebida pela central_bonus_pergunta
v_digiton number; --variável criada para trazer da procedure que calcula o digito para comparar com o anterior
p_mens varchar2(2000);
v_digito_antold varchar2(2); --variável criada para validar o digito pela ci recebida pela central_bonus_pergunta
v_digito number;--variável criada para trazer da procedure que calcula o digito para comparar com o anterior
v_ci varchar2(13);
begin
if :pitcau.id_codigo_identificacao is not null then
--validação do dígito do ci solicitado pelo rogério segundo a os 456/2007, apenas como informativo (Eliana Oliveira)
if length(:pitcau.id_codigo_identificacao) = 14 then
v_digito_antn := substr(:pitcau.id_codigo_identificacao,14,1);
prod1703_003(:pitcau.id_codigo_identificacao,v_digiton,p_mens);
if to_char(v_digiton) v_digito_antn then
v_digito_antold := substr(:pitcau.id_codigo_identificacao,14,1);
v_ci := substr(:pitcau.id_codigo_identificacao,1,13);
prod1703_002(v_ci,v_digito,p_mens);
if to_char(v_digito) v_digito_antold then
mensagem('Digito Verificador Inválido. ');
end if;
end if;
else
mensagem('Digito Verificador Inválido. ');
end if;
end if;
exception
when others then
p_mens := 'Problemas ao validar o dígito de CI.'||sqlerrm;
end;

C alguém puder dar uma ajuda

grato

[Rodrigo MesquitaParticipante]

Lelo,

Se ele está dando erro pedindo para declarar uma procedure siginifica que o usuário do banco que vc está conectado não tem permissão para executar esta procedure. Verifique qual a procedure ques está dando este problema e por que o forms não está localizando a mesma. Caso esteja compilata em outro usuário diferente do que vc está logado coloque o nome do usuário proprietário da procedure antes da procedure.

[LeloStyleParticipante]

Valew Rodrigooo, muito obrigado, resolvi o problema.

Abraço

[Autor]

Posts