EdmarFrazao

Quando estamos enviado o // o grupo abaixo corresponde apenas a trabalhadores cuja categoria não está sujeita ao evento de admissão // ou TSV-início evtRemun.ideTrabalhador.infoComplem.NmTrab := DMeSocial.adst_FOCADAUT.FieldByName('NOME_AUT').AsString; evtRemun.ideTrabalhador.infoComplem.DtNascto := DMeSocial.adst_FOCADAUT.FieldByName('DATA_NAS').AsDateTime; evtRemun.ideTrabalhador.infoComplem.codCBO := '317110'; //evtRemun.ideTrabalhador.infoComplem.qtdDiasTrab := 30; Este campo so deve ser informado //evtRemun.ideTrabalhador.infoComplem.NatAtividade := navUrbano; Natureza da atividade, conforme opções abaixo: 1 - Trabalho Urbano; 2 - Trabalho Rural. Validação: O campo deve ser preenchido apenas se atendida uma das condições a seguir apresentadas: a) a classificação tributária for igual a [06, 07, 08]; a classificação tributária for igual a [21,22] e exista remuneração para o trabalhador vinculada a um CAEPF de atividade rural; Valores Válidos: 1, 2. Como fazer esta regra pces1200 linha, o campo "natAtividade" , sugestão, talvez deveria ter um opção de não informar. assim teria tpNatAtividade = (navUrbano, navRural,NaoInformar);

Dizem que terar o eSocialBx , (https://destaques-empresariais.com/2018/01/04/ferramenta-esocialbx-permitira-recuperar-consultar-informacoes-transmitidas/) mas nada até o momento. Hoje a única maneira e consulta via protocolo(sem ele nada de consulta)

esta dando erro na linha 401 mudar de: RetEventos.Items.Recibo.Contrato.infoCeletista.dtBase := Leitor.rCampo(tcdat, 'dtBase'); para RetEventos.Items.Recibo.Contrato.infoCeletista.dtBase := Leitor.rCampo(tcInt, 'dtBase'); e da erro na linha quando processa o S2206 while Leitor.rExtrai(10, 'horarioIntervalo', '', j + 1) <> '' do ainda não sei consertar. @Italo Jurisato Junior , mesmo erro no S2200 e S2206 os outros campos estão corretos ( leitura do retorno) pcesRetConsultaLote.pas

Voltou a funcionar o envio, era so instabilidade do esocial @fabibona veja o exemplo do acbr esocial S1000 e tem o checkbox do lado Zera Base Homologação ( so funciona na homologação)

é hoje todos os S2200 dão erro ao enviar.

Então vamos ter que ler todos os retorno e criar propriedade nos componentes, para automatizarmos a conferência.

criar procedure Transmissao(const AXML: AnsiString; ATipo: TeSocialEventos); Atribuir ACBreSocial1.OnTransmissaoEventos := Transmissao; procedimento procedure TfrmeSocial.Transmissao(const AXML: AnsiString; ATipo: TeSocialEventos); begin case ATipo of eseEnvioLote: Memo_Envio.Lines.Text := AXML; eseRetornoLote: Memo_Retorno.Lines.Text := AXML; eseEnvioConsulta: Memo_Envio.Lines.Text := AXML; eseRetornoConsulta: Memo_Retorno.Lines.Text := AXML; end; end;

Pelo visto os retornos do eSocial cada arquivo terá uma informação. Verificando o S2200 e S2206 ha mais informações de retorno. Alguém tem alguma maneira melhor de imprimi o xml ( hoje estou mostrando o xml no webbrowser e deixando usar a opção imprimir, da para conferir mas não é o ideal , se gasta muitas linhas na impressão). Alguém tem alguma dica de como imprimir o conteúdo do xml de uma melhor maneira ou vamos ter que desenvolver uma impressão para cada retorno? segue arquivos exemplo de retorno. S2200_eSocial-sit.xml S2206_eSocial-sit.xml

Criem uma tabela e guarde os eventos de envio, protocolo, cod retorno e Nr_recibo tudo gira em torno do protocolo e com a resposta ok o nr_recibo sem protocolo não se consulta o Recibo, sem Recibo não retifica, ou exclui os eventos. Guarde os xml de envio para futura consulta e conferencia.

Também estou usando assim agora. Componente.Configuracoes.Geral.SSLLib := libCustom; Componente.Configuracoes.Geral.SSLHttpLib := httpWinHttp; Componente.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; Componente.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; em alguns computadores tive que copiar as dlls da pasta acbr OpenSSL XMLSec LibXml2

estou tendo este erro com alguns funcionário que antes passavam, outros estão enviando sem problemas, deve ser erro do servidor do esocial ( instabilidade)

Tudo funcionando. Obrigado a todos especialmente @Rafael Dias @Italo Jurisato Junior

teste melhor e nenhuma das propriedade estão sendo retornadas: evtS5002 := TS5002(retEventos.Items.tot[j].Evento); Add(' Id.(5002)....: ' + evtS5002.EvtirrfBenef.Id); Add(' nrRecArqBase.: ' + evtS5002.EvtirrfBenef.IdeEvento.nrRecArqBase); de todos os evts... agora os xml estão sendo salvos.

no exemplo não conseguir acessar as informações dos eventos. parece que não foi populados. evtS5002 := TS5002(retEventos.Items.tot[j].Evento); Add(' Id.(5002)....: ' + evtS5002.EvtirrfBenef.Id); Add(' nrRecArqBase.: ' + evtS5002.EvtirrfBenef.IdeEvento.nrRecArqBase); como teve retorno teria que ter informação if evtS5002.EvtirrfBenef.InfoIrrf.Count>0 then Add(' IRRF Categoria: ' + InttoStr( evtS5002.EvtirrfBenef.InfoIrrf.Items[0].CodCateg ) ); Todas as sub-propriedade de todos os eventos não forma populadas, so o .id .nrRecArqBase que funciona

o exemplo acertei , linha 3646 o: for J := 0 to retEventos.Items.tot.Count - 1 do deve ficar fora do loop de f retEventos.Items.Processamento.Ocorrencias.Coun so falta salvar o s5002 com vários registros ou vários s5002 uExemploEsocial.pas

So salva o ultimo S5002 E no Log não aparece. o bloco não receber informação for J := 0 to retEventos.Items.tot.Count - 1 do begin Add(' Tot ' + IntToStr(J)); Add(' Tipo.........: ' + retEventos.Items.tot[j].tipo); case retEventos.Items.tot[j].Evento.TipoEvento of teS5001: begin evtS5001 := TS5001(retEventos.Items.tot[j].Evento); etc.

Teste como Demo atualizado, 1)Quando no S1210 tem vários ID(registros) so salva o ultimo S5002, o S1200 pode ter vários também 2)No Log de retorno não mostra os registro S5002 eSocial.7z

