João Paulo Pires

consegui resolver agora... usei essa função... Private Const CP_UTF8 As Long = 65001 ' UTF-8 Code Page 'Sys call to convert multiple byte chars to a char Private Declare Function MultiByteToWideChar Lib "KERNEL32" ( _ ByVal CodePage As Long, _ ByVal dwFlags As Long, _ ByVal lpMultiByteStr As Long, _ ByVal cchMultiByte As Long, _ ByVal lpWideCharStr As Long, _ ByVal cchWideChar As Long) As Long Private Function DecodeURI(ByVal EncodedURI As String) As String Dim bANSI() As Byte Dim bUTF8() As Byte Dim lIndex As Long Dim lUTFIndex As Long If Len(EncodedURI) = 0 Then Exit Function End If EncodedURI = Replace$(EncodedURI, "+", " ") ' In case encoding isn't used. bANSI = StrConv(EncodedURI, vbFromUnicode) ' Convert from unicode text to ANSI values ReDim bUTF8(UBound(bANSI)) ' Declare dynamic array, get length For lIndex = 0 To UBound(bANSI) ' from 0 to length of ANSI If bANSI(lIndex) = &H25 Then ' If we have ASCII 37, %, then bUTF8(lUTFIndex) = Val("&H" & Mid$(EncodedURI, lIndex + 2, 2)) ' convert hex to ANSI lIndex = lIndex + 2 ' this character was encoded into two bytes Else bUTF8(lUTFIndex) = bANSI(lIndex) ' otherwise don't need to do anything special End If lUTFIndex = lUTFIndex + 1 ' advance utf index Next DecodeURI = FromUTF8(bUTF8, lUTFIndex) ' convert to string End Function Private Function FromUTF8(ByRef UTF8() As Byte, ByVal Length As Long) As String Dim lDataLength As Long lDataLength = MultiByteToWideChar(CP_UTF8, 0, VarPtr(UTF8(0)), Length, 0, 0) ' Get the length of the data. FromUTF8 = String$(lDataLength, 0) ' Create array big enough MultiByteToWideChar CP_UTF8, 0, VarPtr(UTF8(0)), _ Length, StrPtr(FromUTF8), lDataLength ' End Function

@Daniel Simoes boa tarde, consegui fazer a leitula dos logs de retorno usando esse exemplo do nosso amigo http://www.macoratti.net/vb_ini.htm porém o retorno esta vindo com os caracteres todos bagunçados, parece nao estar como UTF-8. Mas quando eu vejo direto no arquivo ACBrLib-20191105.log, esta na formatação correta. Como resolvo isso?

ok Daniel, vou verificar isso. obrigdo.

Boa madrugada, estou precisando saber como faço para capturar os retornos da dll, a dll, retorna o numero da Rejeição em alguma variavel que eu possa usar, e tomar alguma decisão?

nao estou conseguindo Criar Enviar o xml, esta dando esse erro, mas nao sei onde é. NFC_gerada.ini

Rafael, pode me ajudar, nao estou conseguindo Criar Enviar o xml, esta dando esse erro, mas nao sei onde é. NFC_gerada.ini

@Rafael Dias, na hora que tentei compilar deu um erro, falado que "Variavel não foi definida" então eu fiz aqui essas modificações em todas as SUB da classe ACBrNFC.cls estava assim: Public Sub EnviarEmailEvento(ByVal ePara As String, ByVal eChaveNFe As String, ByVal aEnviaPDF As Boolean, _ ByVal eAssunto As String, ByVal eMensagem As String, _ Optional ByVal eCc As String = "", Optional ByVal eAnexos As String = "") Dim retorno As Long bufferLen = BUFFER_LENGTH Buffer = String$(bufferLen, " ") retorno = NFE_EnviarEmailEvento(ePara, eChaveNFe, aEnviaPDF, eAssunto, eCc, eAnexos, eMensagem) CheckResult retorno End Sub 'coloquei assim Public Sub EnviarEmailEvento(ByVal ePara As String, ByVal eChaveNFe As String, ByVal aEnviaPDF As Boolean, _ ByVal eAssunto As String, ByVal eMensagem As String, _ Optional ByVal eCc As String = "", Optional ByVal eAnexos As String = "") Dim retorno As Long Dim Buffer As String ' <<<<<<====== Dim bufferLen As Long ' <<<<<<====== bufferLen = BUFFER_LENGTH Buffer = String$(bufferLen, " ") retorno = NFE_EnviarEmailEvento(ePara, eChaveNFe, aEnviaPDF, eAssunto, eCc, eAnexos, eMensagem) CheckResult retorno End Sub

