Fórum Tanca » Tópico: Erro no comando ConsultarStatusOperacional

Erro no comando ConsultarStatusOperacional

Datacross — Wed, 10 Jun 2015 14:21:46 +0000

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

Responder a: Erro no comando ConsultarStatusOperacional

كريستيانو عبود — Wed, 10 Jun 2015 19:20:24 +0000

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

Responder a: Erro no comando ConsultarStatusOperacional

Datacross — Wed, 10 Jun 2015 20:16:48 +0000

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

Responder a: Erro no comando ConsultarStatusOperacional

Rodrigo R. Muniz — Sat, 13 Jun 2015 12:38:16 +0000

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

Responder a: Erro no comando ConsultarStatusOperacional

Datacross — Thu, 18 Jun 2015 12:21:21 +0000

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

Responder a: Erro no comando ConsultarStatusOperacional

Rodrigo R. Muniz — Fri, 19 Jun 2015 14:21:29 +0000

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

Responder a: Erro no comando ConsultarStatusOperacional

Datacross — Fri, 19 Jun 2015 15:11:12 +0000

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.

Responder a: Erro no comando ConsultarStatusOperacional

Rodrigo R. Muniz — Fri, 19 Jun 2015 15:34:34 +0000

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.