ACBRLib com VB6 - Conflito de variáveis

[João Paulo Pires]

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 Simoes]

humm.. acho que todo tipo Enumerado, deveria ter um prefixo... como por exemplo:  spNone...spSpace

consegue ajustar isso, @Rafael Dias ?

[João Paulo Pires]

9 minutos atrás, Daniel Simoes disse:

humm.. acho que todo tipo Enumerado, deveria ter um prefixo... como por exemplo:  spNone...spSpace

consegue ajustar isso, @Rafael Dias ?

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

essa Space é muito usada no vb6.

 

Editado 4 Novembro, 2019 por João Paulo Pires

[Rafael Dias]

Enviei umas modificações para estes enums.

[João Paulo Pires]

Agora, Rafael Dias disse:

Enviei umas modificações para estes enums.

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

[Rafael Dias]

Esta modificações nos enums já se encontram no SVN.

[João Paulo Pires]

Agora, Rafael Dias disse:

Esta modificações nos enums já se encontram no SVN.

ok, vou efetuar o teste.

[João Paulo Pires]

@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

[Rafael Dias]

Correção enviada ao SVN.

[João Paulo Pires]

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

NFC_gerada.ini

[Rafael Dias]

Acho melhor abrir um novo tópico para isso pois já esta misturando os assuntos.