ok, vou efetuar o teste.

por enquanto, eu posso apagar a minha função, q é bem simples, para continuar a testar o componente ACBrLib. aguardo possiveis atualizações. obrigado.

pensei em fazer isso, porém essa Space é interna do proprio vb. nao consigo trocar o nome dela. essa Space é muito usada no vb6.

Boa tarde, estou tendo um conflito no VB6 com o module ACBRComun da DLL. tenho essa função no VB6 que faz conversão de String maiscula para minusculas, substituindo Da, De, Do, Em para da, de, do, em, uma função para que os nomes dos Clientes, fiquem padronizados com a primeira letra de cada nome Maiusculas. Ex: "JOÃO PAULO DA SILVA" converte para "João Paulo da Silva". Só que agora esta dando conflito com o Modulo ACBRComun que vem no Demo. Pois neste modulo tem uma variavel chamada Space também. 'Module ACBRComun Public Enum SerialParity None = 78 Odd = 79 Even = 69 Mark = 77 Space = 83 End Enum 'VB6 Public Function letras_maiscula(texto As String) As String Dim troca() As String Dim Nome As String Nome = StrConv(texto, vbProperCase) troca = Split("Da;De;Do;Em", ";") For Each E In troca Nome = Replace(Nome, Space(1) & E & Space(1), Space(1) & LCase(E) & Space(1)) Next E letras_maiscula = Nome End Function

Daniel, agora sim, era só atualizar os schemas pelo svn. 1º passo realizado, agora vamos continuar o processo. Obrigado!

Daniel, agora esta aparecendo essa rejeição.ACBrLibNFE-20191031.log Msg=Rejeicao: Falha no schema XML - versao informada na versaoDados do SOAPHeader diverge da versao da mensagem

Bom dia, não estou conseguindo usar essa dll com vb6, acho que é só alguma configuração nos arquivos ini. Mas não sei onde modificar. Estou tentando somente ver o status do serviço, e me retorna esse erro. ACBrNFeServicos.iniACBrLib.ini

ok, obrigado, instalei ele, mas agora ta acusando o erro em outro componente, "lazreportpdfexport" que ja procurei e nao encontrei, ele ta no repositorio SVN?

Boa tarde, estou tentando compilar a versão do ACBRMonitor no lazarus, e esta dando este erro, ja instalei todos os pacotes do projeto.

Obrigado pelas dicas, vlw, vou fazer isso em meus clientes.

concordo com vc, até descobrirmos o que esta acontecendo, estou copiando os schemas, e ini das versões atuais para ficar atualizado, pois se eu usar a instalação mais atualizada do ACBRmonitor, ele da esse erro na hora de executar.

Juliana, ok, obrigado pelas informações irei virar Assinante SAC. Eu consegui resolver o problema fazendo o seguinte: 1 - Desinstalei o ACBRMonitor Plus 1.2.0.53 2 - Instalei uma versão mais antiga do ACBRMonitor plus 1.2.0.18 que eu tinha aqui. 3 - Depois só troquei o EXE para a versão que eu compilei no Lazarus.

Alguém pode me ajudar com isso?

Pessoal bom dia, criei uma compilação do exe do acbr em meu pc windows 7 64, usando o lazarus 32btis, em um cliente meu que usa win7 funcionou, agora em outro cliente meu que usa win7 64, esta dando esse erro, na hora que eu substiui o exe do acbrmonitor. Estou trocando a versão do ACBRMonitor Plus 1.2.0.50 para ACBRMonitor Plus 1.2.0.53 que é a versão que corrigi o erro do SSL que todos estao informando em MG. Possivelmente pode estar faltando DLL, mas na msg não aparece qual a dll. ACBrMonitor.ini LOG_COMP.TXT

obrigado Felipe vou ver e fazer o que se pede.

boa tarde parceiros, estou tendo o mesmo problema em MG. Erro 12175 - Um ou mais erros foram encontrados no certificado Secure Sockets Layer (SSL) enviado pelo servidor quando estou usando o certificado a3 da esse erro, o certificado A1 esta normal.

Bom dia pessoal, alguém tem informações sobre o SEFAZ-MG, sobre estas alterações do campo do Responsavel técnico?

obrigado, vou começa a estudar isso. e ver se será viável a implantação.