Tarja de NFS-e cancelada no acbrNFSe

[walter faria]

Bom dia, gostaria de saber se no AcbrNFSe tem como colocar a TARJA de cancelado quando mandar imprimir a NFS-e.

*** Igual a da NF-e.

Obrigado.

[Th.Lima]

Bom dia,

Estou com a mesma dúvida em relação a isso senão estiver implementada é uma boa ideia fazer isso!

[walter faria]

boa noite, será que ninguem ja prescisou de imprimir NFS-e com a tarja de cancelado ?

Obrigado

[Th.Lima]

A principio eu até precisei sendo que eu coloco no e-mail do cliente no momento do envio, e após cancelar eu abro o email e imprimo sendo que dessa forma será bem mais simples!

Eu não tive tempo de olhar o fonte do Danfe!!!

[walter faria]

th.Lima. bom dia mas na impressão sai a tarja de como cancelada ?

Obrigado

[Th.Lima]

Eu ainda não consegui fazer isso, vou entrar em contato com o Italojr e ver se eles já implementaram essa funcionalidade!

[Italo Giurizzato Junior]

Boa tarde a todos,

O componente possui uma função para realizar o cancelamento da NFSe, para tal devemos carregar o XML da respectiva NFSe a ser cancelada e passar como parametro o código de cancelamento:

1 - Erro de emissão;

2 - Serviço não concluido;

3 - RPS Cancelado na Emissão.

A impressão do DANFSe detecta se a NFSe foi cancelada ou não, caso afirmativo imprime a tarja: NFS-e Cancelada

Porque não esta aparecendo a tarja?

Simples o XML não foi atualizado, uma vez que a função CancelarNFSe somente solicita o cancelamento e salva o retorno da mesma.

Para que o XML seja atualizado havia a necessidade de realizar uma consulta do tipo ConsutarNFSeporRPS.

Realizei uma alteração na função CancelarNFSe que vai realizar automaticamente essa consulta e consequentemente atualizar o XML.

Favor baixar a atualização e realizar os testes.

Fico no aguardo de um retorno.

[Oneide]

italojjr.. ainda continua da mesma forma como descrito acima ?

 

aguardo..

[Italo Giurizzato Junior]

Bom dia Oneide,

 

Muitas alterações foram realizadas no componente ACBrNFSe, inclusive hoje disponibilizei varias correções e melhorias.

 

Se você esta com todos os fontes de todas as pastas atualizados ao mandar visualizar ou imprimir um DANFSE cancelada vai aparecer sim a tarja: NFS-e CANCELADA.

[Oneide]

sim.. atualizei hj demanha.. 

 

mas tenho uma duvida.. pode ser meio boba mas ai vai..

 

 

salvo esse XML de cancelmento hj.. ACBrNFSe.WebServices.CancNfse.RetWS

e qndo for de transmicao salvo esse ACBrNFSe.NotasFiscais.Items[0].SaveToStream(MSXmlNFSe);

 

para mostrar com a tarja devo dar uma atualizada no XML de transmicao entao pelo q intendi ?..

 

(uso o fast report)

[Italo Giurizzato Junior]

Oneide,

 

Sim, você deve atualizar, pois quando se realiza o cancelamento de uma NFSe temos como resposta um novo XML da NFSe com as TAGs refente ao cancelamento.

[Oneide]

sim.. vi agora tb...

 

ele altera isso

 

-<NfseCancelamento>-<Confirmacao>-<Pedido><InfPedidoCancelamento/><Signature/></Pedido>-<InfConfirmacaoCancelamento><Sucesso>true</Sucesso><DataHora>2013-09-13T10:36:51.976-03:00</DataHora></InfConfirmacaoCancelamento></Confirmacao></NfseCancelamento>

 

obrigado italojjr

[Oneide]

italojjr tenho um XML aqui q ele nao imprimi a tarja..

 

e ele contem a tag de cancelando.. etc..

 

vou add ele em anexo..

 

new 2.xml

[Oneide]

fiz varios testes e ainda nao sai a tarja de cancelamento..

 

ele cria as tags de cancelamento mas nao coloca a tarja...

 

xml em anexo

xml.xml

[Oneide]

up

[Italo Giurizzato Junior]

Bom dia Oneide,

 

Se você esta usando o DANFSE em Quick Report, imprimi sim a tarja NFS-e CANCELADA.

 

Inclusive acabei de fazer um teste usando o XML que você postou e a tarja foi impressa.

 

Fiz agora uma alteração para imprimi-la com uma fonte maior, para ficar mais visivel.

[Oneide]

bom dia..

 

estou usando o fast report..

[Leonardo Gregianin]

Boa tarde,

 

No FastReport não tem a tarja da NFSe Cancelada. Fiz a alteração nos fontes que estão anexo nos arquivos: ACBrNFSeDANFSeFRDM.dfm, ACBrNFSeDANFSeFRDM.pas e DANFSE.fr3.

 

Faça um backup dos seus fontes da pasta ACBrNFSe e copie estes para ela.

 

