Joffas

Verdade acredito que o componente não esteja suportando ainda...

Também estou tendo problemas, envia exemplo um evento R2060, retorna o erro quando vou enviar novamente o mesmo consta que já foi enviado.

Segue unit uExemploReinf.pas

Respondendo minha pergunta encontrei no componente e acrescentei a linha em vermelho no exemplo demo deu certo...

Pelo que vi o retorno vem junto com envio do R1000 diferente do S1000 do esocial, porem no componente não esta vindo o retorno do recibo, mas no xml exemplo abaixo o mesmo vem.

Poiseh Estou com as mesmas dúvida pq usando o componente estou enviando o R-1000 e não volta nem o protocolo nem o nro do recibo... é isso mesmo ? Pq no manual diz que todos tem o retorno do nro do recibo.

Boa Tarde Tive que fazer alteração nessas duas units do componente, pois quando a data base for entre 1 a 9 deve-se gerar o XML com zero na frente, o validado não apresenta erro mas quando consultamos no portal do eSocial a data base esta vazia.

Blz Italo... Obrigado pelo feedBack estamos concluindo o desenvolvimento da segunda fase, assim que o feito vou estudar o componente para tentar ajudar.

Boa tarde Italo Manual do Desenvolvedor https://portal.esocial.gov.br/manuais/manualorientacaodesenvolvedoresocialv1-7.pdf

Boa tarde Sabem me informar se já foi ou esta sendo desenvolvida a solicitação de eventos já envidados para o eSocial pelo (ID e pelo Nro do Recibo) Pelo que vi os métodos são (No manual do desenvolvedor): Mais informações em: https://portal.esocial.gov.br/noticias/entra-em-operacao-o-esocial-bx-um-baixador-de-arquivos-enviados-ao-sistema

Boa tarde Sabem me informar se já foi ou esta sendo desenvolvida a solicitação de eventos já envidados para o eSocial pelo (ID e pelo Nro do Recibo) Pelo que vi os métodos são (No manual do desenvolvedor):

Deu certo... Eu não tinha entendido que ao utilizar o metodo ACBR.Eventos.LoadFromString(XML); o componente já assina caso não encontre as tags "Signature" Eu estava tentando assinar novamente... Vlw Italo muito obrigado pelo feedback...

Obrigado Italo, Estou atualizando novamente os fontes de vou refazer os testes! então tenho que remover as tags de assinatura antes de assinar correto ?

Sim... o cliente assinou enviou S1000 e o S1005 depois de uns 4 dias foi enviar o resto mas a assinatura tinha vencido... Mas as vezes acontece tb de configurar um certificado errado e pra não regerar novamente tudo, prefiro re-assinar...

Sim, achei que fosse esse o problema e o fiz na sexta feira

