eSocial ACBrLib dll download de eventos

jairfab · Mensagem por **jairfab** » 01 Mai 2024 09:25

Estou tentando fazer downloads dos xml do e-Social com ACBreSocial32.dll e nao estou conseguindo passar a as informações quando se trata de datas!
Exemplo: oEsocial:ConsTrabalhador("04050400000000",15, "ID1040504000000002023071401271100629", "01/06/2023" , "30/06/2023")
mas na dll só chaga assim "04050400000000", 15,"ID1040504000000002023071401271100629", "30/12/1899" , "30/12/1899" não importa o parâmetro que envio como a data sempre retorna 30/12/1899 não importando se passo 30/06/2023, 2023-06/30 ou seja não leva em consideração as informações das datas

Os três primeiros parâmetros chegam certinhos agora o problema estar nas variáveis tipo data.

Alguém já chegou a ver isto ? e se consegue ajudar

Código: Selecionar todos

**  A chamada do metodo é assim 
 cXmlResposta   :=    oEsocial:ConsTabela("04050400000000", 15, "ID1040504000000002023071401271100629","01/06/2023" , "30/06/2023") 

METHOD ConsTabela( aIdEmpregador, aTipoEvento, aChave,aDataInicial,aDataFinal )

/*-------------------------------------------------------------------------*/
//01 aIdEmpregador String    Informe o ID do Empregador.
//02 aTipoEvento   Integer   Informe o Tipo do Evento.
//03 aChave        String    Informe a Chave para Consulta.
//04 aDataInicial  Date      Data Inicial da Consulta.
//05 aDataFinal    Date      Data Final de Consulta.
//06 sResposta     String    Usado pelo retorno, contem as informações retornadas pela consulta.
//07 esTamanho     Integer   Usado pelo retorno, contem o tamanho da string (sResposta).
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)
*----------------------------------------------------------------------------------------------------------*

Mensagem por **JoséQuintas** » 01 Mai 2024 20:34

jairfab escreveu:Alguém já chegou a ver isto ? e se consegue ajudar

Se hb_StrToUTF8, como o próprio nome diz, é pra converter STRING pra UTF8, porque está usando em campo DATE ?

E se é pra passar DATE, porque está passando string UTF-8, que vai ser o retorno dessa função ?

Pois é, como você mesmo disse, é alguém VER isso.
Quando entra webservice, soap, dll, e o raio que o parta.... é considerado coisa do outro mundo, não se tenta entender, e não se olha o básico....
Sempre o motivo considerado é não conheço webservice, não conheço soap, não conheço dll, ....

É sempre a mesma coisa: variável, tipo de variável, e às vezes pode precisar algum tipo de conversão pra ficar compatível.
Os tipos são compatíveis ? precisam de conversão ? vai converter do que para o que ?

Precisa de ajuda pra que mesmo ? pra dizer que string não é date e date não é string ?

jairfab · Mensagem por **jairfab** » 02 Mai 2024 15:57

Já fiz todas estas tentativas passando a data de todas as maneiras possível a única que chegou mais perto foi colocar no formato datatime mais ai a mensagem mudou

02/05/24 08:17:04:363 - SetRetorno(-8, Erro ao Consultar Evento - Parâmetros não Preenchido)

jairfab · Mensagem por **jairfab** » 03 Mai 2024 09:34

Vocês me perdoem eu não sabia que agora o fórum era assim! você faz uma pergunta e recebe como resposta uma mensagem com este nível ridículo! não vi também onde eu falei que não entendo nada de dll, webservice e que é coisa de outro mundo etc e etc. Mesmo por que utilizo tudo isto diariamente sem nenhum problema!
Eu tenho quase todas as funcionalidade desta dll funcionando 100% para nfe, sat, boleto, e-mail e e-social etc, apenas aqui no e-social falei que não estava conseguindo usar as funções de downloads por que não chega os dados nas funções dentro da dll em 4 funções especificamente as que passa datas como parâmetros e que eu já tentei enviar os campos datas de todas as formas ( obs. data apenas nestas 4 funções de downloads em outras funções funciona certinho 100% )

