Joffas

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

Poise estou passando pelo mesmo problema, parece que incluirão esta validação de certificado, antes conseguia transmitir normalmente com o certificado da matriz

Obrigado pela informação... tava quebrando a cabeça aqui...

Servidor do eSocial Homologação desde cedo fora do ar e caindo direto quero ver a hora de ser pra valer se o bicho vai dar conta do recado...

Vlw assim que subir vou testar...

Bom dia, Pelo que vi no manual as informações complementares não são obrigatórias, no meu caso não estou informando e o componente está gerando uma exceção, pois como não informo a propriedade pInfoComplCont é igual a NIL. Ela só deveria ser obrigatória no caso do trabalhador não tivesse o vinculo empregatício TSVE como diz no manual.

Deu certo aqui Joceandro Perin :)) Muito obrigado era cagada minha, fiz alguma confusão com os esquemas...

Então aqui não vai, esqueci de citar que é certificado A3, já com a versão anterior valida certinho...

Sim acontece com todos o mesmo erro... 1845 - Element '{http://www.esocial.gov.br/schema/evt/evtInfoEmpregador/v02_04_02}eSocial': No matching global declaration available for the validation root. Ai desativando a validação do esquema consigo transmitir normalmente

Obrigado pelo feedback vou fazer mais testes pra ver qual é o problema...

Só para constar, se eu remover a validação do esquema da unit ACBrDFeSSL estou conseguindo transmitir a nova versão, alguém passou pelo mesmo problema ? Lembrando que eu valido o primeiro XML sem gerar a parte do lote de envio, oque antes funcionava normalmente.