PROJETO S@T-FISCAL

Citação:

:
No caso da dll daruma que vc usa serve apenas para daruma ?
Sim

Citação:

:
Dei uma olhada superficial mas já vi que ela imprime sim qrcode diretamente na porta da impresora.

Mais detalhes em : http://www.desenvolvedoresdaruma.com.br/sddn/ebits/ddc_ebits_13.html#link2

Citação:

:
Qual a Marca do Aparelho ?
Nunca vi isso, mas estou preocupado, pois esta entrando um monte de aparelhos no mercado a preços mais baixos, e tenho medo de começar comprar e tomar na cabeça
com problemas, seria interessante se todos colocassem aqui as marcas que utilizam, principalmente as novas.

Citação:

Então, a marca que está dando problema é a TANCA, pois a DIMEP está ok.

Citação:

:
Então, a marca que está dando problema é a TANCA, pois a DIMEP está ok.
Então, gastei 350,00 na época que estava iniciando, foi com o Tanca, e depois tive que gastar mais 600,00 com DIMEP, pois a Tanca não me respondeu quanto a problemas no aparelho, estou com ele até hoje e utilizo para testes apenas.

Citação:

Então, passei pela mesma situação, estou apenas com a TANCA para teste, mais ontem fui realizar um teste e percebi que ele estava assim.

   
 Private Sub Btn_Ativar_Click(sender As Object, e As EventArgs) Handles Btn_Ativar.Click
      
        Dim CERT As X509Certificate2
        CERT = SelecionarCertificado([Ô][Ô]) [ô]ou CERT = SelecionarCertificado([Ô]numero de serie[Ô])
        If IsNothing(CERT) Then Exit Sub
        TxtAssinatura.Text = GeraAssinaturaSat(Lbl_Sequencia.Text.Trim, CERT.SerialNumber)
        LBL_Total.Text = [Ô]Total de Caracteres [Ô] & Len(TxtAssinatura.Text)

    End Sub

 Private Function GeraAssinaturaSat(ByVal Sequencia As String, Serial As String) As String
        Dim my As X509Store = New X509Store(StoreName.My, StoreLocation.CurrentUser)
        my.Open(OpenFlags.ReadOnly)
        Dim csp As RSACryptoServiceProvider = Nothing
        Dim cert As X509Certificate2
        For Each cert In my.Certificates
            If cert.SerialNumber.Contains(Serial) Then [ô]certificado da software house
                csp = DirectCast(cert.PrivateKey, RSACryptoServiceProvider)
            End If
        Next
        If csp Is Nothing Then
            Throw New Exception([Ô]Certificado não encontrado[Ô])
        End If

        Dim privateKey1 As New RSACryptoServiceProvider()
        privateKey1.ImportParameters(csp.ExportParameters(True))
        Dim data As Byte() = Encoding.UTF8.GetBytes(Sequencia)
        Dim signature As Byte() = privateKey1.SignData(data, [Ô]SHA256[Ô])
        Dim isValid As Boolean = privateKey1.VerifyData(data, [Ô]SHA256[Ô], signature)

        Return Convert.ToBase64String(signature)

    End Function