linha 492 de: if pDmDev.infoPerAntInst then para if pDmDev.infoPerApurInst then A tag infoPerAnt é opcional , porem a Tag infoPerAntInst é obrigatório. Quando não informava a Tag infoPerAnt não gerava o xml. S2299 enviado e conferidos as base no retorno do S5001. Corretos. pcesS2299.pas

Com pfx estou conseguido funcionar e para usar sem o pfx o devo configurar. Assim Funcionar com PFX ACBreSocial.Configuracoes.Geral.SSLLib := libOpenSSL; ACBreSocial.Configuracoes.Geral.SSLHttpLib := httpWinHttp; ACBreSocial.Configuracoes.Certificados.ArquivoPFX := edtCertificadoDiretorio.Text; ACBreSocial.Configuracoes.Certificados.Senha := eCertificadoSenha.Text; ACBreSocial1.Configuracoes.Certificados.NumeroSerie := ''; Se usar assim da erro na assinatura 256 ACBreSocial1.Configuracoes.Geral.SSLLib := libCustom; ACBreSocial1.Configuracoes.Geral.SSLHttpLib := httpWinHttp; ACBreSocial1.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; ACBreSocial1.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; AACBreSocial.Configuracoes.Certificados.ArquivoPFX := ''; AACBreSocial.Configuracoes.Certificados.Senha := ''; ACBreSocial1.Configuracoes.Certificados.NumeroSerie := eCertificadoNoSerie.Text; o erro é o Provedor de criptografia não suporta dgstSHA256 ps. so usei os fontes que ja estão no cvs

Assim que configurei a propriedade para true , passou a salvar os xmls correspondentes. So que quando o arquivo de Envio tem mais de um registro so salva o xml do ultimo. No caso do S1210 enviei um lote com vários trabalhadores, e o S5002 so salvou do ultimo. No S1210 como enviei um de cada salvou correto , mas acho que se enviar um lote com varios trabalhadores talvez não salve isolado. segue os arquivos. S-1200 retorna o S-5001 , salvou mas acho que so esta salvando o ultimo ID S-1210 retorna o S-5002, salvou somente o ultimo ID S-1299 retorna o 5012, salvou corretamente. S2299 retorna o S5011 e S5012, salvou corretamente. eSocial.7z

Estavam corretos. Os arquivos vem na consulta do Protocolo, junto com o recibo. segue em anexo os arquivos com os respectivos retornos. Agora só precisar implementar o retorno, alimentando o componentes com as informações. S-1200 retorna o S-5001 S-1210 retorna o S-5002 S-1299 retorna o 5012 S2299 retorna o S5011 e S5012 so ha o retorno se houver o aceite sem erros, ou seja com o retorno do Nr do Recibo. eSocial.7z

Segunda vejo o xml, se na consulta do protocolo de envio esta sendo retornado mais informações, e posto.

poderia acertar o exemplo de como consultar estes eventos?

Você tem que informar o grupo antes de gerar o xml e não pode gerar xmls juntos de grupos diferentes. Tabelas grupo 1 não periodicos grupo 2 , inclusive o S-3000 periodicos grupo 3

italo, não querendo ser insistente, mas primeiro temos que declarar os eventos para serem usados. depois ver o que falta enviarpara ler o retorno. Nãa foi declarado os eventos para s5000..s5012, os procedimentos ja exitem mas ainda não da para usa-los, e estão declarados o layout de retorno, falta a parte de envio. eles tem duas partes uma de envio de solicitação do que deseja e outra parte que é o retorno solicitado. diferente dos eventos normais que se envia e recebe o recibo e ocorrências.