Jump to content

dev botao

Versão Atual com erro no Envio de todos eventos


EdmarFrazao
Go to solution Solved by Italo Giurizzato Junior,
  • Este tópico foi criado há 2264 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

erroenvio.png

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

erroenvio.png

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

 

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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...

 

image.png.4b6ae9ad84734576db5704af4aac5571.png

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..

Link to comment
Share on other sites

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 ?

Link to comment
Share on other sites

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..

Edited by Joceandro Perin
Link to comment
Share on other sites

  • Consultores
  • Solution

Boa tarde a todos,

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

  • Like 1
  • Thanks 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

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...

 

image.png.4b6ae9ad84734576db5704af4aac5571.png

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.

Link to comment
Share on other sites

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;

 

Link to comment
Share on other sites

  • Este tópico foi criado há 2264 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.