Jump to content

Helio Beltrao Jr.

Membros Pro
  • Posts

    331
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Helio Beltrao Jr.

  1. Bom dia, Pessoal Nao consegui utilizar a ACBRLIB.DLL acredito que e porque estou uma versao muito antiga do Xharbour 0.99.7 que nao tem esse METHOD hb_StrToUTF8 infelizemente
  2. Boa noite, Jose Nesse topico que tem no LEIA-ME da ACBRLIB tentei fazer de varias forma passando array e string mais nao deu certo, acho que nao entendi esse topico: https://acbr.sourceforge.io/ACBrLib/ComotrabalharcomStrings.html A forma que eu passo o buffer e assim nao sei se estar correto segue o exemplo: FUNCTION ConfigLerValor(eSessao, eChave) local hResult, buffer, bufferLen bufferLen := 255 buffer := Space(bufferLen) hResult := DllCall(hHandle, DLL_OSAPI, "NFE_ConfigLerValor", eSessao, eChave, @buffer, @bufferLen) IF hResult = -1 atencao('<ConfigLerValor> Error: -1 Indica que a biblioteca não foi inicializada.') ELSEIF hResult = -3 atencao('<ConfigLerValor> Error: -3 Indica que houve erro ao ler a configuração informada.') ENDIF CheckResult(hResult) RETURN ProcessResult(buffer, bufferLen)
  3. Bom dia, Daniel E no ACBRLIB.INI e isso ? Se for ja estar CodificacaoResposta=1 e so nesse campo ? Segue o meu arquivo ACBRLIB.INI ACBRLIB.INI
  4. Bom dia, Jose Acredito que seja este method hb_StrToUTF8(eArqConfig) que nao existe no Xharbour 0.99 e ja procurei e varios forum mais nao encontrei nada parecido infelizmente estar complicado de utilizar a DLL.
  5. Boa tarde, Jose M. S. Junior Tambem acho que seja o retorno porque estou mando uns arquivos para poder ser analizado pela equipe e ver se tem condicoes pra me poder usar porque ja fiz varios teste e o retorno e o mesmo. Esse e o inicio para carregar a DLL e inicializar e chamar alguns method: hHandle := '' hHandle := DllLoad(ACBrLIB) IF EMPTY(hHandle) //oErr := ErrorNew() //oErr:Severity := ES_ERROR //oErr:Description := "Erro a carregar a dll [" + ACBrLIB + "]" atencao("Erro a carregar a dll [" + ACBrLIB + "]") ELSE hResult := DllCall(hHandle, DLL_OSAPI, "NFE_Inicializar", eArqConfig, eChaveCrypt) IF hResult = -1 atencao('<INICIALIZAR> Indica que houve falhas na inicialização da biblioteca.') ELSEIF hResult = -5 atencao('<INICIALIZAR> Indica que não foi possível localizar o arquivo INI informado.') ELSEIF hResult = -6 atencao('<INICIALIZAR> Indica que não foi possível encontrar o diretório do arquivo INI.') ENDIF CheckResult(hResult) ENDIF CarregarINI(eArqConfig) CarregarEventoINI(eArqConfig) ConfigLerValor('NFE','FormaEmissao') // estar dando erro porque tem a string e o inteiro (, @buffer, @bufferLen) StatusServico() // nesse caso dar o retorno: E logo dar o o seguinte erro: acbrlib_method.txt ACBrLibNFE-20220602.log ACBRLIB.INI
  6. Bom dia, Jose Consegui imprimir uma nota agora esses erros que postei anteriormente nao consigo saber o que pode ser. Principalmente o STATUS que nao funciona.
  7. Boa Tarde, Pessoal A parte de configuracao o ACBRLIB.INI ocorreu tudo muito bem segue os arquivos ACBRLIB.INI e o arquivo de LOG pra ver onde estou errando me desculpe mais gostaria de usar esta DLL. ACBrLibNFE-20220530.log ACBRLIB.INI
  8. O arquivo ACBRLIB.INI segue em anexo ACBRLIB.INI
  9. Bom dia, Jose O que pode estar acontecendo que nao estar me dando o retorno e estar dando esses erros segue em anexo o arquivo de log. ACBrLibNFE-20220525.log
  10. Bom dia, Jose Nao estou sabendo que passar esses parametros :NFE_ConfigGravarValor(eSessao, eChave, sValor). o que e eSessao o que e eChave o que e sValor
  11. Desculpe o que significa isso NFE_ConfigGravarValor(eSessao, eChave, sValor)
  12. Boa tarde, Jose segue em anexo o que voce me pediu ACBrLibNFE-20220523.log ACBRLIB.INI
  13. Bom dia, Fiz os teste com os dois exemplo esse MT / STDCALL / 32bits. e CDECL da error no status do servico: Indica que houve erro ao consultar o status de serviço. utilizo o Xhabour 0.99
  14. Bom dia, Jose Segue em anexo ACBrLibNFE-20220520.log ACBRLIB.INI
  15. Boa noite, Consegui carregar a ACBRLIB.DLL agora o problema e em alguns metodos dar error por exemplo: FUNCTION Versao() local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(hHandle, DLL_OSAPI, "NFE_Versao", @buffer, @bufferLen) IF hResult = -10 atencao('<VERSAO> Indica que houve falhas na execução do método.') RETURN .F. ENDIF //CheckResult(hResult) RETURN buffer //ProcessResult(buffer, bufferLen)
  16. Pessoal, Estava testando com o ACBRMONITORPLUS rodando mais depois que encerrei estar dando error a carregar a ACBRLIB.DLL o que estou fazendo de errado ? #define ACBrLIB 'ACBrNFe32.dll' hHandle := DllLoad(ACBrLIB) if ! EMPTY(hHandle) atencao("Erro a carregar a dll [" + ACBrLIB + "]") endif
  17. Bom dia, Estou testando essa metodo que peguei no ACBR e nao estar retornando em branco: FUNCTION Versao() local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(hHandle, DLL_OSAPI, "NFE_Versao", @buffer, @bufferLen) atencao(buffer) // apresenta uma tela CheckResult(hResult) RETURN ProcessResult(buffer, bufferLen)
  18. Boa noite, Jose Tem uma outra forma de fazer isso porque passei o dia todo e nao consegui resolver gostaria muito de usa ACBRLIB.DLL mais nao estou conseguindo uso Xharbour 0.9 com SQLRDD
  19. METHOD ConfigLer(eArqConfig) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_ConfigLer", hb_StrToUTF8(eArqConfig)) ::CheckResult(hResult) RETURN nil
  20. Bom dia, pessoal Estou querendo usar a ACBRLIB.DLL mais estou com um problema na funcao hb_StrToUTF8() porque uso o Xharbour e nao tem esta funcao como posso substituir ?
  21. Bom dia, ok vou ver o que posso fazer aqui para converte o .PNG para .BMP Obrigado pela forca
  22. Sim porque nao consigo exibir o arquivo.png ja tentei de tudo mais nao conseguir
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.