Bom dia tenho tentado carregar um XML gerado para alterar um assinatura vencida sem sucesso, alguem sabe a forma correta de proceder? oAcbr.Eventos.LoadFromFile(sFileName); e com o oAcbr.Eventos.LoadFromString(sTextoXML); Ao usar qualquer um dos dois tenho obtido o seguinte erro.. --------------------------- Debugger Exception Notification --------------------------- Project Folha.exe raised exception class Exception with message 'Falha na validação dos dados do evento: evtInfoEmpregador 1824 - Element '{http://www.esocial.gov.br/schema/evt/evtInfoEmpregador/v02_04_02}cpfCtt': '' is not a valid value of the local atomic type. '. --------------------------- Break Continue Help --------------------------- O que não entendi é que no codigo existe um função "StrEventoToTipoEvento" na unit pcesConversaoeSocial que sempre retorna Zero... porque usar o comparado AnsiSameText ao invés do AnsiPos... Segue anexo do XML... function StrEventoToTipoEvento(var ok: boolean; const s: string): TTipoEvento; const EventoString: array[0..49] of String =('evtInfoEmpregador', 'evtTabEstab', 'evtTabRubrica', 'evtTabLotacao', 'evtTabCargo', 'evtTabCarreira', 'evtTabFuncao', 'evtTabHorContratual', 'evtTabAmbiente', 'evtTabProcesso', 'evtTabOperPortuario', 'S-2100', 'evtRemun', 'evtRmnRPPS', 'evtBenPrRP', 'evtPgtos', 'S-1220', 'evtAqProd', 'evtComProd', 'evtContratAvNP', 'evtInfoComplPer', 'evtTotConting', 'evtReabreEvPer', 'evtFechaEvPer', 'evtContrSindPatr', 'evtAdmPrelim', 'evtAdmissao', 'evtAltCadastral', 'evtAltContratual', 'evtCAT', 'evtASO', 'evtAfastTemp', 'evtExpRisco', 'evtInsApo', 'evtAvPrevio', 'evtConvInterm', 'evtReintegr', 'evtDeslig', 'evtTSVInicio', 'S-2305', 'evtTSVAltContr', 'evtTSVTermino', 'evtCdBenPrRP', 'evtExclusao', 'S-4000', 'S-4999', 'S-5001', 'S-5002', 'S-5011', 'S-5012'); begin result := TTipoEvento( StrToEnumerado2(ok , s, EventoString ) );//No meu caso sempre esta retornando Zero... end; function StrToEnumerado2(out ok: boolean; const s: string; Const AString: array of string ): variant; // Atencao não Funciona em Alguns Enumerados ja existentes var i: integer; begin Result := 0; ok := False; try for i := Low(AString) to High(AString) do if AnsiSameText(s, AString) then begin result := i; ok := True; exit; end; Except ok := False; End; end; {283563D6-0D3E-4353-BB29-B331BD1F6D5F}_100918095221_evento.xml

Não é BDE não eu por exemplo utilizo o Firebird com IBO. O problema é vazamento de memoria mesmo em alguma dll de assinatura! Então resolvi o problema de forma paliativa: Criei um auto terminal que envia os eventos gerados, e de tempo em tempo ele fecha e abre sozinho.

Bom dia, Alguém já passou por este erro ao tentar utilizar um certificado A3 ? Estou utilizando vários certificados A3 normalmente porém um deles me apresenta este erro!

Então Joceandro pelos testes que fiz o componente esta destruindo tudo certinho. Pelo menos habilitando o ReportMemoryLeaksOnShutdown := true; Nada consta, acredito ser alguma "dll" mesmo :((

Boa tarde Pessoal Estou tendo problema de "out off memory" e pelo que constatei é por causa do metodo Consultar(''); do ACBreSocial. Criei um exemplo simples e constatei que mesmo destruindo o componente o executável aumentando na memória, acredito ser alguma dlls de assinatura. segue exemplo: unit Unit4; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, ACBreSocial, pcesConversaoeSocial, pcnConversao, ACBrDFeSSL; type TForm4 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private function configACBR(AComponente: TACBreSocial): Boolean; { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation var continua: boolean; {$R *.dfm} procedure TForm4.Button2Click(Sender: TObject); begin continua := false; end; function TForm4.configACBR(AComponente: TACBreSocial): Boolean; var sDir : string; begin result := false; AComponente.Configuracoes.Geral.VersaoDF := ve02_04_02; sDir := Application.ExeName; if (sDir<>'') then begin AComponente.Configuracoes.Arquivos.PathSchemas := sDir; AComponente.Configuracoes.Arquivos.Salvar := False; AComponente.Configuracoes.Arquivos.SepararPorCNPJ := True; AComponente.Configuracoes.Geral.Salvar := false; AComponente.Configuracoes.WebServices.Salvar := false; AComponente.Configuracoes.Geral.FormaEmissao := teNormal; AComponente.Configuracoes.WebServices.Ambiente := taHomologacao; AComponente.Configuracoes.WebServices.UF := 'SP'; AComponente.Configuracoes.Certificados.VerificarValidade := True; AComponente.Configuracoes.WebServices.AguardarConsultaRet := 5000; AComponente.Configuracoes.WebServices.IntervaloTentativas := 3000; AComponente.Configuracoes.WebServices.Tentativas := 10; AComponente.Configuracoes.WebServices.AjustaAguardaConsultaRet := True; AComponente.Configuracoes.WebServices.Visualizar := false; AComponente.Configuracoes.Geral.SSLLib := libCustom; AComponente.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; AComponente.Configuracoes.Geral.SSLHttpLib := httpWinHttp; AComponente.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; AComponente.Configuracoes.Certificados.ArquivoPFX := 'arquivoA1.pfx'; AComponente.Configuracoes.Certificados.NumeroSerie := ''; AComponente.Configuracoes.Certificados.Senha := 'senha'; AComponente.Configuracoes.Geral.IdTransmissor := ''; AComponente.Configuracoes.Geral.IdEmpregador := ''; result := true; end; end; procedure TForm4.Button1Click(Sender: TObject); var a:TACBreSocial; begin continua := true; while continua do begin try a := TACBreSocial.Create(Application); configACBR(a); a.Consultar('1.2.201808.0000000000018726690'); finally a.free; end; Sleep(100); Application.ProcessMessages; end; showmessage('parou!'); end; end. Se alguém puder me dar um luz agradeço.

Avisando os navegantes que a data "2017-01" voltou ao normal, realmente foi o estagiário

Então fiz vários testes e cheguei a conclusão que mudaram a data de obrigatoriedade do ambiente de homologação para "2017-07"

Poise acho que algum estagiário fez besteira por la, porque agora além deste erro, não consigo mais enviar um S-1000 com iniValida='2017-01' que me retorna o erro "O evento somente será aceito após a data de início da obrigatoriedade do empregador ao eSocial." então mudei para "2018-07" e foi normalmente

Parece que mudou a data de inicio de validade novamente do servidor de homologação, está voltando este erro para 2017-01 O evento somente será aceito após a data de início da obrigatoriedade do empregador ao eSocial. Agora se eu passo para 2018-07 vai certinho, alguem esta passando por isso ?

Unica coisa que achei a respeito foi no help da senior https://documentacao.senior.com.br/bancodesolucoes/esocial/20744.htm