Anna_Ecletica

Dim Vender As New SAT Dim Aleatorio As New Random Dim NumSessao As String = Aleatorio.Next(1000) Dim DadosVenda As String = "<CFe><infCFe versaoDadosEnt=""0.02""><ide><CNPJ>22222222222222</CNPJ><signAC>01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123</signAC><numeroCaixa>001</numeroCaixa></ide><emit><CNPJ>11111111111111</CNPJ><IE>111111111111</IE><IM>123123</IM><cRegTribISSQN>1</cRegTribISSQN><indRatISSQN>N</indRatISSQN></emit><dest></dest><det nItem=""1""><prod><cProd>01</cProd><xProd>Mega Alcool 92,8</xProd><CFOP>5401</CFOP><uCom>un</uCom><qCom>1.0000</qCom><vUnCom>2.10</vUnCom><indRegra>A</indRegra></prod><imposto><ICMS><ICMS00><Orig>0</Orig><CST>00</CST><pICMS>5.00</pICMS></ICMS00></ICMS><PIS><PISAliq><CST>01</CST><vBC>1.10</vBC><pPIS>1.0000</pPIS></PISAliq></PIS><PISST><vBC>1.00</vBC><pPIS>1.0000</pPIS></PISST><COFINS><COFINSAliq><CST>01</CST><vBC>1.00</vBC><pCOFINS>1.0000</pCOFINS></COFINSAliq></COFINS></imposto></det><pgto><MP><cMP>01</cMP><vMP>33.00</vMP></MP></pgto><total></total></infCFe></CFe>" LabelVender.Text = Vender.Venda(NumSessao, "abcd1234", DadosVenda) Desculpe a demora, oribeiro!! Minha rotina é :

Olá oribeiro, Estou utilizando a SAT.Dll 2.5.2.0 e o emulador é o 2.7.31 Já estou parada há tempos por causa deste cancelamento e vc? No que emperrou? Já conseguiu cancelar? ************************************************************************************************************************ <DllImport("SAT.dll", CallingConvention:=CallingConvention.Cdecl)> _ Public Function ConsultarSAT(numeroSessao As IntPtr) As IntPtr End Function <DllImport("SAT.dll", CallingConvention:=CallingConvention.Cdecl)> _ Public Function ConsultarStatusOperacional(numeroSessao As Integer, codigoDeAtivacao As String) As IntPtr End Function <DllImport("SAT.dll", CallingConvention:=CallingConvention.Cdecl)> _ Public Function ConsultarNumeroSessao(numeroSessao As IntPtr, cNumeroDeSessao As IntPtr) As IntPtr End Function <DllImport("SAT.dll", CallingConvention:=CallingConvention.Cdecl)> _ Public Function AtivarSAT(numeroSessao As Integer, subComando As Integer, codigoDeAtivacao As String, CNPJ As String, cUF As Integer) As IntPtr End Function <DllImport("c:\SAT.dll", CallingConvention:=CallingConvention.Cdecl)> _ Public Function EnviarDadosVenda(NumeroSessao As Integer, CodigoDeAtivacao As String, DadosVenda As String) As IntPtr End Function <DllImport("c:\SAT.dll", CallingConvention:=CallingConvention.Cdecl)> _ Public Function AssociarAssinatura(NumeroSessao As Integer, CodigoDeAtivacao As String, CNPJvalue As String, AssinaturaCNPJ As String) As IntPtr End Function <DllImport("c:\SAT.dll", CallingConvention:=CallingConvention.Cdecl)> _ Public Function CancelarUltimaVenda(NumeroSessao As Integer, CodigoDeAtivacao As String, Chave As String, Dados As String) As IntPtr End Function <DllImport("c:\SAT.dll", CallingConvention:=CallingConvention.Cdecl)> _ Public Function BloquearSat(numeroSessa As Integer, CodigoDeAtivacao As String) As IntPtr End Function <DllImport("c:\SAT.dll", CallingConvention:=CallingConvention.Cdecl)> _ Public Function DesbloquearSAT(numeroSessa As Integer, CodigoDeAtivacao As String) As IntPtr End Function <DllImport("c:\SAT.dll", CallingConvention:=CallingConvention.Cdecl)> _ Public Function ExtrairLogs(numeroSessa As Integer, CodigoDeAtivacao As String) As IntPtr End Function <DllImport("c:\SAT.dll", CallingConvention:=CallingConvention.Cdecl)> _ Public Function DesligarSat() As String End Function ************************************************************************************************************************ Private Sub BloqueioSAT_Click(sender As System.Object, e As System.EventArgs) Handles BloqueioSAT.Click Dim NumSessao As Integer Dim Aleatorio As New Random Dim CodigoAtivacao As String = "abcd1234" NumSessao = Aleatorio.Next(1000) Dim Retorno As String = BloquearSat(NumSessao, CodigoAtivacao) Dim strA As String = Marshal.PtrToStringAnsi(Retorno) MsgBox(strA) Dim Retorno1 As String = DesbloquearSAT(NumSessao, CodigoAtivacao) Dim strB As String = Marshal.PtrToStringAnsi(Retorno) MsgBox(strB) End Sub Private Sub CancVenda_Click(sender As System.Object, e As System.EventArgs) Handles CancVenda.Click Dim Aleatorio As New Random Dim NumSessao As String = Aleatorio.Next(100000) Dim CodigoAtivacao As String = "abcd1234" Dim ChvAcess As String = "35140911111111111111599000001020000032476570" Dim Canc As String = "<CFeCanc><infCFe><chCanc>CFe35140911111111111111599000001020000032476570</chCanc><ide><CNPJ>22222222222222</CNPJ><signAC>01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123</signAC></ide><emit><CNPJ>11111111111111</CNPJ><IE>111111111111</IE><IM>123123</IM></emit><dest/><total/><infAdic/></infCFe></CFeCanc>" Dim Retorno As String = CancelarUltimaVenda(NumSessao, CodigoAtivacao, ChvAcess, Canc) Dim strA As String = Marshal.PtrToStringAnsi(Retorno) Dim dv As String = DigitoModulo11(ChvAcess) MsgBox(strA) End Sub ************************************************************************************************************************

Estou tendo o seguinte erro ao cancelar: [2014-09-22 17:32:34.382]:INICIO CANCELAMENTO [2014-09-22 17:32:34.390]:Carregando arquivo de cancelamento. [2014-09-22 17:32:34.406]:ERRO NO CANCELAMENTO: cupom nao e o ultimo cupom enviado Embora seja o último cupom emitido, eu sempre recebo esta mensagem. Alguém pode me ajudar?