Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

ACBRLib com VB6 - Conflito de variáveis


João Paulo Pires
Go to solution Solved by Rafael Dias,
  • Este tópico foi criado há 927 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link to comment
Share on other sites

  • Fundadores

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

consegue ajustar isso, @Rafael Dias ?

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

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.

 

spaceACBR.thumb.png.1ab9b7b52a014c621a9a1d393d4863ad.png

spacevb.thumb.png.a2bf3fb5a896aaacfc279e3d8d43d4ab.png

Edited by João Paulo Pires
Link to comment
Share on other sites

@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

  • Thanks 1
Link to comment
Share on other sites

  • Este tópico foi criado há 927 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • 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.