EdmarFrazao

Nas Categorias de Contribuintes individuais a CTPS e opcional unit pcesGerador procedimento if pCTPS.NrCtps<>'' then Begin Gerador.wGrupo('CTPS'); Gerador.wCampo(tcStr, '', 'nrCtps', 1, 11, 1, pCTPS.NrCtps); Gerador.wCampo(tcStr, '', 'serieCtps', 1, 5, 1, pCTPS.SerieCtps); Gerador.wCampo(tcStr, '', 'ufCtps', 2, 2, 1, pCTPS.UfCtps); Gerador.wGrupo('/CTPS'); End;

Fiz o teste assim Gerador.wGrupo('evtAdmissao Id="' + GerarChaveEsocial(now, self.ideEmpregador.NrInsc, strtoint(self.Id)) + '"'); e na Geração por exemplo do s2200 EvtAdmissao.id := codigo do funcionario ( Este ID esta string, e não consegui encontrar onde é usado. Enviei o s2200 com o EvtAdmissao.id e mudei a gerarchaveesocial, Tanto no envio tanto no retorno o codigo veio no final como esperado. Não sei se seria o correto esta alteração, porem teriamos controle dos evento retornados por ID personalizado se desejar.

Um proposta: Quando gera o ID chama a Função GerarChaveEsocial Gerador.wGrupo('evtAdmissao Id="' + GerarChaveEsocial(now, self.ideEmpregador.NrInsc, 0) + '"'); Não seria passar o no Lugag "0" passar um EvtAdmissao.id em Todos os procedimento esta sendo passado "0" para a Função GerarChaveEsocial . Motivo. Precisamos controlar o Evento "ID" enviado para no Retorno da Consulta do Protocolo saber qual msg de retorno se refere ao ID

Estou usando so A1 Alias A3 não sei se seria pratico, porque a cada arquivo gerado tera que assinar, e ler o A3. Deve ficar muito lento. Cada Tabela um arquivo, cada funcionário um Arquivo. Folha do Mês Um arquivo Movimento 1200 para cada Funcionário e cada Autônomo Um Arquivo Pagamento 1210 para cada Funcionário e cada Autônomo ja olhou o

Em produção não tem como zerar a base não. e Tem que enviar o registro 1000 com razão social e cst NmRazao := 'RemoverEmpregadorDaBaseDeDadosDaProducaoRestrita'; ClassTrib := ct00;

Fiz algumas alterações em cima do exemplo acima. 1)Como opção para zerar a base em Homologação. 2)Adaptar algumas referencia com o svn Atual. Exemplo_Esocial.7z

Como estão fazendo para alterar o ID dos Eventos para saber no Retorno qual foi o ID enviado?

pcesGerador linha 1715 Grupo opcional // italo if pTransfDom.cpfSubstituido <> EmptyStr then Begin Gerador.wGrupo('transfDom'); Gerador.wCampo(tcStr, '', 'cpfSubstituido', 11, 11, 1, pTransfDom.cpfSubstituido); Gerador.wCampo(tcStr, '', 'matricAnt', 0, 30, 0, pTransfDom.matricAnt); Gerador.wCampo(tcDat, '', 'dtTransf', 10, 10, 1, pTransfDom.dtTransf); Gerador.wGrupo('/transfDom'); End; pcesGerador.pas com Estas alterações ja esta sendo enviado Tabelas e Registro 2200 Dados Iniciais do funcionário.