DD/MM/AAAA , AAAA-MM-DD, COMO STRING, COMO DATATIME E ATE PASSEI POR ULTIMO ESTA CONVERSAO hb_StrToUTF8 E NENHUMA NAO FUNCIONA
CHEGA SEMPRE NA DLL COMO SE NAO TIVESSE PASSADO O PARAMETRO DATA NAO IMPORTANDO QUAL FOI A FORMA QUE PASSEI

lucimauro · Mensagem por **lucimauro** » 04 Mai 2024 20:54

Ola,
levando como se passa esses parametros pelo acbrmonitorPLus pode ser que voce encontre a solução na DLL
eSocial.ConsultaIdentificadoresEventosTabela("99999999999999","0","123456","01/12/2018","30/12/2018")

Aqui não uso esocial somente nfe,etq,sat,mdfe

jairfab · Mensagem por **jairfab** » 05 Mai 2024 17:22

Estou seguindo a documentacao certinha mas o campo data nao aceita em nenhum formato pois ja testei imagino que todas ou quas todas o problema que la na dell o parametro chega como se tivesse sido enviado em branco ai assuma uma data padrao de 1899

Mensagem por **JoséQuintas** » 05 Mai 2024 18:19

jairfab escreveu:Vocês me perdoem eu não sabia que agora o fórum era assim! você faz uma pergunta e recebe como resposta uma mensagem com este nível ridículo! não vi também onde eu falei que não entendo nada de dll, webservice e que é coisa de outro mundo etc e etc. Mesmo por que utilizo tudo isto diariamente sem nenhum problema!

Leia várias vezes aquela resposta até entender.

Mensagem por **JoséQuintas** » 06 Mai 2024 12:13

jairfab escreveu:Vocês me perdoem eu não sabia que agora o fórum era assim! você faz uma pergunta e recebe como resposta uma mensagem com este nível ridículo! não vi também onde eu falei que não entendo nada de dll, webservice e que é coisa de outro mundo etc e etc. Mesmo por que utilizo tudo isto diariamente sem nenhum problema!
Eu tenho quase todas as funcionalidade desta dll funcionando 100% para nfe, sat, boleto, e-mail e e-social etc, apenas aqui no e-social falei que não estava conseguindo usar as funções de downloads por que não chega os dados nas funções dentro da dll em 4 funções especificamente as que passa datas como parâmetros e que eu já tentei enviar os campos datas de todas as formas ( obs. data apenas nestas 4 funções de downloads em outras funções funciona certinho 100% )

Então.....
Veja um trecho da classe pra usar a DLL do RMCHART:

Código: Selecionar todos

   METHOD ToDecimal( xValue )              INLINE xValue + 1.01 - 1.01
   METHOD ToDouble( xValue )
   METHOD ToLong( xValue )

A DLL do RMChart recebe números, mas pode ser número inteiro, double ou decimal.
O FONTE DA CLASSE faz a conversão pra poder usar a DLL.

Com o ACBR, você está usando os fontes que eles criaram COMO MODELO, o ACBR não conhece harbour ou xharbour, apenas alguém criou alguma coisa lá pra ajudar.
Você não está usando DLL, você está usando os fontes que vieram junto com o ACBR, esses fontes é que conversam com a DLL.

Usar DLL não é a mesma coisa que usar uma função pronta.
Na DLL entram muitos tipos que não existem no harbour, só de tipo numérico existem uns 10, e não faço idéia sobre o tipo DATE.

O primeiro passo é conferir ESSE FONTE QUE VEIO COM ACBR, porque provavelmente está com DEFEITO, não está convertendo data pro formato necessário da DLL, se é que seria DATE mesmo.

