FONTE NFE VB.NET
Barros, obrigado pela resposta.
Mas na verdade o que esta ocorrendo é que ao assinar o XML e o token não está plugado. Está gerando um exeção. Gostaria de saber se existe alguma maneira de tratar essa exeção em especial. Ai se o token não estiver plugado que seja solicitado ao usuario que insira-o no pc
Grato.
Mas na verdade o que esta ocorrendo é que ao assinar o XML e o token não está plugado. Está gerando um exeção. Gostaria de saber se existe alguma maneira de tratar essa exeção em especial. Ai se o token não estiver plugado que seja solicitado ao usuario que insira-o no pc
Grato.
Mitsueda Fábio acredito que possa tratar essa exceção utilizando os blocos try e catch para monitorar o erro e realizar a solicitação ao usuário.
Daniel,
Verdade Daniel, quando chegar em casa hoje vou testar. Mas se não me engano a excesão gerada é generica.
Existe uma maneira de saber se essa excesão é realmente a falta do token?
Porque quando vou assinar o XML do meu sistema e o token não está presente ele me gera uma excesão com a mensagem retornada pela função SelecionarCertificado(), e o retorno da função seria um certificate.Reset().
Existe como eu testar se o retorno da função é nothing, será que um IsNothing(certificate) funciona?
Não tenho acesso ao Vb.net aqui na empresa, não sou programador, sou contador rs... mas em casa vou dar uma testada
Grato pela resposta.
Abraço
Verdade Daniel, quando chegar em casa hoje vou testar. Mas se não me engano a excesão gerada é generica.
Existe uma maneira de saber se essa excesão é realmente a falta do token?
Porque quando vou assinar o XML do meu sistema e o token não está presente ele me gera uma excesão com a mensagem retornada pela função SelecionarCertificado(), e o retorno da função seria um certificate.Reset().
Existe como eu testar se o retorno da função é nothing, será que um IsNothing(certificate) funciona?
Não tenho acesso ao Vb.net aqui na empresa, não sou programador, sou contador rs... mas em casa vou dar uma testada
Grato pela resposta.
Abraço
Olá pessoal ...
Baixei o último aplicativo NFe postado pelo Daniel.
Ainda não testei, mas dei uma olhada rápida e gostei do que vi.
Parabenizo a todos pelo excelente trabalho.
Não sei em fase se encontra o projeto, se houver continuidade gostaria de dar minha contribuição.
Tenho um aplicativo completo inclusive com as funções que faltam neste como contingência etc ...
O problema é que está na versão 1.01.
Se houver interesse posso enviar por email para o Daniel que está centralizando o projeto.
Grato a todos ...
Baixei o último aplicativo NFe postado pelo Daniel.
Ainda não testei, mas dei uma olhada rápida e gostei do que vi.
Parabenizo a todos pelo excelente trabalho.
Não sei em fase se encontra o projeto, se houver continuidade gostaria de dar minha contribuição.
Tenho um aplicativo completo inclusive com as funções que faltam neste como contingência etc ...
O problema é que está na versão 1.01.
Se houver interesse posso enviar por email para o Daniel que está centralizando o projeto.
Grato a todos ...
é funcionou perfeitamente
Alterei a rotina SelecionarCertificado
...
[txt-color=#0000f0]Else[/txt-color]
certificatesSel = certificates.Find([txt-color=#0000f0]X509FindType[/txt-color].FindBySerialNumber, CerSerie, [txt-color=#0000f0]True[/txt-color])
[txt-color=#0000f0]If[/txt-color] (certificatesSel.Count = 0) [txt-color=#0000f0]Then[/txt-color]
certificate = [txt-color=#0000f0]Nothing[/txt-color] [txt-color=#007100][ô].Reset()[/txt-color]
[txt-color=#007100] [ô]Throw New Exception([Ô]Certificado digital não encontrado[Ô])[/txt-color]
Ai no formulario eu coloquei assim
If IsNothing(certificado) Then
MsgBox([Ô]O certificado não foi encontrado![Ô] & vbCrLf & vbCrLf & _
[Ô]Verifique se o Token está plugado no conector USB![Ô])
Exit Sub
End If
Ai deu certinho ...
Alterei a rotina SelecionarCertificado
...
[txt-color=#0000f0]Else[/txt-color]
certificatesSel = certificates.Find([txt-color=#0000f0]X509FindType[/txt-color].FindBySerialNumber, CerSerie, [txt-color=#0000f0]True[/txt-color])
[txt-color=#0000f0]If[/txt-color] (certificatesSel.Count = 0) [txt-color=#0000f0]Then[/txt-color]
certificate = [txt-color=#0000f0]Nothing[/txt-color] [txt-color=#007100][ô].Reset()[/txt-color]
[txt-color=#007100] [ô]Throw New Exception([Ô]Certificado digital não encontrado[Ô])[/txt-color]
Ai no formulario eu coloquei assim
If IsNothing(certificado) Then
MsgBox([Ô]O certificado não foi encontrado![Ô] & vbCrLf & vbCrLf & _
[Ô]Verifique se o Token está plugado no conector USB![Ô])
Exit Sub
End If
Ai deu certinho ...
Pessoal uma pergunta
o que muda no XML quando o Cliente e optante do Simples nacional.
Finalmente consegui rodar o Sistema em ICMS00 e ICMS60
e agora tem um outro cliente que e optante do Simples e preciso alterar o Sistema
o que muda no XML quando o Cliente e optante do Simples nacional.
Finalmente consegui rodar o Sistema em ICMS00 e ICMS60
e agora tem um outro cliente que e optante do Simples e preciso alterar o Sistema
NETODV1 toda a ajuda é bem vinda se puder me envia neste email danielcpaete@gmail.com
MFlavio,
O ICMS muda utilizando os icms especificos para o tipo de operação fiscal.
Veja o manual no Site: http://www.nfe.fazenda.gov.br/portal/docs/NT%202009.004%20-%20SIMPLES%20NACIONAL.pdf
O Pis e o Cofins utiliza o 99 outras.
O simples é bem mais simples rs...
Abraço
O ICMS muda utilizando os icms especificos para o tipo de operação fiscal.
Veja o manual no Site: http://www.nfe.fazenda.gov.br/portal/docs/NT%202009.004%20-%20SIMPLES%20NACIONAL.pdf
O Pis e o Cofins utiliza o 99 outras.
O simples é bem mais simples rs...
Abraço
Citação::
MFlavio,
O ICMS muda utilizando os icms especificos para o tipo de operação fiscal.
Veja o manual no Site: http://www.nfe.fazenda.gov.br/portal/docs/NT%202009.004%20-%20SIMPLES%20NACIONAL.pdf
O Pis e o Cofins utiliza o 99 outras.
O simples é bem mais simples rs...
Abraço
Mitsueda esse manual serve tambem para a versão 2.00 da NFE?
eu pensei que tinha que trocar os grupos de ICMS pelo CSOSN
Putz verdade esse manual não consta essa modificação olhe um trecho do xml. com tributação normal, em anexo
Faça seu login para responder