ola msi uma vez eu pedindo ajuda .. eu coloquei esse if dentro de uma fun??o na realidade a fun??o tem varios desses eu gostaria de saber se esta certo retornar o valor como esta ai a baixo eu devo usar o return … e qual o melhor comando pra eu mostrar qdo a valida??o nao estiver correta
mais uma vez muito obrigada
if puf=’CE’then
strbase := substr(strorigem,’fm000000000′);
intsoma := 0;
for intpos in 1..8 LOOP
intvalor := (to_number(substr(strbase, intpos, 1)));
intvalor := intvalor * (10 – intpos);
intsoma := intsoma + intvalor;
end loop;
intresto := mod(intsoma,11);
intvalor := 11 – intresto;
if intvalor > 9 then
intvalor := 0;
end if;
strdigito1 := substr(to_char(intvalor), 1);
strbase2 := substr(strbase, 8) || strdigito1;
if strbase2 = strorigem then
checainscre := true;
— else
— mensagem de erro
—
end if;
end if;