No seu fonte, após carregar o xml com "LoadFromFile" você deve alimentar a variável NFSeCancelada:

ACBrNFSe1.NotasFiscais.LoadFromFile('numero-nfse.xml');
if ACBrNFSe1.NotasFiscais.Items[i].NFSe.NfseCancelamento.DataHora <> 0 then
   DANFSe.NFSeCancelada := True;

[Italo Giurizzato Junior]

Boa tarde lvr,

 

Obrigado pela colaboração.

Já esta disponivel.

[medreis]

Aproveitando o topico, o sistema também nao imprime quando o ambiente é em homologação, como não tem nenhum parametro no XML, e precisava desta informação, eu Utilizei a TAG do componente Danfse,  passo 1 ou 2 para o componente e alterei o o Report para aparecer a mensagem, havia postado, atualizei o Fastreport mas nao foi atualizado.

 

 

No .LoadFromStream, alterar também o 

 

if ACBrNFSe1.NotasFiscais.Items[i].NFSe.NfseCancelamento.DataHora <> 0 then

DANFSe.NFSeCancelada := True;

 

Obrigado

Editado 25 Setembro, 2013 por medreis

[Leonardo Gregianin]

medreis,

A tarja de homologação para NFS-e não seria viável porque no XML não há uma tag específica para isso, diferentemente do que ocorre na NF-e que tem a tag tpAmb sendo 1 ou 2.

 

Se criarmos uma variável no componente como a "NFSeCancelada" corre o risco do ambiente estar marcado como produção e  o XML ser de homologação ou vice-versa.

 

Alguns provedores como o ISSNet utilizam o código da cidade do prestador como "999" para diferenciar os ambientes.

 

Nem o Quick e nem o Fortes tem a tarja de homologação.

[Oneide]

ela altera isso no XML qndo for cancelamento.

 

-<NfseCancelamento>-<Confirmacao>-<Pedido><InfPedidoCancelamento/><Signature/></Pedido>-<InfConfirmacaoCancelamento><Sucesso>true</Sucesso><DataHora>2013-09-13T10:36:51.976-03:00</DataHora></InfConfirmacaoCancelamento></Confirmacao></NfseCancelamento>

 

com isso é possivel fazer essa alteracao feita pelo lvr.

 

qndo for so emissao da NFSe ele nao tem dados para esse campo.. obvio por q é emissao e nao cancelamento.

[medreis]

medreis,

A tarja de homologação para NFS-e não seria viável porque no XML não há uma tag específica para isso, diferentemente do que ocorre na NF-e que tem a tag tpAmb sendo 1 ou 2.

 

Se criarmos uma variável no componente como a "NFSeCancelada" corre o risco do ambiente estar marcado como produção e  o XML ser de homologação ou vice-versa.

 

Alguns provedores como o ISSNet utilizam o código da cidade do prestador como "999" para diferenciar os ambientes.

 

Nem o Quick e nem o Fortes tem a tarja de homologação.

 

 

Mas ai  é problema da aplicação.

 

Quando vc ve uma nota impressa com a mensagem "cancelada" , ela foi cancelada em Homologação ou Produção ??

 

Se sua resposta " for não sei, pois esta informação não consta na nota ", a mensagem cancelada necessita também de  um complemento.

 

Quando vc imprime a nota no ambiente de homologação da Prefeitura aparece a mensagem 'Ambiente Homologação' mesmo não existindo no XML  esta informação !

 

Sugiro buscar esta informação do ambiente do componente, pois vc parametriza o ambiente que vc vai trabalhar .

 

Em que situação vc parametriza o componente para ler um XML, produção e quando deveria ser Homologação ? Só quando o seu sistema estiver errado !

 

Obrigado.

 

Marcio

Editado 27 Setembro, 2013 por medreis

[Leonardo Gregianin]

Aceitar ou não fica a cargo dos mantenedores do projeto.

[Leonardo Gregianin]

Na aplicação pode passar assim:

   if ACBrNFSe1.Configuracoes.WebServices.Ambiente = taProducao then
      ACBrNFSe1.NotasFiscais.Items[0].NFSe.Producao := snSim
   else ACBrNFSe1.NotasFiscais.Items[0].NFSe.Producao := snNao;

E no componente ACBrNFSeDANFSeQRRetrato.pas ficaria assim:

 // Mensagem para modo Homologacao.
 qrlMsgTeste.Visible := False;
 qrlMsgTeste.Enabled := False;
 if FNFSe.Producao = snNao
  then begin
    qrlMsgTeste.Caption := 'AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL';
    qrlMsgTeste.Enabled := True;
    qrlMsgTeste.Visible := True;
  end;

 if (FNFSe.NfseCancelamento.DataHora<>0) or FNFSeCancelada
  then begin
   qrlMsgTeste.Caption  := 'NFS-e CANCELADA';
   qrlMsgTeste.Visible  := True;
   qrlMsgTeste.Enabled := True;
  end;
 qrlMsgTeste.Repaint;