Erro no comando ConsultarStatusOperacional

[DatacrossParticipante]

Estou fazendo testes para cohecer o processo e logo de inicio já me deparei com um problema, deve ser simples mas não consegui descobrir.
Estou passando estes parâmetros :
Text1.Text = ConsultarStatusOperacional(nSeq, CodAtivacao) Conteúdo “236202,12345678”
Erro: 236202|10001|Codigo de ativacao invalido||

[كريستيانو عبودParticipante]

Boa tarde,

Aparentemente o comando está correto e o retorno é feito corretamente.

Apenas para confirmação, o código de ativação do equipamento foi modificado?
Você conseguiria repetir o teste com a ferramenta InteliSAT e validar o código?

Fico no aguardo para prosseguirmos.

Att
Cristiano Abbud

[DatacrossParticipante]

Boa tarde,
Não, o código permanece o mesmo.
Fiz o teste com o inteliSAT e funcionou, a sequencia da chamada é a mesma.

[Rodrigo R. MunizParticipante]

Bom Dia, DataCross

Eu passaria os parametros da seguinte forma:

Text1.Text = ConsultarStatusOperacional(236202, “12345678”)

sendo que numeroSessao deve ter a definição inteiro, e codigoDeAtivacao string

[DatacrossParticipante]

Bom dia,
Ainda não consegui fazer testes com o código de ativação.
Estou enviando um pequeno projeto em VB6 para avaliação.
Obrigado.

Form:
Private Sub Command1_Click()
Dim nSeq As Integer
Randomize
nSeq = Format(CInt(Rnd() * 10000), “000000”)
Text1.Text = CStr(ConsultarSAT(nSeq))
Text2.Text = CStr(nSeq)
End Sub

Private Sub Command2_Click()
Dim nSeq As Integer
Dim CodAtivacao As String
Randomize
CodAtivacao = “12345678”
nSeq = Format(Int(Rnd() * 10000), “000000”)
Text1.Text = CStr(ConsultarStatusOperacional(nSeq, CodAtivacao))
Text2.Text = (CStr(nSeq)) & “,” & CodAtivacao
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Módulo:
Option Explicit

Public iRetorno As Integer
Public Declare Sub Sleep Lib “kernel32.dll” (ByVal dwMilliseconds As Long)
Public Declare Function FindWindow Lib “user32″ Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function ConsultarSAT Lib “SAT.dll” (ByVal nSeq As Integer) As String
Public Declare Function ConsultarStatusOperacional Lib “SAT.dll” (ByVal nSeq As Integer, CodAtivacao As String) As String

[Rodrigo R. MunizParticipante]

Datacross, veja o codigo:

‘Modulo
Public Declare Function ConsultarSAT Lib “SAT.dll” (ByVal nSeq As Integer) As String
Public Declare Function ConsultarStatusOperacional Lib “SAT.dll” (ByVal nSeq As Integer, ByVal codAtivacao As String) As String
‘Form
Private Sub Command1_Click()
Dim strAtivacao As String
strAtivacao = “12345678”
MsgBox ConsultarStatusOperacional(21302, strAtivacao)
End Sub

O que faltou:
ByVal , em ‘codAtivacao As String’

outra coisa:

eu usei “, não usei “

Espero ter ajudado

[DatacrossParticipante]

Bom dia Rodrigo,
Ajudou sim, funcionou, estava faltando somente isso mesmo. Acho que estou ficando cego.
Não entendi a última colocação : eu usei “, não usei “
Aproveitando a conversa, você tem alguma solução para impressão do CF-e após o retorno do XML validado. A Dll da TANCA não tem e parece que eles também não tem interesse de desenvolver.

Obrigado.

[Rodrigo R. MunizParticipante]

Eu tenho, sim, mas em C#.
Vou ver se ajusto para vb6.
Aproveitando, será que vale a pena continuar com vb6?
Eu pergunto pois a tendência e passar tudo para X64, ai, determinados componentes não apresentam compatibilidade.

[Autor]

Posts