Função "tipoitemtostr" Retorna Com Valor + 1

[Amilcarcv]

A função TipoItemToStr está transformando o índice em string com o valor + 1, só que o índice começa com 0.

 

function TipoItemToStr(AValue: TACBrTipoItem): string;
begin
   if AValue = tiOutras then
      Result := '99'
   else
      Result := FormatFloat('00', Integer( AValue ) + 1 );  <<== NÃO DEVERIA TER O  "+ 1"

//   Result := EnumeradoToStr(AValue, ['00', '01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '99'],

 

 

Envio arquivo corrigido em anexo.

ACBrEPCBlocos.pas

[Isaque Pinheiro]

Corrigido e já disponível, obrigado.