FONTE NFE VB.NET
Alguém já tem algo sobre a carta de correção?
Obrigado.
Obrigado.
Pessoal agradeço a ajuda de todos eu consegui colocar o NFE no meu sistema graças a ajuda de todos
já estou emitindo as NFE tudo certinho, agora preciso começar a implantar o IVA alguem tem algum materia sobre o Calculo de IVA para compartilhar os conhecimentos com esse que vos escreve?
já estou emitindo as NFE tudo certinho, agora preciso começar a implantar o IVA alguem tem algum materia sobre o Calculo de IVA para compartilhar os conhecimentos com esse que vos escreve?
Olá a todos.
Já consegui implantar a NFe em um sistema... Mas agora estou desenvolvendo um sistema para lojas.... E estou com uma dúvida:
Estou pensando em criar um cadastro de produtos onde já tenha os campos da situação tributário do mesmo. A pergunta é: Os valores de tributo do produto permanecem constantes? Justamente porque quero cadastrar tudo de uma vez...
Muito Obrigado a todos!
Já consegui implantar a NFe em um sistema... Mas agora estou desenvolvendo um sistema para lojas.... E estou com uma dúvida:
Estou pensando em criar um cadastro de produtos onde já tenha os campos da situação tributário do mesmo. A pergunta é: Os valores de tributo do produto permanecem constantes? Justamente porque quero cadastrar tudo de uma vez...
Muito Obrigado a todos!
Barros,
Voce disse que para que o projeto NFe .net funcione legal no VB6 é preciso usar o INTEROP e que vc ja tinha postado isto !!
So que nao achei ... vc poderia me dar uma ajuda nisto com alguns exemplos ??
meu email : lercotadeu@gmail.com
Obrigado !
Lerço Tadeu
Voce disse que para que o projeto NFe .net funcione legal no VB6 é preciso usar o INTEROP e que vc ja tinha postado isto !!
So que nao achei ... vc poderia me dar uma ajuda nisto com alguns exemplos ??
meu email : lercotadeu@gmail.com
Obrigado !
Lerço Tadeu
Pessoal, alguém já conseguiu criar um serviço para fazer a leitura do xml que recebemos em anexo por email enviado pelos fornecedores? já procurei bastante e nao consegui encontrar nada.
BARROS,
Valeu, quando tiver algo estamos a disposição.
MFLAVIO.
ICMS
Vai um exemplo de como calcular IVA.
Valor dos Produtos: 100,00
Aliquota interna.....: 12%
Icms.......................: 12,00
Subsituição:
Valor dos Produtos..........: 100,00
IVA do estado de destino: 40%
Total.................................: 140,00
Aliquota Icms de destino.: 17%
Valor ICMS substituição..: 23,80
Icms a Recolher Substitu: 23,80 - 12,00 = 11,80
Valeu, quando tiver algo estamos a disposição.
MFLAVIO.
ICMS
Vai um exemplo de como calcular IVA.
Valor dos Produtos: 100,00
Aliquota interna.....: 12%
Icms.......................: 12,00
Subsituição:
Valor dos Produtos..........: 100,00
IVA do estado de destino: 40%
Total.................................: 140,00
Aliquota Icms de destino.: 17%
Valor ICMS substituição..: 23,80
Icms a Recolher Substitu: 23,80 - 12,00 = 11,80
Estou com problemas com o certificado, ele ja esta instalado, mas dá erro nesta função:
Public Function SelecionarCertificado(ByVal CerSerie As String) As X509Certificate2
Dim certificate As New X509Certificate2
Try
Dim certificatesSel As X509Certificate2Collection
Dim store As New X509Store([Ô]MY[Ô], StoreLocation.CurrentUser)
store.Open(OpenFlags.OpenExistingOnly)
Dim certificates As X509Certificate2Collection = store.Certificates.Find(X509FindType.FindByTimeValid, DateTime.Now, True).Find(X509FindType.FindByKeyUsage, X509KeyUsageFlags.DigitalSignature, True)
If (CerSerie = [Ô][Ô]) Then
certificatesSel = X509Certificate2UI.SelectFromCollection(certificates, [Ô]Certificados Digitais[Ô], [Ô]Selecione o Certificado Digital para uso no aplicativo[Ô], X509SelectionFlag.SingleSelection)
If (certificatesSel.Count = 0) Then
certificate.Reset()
Throw New Exception([Ô]Nenhum certificado digital foi selecionado ou o certificado selecionado está com problemas.[Ô])
Else
certificate = certificatesSel.Item(0)
End If
Else
certificatesSel = certificates.Find(X509FindType.FindBySerialNumber, CerSerie, True)
If (certificatesSel.Count = 0) Then
certificate.Reset()
Throw New Exception([Ô]Certificado digital não encontrado[Ô])
Else
certificate = certificatesSel.Item(0)
End If
End If
store.Close()
Return certificate
Catch exception As Exception
Throw New Exception(exception.Message)
Return certificate
End Try
End Function
Alguém sabe o que pode ser?
O erro é seguinte : certificado digital não encontrado
Public Function SelecionarCertificado(ByVal CerSerie As String) As X509Certificate2
Dim certificate As New X509Certificate2
Try
Dim certificatesSel As X509Certificate2Collection
Dim store As New X509Store([Ô]MY[Ô], StoreLocation.CurrentUser)
store.Open(OpenFlags.OpenExistingOnly)
Dim certificates As X509Certificate2Collection = store.Certificates.Find(X509FindType.FindByTimeValid, DateTime.Now, True).Find(X509FindType.FindByKeyUsage, X509KeyUsageFlags.DigitalSignature, True)
If (CerSerie = [Ô][Ô]) Then
certificatesSel = X509Certificate2UI.SelectFromCollection(certificates, [Ô]Certificados Digitais[Ô], [Ô]Selecione o Certificado Digital para uso no aplicativo[Ô], X509SelectionFlag.SingleSelection)
If (certificatesSel.Count = 0) Then
certificate.Reset()
Throw New Exception([Ô]Nenhum certificado digital foi selecionado ou o certificado selecionado está com problemas.[Ô])
Else
certificate = certificatesSel.Item(0)
End If
Else
certificatesSel = certificates.Find(X509FindType.FindBySerialNumber, CerSerie, True)
If (certificatesSel.Count = 0) Then
certificate.Reset()
Throw New Exception([Ô]Certificado digital não encontrado[Ô])
Else
certificate = certificatesSel.Item(0)
End If
End If
store.Close()
Return certificate
Catch exception As Exception
Throw New Exception(exception.Message)
Return certificate
End Try
End Function
Alguém sabe o que pode ser?
O erro é seguinte : certificado digital não encontrado
Faça seu login para responder