Ir para conteúdo
  • Cadastre-se

dev botao

Número, data de emissão no DANFE NFSE Fortes Report


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

Recommended Posts

Postado

Provedor IPM

Componente AcbrNFSeX.

Para sair o número da nota e data de emissão tenho que alimentar manualmente ou deveria ter sido carregado automaticamente pelo XML ?

Fiz alguns testes e logo após carregar o xml alimentei manualmente o campo de data da emissão, desta forma a data apareceu no DANFE:

   NFSe.NotasFiscais.Items[0].NFSe.DataEmissao := qrCapaRPS_EMISSAO.AsDateTime;
   NFSe.NotasFiscais.Items[0].NFSe.Numero      := qrCapaRPS_NUMERO.AsString;

Está certo, é assim mesmo que deve ser feito ?

 

Danfe_Ipm.png

  • Consultores
Postado
3 horas atrás, alexandre storti disse:

Provedor IPM

Componente AcbrNFSeX.

Para sair o número da nota e data de emissão tenho que alimentar manualmente ou deveria ter sido carregado automaticamente pelo XML ?

Fiz alguns testes e logo após carregar o xml alimentei manualmente o campo de data da emissão, desta forma a data apareceu no DANFE:

   NFSe.NotasFiscais.Items[0].NFSe.DataEmissao := qrCapaRPS_EMISSAO.AsDateTime;
   NFSe.NotasFiscais.Items[0].NFSe.Numero      := qrCapaRPS_NUMERO.AsString;

Está certo, é assim mesmo que deve ser feito ?

 

Danfe_Ipm.png

Boa tarde!
Conferindo na Unit IPM.LerXML na procedure LerNota encontramos o seguinte.

  AuxNode := ANode.Childrens.FindAnyNs('nf');

  if AuxNode <> nil then
  begin
    with NFSe do
    begin
      Numero := ObterConteudo(AuxNode.Childrens.FindAnyNs('numero'), tcStr);
      [...]
      // campos presentes ao baixar do site da prefeitura
      if Numero = '' then
      begin
        Numero := ObterConteudo(AuxNode.Childrens.FindAnyNs('numero_nfse'), tcStr);

        aValor := ObterConteudo(AuxNode.Childrens.FindAnyNs('data_nfse'), tcStr);
        aValor := aValor + ' ' +
                  ObterConteudo(AuxNode.Childrens.FindAnyNs('hora_nfse'), tcStr);

        DataEmissao := StrToDateTimeDef(aValor, 0);
      end;
      [...]
    end;
  end;

Consegue verificar se o XML que está tentando imprimir e está saindo o Numero e a DataEmissao em branco dispõe dessas tags?

Consultor SAC ACBr

Diego Folieni
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

  • Consultores
Postado

Boa tarde Alexandre,

Complementando o que o Diego já lhe passou.

Você configurou o componente com a cidade cujo prestador emitiu a nota?

Caso não tenha feito isso, o componente pode acabar usando a rotina que lê o XML segundo padrão ABRASF em vez de ler o XML do provedor IPM que tem o seu próprio layout.

Consultor SAC ACBr

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

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

  • Consultores
  • Solution
Postado

Bom dia Alexandre,

Eu me refiro a configuração do componente e não a alimentação dele, pois são coisas distintas.

O programa exemplo, você seleciona a cidade, ao fazer isso e salvar a configuração o componente é configurado com a cidade selecionada.

Se a intensão é imprimir o DANFSE de uma nota, o componente tem que ser configurado com a cidade do prestador de serviço.

Depois devemos carregar o XML da nota e por fim imprimir o DANFSE.

Por favor faça os testes usando o programa exemplo do componente ACBrNFSeX.

Consultor SAC ACBr

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

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

×
×
  • 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.