EdmarFrazao

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.

Vai ter um grupo especifico para o projeto?

1 a 2 segundos em computadores top em computadores mais velhos e 3 a 5 segundos a mais para executar o "Exe"

mas deixa o sistema lento com acbr. seja usando acbrnfe , mdfe, ou cte não sei o que fazer so estou querendo ajudar a mim e a outros que possa ter lentidão no sistema por causa destas dll