Declaração em VB

Bematech BemaSAT

Declaração em VB

Private Declare Function AssociarAssinatura Lib "BemaSAT32.dll" (ByVal sSessao As IntegerByVal CNPJValue As StringByVal assinaturaCNPJs As StringAs Long

Private Declare Function AtivarSAT Lib "BemaSAT32.dll" (ByVal sSessao As IntegerByVal SubComando As IntegerByVal codigoDeAtivacao As StringByVal CNPJ As StringByVal cUF As IntegerAs Long

Private Declare Function AtualizarSoftwareSAT Lib "BemaSAT32.dll" (ByVal sSessao As IntegerByVal codigoDeAtivacao As StringAs Long

Private Declare Function BloquearSAT Lib "BemaSAT32.dll" (ByVal sSessao As IntegerByVal codigoDeAtivacao As StringAs Long

Private Declare Function CancelarUltimaVenda Lib "BemaSAT32.dll" (ByVal sSessao As IntegerByVal codigoDeAtivacao As StringByVal chave As StringByVal dadosCancelamento As StringAs Long

Private Declare Function ConfigurarInterfaceDeRede Lib "BemaSAT32.dll" (ByVal sSessao As IntegerByVal codigoDeAtivacao As StringByVal dadosConfiguracao As StringAs Long

Private Declare Function ConsultarNumeroSessao Lib "BemaSAT32.dll" (ByVal sSessao As IntegerByVal codigoDeAtivacao As StringByVal cNumeroDeSessao As StringAs Long

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

Private Declare Function ConsultarStatusOperacional Lib "BemaSAT32.dll" (ByVal sSessao As IntegerByVal CodigoAtivacaoSAT As StringAs Long

Private Declare Function DesbloquearSAT Lib "BemaSAT32.dll" (ByVal sSessao As IntegerByVal codigoDeAtivacao As StringAs Long

Private Declare Function EnviarDadosVenda Lib "BemaSAT32.dll" (ByVal sSessao As IntegerByVal codigoDeAtivacao As StringByVal dadosVenda As StringAs Long

Private Declare Function ExtrairLogs Lib "BemaSAT32.dll" (ByVal sSessao As IntegerByVal codigoDeAtivacao As StringAs Long

Private Declare Function TesteFimAFim Lib "BemaSAT32.dll" (ByVal sSessao As IntegerByVal codigoDeAtivacao As StringByVal dadosVenda As StringAs Long

Private Declare Function TrocarCodigoDeAtivacao Lib "BemaSAT32.dll" (ByVal sSessao As IntegerByVal codigoDeAtivacao As StringByVal novoCodigo As StringByVal confNovoCodigo As StringAs Long

 

 

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

Private Declare Function ConvCStringToVBString Lib "kernel32" Alias "lstrcpyA" (ByVal lpsz As StringByVal pt As LongAs Long

 

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

Public Function GetStringFromPointer(ByVal lpString As LongAs 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