Declara玢o em VB

Declaração em VB

Private Declare Function AssociarAssinatura Lib "BemaSAT32.dll" (ByVal sSessao As Integer, ByVal CNPJValue As String, ByVal assinaturaCNPJs As String) As Long

Private Declare Function AtivarSAT Lib "BemaSAT32.dll" (ByVal sSessao As Integer, ByVal SubComando As Integer, ByVal codigoDeAtivacao As String, ByVal CNPJ As String, ByVal cUF As Integer) As Long

Private Declare Function AtualizarSoftwareSAT Lib "BemaSAT32.dll" (ByVal sSessao As Integer, ByVal codigoDeAtivacao As String) As Long

Private Declare Function BloquearSAT Lib "BemaSAT32.dll" (ByVal sSessao As Integer, ByVal codigoDeAtivacao As String) As Long

Private Declare Function CancelarUltimaVenda Lib "BemaSAT32.dll" (ByVal sSessao As Integer, ByVal codigoDeAtivacao As String, ByVal chave As String, ByVal dadosCancelamento As String) As Long

Private Declare Function ConfigurarInterfaceDeRede Lib "BemaSAT32.dll" (ByVal sSessao As Integer, ByVal codigoDeAtivacao As String, ByVal dadosConfiguracao As String) As Long

Private Declare Function ConsultarNumeroSessao Lib "BemaSAT32.dll" (ByVal sSessao As Integer, ByVal codigoDeAtivacao As String, ByVal cNumeroDeSessao As String) As Long

Private Declare Function ConsultarSAT Lib "BemaSAT32.dll" (ByVal sSessao As Integer) As Long

Private Declare Function ConsultarStatusOperacional Lib "BemaSAT32.dll" (ByVal sSessao As Integer, ByVal CodigoAtivacaoSAT As String) As Long

Private Declare Function DesbloquearSAT Lib "BemaSAT32.dll" (ByVal sSessao As Integer, ByVal codigoDeAtivacao As String) As Long

Private Declare Function EnviarDadosVenda Lib "BemaSAT32.dll" (ByVal sSessao As Integer, ByVal codigoDeAtivacao As String, ByVal dadosVenda As String) As Long

Private Declare Function ExtrairLogs Lib "BemaSAT32.dll" (ByVal sSessao As Integer, ByVal codigoDeAtivacao As String) As Long

Private Declare Function TesteFimAFim Lib "BemaSAT32.dll" (ByVal sSessao As Integer, ByVal codigoDeAtivacao As String, ByVal dadosVenda As String) As Long

Private Declare Function TrocarCodigoDeAtivacao Lib "BemaSAT32.dll" (ByVal sSessao As Integer, ByVal codigoDeAtivacao As String, ByVal novoCodigo As String, ByVal confNovoCodigo As String) As Long

'Declaração da função de conversão do retorno com tratamento

Private Declare Function ConvCStringToVBString Lib "kernel32" Alias "lstrcpyA" (ByVal lpsz As String, ByVal pt As Long) As Long

'Função para definir um ponteiro e receber o retorno

Public Function GetStringFromPointer(ByVal lpString As Long) As String

    Dim NullCharPos As Long

    Dim szBuffer As String

    szBuffer = String(1024, 0)

    ConvCStringToVBString szBuffer, lpString

    NullCharPos = InStr(szBuffer, vbNullChar)

    GetStringFromPointer = Left(szBuffer, NullCharPos - 1)

End Function