Erro de Schema ao tentar enviar eventos da 1.5.1

[JRM Martins]

Boa tarde pessoal, ao tentar enviar o evento R-1000 de forma sincrona em produção, sempre era retornado que a estrutura do arquivo não estava correta.  Sendo que no ambiente restrito estava indo sem erro. Após analisar o problema observei que o no metodo VersaoReinfToStrHibrido da TReinfEvento estamos trocando a versão somente no ambiente de homologação, este tb deveria ser para o ambiente de produção, alterei o codigo abaixo para permitir em ambos e foi.
 

Acredito que isso irá valer para todos da família R-2000.

function TReinfEvento.VersaoReinfToStrHibrido(const t: TVersaoReinf): String;
begin
  with TACBrReinf(FACBrReinf) do
  begin
    Result := VersaoReinfToStr(Configuracoes.Geral.VersaoDF);

    // Producao Restrita da versao 1_05_01 migrada para versao 2_01_02
    // Mantidas urls, mudança apenas na URN
    if //( Configuracoes.WebServices.Ambiente = taHomologacao ) and
       ( Configuracoes.Geral.VersaoDF = v1_05_01 ) then
      Result := '2_01_02';
  end;
end;
 

Com esta alteração consegui enviar o R-1000 no ambiente de produção sem erro.

A unit é a pcnGeradorReinf.

 

Abraço

Rubens

[Renato Rubinho]

Boa tarde,

Obrigado pela contribuição.

Criada TK-4495 para análise e possível envio ao SVN.

[Renato Rubinho]

Boa noite,

Obrigado pela colaboração.
Foram enviadas correções ao SVN que devem resolver o problema relatado, Rev-30742
Por favor atualize os fontes, reinstale os componentes, verifique se o problema foi resolvido e, se possível, nos informe se foi o resultado esperado.
 

[JRM Martins]

Boa tarde @Renato Rubinho,

Atualizei aqui e fiz os testes, todos enviados com sucesso, obrigado.

Rubens

[Alexandre de Paula]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.