EdmarFrazao

Se enviar não receber o Protocolo , em geral não foi aceito e so enviar novamente. Se enviar novamente e dizer que que o CPF ja esta na base, ai xxxx, porque sem o protocolo não consulta o Recibo, e sem o Recibo não se retifica os eventos não períodos e Periódicos. Diziam que o eSocialBx vai deixar você consulta, mas até agora nada. Então se enviar houver um erro o eles processarem o protocolo, estamos lascados. Na nfe ha o retorno da chave, mas aqui no eSocial ainda não tem o retorno o ultimo protocolo ou recibo não.

Estou fazendo o mesmo. Em produção tem que informar 2018-01 para o período e homologação 2016-01 E é checado o S1000 S1005 S1020 com este período

o site e social continua instável a Tag foi gerada com "0" faltou corrigir linha 848, so gerar se não for "navNaoInformar " if ideTrabalhador.infoComplem.natAtividade=navNaoInformar then else Gerador.wCampo(tcStr, '', 'natAtividade', 1, 1, 0, eSNatAtividadeToStr(ideTrabalhador.infoComplem.natAtividade)); pcesS1200.pas

@Italo Jurisato Junior tpNatAtividade não pode ser informado quando: 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; Como a condição não esta na classe, acho que deveriamos ter uma outra propriedade para informar que não dever se preenchido. assim teria: tpNatAtividade = (navUrbano, navRural,NaoInformar);

DataBase e o Mês da Data Base por isto e Inteiro

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