Erro Ao Instalar Acbrnfse

[NeoSquare]

Olá.

 

Ao utilizar o instalador do ACBr, está ocorrendo erro ao compilar o pacote de NFSe.

 

Estou instalando conforme mostra a imagem em anexo.

 

Em outros computadores, a instalação ocorreu sem erros.

 

Grato.

[Leonardo Gregianin]

Qual o erro, poste o log.

[NeoSquare]

O erro ocorre na linha 101 do ACBRNFSeUtil, pois ele não encontra o tipo TEncoding.

 

De qualquer forma, o log está em anexo.

 

EDITADO: Uso o Delphi 2010.

log_Delphi_2010.txt

Editado 26 Setembro, 2013 por NeoSquare

[Juliomar Marchetti]

Falta a diretiva de compilação pra ver se a versão possui esse parametro

[NeoSquare]

Removendo todas as referências à variável TEncoding, o erro desaparece. Essa alteração é muito recente, pois quando atualizei meu ACBr ontem ela ainda não existia.

 

Juliomar, isso é algo que falta no ACBr, ou no meu projeto?

 

EDITADO: A diretiva de compilação existe no ACBr: {$IFDEF DELPHI2009_UP}

Editado 26 Setembro, 2013 por NeoSquare

[Leonardo Gregianin]

Esta é uma alteração feita hoje (rev 5921). Já existe a diretiva de compilação lá, deve estar errada.

[NeoSquare]

Para resolver o erro do TEncoding, basta jogaro SysUtils para o Uses da Interface.

 

Está agora ocorrendo erro na linha 1519 de ACBrNFSeUtil.pas: TEncoding.ANSI.

 

O Delphi não encontra o ANSI.

[NeoSquare]

Olá.

 

Procurei no API do Delphi e não achei o ANSI dentro do TEncoding. Alterei para ASCII para funcionar. Mesmo assim gostaria que fosse passado um acerto para que fique tudo de acordo com o trunk.

 

Fonte da pesquisa: http://docwiki.embarcadero.com/CodeExamples/XE2/en/TEncoding_%28Delphi%29

[Juliomar Marchetti]

Esta é uma alteração feita hoje (rev 5921). Já existe a diretiva de compilação lá, deve estar errada.

Atualizei e a revisão está 5923

[Leonardo Gregianin]

No delphi 2010 ainda não tinha o TEncoding.ANSI.

 

Tem que inserir uma diretiva para entrar no TEncoding.ANSI somente acima do delphi XE2.

[Leonardo Gregianin]

Tem que inserir o SysUtils no uses global da unit e inserir a diretiva de compilação {$IFDEF VER230} para não entrar no bloco quando for inferior ao Delphi XE2. Segue abaixo a correção:

{$IFDEF DELPHI2009_UP}
class function NotaUtil.LoadXML(CaminhoArquivo: string): TEncoding;
var ArquivoXML: TStringList;
begin
   ArquivoXML := TStringList.Create;
   ArquivoXML.LoadFromFile(CaminhoArquivo, TEncoding.UTF8);
   if ArquivoXML.Text <> '' then
     Result := TEncoding.UTF8
   else
   begin
     {$IFDEF VER230}
     ArquivoXML.LoadFromFile(CaminhoArquivo ,TEncoding.ANSI);
     if ArquivoXML.Text <> '' then
       Result := TEncoding.ANSI
     else
     begin
     {$ENDIF}
       ArquivoXML.LoadFromFile(CaminhoArquivo, TEncoding.ASCII);
       if ArquivoXML.Text <> '' then
         Result := TEncoding.ASCII
       else
       begin
         ArquivoXML.LoadFromFile(CaminhoArquivo,TEncoding.Unicode);
         if ArquivoXML.Text <> '' then
           Result := TEncoding.Unicode
         else
         begin
           ArquivoXML.LoadFromFile(CaminhoArquivo ,TEncoding.UTF7);
           if ArquivoXML.Text <> '' then
             Result := TEncoding.UTF7
           else
             Result := TEncoding.Default;
         end;
       end;
     {$IFDEF VER230}
     end;
     {$ENDIF}
   end;
   ArquivoXML.Free;
end;
{$ENDIF}