Versão Atual com erro no Envio de todos eventos

[EdmarFrazao]

do eventos que testei

 

1000, 1005, 1010 , 2299

 

gera o xml correto , mas quando vai enviar da o mesmo erro abaixo

 

schemas 2.4.01

ja estão com a nova estrutura

 

copiei da pasta  ACBr\Exemplos\ACBrDFe\Schemas\eSocial 

schemas

  v2_04_01 ( subpasta

 v2_04_02(subpasta)

 

 

setei   em  a pasta correta, na versão de antes da atualização do cvs de segunda 11/03/2018 , gera e envia corretamente.

 

na versão atual esta dando o mesmo erro

@Italo Jurisato Junior

 

2012345670000002018031509270841758-S-1005-1.xml

2012345670000002018031509270870602-S-1005-2.xml

2012345670000002018031509270883438-S-1005-0.xml

evtTabEstab.xml

2 minutos atrás, EdmarFrazao disse:

do eventos que testei

 

1000, 1005, 1010 , 2299

 

gera o xml correto , mas quando vai enviar da o mesmo erro abaixo

 

schemas 2.4.01

ja estão com a nova estrutura

 

copiei da pasta  ACBr\Exemplos\ACBrDFe\Schemas\eSocial 

schemas

  v2_04_01 ( subpasta

 v2_04_02(subpasta)

 

 

setei   em  a pasta correta, na versão de antes da atualização do cvs de segunda 11/03/2018 , gera e envia corretamente.

 

na versão atual esta dando o mesmo erro

@Italo Jurisato Junior

 

2012345670000002018031509270841758-S-1005-1.xml

2012345670000002018031509270870602-S-1005-2.xml

2012345670000002018031509270883438-S-1005-0.xml

evtTabEstab.xml

a tela foi da geração do S1000, mas da o mesmo na tela do S1005.

usei o demo para testar mesmos erro

 

[Joceandro Perin]

Tbm estou com esse erro dps de sincronizar os fontes ontem

[RicardoVoigt]

Bom dia,

ontem a noite, depois dessa última atualização, também tive esse mesmo erro na montagem do XML, até em eventos que já tinham sido enviados e estavam ok no ambiente de homologação.

Pelo teste que fiz salvando um XML, parecia estar faltando a parte "envioLoteEventos", pois o XML continha apenas a parte do respectivo evento gerado.

Att

Ricardo

[AlissonMarcel]

Mesma coisa! alguém sabe o que foi mudado para eu poder investigar?

[Joceandro Perin]

Pelo que eu vi aqui o erro acontece no método Validar da unit ACBreSocialLoteEventos

Parece que foi alterado o método GetIDEvento dessa unit, e não está mais retornado a string "ID"

[Joceandro Perin]

Voltei a implementação anterior da função , GetIDEvento e o envio funcionou, mas a consulta retorna erro 500  

@Italo Jurisato Junior alguma ideia??

[Joffas]

Poise ontem estava normal agora retorna o Erro 500 e não dei update no componente de ontem para Hoje... acredito ser um erro no servidor do E-Social, porque pra enviar já foi dificil...

 

[Joceandro Perin]

8 minutos atrás, Jonathan Fabricio Seibel disse:

Poise ontem estava normal agora retorna o Erro 500 e não dei update no componente de ontem para Hoje... acredito ser um erro no servidor do E-Social, porque pra enviar já foi dificil...

 

Ahh, pode ser então ws do esocial com problema.. Com os ajustes que foi feito ontem, o envio não estava funcionando, aí voltando a função GetIDEvento para a implementação anterior, volta a funcionar..

[Joffas]

Blz.. a minha esta assim:

function TItemLoteEventos.GetIDEvento: string;
var
  Ini: Integer;
begin
  //     <evtInfoEmpregador Id="ID1012345678900002017071908065532932">
  Result := EmptyStr;
  Ini := pos('Id=', XML);
  if ini > 0 then
  begin
    Result := Copy(XML, Ini + 4, 38);
    Result := StringReplace(Result, '"', '', []);
    Result := StringReplace(Result, '>', '', []);
    Result := StringReplace(Result, '<', '', []);
    Result := StringReplace(Result, '=', '', []);
  end;
end;

 

Como deve ser ?

[Joceandro Perin]

4 minutos atrás, Jonathan Fabricio Seibel disse:

Blz.. a minha esta assim:

function TItemLoteEventos.GetIDEvento: string;
var
  Ini: Integer;
begin
  //     <evtInfoEmpregador Id="ID1012345678900002017071908065532932">
  Result := EmptyStr;
  Ini := pos('Id=', XML);
  if ini > 0 then
  begin
    Result := Copy(XML, Ini + 4, 38);
    Result := StringReplace(Result, '"', '', []);
    Result := StringReplace(Result, '>', '', []);
    Result := StringReplace(Result, '<', '', []);
    Result := StringReplace(Result, '=', '', []);
  end;
end;

 

Como deve ser ?

Essa que você passou é a correta a que funciona, aí foi ajustado pra essa..

function TItemLoteEventos.GetIDEvento: string;
var
  Ini: Integer;
begin
  Result := EmptyStr;
  Ini := pos('Id=', XML);
  if ini > 0 then
    Result := OnlyNumber(Copy(XML, Ini + 4, 38));
end;

nessa implementação ele remove a string "ID" deixando apenas a numeração.. Aí retorna o erro do ID incorreto..

Eu acho que o Italo ajustou essa função pra poder gerar os XML em diretório com uma ID pra não sobrepor sempre o mesmo XML, e assim manter o histórico dos XML gerados..

Editado 15 Março, 2018 por Joceandro Perin

[Joffas]

Poiseh mais o estranho que na consulta o erro 500 continua...  e para enviar... vi que o servidor estava caindo o tempo todo até que por fim consegui...

[Joceandro Perin]

10 minutos atrás, Jonathan Fabricio Seibel disse:

Poiseh mais o estranho que na consulta o erro 500 continua...  e para enviar... vi que o servidor estava caindo o tempo todo até que por fim consegui...

Aqui tbm não consigo consultar, retorna o erro 500..

[Joceandro Perin]

Verifiquei aqui em outros grupos e o problema é no servidor do eSocial mesmo..

[Italo Giurizzato Junior]

Boa tarde a todos,

Favor atualizar os fontes e façam novos testes parece que o Web Service do eSocial voltou a funcionar.

[fabibona]

Voltou a funcionar somente para envio, na consulta continua retornando erro Http: 500

[fabibona]

Agora voltou a funcionar completamente

[EdmarFrazao]

4 horas atrás, Jonathan Fabricio Seibel disse:

Poise ontem estava normal agora retorna o Erro 500 e não dei update no componente de ontem para Hoje... acredito ser um erro no servidor do E-Social, porque pra enviar já foi dificil...

 

Este erro em geral é:

Webservice eSocial fora do Ar , não esta funcionando.

 

58 minutos atrás, Italo Jurisato Junior disse:

Boa tarde a todos,

Favor atualizar os fontes e façam novos testes parece que o Web Service do eSocial voltou a funcionar.

Resolvido o problema do envio.

[Wendell Andrade]

Bom dia a todos, 

Estava com esse problema ontem e verificando o componente vi o seguinte

Quando o servidor está fora do ar é retornada uma mensagem informando a situação, porém o componente não está tratando esse retorno e está disparando um exception, vejam a função abaixo.

 

function TDFeHttpOpenSSL.Enviar(const ConteudoXML: String; const AURL: String;
  const ASoapAction: String; AMimeType: String): String;
var
  OK: Boolean;
begin
  Result := '';

  // Configurando o THTTPSend //
  ConfigurarHTTP(AURL, ASoapAction, AMimeType);

  // Gravando no Buffer de Envio //
  WriteStrToStream(FHTTP.Document, AnsiString(ConteudoXML)) ;

  // DEBUG //
  //FHTTP.Document.SaveToFile( 'c:\temp\HttpSendDocument.xml' );
  //FHTTP.Headers.SaveToFile( 'c:\temp\HttpSendHeader.xml' );

  // Transmitindo //
  OK := FHTTP.HTTPMethod('POST', AURL);

  // Lendo a resposta //
  if OK then
  begin
    // DEBUG //
    //HTTP.Document.SaveToFile('c:\temp\ReqResp.xml');
    FHTTP.Document.Position := 0;
    Result := String( ReadStrFromStream(FHTTP.Document, FHTTP.Document.Size) );  >>>>>  aqui chega o retorno informando que o servidor está fora do ar

  end;

  // Verifica se o ResultCode é: 200 OK; 201 Created; 202 Accepted
  // https://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html
  OK := (OK and (FHTTP.ResultCode in [200, 201, 202]));  >>>> mas aqui gera um exception e não informa o retorno
  if not OK then
    raise EACBrDFeException.CreateFmt( cACBrDFeSSLEnviarException,
                                       [InternalErrorCode, HTTPResultCode] );
end;

 

[Joffas]

Voltou e se foi novamente....