Para zerar a base em homologação tem que enviar o TpClassTrib = 00 mudar na unit pcesConversaoeSocial linha 423 acrecentar ct00 ( para limpar a base de teste tem que enviar o o ct00 TpClassTrib = (ct00,ct01, ct02, ct03, ct04, ct06, ct07, ct08, ct09, ct10, ct11, ct13, ct14, ct21, ct22, ct60, ct70, ct80, ct85, ct99); linha 2197 result := EnumeradoToStr(t, ['00', '01', '02', '03', '04', '06', '07', '08', '09', '10', '11', '13', '14', '21', '22', '60', '70', '80', '85', '99'], [ct00, ct01, ct02, ct03, ct04, ct06, ct07, ct08, ct09, ct10, ct11, ct13, ct14, ct21, ct22, ct60, ct70, ct80, ct85, ct99]); pcesConversaoeSocial.pas

como esta fazendo para pegar no retorno o ID que foi enviado e separar os eventos. No Retorno tem o ID, e os dados cod_retorno , msg etc. Como vc esta achando qual ID pertence o registro.

Segue o demo que estou usando. Demo_eSocial_V2.4.1.7z

o schemas, bem deixei tudo na mesma pasta e esta sim enviando no Webservid 2.4.1 Consegui enviar com a copia svn todas as tabelas. ja no s2200 ja deu problema, tem novos campos que não foram implementados. Estava enviando ate o evento 1200 1210 sem problemas. agora e conferir e ver o que falta e ir postando para vcs acertarem no svn. segunda volto a testar ps. o meu demo esta com varias dependencias vou tiras para posta-lo

if Configuracoes.WebServices.Ambiente = taHomologacao then begin case LayOutServico of LayEnvLoteEventos: URL := 'https://webservices.producaorestrita.esocial.gov.br/servicos/empregador/enviarloteeventos/WsEnviarLoteEventos.svc'; LayRetEnvLoteEventos: URL := ''; LayConsResultProcessamento: URL := 'https://webservices.producaorestrita.esocial.gov.br/servicos/empregador/consultarloteeventos/WsConsultarLoteEventos.svc'; LayRetConsResultProcessamento: URL := ''; end; end else begin case LayOutServico of LayEnvLoteEventos: URL := 'https://webservices.esocial.gov.br/servicos/empregador/enviarloteeventos/WsEnviarLoteEventos.svc'; LayRetEnvLoteEventos: URL := ''; LayConsResultProcessamento: URL := 'https://webservices.esocial.gov.br/servicos/empregador/consultarloteeventos/WsConsultarLoteEventos.svc'; LayRetConsResultProcessamento: URL := ''; end; end; o Schemas tem que atualizar. Schemas.7z

Funcionou para mim também vou montar o demo( e enviar o zip) Quem tem acesso ao svn faça as mudanças por gentileza. 1) Descomente o FOnTransmissaoEventos em ACBreSocial e fiz funcionar pq seu type (TeSocialEventos) passou para a unit de conversões 2) a URL esta utilizando a antiga em LerServicoDeParams TACBreSocial 3) ACBRESOCIAL_VERSAO = '2.4.01'; 4)No create do ACBreSocial Descomentei a linha que fala que o método será SHA256 5) Em eSocial_Gerador na função Assinar troquei XMLAss := SSL.Assinar(String(ArqXML), 'eSocial', NomeEvento) por XMLAss := SSL.Assinar(String(ArqXML), 'eSocial', NomeEvento,'','','','ID'); 6) TeSocialGrupo em conversoes substituiu o TTypeESocialGrupo em ACBreSocial

com as alterações 1) Descomente o FOnTransmissaoEventos em ACBreSocial e fiz funcionar pq seu type (TeSocialEventos) passou para a unit de conversões 2) a URL esta utilizando a antiga em LerServicoDeParams TACBreSocial 3) ACBRESOCIAL_VERSAO = '2.4.01'; Ja consegui fazer funcionar a versão minha. Consulta de protocolo ok. So a assinatura e envio e que esta dando problemas. assim que acertar a assinatura posto o zip do demo novamente. para subr no svn que e melhor que este demo atual

Estou fazendo a comparação. se voltar o metodo TNotifyEventoseSocial consigo enviar e receber os erros de envio. mas os fontes Atuais dos procedimentos não são da Versão 2.4.1 e acho que da versão 2.3 Tem vários métodos faltando nos eventos. por exemplo Evento 1000 evtInfoEmpregador.InfoEmpregador.InfoCadastro.ClassTrib tem que ter o ct00 no Dependente também métodos faltando.

Ate a versão esta diferente. deveria ser ACBRESOCIAL_VERSAO = '2.4.01'; mas esta ACBRESOCIAL_VERSAO = '2.3.0'; Quem esta conseguindo enviar corretamente na versão 2.4.01 em Homologação com a versão do svn?

