Campos Nfe Em Branco Na Danfe

[Andre Luis Santini]

Bom dia. procurei algum topico e nao encontrei. primeiro post tbm rsrs.

Estou começando a trabalhar com nfe e semana passada ao atualizar o acbr encontrei uma dificuldade.

quando vou visualizar/imprimir a danfe os campos aparece todos em branco. queria saber se tem como me auxiliar ou se ja existe um topico sobre o assunto Obrigado.

[Juliomar Marchetti]

Bom dia

Qual o modelo do danfe? o xml como está, vem com as informações? qual a versão da nf-e?

[Andre Luis Santini]

so corrigindo, nao eh nfe. e a nfs-e rsrs. vou verificar e ja te respondo

[Juliomar Marchetti]

Movido para o local correto!

[Italo Giurizzato Junior]

Bom dia André,

 

Você deve estar carregando o XML antes de solicitar a impressão do DANFSE, correto?

 

Se sim, qual é o XML que esta sendo carregado, o que *-rps.xml ou o *-nfse.xml?

 

Se for o *-nfse.xml, por favor post ele como anexo.

[Henrique Gusso Netzka]

Italo, uma das causas do problema estava no código do pnfsNFSeR, linha 1926... Caso o provedor fosse "nenhum", ele busca os dados da NFSe para identificar o provedor. Porém, ele busca o código do município do serviço, e não o do prestador do serviço, para tal fim. Com isso, em geral ele encontra errado...

 

Inverti a função que faz esta busca, dando preferência ao código do prestador de serviços, e aqui em Curitiba/PR a situação foi normalizada.

 

if FProvedor = proNenhum then

 begin

   if (Leitor.rExtrai(1, 'OrgaoGerador') <> '') then

   begin

     CM := Leitor.rCampo(tcStr, 'CodigoMunicipio');

     FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0)));

   end;

 

   if (CM = '') or (CM = '0') then

   begin

     if (Leitor.rExtrai(1, 'PrestadorServico') <> '') then

     begin

       CM := OnlyNumber(Leitor.rCampo(tcStr, 'CodigoMunicipio'));

       if CM = '' then

         CM := Leitor.rCampo(tcStr, 'Cidade');

       FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0)));

     end

     else

       FProvedor := proNenhum;

   end;

 

   if (CM = '') or (CM = '0') then

   begin

     if (Leitor.rExtrai(1, 'Servico') <> '') then

     begin

       CM := Leitor.rCampo(tcStr, 'CodigoMunicipio');

       FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(CM, 0)));

     end;

   end;

   { Alterado Por Cleiver em - 22-08-2014 }

   if (FProvedor = proNenhum) and (Pos('https://nfse.goiania.go.gov.br/ws/'Leitor.Arquivo) > 0)  then

     FProvedor := proGoiania;

 end;

[Italo Giurizzato Junior]

Boa tarde Henrique,

 

Por favor post como anexo a unit que você efetuou a alteração, para que possamos realizar o merge.