Jump to content
Fivewin Brasil

eSocial ACBrLib dll download de eventos


Recommended Posts

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

 

 

	**  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)
	*----------------------------------------------------------------------------------------------------------*
	 

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...