Também estou achando que devemos enviar lote a lote com arquivo a arquivo. Por exemplo, Enviei 10 funcionários e 3 deram erros, o retorno so devolve o ID, ai para achar qual funcionário estava errado tem que pegar o ID, ver o arquivo de envio o ID para encontrar o que esta errado. O eSocial aceitou 7 funcionários e 3 derram recusa. Porem para para retificar os 7 primeiros tem que o suar o NR_Recibo (1o que foi enviado), e os ouros funcionários terão outro NR_Recibo, dificil de controlar. Se enviar arquivo a arquivo, teremos um NO_PROTOCOLO_ENVIO e NR_RECIBO_Consulta para cada arquivo xml enviado, se der erro ja sabemos qual é que esta com problema. Para as retificações tem que usar NR_Recibo sempre. O lote seria mais produtivo no envio sem erros, mas com erros não. estou guardando em pasta por nome de PROTOCOLO todos os envios,

não tem o metodo TNotifyEventoseSocial = procedure(const AXML: AnsiString; ATipo: TTypeEventoseSocial) of object; o qual retorna as consulta as msg de envio e retorno. A versão https://www.projetoacbr.com.br/forum/applications/core/interface/file/attachment.php?id=36640 funcionava melhor, basta ter mudados as units dos eventos novos. Tentei enviar na versão atual mas não envia. Na versão https://www.projetoacbr.com.br/forum/applications/core/interface/file/attachment.php?id=36640 ( se desecompactar os os fontes do esocial) funciona perfeitamente com o svn atual( sem o esocial claro) E esta quase tudo funcionando so algumas pequenas adaptações estão faltando na versão https://www.projetoacbr.com.br/forum/applications/core/interface/file/attachment.php?id=36640 . Ja na que esta no svn, o demo não esta pronto. Não quero reclamar ja é de uma ajuda os que estão fazendo. Mas esta versão que esta no svn não envia. E o demo esta mas para versão 2.2 do que para 2.4 Se for esta a versão final, poderiam posta o demo Funcional para a versão 2.4.

Estes fontes que estão no svn não pode ser os oficiais.., não tem os metodos de envio e varios outros campos da versão 2.4.1 Estou usando a versão que Leivio Fontenele https://www.projetoacbr.com.br/forum/applications/core/interface/file/attachment.php?id=36640 estava muito mais completa. o que aconteceu??

O projeto ainda não esta pronto. 1)Eu por exemplo estou usando a copia que foi liberada pelo Leivio Fontenele https://www.projetoacbr.com.br/forum/applications/core/interface/file/attachment.php?id=36640 Estou conseguindo enviar as tabelas sem problema em modo restrito(homologação) 2)Estou usando com A2 pfx 3)Usei o exemplo e adpei tei

Estou usando a versão que Leivio Fontenele https://www.projetoacbr.com.br/forum/applications/core/interface/file/attachment.php?id=36640 Esta funcionado muito bem. Como posso acessar a ultima versão?

no meu caso precisei instalar os Schemas do DFE PL_NFeDistDFe e mudar o código para salvar assim ACBrNFe1.DistribuicaoDFePorChaveNFe(N_UF, sCNPJ, chave); with ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt do begin if cStat = 138 then begin for i := 0 to docZip.Count - 1 do begin if docZip.Items.schema = schprocNFe then //verifica se o arquivo é o XML da NFe (-nfe.xml) begin XML := docZip.Items.XML; ArqXML := TStringStream.Create(XML); XMLDocument1.LoadFromStream(ArqXML); XMLDocument1.Active; XMLDocument1.SaveToFile('.\'+Chave+'.xml'); ShowMessage('Arquivo salvo:'+'.\'+Chave+'.xml'); end; end; end;

Fui e não gostei, não acho produtivo. vou esperar um forum. mas vou testando o produto, esta show. obrigado.

Fiz alguns testes e achei fantástico o produto. Conseguir acessar os meus arquivos (Firebird e DBF) via Win32, Firemonkey e Mobile Android perfeitamente, tanto com FireDac, Unidac e Via Advantage(ADS). Não seria interessante ter um grupo exclusivo para discussões! Sera que a Acbr podia criar um tópico exclusivo aqui.