function fnc_retorna_fornecedor( p_registro_lido in varchar2 ) return varchar2 is
lv_resultado varchar2(1);
begin
switch( p_registro_lido ) {
case like '%FORNECEDORES ESTRANGEIROS%':
lv_resultado := 'E';
break;
case like '%FORNECEDORES NACIONAIS - PESSOAS FISICAS%':
lv_resultado := 'F';
break;
case like '%FORNECEDORES NACIONAIS - PESSOAS JURIDICAS%':
lv_resultado := 'J';
break;
}
return lv_resultado;
end;
function fnc_retorna_fornecedor( p_registro_lido in varchar2 ) return varchar2 is
lv_resultado varchar2(1) := 'A';
begin
case
when p_registro_lido like '%FORNECEDORES ESTRANGEIROS%' then
lv_resultado := 'E';
when p_registro_lido like '%FORNECEDORES NACIONAIS - PESSOAS FISICAS%' then
lv_resultado := 'F';
when p_registro_lido like '%FORNECEDORES NACIONAIS - PESSOAS JURIDICAS%' then
lv_resultado := 'J';
return lv_resultado;
end;
function fnc_retorna_fornecedor( p_registro_lido in varchar2 ) return varchar2 is
lv_resultado varchar2(1) := 'A';
begin
lv_resultado := case
when p_registro_lido like '%FORNECEDORES ESTRANGEIROS%' then
'E'
when p_registro_lido like '%FORNECEDORES NACIONAIS - PESSOAS FISICAS%' then
'F'
when p_registro_lido like '%FORNECEDORES NACIONAIS - PESSOAS JURIDICAS%' then
'J'
end;
return lv_resultado;
end;