Qual é o parâmetro certo ?
Não sei
Precisaria baixar ACBR, instalar e configurar
Precisaria baixar fontes adicionais que o ACBR criou, pra ver erro
Isso também inclui pesquisar aonde fazer download disso
Talvez precise certificado, e cadastro lá no webservice
É muito trabalho, e seria ridículo fazer isso tudo pra não usar.
Por isso indiquei sobre o que pesquisar.

Frase do PLINK86 do Clipper:
"Se você fizer uma pessoa achar que está pensando, ela vai te amar
Mas se você fizer uma pessoa realmente pensar, ela vai te odiar"

A minha dúvida é:
De uns tempos pra cá tudo no fórum é considerado ofensivo... parece que ajudar virou crime...
Se não for uma resposta pra copiar/colar, a resposta é considerada ofensiva.

Será que com a explicação melhorou ou piorou ?
Se melhorou, é ir lá na função do fonte que veio com ACBR e tentar encontrar o erro.
Caso contrário.... sem opção...

joaoalpande · Mensagem por **joaoalpande** » 06 Mai 2024 12:23

Bom dia ,

vc já tentou como datetime neste formato:
2018-10-02T12:12:12

lucimauro · Mensagem por **lucimauro** » 06 Mai 2024 13:17

Vejo que também é
Importante está usando a última versão da DLL

Mensagem por **JoséQuintas** » 06 Mai 2024 14:06

Se não der pelo harbour, sempre existe a opção de usar o componente script e fazer pelo vb:

Código: Selecionar todos

Private Declare Function eSocial_DownloadEventos _
                Lib "ACBreSocial32.dll" (ByVal aIdEmpregador As String, _
                                         ByVal aCPFTrabalhador As String, _
                                         ByVal aDataInicial As Date, _
                                         ByVal aDataFinal As Date, _
                                         ByVal buffer As String, _
                                         ByRef bufferLen As Long) As Long
...
Private Sub btnDownloadEventos_Click()
    On Erro GoTo Erro:
    
    Dim ret As String
    Dim tipoEvento As Long
    Dim cpfTrabalhador As String
    Dim dataInicial As Date
    Dim dataFinal As Date

    tipoEvento = InputBox("Informe o Tipo do Evento", "Download Eventos", "")
    cpfTrabalhador = InputBox("Informe o CPF do Trabalhador", "Download Eventos", "")
    dataInicial = InputBox("Informe a Data Inicial", "Consulta Tabela eSocial", "01/MM/AAAA")
    dataFinal = InputBox("Informe a Data Final", "Consulta Tabela eSocial", "01/MM/AAAA")
    
    ret = eSocial.ConsultaIdentificadoresEventosTrabalhador(txtEmpregador.Text, cpfTrabalhador, dataInicial, dataFinal)
    rtbRespostas.Text = ret
    
Erro:
    MsgBox Err.Description
End Sub

chatgpt só mostra o que eu já disse por aqui:

Para chamar uma DLL em Delphi pelo Harbour (que é uma linguagem de programação para o desenvolvimento de aplicativos baseados em Clipper), e passar um parâmetro do tipo Date, você precisa garantir que a conversão de data esteja correta entre as linguagens.

Em Delphi, o tipo de dados para representar datas é frequentemente TDateTime, que é um tipo de dado numérico de ponto flutuante. O valor integral representa a quantidade de dias desde uma data base, e a parte fracionária representa a fração de um dia (horas, minutos, segundos). No entanto, em Clipper/Harbour, as datas são frequentemente representadas como estruturas de data (como DATE ou DTOS()).

Para converter entre os formatos em Delphi e Harbour, você precisará tomar algumas medidas, como:

