Hudson G Leite

:::: Boa tarde, No executável de exemplo do esocial alguém têm passado pelo problema no momento da assinatura do registro. "Falha ao localizar o nó de Assinatura". Observação! Unit: ACBrDFeXsLibXml2 Classe: TDFeSSLXmlSignLibXml2 -> function: LibXmlFindSignatureNode(...) SignNode está igual a Nil... ao disparar o erro é executado novamente a função: LibXmlFindSignatureNode(...) sendo que a segunda vez fica (SignNode está diferente de Nil) Abaixo configuração:

Bom dia Senhores, @Alisson Souza Pereira é um retorno de consulta. Após os envios de lotes! @juuninho o evento s-1000 está enviado com sucesso inclusive com retorno de recibo e hash. Como foram enviados 2 lotes para o registro s-1030 o primeiro lote contendo 50 eventos tenho o retorno Ok - inclusive os recibos, o segundo lote que se torna o problema, devido ter enviado em paralelo com o primeiro lote, o esocial recusa, conforme mensagem do tópico inicial. @LUIZTEC também realizei o envio de lotes superior a 50 eventos e passou corretamente. Só estou preocupado em validações futuras.

Contexto.: Estou enviado o registro [ S-1030 ] dividido em 2 lotes. Sendo o primeiro Lote com 50 eventos e o Segundo Lote com 24 eventos. Realizei a quebra devido ter lido que para lote deveira conter 50 eventos por lote. Retorno eSocial "A regra de precedência na transmissão de eventos não foi seguida. Eventos desse tipo não devem ser enviados para processamento em paralelo. Ver seção 5.6.1 do Manual de Orientação do Desenvolvedor." Alguém está passando por essa situação? Dessa forma eu teria que enviar o primeiro Lote e esperar a confirmação para depois enviar o segundo lote.

@Leivio Fontenele, boa tarde! Obrigado, após diversos problemas na transmissão, optei em mudar a forma de transmissão! Não estou usando mais a unit de webservice do eSocial disponibilizado. A Susgestão: "FPMimeType := 'text/xml'; também utilize, mais tive erros! Dessa forma, utilizei [ THTTPReqResp ] para realizar a transmissão. Logo consegui transmissão e consulta dos protocolos sem problemas os eventos.

Boa noite, acredito que talvez você esteja gerando com esquemas XSD versão 2.3, mude para envio com esquemas XSD versão 2.02.02! Os servidores de homologação estão nesta versão! Bom pelo menos passei pelo mesmo problema e resolvi dessa forma. Essa alteração irá refletir no namespace <eSocial xmlns="http://www.esocial.gov.br/schema/evt/evtInfoEmpregador/v02_02_02">

Boa tarde, Ao tentar realizar uma transmissão para o esocial recebo como retorno ::: FWinHTTPReqResp.HTTPResultCode = 400 ????

Boa tarde, Ao tentar realizar uma transmissão para o esocial recebo como retorno ::: FWinHTTPReqResp.HTTPResultCode = 400 FWinHTTPReqResp.Url = 'https://webservices.producaorestrita.esocial.gov.br/servicos/empregador/enviarloteeventos/WsEnviarLoteEventos.svc' FWinHTTPReqResp.soapaction = 'http://www.esocial.gov.br/servicos/empregador/lote/eventos/envio/v1_1_0/ServicoEnviarLoteEventos/EnviarLoteEventos' * o xml soap está correto. Configuração básica: ACBreSocial1.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; ACBreSocial1.Configuracoes.Geral.SSLHttpLib := httpWinHttp; ACBreSocial1.Configuracoes.Geral.SSLLib := libWinCrypt; ACBreSocial1.Configuracoes.Geral.SSLXmlSignLib := xsMsXml; ACBreSocial1.Configuracoes.Certificados.NumeroSerie := '*2c9a5********'; Alguma sugestão? Com base em: https://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html 10.4.1 400 Bad Request The request could not be understood by the server due to malformed syntax. The client SHOULD NOT repeat the request without modifications.

Bom dia, @Eliene Araujo você está utilizando o próprio exemplo da Acbr para realizar a transmissão?

Boa noite, @Rodrigo SuperSoft na unit [ ACBreSocialLoteEventos ] no evento Create da Classe [ TLoteEventos ] adiciona o código. inherited Create(AOwner, TItemLoteEventos); constructor TLoteEventos.Create(AOwner: TComponent); begin inherited Create(AOwner, TItemLoteEventos); FACBreSocial := AOwner; FIdeEmpregador := TIdeEmpregador.Create; FIdeTransmissor := TIdeTransmissor.Create; FGerador := TGerador.Create; end; Nâo irá ocorrer a violação de acesso.

Boa tarde, @Leivio Fontenele. Obrigado pelo retorno!

Boa tarde, @Leivio Fontenele! Você chegou a implementar nos componentes da acbr assinatura do XML com SHA265 e o método de envio?

@Everton Weyand bom dia, utilize o link : svn://svn.code.sf.net/p/acbr/code/branches Após o download, localize na seq. de pastas: \Exemplos\ACBrDFe\ACBreSocial2.0\Delphi Obs: Necessário instalar o componente do esocial se não o tiver. Após o download, localize na seq. de pastas: \Pacotes\Delphi\ACBrDFe\ACBreSocial2.0

