jair barreto Postado 25 Abril Compartilhar Postado 25 Abril (editado) Não tem como disponibilizar na dll também? Outra duvida que é referente a baixar os xml dos eventos ( fazer downloads ) isto funciona na dll ou não ? Vi que tem os metodos mas envio e não acontece nada nenhum retorno! O log estar configurado como 4 Editado 25 Abril por jair barreto Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Solution Renato Rubinho Postado 25 Abril Consultores Solution Compartilhar Postado 25 Abril Jair, Gerei um novo tópico sobre sua dúvida por se tratar de assuntos diferentes. 13 minutos atrás, jair barreto disse: Vi que tem os metodos mas envio e não acontece nada nenhum retorno! Como você está enviando o método? Anexe o log para análise. Link para o comentário Compartilhar em outros sites More sharing options...
jair barreto Postado 26 Abril Autor Compartilhar Postado 26 Abril Estou enviando assim: eSocial_DownloadEventos(aIdEmpregador, aCPFTrabalhador, aDataInicial, aDataFinal, sResposta, esTamanho) Estou passando esta funcao ACBrLibeSocial-20240426.log Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Renato Rubinho Postado 26 Abril Consultores Compartilhar Postado 26 Abril O log gravou sem os parâmetros para analisarmos. 26/04/24 09:13:24:206 - eSocial_DownloadEventos 26/04/24 09:13:27:883 - eSocial_ConsultaIdentificadoresEventosEmpregador Mantenha o LogNivel com 4, teste novamente e traga o novo log. Link para o comentário Compartilhar em outros sites More sharing options...
jair barreto Postado 26 Abril Autor Compartilhar Postado 26 Abril (editado) No log eu observei um detalhe importante que independente dos parâmetros que estou passando sempre a data chega errada exemplo a data chega 30/12/1899 eSocial_ConsultaIdentificadoresEventosTrabalhador(04050400000000, 18607903802,30/12/1899,30/12/1899) sendo que eu pasei foi estes parametros aqui por exemplo : oEsocial:ConsTrabalhador("04050400000000", "18607903802", "01/06/2023" , "30/06/2023") Todos estes metodos estar chegando os parâmetros errados onde tem data muda para 30/12/1899 eSocial_ConsultaIdentificadoresEventosTabela", "04050400000000", "15", "ID1040504000000002023071401271100629.S", "30/06/2023", "30/06/2023" eSocial_ConsultaIdentificadoresEventosTrabalhador", "04050400000000", "18607903802", "30/06/2023", "30/06/2023" eSocial_DownloadEventos", "04050400000000", "18607903802", "30/06/2023", "30/06/2023" isto acontece com as 4 funcoes de downloads ACBrLibeSocial-20240426.log Editado 26 Abril por jair barreto Link para o comentário Compartilhar em outros sites More sharing options...
jair barreto Postado 27 Abril Autor Compartilhar Postado 27 Abril (editado) 13 horas atrás, jair barreto disse: No log eu observei um detalhe importante que independente dos parâmetros que estou passando sempre a data chega errada exemplo a data chega 30/12/1899 eSocial_ConsultaIdentificadoresEventosTrabalhador(04050400000000, 18607903802,30/12/1899,30/12/1899) sendo que eu pasei foi estes parametros aqui por exemplo : oEsocial:ConsTrabalhador("04050400000000", "18607903802", "01/06/2023" , "30/06/2023") Todos estes metodos estar chegando os parâmetros errados onde tem data muda para 30/12/1899 eSocial_ConsultaIdentificadoresEventosTabela", "04050400000000", "15", "ID1040504000000002023071401271100629.S", "01/06/2023", "30/06/2023" eSocial_ConsultaIdentificadoresEventosTrabalhador", "04050400000000", "18607903802", "30/06/2023", "01/06/2023" eSocial_DownloadEventos", "04050400000000", "18607903802", "01/06/2023", "30/06/2023" isto acontece com as 4 funcoes de downloads ACBrLibeSocial-20240426.log 47.69 kB · 1 download eSocial_ConsultaIdentificadoresEventosTabela", "04050400000000", "15", "ID1040504000000002023071401271100629.S", "01/06/2023", "30/06/2023" eSocial_ConsultaIdentificadoresEventosTrabalhador", "04050400000000", "18607903802", "01/06/2023", "30/06/2023" eSocial_DownloadEventos", "04050400000000", "18607903802", "01/06/2023", "30/06/2023" eSocial_ConsultaIdentificadoresEventosEmpregador ", "04050400000000","15","30/06/2023" todas as 4 funções de que passo como data chega na dll assume como se eu tivesse passado a data quando na verdade eu nao mandei esta data 30/12/1899 Editado 27 Abril por jair barreto Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Renato Rubinho Postado 27 Abril Consultores Compartilhar Postado 27 Abril 8 horas atrás, jair barreto disse: quando na verdade eu nao mandei esta data 30/12/1899 Isso acontece quando a data não é passada, como se fosse zero ou em branco. Aparentemente não está passando os parâmetros corretamente. Algum outro método funciona na rua aplicação? Não temos programa de exemplo do eSocial para sua linguagem, mas você pode ser basear em algum outro para verificar como se comunicar com a biblioteca. ../trunk2/Projetos/ACBrLib/Demos/Harbour/ Link para o comentário Compartilhar em outros sites More sharing options...
jair barreto Postado 28 Abril Autor Compartilhar Postado 28 Abril Qual o formato que devo passar a data na documentação estar DD/MM/AAAA e eu estou passando assim "01/06/2023", "30/06/2023" sera que eu deveria passar em outro formato ? em qual formato ? F Link para o comentário Compartilhar em outros sites More sharing options...
jair barreto Postado 28 Abril Autor Compartilhar Postado 28 Abril 21 horas atrás, Renato Rubinho disse: Isso acontece quando a data não é passada, como se fosse zero ou em branco. Aparentemente não está passando os parâmetros corretamente. Algum outro método funciona na rua aplicação? Não temos programa de exemplo do eSocial para sua linguagem, mas você pode ser basear em algum outro para verificar como se comunicar com a biblioteca. ../trunk2/Projetos/ACBrLib/Demos/Harbour/ Consigo fazer todos os outros procedimentos existentes na documentação apenas estas 4 funções que chega os dados errados eu envio como parâmetro "01/06/2023", "30/06/2023" desta forma mas internamente a dll troca para 30/12/1899 o interessante que em todas as outras funcionalidades os parâmetros chegam corretos apesar de logo no inicio ter encontrados alguns erros que você mesmo resolveu para mim tipo na hora de receber os parâmetro acho que internamente na dll fazia um processamento de ajustes e aparentemente é isto que estar acontecendo com estas 4 funções exemplo esta função aqui ConsIdentEmpregador( aIdEmpregador, aTipoEvento, aPeriodoApuracao ) o primeiro parametro e o segundo chega certo o terceiro já mandei varias forma de datas mas não chega nada no 3 parâmetro e assim acontece com as 4 funções ... Link para o comentário Compartilhar em outros sites More sharing options...
jair barreto Postado 29 Abril Autor Compartilhar Postado 29 Abril Tem como colocar uma menssagem aqui para tester qual o tipo de string estar chegando nesta funcoa o no logo por que independente do tipo de dados que coloco como parametro nao chaga a dat, se coloco NIl, se coloco 30/06/2023, se coloco 30-06-2024 se coloco 2024-06-30 so chega 30/06/1899 ai eu precisava saber que informa colocar aparentime é importado a stringo de dados e reconhecer os 3 primeiro campos os 2 ultimo nao reconhece fica como se nao tivesse passado nada ... mas os 3 orimeiro estar chegando certinho Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Renato Rubinho Postado 29 Abril Consultores Compartilhar Postado 29 Abril Anexe a parte do seu fonte onde faz a chamada dos métodos que não funcionam e a parte de um método que funciona para analisarmos se encontramos alguma diferença. Link para o comentário Compartilhar em outros sites More sharing options...
jair barreto Postado 29 Abril Autor Compartilhar Postado 29 Abril ** A chamada do metodo é assim cXmlResposta := oEsocial:ConsTabela("04050400000000", 15, "ID1040504000000002023071401271100629","01/06/2023" , "30/06/2023") // o metodo estar assim METHOD ConsTabela(aIdEmpregador, aTipoEvento, aChave,aDataInicial,aDataFinal) CLASS tEsocial local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_STDCALL, "eSocial_ConsultaIdentificadoresEventosTabela", hb_StrToUTF8(aIdEmpregador), aTipoEvento, aChave, hb_StrToUTF8(aDataInicial), hb_StrToUTF8(aDataFinal),@buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) Observe na parte do fonte como estou enviando e o retornos de cnpj retorna 04050400000000, o tipo do evento retrna 15 , a chave retorna ID1040504000000002023071401271100629 exatamente como foi passada no metodo agora a data inicial 01/06/2023 e final 30/06/2023 independente do que for passado so cheda na dll como 30/12/1899 Link para o comentário Compartilhar em outros sites More sharing options...
jair barreto Postado Quinta as 11:24 Autor Compartilhar Postado Quinta as 11:24 (editado) olha a mensagem do log acredito que tem algum lugar ai no fonte da dll que não estar carregando o valor enviado! Passou e retorno erro -8 depois que comecei a enviar a data coma DateTime() 02/05/24 08:17:03:637 - Destravar 02/05/24 08:17:03:637 - SetRetorno(0, ) 02/05/24 08:17:03:637 - TACBrLibeSocial.PrecisaCriptografar(eSocial,Visualizar) 02/05/24 08:17:03:637 - TACBrLibeSocial.PrecisaCriptografar - Feito Result: False 02/05/24 08:17:03:637 - LIB_ConfigGravarValor(eSocial, Visualizar, 1) 02/05/24 08:17:03:637 - TACBrLibeSocial.PrecisaCriptografar(eSocial,Visualizar) 02/05/24 08:17:03:637 - TACBrLibeSocial.PrecisaCriptografar - Feito Result: False 02/05/24 08:17:03:637 - TLibeSocialConfig.AjustarValor(tfGravar,eSocial,Visualizar,1) 02/05/24 08:17:03:637 - TLibeSocialConfig.AjustarValor - Feito 02/05/24 08:17:03:637 - TLibeSocialConfig.AplicarConfiguracoes: .\DLL\ACBrLib.ini 02/05/24 08:17:03:637 - Travar 02/05/24 08:17:03:637 - TLibeSocialConfig.AplicarConfiguracoes - Feito 02/05/24 08:17:03:637 - Destravar 02/05/24 08:17:03:637 - SetRetorno(0, ) 02/05/24 08:17:04:363 - 0000001 -eSocial_ConsultaIdentificadoresEventosTabela (04050400000000, 15, ID1040504000000002023071401271100629, 30/12/1899, 30/12/1899) 02/05/24 08:17:04:363 - Travar 02/05/24 08:17:04:363 - Destravar 02/05/24 08:17:04:363 - SetRetorno(-8, Erro ao Consultar Evento - Parâmetro não Preenchido) 02/05/24 08:17:04:913 - LIB_Finalizar 02/05/24 08:17:04:913 - Finalizar ACBrLibeSocial-20240502.log Editado Quinta as 11:26 por jair barreto Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Renato Rubinho Postado Há 19 horas Consultores Compartilhar Postado Há 19 horas Em 02/05/2024 at 08:24, jair barreto disse: eSocial_ConsultaIdentificadoresEventosTabela (04050400000000, 15, ID1040504000000002023071401271100629, 30/12/1899, 30/12/1899) A data 30/12/1899 é interpretada como data zero, como se não tivesse sido informada. Tentei comparar com outros exemplos que temos e só notei a questão da conversão para UTF. Em 29/04/2024 at 17:29, jair barreto disse: eSocial_ConsultaIdentificadoresEventosTabela", hb_StrToUTF8(aIdEmpregador), aTipoEvento, aChave, hb_StrToUTF8(aDataInicial), hb_StrToUTF8(aDataFinal),@buffer, @bufferLen) Tente remover o hb_StrToUTF8 das datas. Link para o comentário Compartilhar em outros sites More sharing options...
jair barreto Postado Há 15 horas Autor Compartilhar Postado Há 15 horas Seu eu soubesse qual a codificação para colocar no inicio desta função lá no código fonte da dll ai eu conseguiria acertar e entender rapidamente o que estar acontecendo por que independente de como eu manda a data chega sempre zero conforme você passou na mensagem! VOCE NAO PODE PASSAR PARA MIM COMO ESCREVE UMA ALERTA NO INICIO DESTA FUNCAO PARA mostra o que chega no inicio desta função lá na dll, ai eu fazia a compilação da dll e conferia o que estar chagando ao iniciar a chamada desta função na dll. É que nao nao sei programar nada em delphi o lazaro eu ate consigo compilar a dll aqui com o lazarao! estou chamando assim "eSocial_ConsultaIdentificadoresEventosTabela", hb_StrToUTF8(aIdEmpregador), aTipoEvento, hb_StrToUTF8(aChave), aDataInicial, aDataFinal ,@buffer, @bufferLen ja passei das seguintes forma : "01/06/2023" "2023/06/01" 2023-06-01 01/06/2023 09:41:16,824 nao conhesso nenhum outro formato de data para testar Acho que se vc passar a codificacao para mim e indicar onde coloco para mim compilar e ver o que chega na dll ai dar para mim ter alguma ideia do que pode estar acontecendo. OBS a resposta no log sempre chaga a mesma coisa mesmo que eu não passe nenhuma valor ou manda qualquer formato de data Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts
Crie uma conta ou entre para comentar
Você precisar ser um membro para fazer um comentário
Criar uma conta
Crie uma nova conta em nossa comunidade. É fácil!
Crie uma nova contaEntrar
Já tem uma conta? Faça o login.
Entrar Agora