Ir para conteúdo
  • Cadastre-se

dev botao

NFSeX - Equiplano - Novo campo: nrCidadeIbgeServico


MarcosRWeimer
Ver Solução Respondido por Italo Giurizzato Junior,
  • Este tópico foi criado há 558 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores
  • Solution

Bom dia Marcos,

Já esta no SVN.

Favor atualizar os fontes, reinstale o ACBr e faça novos testes.

Fiz uma pequena alteração na sua contribuição visando obter a lista de resumos de todas as notas que porventura constam no retorno e não somente a primeira.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Meu objetivo com este codigo

 

  if i = 1 then
  begin
    Response.NumeroNota := ANota.NFSe.Numero;
    Response.CodVerificacao := ANota.NFSe.CodigoVerificacao;
    Response.Data := ANota.NFSe.DataEmissao;
    Response.NumeroRps := ANumRps;
  end;

era manter o mesmo comportamento anterior, se retornar apenas 1 na lista, já retornar os dados como se não fosse o retorno de lista. (não sei se consegui ser claro)

 

Desta maneira conseguia obter o número da nota de maneira simples:

LNumeroNota := ACBrNFSeX.WebService.ConsultaLoteRps.NumeroNota;

 

E agora tenho que varrer o resumo.

Mas tudo bem, o objetivo era facilitar, estou adequando o código do sistema e passando para o departamento de testes.

 

Editado por -=Ma®©oS=-

-=Ma®©oS=-

Link para o comentário
Compartilhar em outros sites

A questão de retornar o resumo não tinha conhecimento, para mim bastava isto aqui:

 ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(ANumRps);
 ANota.NFSe.Numero := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('nrNfse'), tcStr);
 ANota.NFSe.CodigoVerificacao := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('cdAutenticacao'), tcStr);
 ANota.NFSe.DataEmissao := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('dtEmissaoNfs'), tcDat);

-=Ma®©oS=-

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde Marcos,

Quando criamos a lista Resumo foi com objetivo de poder retornar um resumo de todas as notas retornadas e não apenas a primeira ou à última.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Consultores

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 558 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...