ActiveDelphi :: Exibir tópico - Ler procNFE.xml

ActiveDelphi - Índice do Fórum

ActiveDelphi
.: O site do programador Delphi! :.

FAQ

Grupos

Registrar

Entrar e ver Mensagens Particulares

Ler procNFE.xml

Responder Mensagem

ActiveDelphi - Índice do Fórum -> NFe

Exibir mensagem anterior :: Exibir próxima mensagem

Autor

Mensagem

laelson
Novato
Novato

Novato

Registrado: Sábado, 18 de Abril de 2009
Mensagens: 9

Enviada: Sáb Ago 15, 2009 10:15 pm Assunto: Ler procNFE.xml

Como faço para ler o número do protocolo existente no arquivo da nota fiscal aprovada ( 26090703371407000113550010102032360000000262-procNFe.XML ) utiliso o Delphi 7 e o ACBRNFe Grato por qualquer ajuda. jlnlaelson@ig.com.br

Ver o perfil de Usuários

Enviar Mensagem Particular

Borland_Linuxer
Moderador

Moderador

Registrado: Terça-Feira, 11 de Outubro de 2005
Mensagens: 4252
Localização: Manaus - Am

Enviada: Dom Ago 16, 2009 8:11 pm Assunto:

Responder com Citação

Usa o acbr eu não sei por que eu não o uso, mais se quiser uma função onde passa o xml, veja essa aqui que eu uso.

Código:

function ObterNroProtocolo(const aXml: XMLString): string;
var _Posini, _Posfim : integer;
aTag, aEndTag : string;
begin
Result := '';
aTag := '<nProt';
aEndTag := '</nProt';
_Posini := PosStr(aTag,aXML);
_Posfim := PosStr(aEndTag,aXML);
if (_Posini > 0) then
begin
inc(_PosIni,Length(aTag));
Result := Copy(aXml,_Posini+1,(_PosFim-_PosIni)-1);
end;
end;

abraços
_________________
Abraços

Sérgio Guedes
www.lsisistemas.com.br
www.scvarejo.com.br - Projetos para parceiros e desenvolvedores

Ver o perfil de Usuários

Enviar Mensagem Particular

Enviar E-mail

Visitar a homepage do Usuário

MSN Messenger

Mostrar os tópicos anteriores:

	ActiveDelphi - Índice do Fórum -> NFe	Todos os horários são GMT - 3 Horas
Página 1 de 1

Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.

Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB