Falha ACBrEPCBlocos StrToInd_Rec

theiller · March 27, 2019

Favor corrigir falha na conversão de texto pra tipo:

Unit: ACBrEPCBlocos

Function: StrToInd_Rec

AValue = '03'

function StrToInd_Rec(const AValue: string):TACBrInd_Rec;
begin
if AValue = '01' then
Result := crCliente
else if AValue = '02' then
Result := crAdministradora
else if AValue = '03' then
Result := crTituloDeCredito
else if AValue = '04' then
Result := crDocumentoFiscal
else if AValue = '05' then
Result := crItemVendido
else if AValue = '99' then
Result := crOutros
else
raise Exception.Create(format('Valor informado [%s] deve estar entre (01,02,03,04,05 e 99)',[AValue]));
end;