IMPORTAR AS CHAVES NF-E

MOREIRA 12/10/2017 02:07:17
#477112
Bom dia, amigos,

já pesquisei em alguns exemplos aqui, inclusive nos fonte C# e VB.NET.

não conseguir chegar a um resultado.

Private Sub btn_PesqChave_Click(sender As Object, e As EventArgs) Handles btn_PesqChave.Click

[ô] Dim ObjCertificadoNumSerie As String
Try
[ô]Representa um certificado x509
Dim objCertificadoX509 As New X509Certificate2

[ô]Representa o local onde os certificados estão armazenados
Dim getCertificadosX509 As New X509Store([Ô]MY[Ô], StoreLocation.CurrentUser)
getCertificadosX509.Open(OpenFlags.ReadOnly Or OpenFlags.OpenExistingOnly)

[ô][ô]Recupera uma coleção de objetos X509Certificate2
Dim objColecaoCertificadosX509 As New X509Certificate2Collection

[ô]Para selecionar o certificado de uma lista
objColecaoCertificadosX509 = X509Certificate2UI.SelectFromCollection(getCertificadosX509.Certificates, [Ô]Certificado(s) Digital(is)[Ô], [Ô]Selecione o certificado digital para uso no aplicativo[Ô], X509SelectionFlag.SingleSelection)

[ô]Verifica se exisite certificado selecionado
If objColecaoCertificadosX509.Count = 0 Then
MessageBox.Show([Ô]Nenhum certificado digital foi selecionado ou o certificado está com problemas.[Ô], [Ô]Atenção![Ô], MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
Cert.ObjCertificadoNumSerie = objColecaoCertificadosX509.Item(0).SerialNumber.ToString()
End If

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, [Ô]Atenção[Ô])
End Try




[ô][ô] // ------------------------------------------------- //
Dim WS = New WS_ServicosNFeDfe.NFeDistribuicaoDFeSoapClient()


Dim Dist = <nfeDistDFeInteresse xmlns=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NFeDistribuicaoDFe[Ô]>
<nfeDadosMsg>
<distDFeInt xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô] versao=[Ô]1.00[Ô]>
<tpAmb>1</tpAmb>
<cUFAutor>21</cUFAutor>
<CNPJ>222222222222222</CNPJ>
<distNSU>
<ultNSU>000000000000001</ultNSU>
</distNSU>
</distDFeInt>
</nfeDadosMsg>
</nfeDistDFeInteresse>

End Sub


Pós bem, só preciso de orientações.

no código acima já instanciei a WebService. [Ô]Desculpa se estiver errado[Ô]

preciso importar as chaves da NF-e, CNPJ [Ô]Emitente[Ô] e popular em uma DataGriView.