Converter TDateTime para uma estrutura de data compreensível em Harbour: Isso pode envolver converter a parte inteira para o formato de data compreensível em Clipper/Harbour, que pode ser um número serial de data, ou algo semelhante.
Converter uma estrutura de data de Harbour para TDateTime: Se a DLL espera uma data em um formato específico que Delphi não usa diretamente, você precisará converter essa estrutura de data para TDateTime antes de passá-la para a DLL.
Certificar-se de que ambas as partes estão usando a mesma base de datas: Garanta que a base de datas seja consistente entre Delphi e Harbour. Por exemplo, o Delphi usa 30 de dezembro de 1899 como data base, enquanto Clipper/Harbour pode usar 1 de janeiro de 1900 ou outra data base.
A implementação exata dessas conversões dependerá da forma como as datas são representadas e manipuladas na DLL em questão e das convenções de data usadas tanto em Delphi quanto em Harbour.

Aliás... tem algo interessante:
A data base do Delphi que o chatgpt indicou bate com uma das datas que foi mencionada no começo, que seria equivalente à data ZERO
30/12/1899.

Mensagem por **JoséQuintas** » 06 Mai 2024 14:27

Com base nisso, eu faria um teste passando 1 e 2, e 1.0 e 2.0 - parece a mesma coisa mas não é.
Se as datas avançarem 1 e 2 dias, a solução será usar dData - Stod( "18991230" )
É chute, mas fazer o que, não vai de um jeito tenta-se de outro.
E ainda cabe testar uma das conversões de RMChart pra decimal e double.
Não se sabe o que tem do outro lado da dll.

jairfab · Mensagem por **jairfab** » 06 Mai 2024 15:41

QUANDO FALO QUE JA TESTEI MUINTOS FORMATOS DE DATAS É POR QUE JA TESTEI MESMO :

já passei das seguintes forma : "01/06/2023" "2023/06/01" 2023-06-01 01/06/2023 09:41:16,824 não conheço nenhum outro formato de data para testar se alguém souber! ah desculpa esqueci que ninguém não pode mais procurar nada aqui no fórum!
e infelizmente aqui no fórum de uns tempos pra cá ou depois da morte do grande amigo Toledo.
O fórum mudou muito parece mais um campo minado ou quem sabe de guerra onde ninguém pode fazer nenhuma pergunta de duvida muito menos pergunta se algum amigo já passou por isto e como resolveu se pedi ajuda então ai seria ate aconselhável comprar um escudo daqueles que a policia de choque usa!

A documentação desta função estar aqui : https://acbr.sourceforge.io/ACBrLib/eSo ... entos.html

O código fonte da dll lá do acbr :

Código: Selecionar todos


function TACBrLibeSocial.ConsultaIdentificadoresEventosTabela(const aIdEmpregador: PChar; aTipoEvento: integer; aChave: PChar; aDataInicial: TDateTime; aDataFinal: TDateTime; const sResposta: PChar; var esTamanho: longint):longint;
var
  idEmpregador: String;
  tpEvento: Integer;
  Chave: String;
  DataInicial, DataFinal: TDateTime;
  Resp: TConsultaTotEventos;
  AResposta: String;
