Erro Compilação Acbrnfse Delphi Xe3

[ronnei]

Fui instalar a versão atualizada hoje no meu Delphi Xe3 e ocorreu o erro:

 

D:\Dev\componentes\acbr\Fontes\ACBrNFSe\pnfsNFSeW.pas(1575) Error: E2003 Undeclared identifier: 'DateSeparator'

D:\Dev\componentes\acbr\Fontes\ACBrNFSe\pnfsNFSeW.pas(1576) Error: E2003 Undeclared identifier: 'ShortDateFormat'

D:\Dev\componentes\acbr\Fontes\ACBrNFSe\ACBrNFSeNotasFiscais.pas(1909) Fatal: F2063 Could not compile used unit 'pnfsNFSeW.pas'

Compilation failure

 

Fui até a Unit pnfsNFSeW.pas e vi que eram usadas variáveis Globais que foram depreciadas no XE3, para resolver o meu caso alterei o procedimento abaixo trocando as variáveis globais pelas chamadas a FormatSettings

 

procedure TNFSeW.GerarXML_Provedor_NFSEBrasil;
begin



 Gerador.wGrupoNFSe('Rps ' + FIdentificador + '="' + NFSe.InfID.ID + '"');

 GerarIdentificacaoRPS;

// Gerador.wCampoNFSe(tcDat, '#3','DataEmissao', 19, 19, 1, NFSe.DataEmissao + 'T10:00:00', DSC_DEMI);
 System.SysUtils.FormatSettings.DateSeparator:='-';
// DateSeparator := '-';
System.SysUtils.FormatSettings.ShortDateFormat:='yyyy-mm-dd';
// ShortDateFormat := 'yyyy-mm-dd';

 Gerador.wCampoNFSe(tcStr, '#3','DataEmissao', 19, 19, 1, DateTimeToStr(NFSe.DataEmissao)+ 'T10:00:00', DSC_DEMI);


System.SysUtils.FormatSettings.DateSeparator:='/';
//DateSeparator := '/';
System.SysUtils.FormatSettings.ShortDateFormat := 'dd/mm/yyyy';
// ShortDateFormat := 'dd/mm/yyyy';

 Gerador.wCampoNFSe(tcStr, '#4','NaturezaOperacao     ', 01, 01, 1, NaturezaOperacaoToStr(NFSe.NaturezaOperacao), '');
 Gerador.wCampoNFSe(tcStr, '#5','Status     ', 01, 01, 1, StatusRPSToStr(NFSe.Status), '');

// GerarServico;
GerarServicoValores_V2;

 GerarPrestador;
 GerarTomador;
 GerarIntermediarioServico;
 GerarConstrucaoCivil;

 Gerador.wGrupoNFSe('/Rps');
end;

Não estou usando a Nfse ainda, então não tenho como testar, então segue a dica para a equipe dar uma analisada no caso.

 

Links sobre o assunto: 

 

http://www.andreanolanusse.com/pt/delphi-xe3-e-suas-novidades-parte-2/

http://marciorossato.meucanal.com.br/decimalseparator-delphi-xe3/

 

 

 

Obrigado

 

 

 

 

 

[Juliomar Marchetti]

Boa tarde!

seus fontes deve de estar desatualizados !

você atualiza todo o svn ou em partes?

Utilizo em todas as versões do delphi e está ok!

outra coisa sempre utilize o ACBrInstall para por os componentes!

[ronnei]

Boa tarde Juliomar, atualizei o SVN antes de fazer isso que postei acima, e também utilizei o ACbrInstall, tive que corrigir o erro e depois usei o AcbrInstall e deu certo, atualizei de novo agora e não tem nada de novo, estou usando o SVN no repositório

 

svn://svn.code.sf.net/p/acbr/code

 

Portanto acredito que não seja isso a não ser que eu esteja em um repositório errado.

[Juliomar Marchetti]

Boa tarde

reverta seu código ao estado do svn e depois adicione na uses a unit ACBrConsts e tente compilar !

se resolver me retorne que faço o commit da alteração!

[ronnei]

Deu certo Juliomar. 

[Juliomar Marchetti]

Deu certo Juliomar. 

Obrigado pelo retorno !

já está no svn a correção!