[txt-color=#e80000]Esse XML de retorno irão vim compactados ou XML puro ?[/txt-color]







Obrigado desde já.




MOREIRA 12/10/2017 11:41:39
#477119

Bom dia, achei esse código aqui, antes de copiar e colar estou estudando o funcionamento tando no [Ô]NT[Ô] quando no código.

preciso de ajuda com a sintaxe de C# para VB.NET.


  private void btnEventoManfDest_Click(object sender, EventArgs e)
{
string chaveNFe = [Ô]35170613495487000172550010013993481072979732[Ô];
string cnpjEmpresa = [Ô]07583017000168[Ô];

retEnvEvento retEventoNFe = null;
configServico = configServico = ConfigServWeb.ConfigServico([Ô]SP[Ô], [Ô]55[Ô], TipoServico.RecepcaoEvento);
X509Certificate2 certDig = cmbCertificado.SelectedItem as X509Certificate2;

NFeRecepcaoEvento nfeRecepcaoEvento = new NFeRecepcaoEvento();
nfeRecepcaoEvento.CertDigital = certDig;
nfeRecepcaoEvento.ConfigServico = configServico;
nfeRecepcaoEvento.ManifDest([Ô]1[Ô], chaveNFe, cnpjEmpresa, TipoEvento.CienciaOperacao, [Ô]Ciencia da Operacao[Ô]);

frmProc = new frmProcess();
frmProc.lblTituloFrm.Text = [Ô]Processo Envio Sefaz[Ô];
frmProc.Shown += (args, events) =>
{
frmProc.Refresh();
nfeRecepcaoEvento.EnviarSefaz();
retEnvEvento retSefaz = nfeRecepcaoEvento.RetornoSefaz;
frmProc.btnSair.Enabled = true;
frmProc.lblTituloFrm.Image = null;
if (retSefaz != null)
{
if (retSefaz.retEvento.Count > 0)
{
//cStat = 135 - Evento Registrado e Vinculado a NF-e
if (retSefaz.retEvento[0].infEvento.cStat == [Ô]135[Ô])
{
frmProc.listBoxMsg.Items.Add([Ô]Chave NFe..:[Ô] + retSefaz.retEvento[0].infEvento.chNFe);
frmProc.listBoxMsg.Items.Add([Ô]Protocolo..:[Ô] + retSefaz.retEvento[0].infEvento.nProt);
frmProc.listBoxMsg.Items.Add([Ô]Seq Evento.:[Ô] + retSefaz.retEvento[0].infEvento.nSeqEvento);
frmProc.listBoxMsg.Items.Add([Ô]Tipo Evento:[Ô] + retSefaz.retEvento[0].infEvento.tpEvento);
frmProc.listBoxMsg.Items.Add([Ô]Motivo.....:[Ô] + retSefaz.retEvento[0].infEvento.xMotivo);
frmProc.listBoxMsg.Items.Add([Ô]Evento.....:[Ô] + retSefaz.retEvento[0].infEvento.xEvento);
frmProc.listBoxMsg.Items.Add([Ô]Status.....:[Ô] + retSefaz.cStat);
}
else
{
frmProc.listBoxMsg.Items.Add([Ô]Motivo.....:[Ô] + retSefaz.retEvento[0].infEvento.xMotivo);
frmProc.listBoxMsg.Items.Add([Ô]Status.....:[Ô] + retSefaz.cStat);
}
}
else
{
frmProc.listBoxMsg.Items.Add([Ô]Motivo.....:[Ô] + retSefaz.xMotivo);
frmProc.listBoxMsg.Items.Add([Ô]Status.....:[Ô] + retSefaz.cStat);
}
}
else
{
frmProc.listBoxMsg.Items.Add(nfeRecepcaoEvento.GetErros);
}
};
frmProc.ShowDialog();
MOREIRA 12/10/2017 11:48:50
#477120

Tem outro código do ELUCIMAR.

Com a com essa referencia -- > [Ô]NfeDownloadNF[Ô]

e Estou usando essa aqui --- > NFeDistribuicaoDFeSoapClient

se não estiver errado da no mesmo.


 string chaveNFe = [Ô]SuaChaveNFe[Ô];
string cnpjEmpresa = [Ô]CnpjEmpresa[Ô];

X509Certificate2 certDig = cmbCertificado.SelectedItem as X509Certificate2;
configServico = ConfigServWeb.ConfigServico([Ô]AN[Ô], [Ô]55[Ô], TipoServico.NfeDownloadNF);

NFeDownloadNF nfeDownloadNF = new NFeDownloadNF(chaveNFe, cnpjEmpresa);
nfeDownloadNF.CertDigital = certDig;
nfeDownloadNF.ConfigServico = configServico;
nfeDownloadNF.EnviarSefaz();

XmlDocument xmlProc = null;
procNFe nfeProc = null;

// cStat = 140 - Pedido de Download processado com Sucesso[Ô]
if (nfeDownloadNF != null)
{
if (nfeDownloadNF.RetornoSefaz.retNFe[0].cStat == [Ô]140[Ô])
{
// Retorno em Formato Xml
string strReplace = @[Ô]xmlns(:\w+)?=[Ô][Ô]([^[Ô][Ô]]+)[Ô][Ô]|xsi(:\w+)?=[Ô][Ô]([^[Ô][Ô]]+)[Ô][Ô][Ô];
XmlDocument xmRetDownloadNFe = new XmlDocument();
xmRetDownloadNFe.LoadXml(Regex.Replace(nfeDownloadNF.XmlRetornoSefaz.OuterXml, strReplace, [Ô][Ô]));
xmlProc = new XmlDocument();
xmlProc.LoadXml(xmRetDownloadNFe.SelectSingleNode([Ô]/retDownloadNFe/retNFe/procNFe/nfeProc[Ô]).OuterXml);

// Retorno Classe deserializada
nfeProc = nfeDownloadNF.RetornoSefaz.retNFe[0].procNFe[0];
}
}
MOREIRA 13/10/2017 15:41:15
#477133

Boa tarde, nem uma ajuda aí ?
Tópico encerrado , respostas não são mais permitidas