Bom dia, apenas compartilhando! SHA-256. No site de referência utiliza-se o exemplo: 'The quick brown fox jumps over the lazy dog' -> D7A8FBB307D7809469CA9ABCB0082E4F8D5651E46D3CDB762D02D0BF37C9E592 Abaixo obtendo o mesmo retorno. Necessário, Uses: IdHashSHA, IdSSLOpenSSL Function TFExemploEsocial.Sha256(Const Value:String):String; var SHA: TIdHashSHA256; SS: TStringStream; Hash256: String; begin SS := TStringStream.Create(Value); SHA := TIdHashSHA256.Create; Try LoadOpenSSLLibrary; Result := SHA.HashStreamAsHex(SS); Finally FreeAndNil(SHA); FreeAndNil(SS); End; end;

Bom dia, @GuilhermeCosta obrigado, vou baixar os fontes!

Bom dia, Srs! @GuilhermeCosta @Joceandro Perin ! Alguma novidade sobre o esocial? Vocês têm algum material para que eu possa verificar para mudar de sha1 para sha256? Andei depurando o método de envio da nfe! Olha estou patinando para entender corretamente. Abraços.

Opa. Blz!

Olá, bom dia Srs! @GuilhermeCosta, retornado as tipagens dos campos. [ IdeMinLei, codSusp ]! Tinha em outro momento modificado os tipos de forma errada. Agora abaixo corrigido! Unit : eSocial_S1000 Classe : TDadosIsencao Campo : IdeMinLei -> String Unit : eSocial_Common Campo : codSusp -> String :: Units Afetadas: ACBreSocialGerador, eSocial_Common, eSocial_S1000, eSocial_S1010, eSocial_S1020, eSocial_S1250, eSocial_S1260 ACBreSocial2.0.rar

Bom dia, @GuilhermeCosta, não tinha atentado as 14 posições do campo: "codSusp", poderia substituir então por pelo tipo: int64 . Só não sei dizer a compatibilidade com o Delphi 7. :: Outro detalhe seria necessário modificar também a procedure> procedure wCampo(const Tipo: TpcnTipoCampo...) para colocar o tipo int64 tanto no enumerado : TpcnTipoCampo como dentro do procedimento. Talvez não tenha o tipo int64 para manter compatibilidade com outras versões do Delphi. O Campo: "IdeMinLei" de fato você está correto!

Olá, boa tarde Srs! @GuilhermeCosta, @Joceandro Perin baixei os fontes, abaixo algumas sugestões! Por favor se puder apenas verificar e se achar coerente modificar! Obs: São apenas sugestões de tipagem das propriedades! ::: Unit : eSocial_Common Classe : TProcesso Campo : codSusp -> Refator para ( Integer ) Irá Refletir: unit: ACBreSocialGerador -> TeSocialEvento.GerarProcessoGenerico() -> TeSocialEvento.GerarProcessoAdmJudFap() -> TeSocialEvento.GerarProcessoAdmJudRat() Registros: S1010 e S1020 e S1070 ::: Registro [ S1000 ] Unit : eSocial_S1000 Classe : TDadosIsencao Campo : IdeMinLei -> Refator para ( tpSiglaMin ) ::: Registro [ S1200 ] Unit : eSocial_Common Classe : TDetPlanoCollectionItem Campo : tpDep -> Refator para ( tpTpDep ) Abaixo estão os pas alteradores! ACBreSocial2.0.rar

@GuilhermeCosta, boa tarde! Bacana as alterações feitas nos eventos no eSocial! Apenas uma dúvida a classe, [ TSucessaoVinc ] implementada na unit eSocial_S1200 não poderia ser usada a mesma já existente da unit [ eSocial_Common ]?

@GuilhermeCosta, estive estudando os fontes disponível e aventurei umas alterações, se você tiver um tempo livre para dar uma olhada! mais pelo jeito são coisa que você já alterou! No pdf demonstra as alterações, se você tiver um skype podemos conversar e ver como posso ajudar de alguma forma. eSocial - S1000 - S1005 - S1010 - S1200 - S1210.rar

Boa tarde, @GuilhermeCosta você já implementou a tabela: "S-1295 - Solicitação de Totalização para Pagamento em Contingência"! quais dos eventos não períodos que estão faltando?

Bom dia, realizei o download dos fontes do esocial do branchs. Estou rodando o exemplo disponibilizado, entretanto estou com o pequeno problema, que já pesquisei em outras postagem, segui as orientações propostas mais não consegui solucionar! Mensagem do erro: "'Falha ao obter a Chave Privada do Certificado para Assinatura." Configuração do SSL... Trecho onde ocorre o erro: Unit: ACBrDFeXsMsXml Class: TDFeSSLXmlSignMsXml Método: Assinar(...): String; override; dsigKey := Nil; xmldsig.setStoreHandle( PCCERT_CONTEXT(FpDFeSSL.CertContextWinApi)^.hCertStore ); xmldsig.createKeyFromCertContext( FpDFeSSL.CertContextWinApi, dsigKey); if (dsigKey = nil) then raise EACBrDFeException.Create('Falha ao obter a Chave Privada do Certificado para Assinatura.'); ::: Realizei exportação do certificado com a chave privada ::: Usei outros certificados para testes Alguma sugestão de como não emitir a mensagem 'Falha ao obter a chave privada do certificado para assinatura' ?