Joffas

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.

Bom dia alguém já conseguiu utilizar o novo ambiente? Mudei a versão para 2.04.02 e o esquema e recebo o erro já na validação do esquema. Erro na validação do esquema, Deseja visualizar o arquivo XML? Falha na validação dos dados do evento: evtInfoEmpregador 1845 - Element '{http://www.esocial.gov.br/schema/evt/evtInfoEmpregador/v02_04_02}eSocial': No matching global declaration available for the validation root. Em anexo o XML gerado ... 2018.04.10.09.36.44.254.xml

Poise Ricardo essa data continua sendo um enigma pra mim, porque se utilizar na produção restrita a data 2018-01 da problema e nossa obrigatoriedade vai ser somente 2018-06. Agora qual será a data correta para enviar 2018-06 ou 2018-01 ?

Voltou e se foi novamente....

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

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 ?

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

Show de bola, estava com o mesmo problema e deu certo, podiam subir a alteração para o SVN.

Beleza deve ser por isso então, obrigado...