Visualizar XML Resumo

[wellintonhideki]

Usei o componente Distribuição DFE, foi baixado os XML como resumo, tem alguma forma de visualizar essas notas?

[Amarildo de Matos]

bom dia.. 

tudo bem..

https://www.projetoacbr.com.br/forum/topic/45779-método-distribuicaodfe-como-utilizar/

Entra nesse link, que fala desse assunto..

qualquer coisa..avise.

valeu

 

 

[wellintonhideki]

Boa tarde Amarildo

Verifiquei o link, só que a minha dúvida é se eu consigo Pré-Visualizar, dar um SHOW, em XML resumidas.

Ou seja, quando eu baixo os xmls resumidos, se tem alguma função que visualiza os mesmos?

Ou só é  possível com xml completos?

 

Obrigado

[Amarildo de Matos]

opa.. me mande o que tu recebe quando manifesta a nota..

 

[wellintonhideki]

Então, eu apenas usei o código 

ACBrNFe1.DistribuicaoDFePorUltNSU(UF,CNPJ,'') ;

Depois os arquivos xmls resumidos são salvos em uma pasta que eu defini. 

Agora eu queria visualizar essa nota, se teria como, vou mandar o XML que foi baixado. 

 

35181003180843000105550010000016611000016610-resNFe.xml

[everson.turossi]

Segue exemplo de código para pra listar as notas. Algumas partes do código foram omitidas.

procedure Consultar({ ... });
var
  I: Integer;
  LDocumento: TDFeDocumento; { Objeto interno do Sistema }
  LDocZip: TdocZipCollectionItem;
begin
    ACBrNFe.DistribuicaoDFe(UF, CNPJ, UltimoNSURecebido, '') ;
    for I := 0 to Pred(ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count) do
    begin
      LDocZip := ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[I];
      LDocumento := TDFeDocumento.Create;

      if (LDocZip.schema in [schprocNFe, schresNFe]) then
      begin { schresNFe = nota resumida / schprocNFe = nota completa }
        LDocumento.ChaveAcesso := LDocZip.resNFe.chNFe;
        LDocumento.CnpjEmitente := LDocZip.resNFe.CNPJCPF;
        LDocumento.NomeEmitente := LDocZip.resNFe.xNome;
        LDocumento.DataEmissao := LDocZip.resNFe.dhRecbto;
        LDocumento.ValorDocumento := LDocZip.resNFe.vNF;
        LDocumento.NSU := StrToInt(LDocZip.NSU);
        LDocumento.XML := LDocZip.XML;
        case LDocZip.resNFe.tpNF of
          tnEntrada: LDocumento.TipoOperacao := toEntrada;
          tnSaida: LDocumento.TipoOperacao := toSaida;
        end;
      end;

      if (LDocZip.schema = schprocEventoNFe) then
      begin { evento como cancelamento }
        LDocumento.ChaveAcesso := LDocZip.procEvento.chNFe;
        LDocumento.CnpjEmitente := LDocZip.procEvento.CNPJ;
        LDocumento.DataEmissao := LDocZip.procEvento.dhEvento;
        LDocumento.Descricao := TpEventoToStr(LDocZip.procEvento.tpEvento) + ' - ' + LDocZip.procEvento.detEvento.descEvento;
        { ... }
      end;

      if (LDocZip.schema = schresEvento) then
      begin { evento de MDF-e e outros }
        LDocumento.ChaveAcesso := LDocZip.resEvento.chNFe;
        LDocumento.CnpjEmitente := LDocZip.resEvento.CNPJCPF;
        LDocumento.XML := LDocZip.XML;
        LDocumento.Descricao := TpEventoToStr(LDocZip.resEvento.tpEvento) + ' - ' + LDocZip.resEvento.xEvento;
        { ... }
      end;
      Documentos.Add(LDocumento); { lista dos documentos retornados na consulta, pode ser visualizado em um grid}
    end;

    UltimoNSUrecebido := StrToIntDef(ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU, 0);
    MaiorNSUexistente := StrToIntDef(ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.maxNSU, 0);
end;

 

[wellintonhideki]

Obrigado Everson, foi muito útil.