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

Pessoal, desculpa. 
O problema era o momento onde eu estava configurando o tipo de contribuinte. Agora gerou o ID corretamente.
Abraços.