begin
  DataInicial:= aDataInicial;
  DataFinal:= aDataFinal;
  Chave:= AnsiString(aChave);
  tpEvento:= aTipoEvento;
  idEmpregador:= AnsiString(aIdEmpregador);

  try
    if Config.Log.Nivel > logNormal then
    GravarLog('eSocial_ConsultaIdentificadoresEventosTabela (' + aIdEmpregador + ', ' + IntToStr(aTipoEvento) + ', ' + aChave + ', ' + DateToStr(aDataInicial) + ', ' + DateToStr(aDataFinal) + ')', logCompleto, True)
    else
     GravarLog('eSocial_ConsultaIdentificadoresEventosTabela', logNormal);

      eSocialDM.Travar;
      try
        if ( (EstaVazio(idEmpregador)) or (EstaVazio(Chave)) or (DataInicial <= 0 ) or (DataFinal <= 0) ) then
          raise EACBrLibException.Create(ErrParametroInvalido, ACBrStr(SErroeSocialConsulta));

        AResposta:= '';
        eSocialDM.ACBreSocial1.Eventos.Clear;
        if eSocialDM.ACBreSocial1.ConsultaIdentificadoresEventosTabela(idEmpregador, TTipoEvento(tpEvento), Chave, DataInicial, DataFinal) then
        begin
          Resp := TConsultaTotEventos.Create(Config.TipoResposta, Config.CodResposta);
          try
            Resp.Processar(eSocialDM.ACBreSocial1);
            AResposta:= Resp.Gerar;
          finally
            Resp.Free;
          end;

          MoverStringParaPChar(AResposta, sResposta, esTamanho);
          Result := SetRetorno(ErrOK, AResposta);
        end;

      finally
        eSocialDM.Destravar;
      end;

  except
    on E: EACBrLibException do
    Result := SetRetorno(E.Erro, ConverterUTF8ParaAnsi(E.Message));
    on E: Exception do
    Result := SetRetorno(ErrExecutandoMetodo, ConverterUTF8ParaAnsi(E.Message));
  end;
end;

Ana Mitoooo · Mensagem por **Ana Mitoooo** » 06 Mai 2024 15:44

Código: Selecionar todos

/*-------------------------------------------------------------------------*/
//01 cIdEmpregador String    Informe o ID do Empregador.
//02 nTipoEvento   Integer   Informe o Tipo do Evento.
//03 cChave        String    Informe a Chave para Consulta.
//04 nDataInicial  Date      Data Inicial da Consulta.
//05 nDataFinal    Date      Data Final de Consulta.
//06 sResposta     String    Usado pelo retorno, contem as informações retornadas pela consulta.
//07 esTamanho     Integer   Usado pelo retorno, contem o tamanho da string (sResposta).
// A chamada do metodo é assim 
// cXmlResposta   :=    oEsocial:ConsTabela("04050400000000", 15, "ID1040504000000002023071401271100629", DToS( dDataIni ), DToS( dDataFim ) ) 
// cXmlResposta   :=    oEsocial:ConsTabela("04050400000000", "15", "ID1040504000000002023071401271100629", "20230601", "20230630" ) 
// cXmlResposta   :=    oEsocial:ConsTabela("04050400000000", 15, "ID1040504000000002023071401271100629", 20230601, 20230630 ) 
/*-------------------------------------------------------------------------*/
METHOD ConsTabela(cIdEmpregador, nTipoEvento, cChave,nDataInicial,nDataFinal) CLASS tEsocial
    local hResult, buffer, bufferLen
    bufferLen := STR_LEN
    buffer := Space(bufferLen) 
    hResult := DllCall(::hHandle, DLL_STDCALL, "eSocial_ConsultaIdentificadoresEventosTabela", cIdEmpregador, nTipoEvento, cChave, nDataInicial, nDataFinal, @buffer, @bufferLen )
    ::CheckResult(hResult)
RETURN ::ProcessResult(buffer, bufferLen)

Mensagem por **JoséQuintas** » 06 Mai 2024 16:52

jairfab escreveu:á passei das seguintes forma : "01/06/2023" "2023/06/01" 2023-06-01 01/06/2023 09:41:16,824 não conheço nenhum outro formato de data para testar se alguém souber! ah desculpa esqueci que ninguém não pode mais procurar nada aqui no fórum!
e infelizmente aqui no fórum de uns tempos pra cá ou depois da morte do grande amigo Toledo.
O fórum mudou muito parece mais um campo minado ou quem sabe de guerra onde ninguém pode fazer nenhuma pergunta de duvida muito menos pergunta se algum amigo já passou por isto e como resolveu se pedi ajuda então ai seria ate aconselhável comprar um escudo daqueles que a policia de choque usa!

Ok, encerrando aqui.
A ajuda não serviu, e não tenho a resposta pronta, do jeito que você quer.