Problema Impressão

[rbleonel]

Bom dia Italo!

Não sei se estou carregando errado o XML. Abaixo está a forma como sempre foi feito:

   MD.ACBrNFSe1.Enviar(1, False);

 

   MD.ACBrNFSe1.NotasFiscais.Items[0].GravarXML();

 

   MD.ACBrNFSeDANFSeRL1.ImprimirDANFSePDF;

 

Até a semana passada desta forma funcionava perfeitamente e depois da atualização já não funcionou mais.

 

Está errado desta forma?

 

Obrigado,

 

Rogério.

[Italo Giurizzato Junior]

Boa tarde Rogério,

Qual é o objetivo do GravarXML entre o Enviar e o Imprimir?

Sendo que o Enviar já salvar em disco o XML tanto do RPS quanto da NFS-e.

Para isso basta configurar:

Configuracoes.Arquivos.Salvar := True;

Outra coisa você diz que a impressão esta com problema, mas não diz qual é, ai fica difícil de ajudar.

[rbleonel]

Em ‎27‎/‎04‎/‎2016 at 15:57, Italo Jurisato Junior disse:

Boa tarde Rogério,

Qual é o objetivo do GravarXML entre o Enviar e o Imprimir?

Sendo que o Enviar já salvar em disco o XML tanto do RPS quanto da NFS-e.

Para isso basta configurar:

Configuracoes.Arquivos.Salvar := True;

Outra coisa você diz que a impressão esta com problema, mas não diz qual é, ai fica difícil de ajudar.

Bom dia Italo,

No último dia 26 quando fiz a postagem, eu expliquei o que estava acontecendo. É a primeira postagem do dia 26. Mas tudo bem, sem problemas!

O que acontece é que vários dados do emitente do Danfe da NFSe não estão saindo. O que pude perceber é que o XML que está sendo salvo e não estão sendo salvo com os dados do emitente e acredito que seja esse o problema. O XML é salvo apenas com os dados de tomador e dados do serviço. Os outros dados não aparecem no XML após o envio para o Ginfes.

Consultando lá no Ginfes, a nota foi emitida normalmente e todos os dados constam. Isso quer dizer que para enviar está perfeito. O problema está para pegar o retorno.

Costumo não fazer a consulta após o envio porque retorna erro. Faço a consulta da seguinte forma:

   MD.ACBrNFSe1.ConsultarNFSeporRps(MD.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
                                 MD.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
                                 TipoRPSToStr(MD.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo));

O erro após a consulta está em anexo.

O problema é que seu não faço a consulta, o XML não retorna completo e o Danfe também fica incompleto.

Obrigado,

Rogério.

[Italo Giurizzato Junior]

Bom dia Rogério,

No caso da NFS-e lembre-se que o componente gera o XML do RPS e não da NFS-e, este é gerado e retornado pelo provedor.

Se você se refere ao XML do RPS, no que se refere aos dados do Emitente só consta o CNPJ e a IM mesmo, por outro lado temos todos os dados do Tomador.

Você configurou o componente para consultar o lote após o envio?

Você configurou o componente com os dados do Emitente (vide programa exemplo) ?

[rbleonel]

Bom dia Italo!

Sim, o componente está configurado com todos os dados do emitente. Caso eu deixe de preencher os dados do emitente, ao enviar a NFSe para o provedor Ginfes ele irá rejeitar, portanto, os dados do emitente deve estar preenchido corretamente.

Veja que meu problema não está na emissão da NFSe. Estou conseguindo emitir a NFSe sem nenhum problema. O problema está na geração do Danfse. Em anexo está a imagem do cabeçalho do Danfse após o envio e posterior retorno. Veja que os dados do emitente, número da NFSe e a competência não estão preenchidos. Como eu disse acima, a NFSe é emitida corretamente. Sei disso porque eu entro lá no site do Ginfes e faço a consulta e a NFSe está lá emitida. O problema está apenas na geração do Danfse.

No componente ACBrNFSe, na propriedade CONFIGURACOES/GERAL/ConsultarLoteAposEnvio, deixei TRUE e emiti a NFSe e retornou erro. A NFSe foi emitida, porém, o componente não consegue fazer a consulta. Se deixar como FALSE, tudo ocorre sem nenhum erro.

É como venho dizendo: No último dia 26 eu fiz uma atualização do pacote ACBr e após essa atualização, o Danfse começou a apresentar o problema conforme acabei de explicar (vide anexo). Até a atualização do última dia 26, tudo funcionava perfeitamente. Apenas atualizei o pacote ACBr e não mudei nada no meu aplicativo. Após compilar o meu aplicativo, começou a apresentar este problema.

Obrigado,

Rogério.

[Italo Giurizzato Junior]

Bom dia Rogério,

Se ao configurar o componente para ConsultaLoteAposEnvio ao tentar enviar o lote para o provedor Ginfes você tem como retorno um erro, esta claro que você tem um erro no envio e não na impressão do DANFSE.

Você chegou a realizar testes com o programa exemplo?

Se sim qual foi o resultado?

Você disse que antes dessa última atualização (dia 26) tudo funcionava, pois bem antes do dia 26 (acredito ser 26 de abril) quando foi a última atualização?

[rbleonel]

Então Italo, desde o dia 26 eu venho atualizando toda semana. Fiz uma nova atualização agora pela manhã.

Na verdade, eu nunca consegui fazer uma consulta no provedor Ginfes. Eu fazia da seguinte forma:

MD.ACBrNFSe1.ConsultarNFSeporRps(MD.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, MD.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(MD.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo));

Cheguei a postar esse problema aqui no grupo e nunca tive retorno. Como nunca havia retorno, eu acabei deixando a consulta de lado e mesmo assim, a NFSe sempre foi emitida sem problemas.

O que eu não entendo é que se existe um problema ou erro no envio da NFSe, como o provedor Ginfes aceita o envio? A NFSe está lá emitida e inclusive, a contabilidade puxa todas as NFSe emitidas para gerar a guia de recolhimento de impostos. A menos que a NFSe seja aceita mesmo com erro!!! Mesmo assim me causa estranhesa. O provedor não deveria retornar com uma rejeição ao enviar?

Vou testar com o programa de exemplo e depois eu posto aqui o resultado.

[Italo Giurizzato Junior]

Rogério,

O seu problema não é o envio do RPS e sim a consulta.

Ao enviar o pedido de consulta que ocorre o erro.

O método ConsultarNFSeporRps devemos passar como parâmetro, o Numero, Série e Tipo do RPS, mas ele requer também o CNPJ e a IM do prestador de serviço, ou seja o Emitente da nota.

Sendo assim te pergunto: na sua aplicação, mais precisamente na rotina que configura o componente você incluiu as linhas de configuração do Emitente?

Vide o programa exemplo.

[rbleonel]

Bom dia Italo.

Sim, o componente está sendo alimentado com todas as informações necessárias, inclusive as que você menciona. Veja:

  MD.ACBrNFSe1.Configuracoes.Geral.CodigoMunicipio       := 9999999;
  MD.ACBrNFSe1.Configuracoes.Geral.Emitente.CNPJ         := '99999999999999';
  MD.ACBrNFSe1.Configuracoes.Geral.Emitente.InscMun      := '999999';
  MD.ACBrNFSe1.Configuracoes.Geral.Emitente.RazSocial    := 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX';
 

Fiz uma nova modificação na maneira de fazer a consulta e não deu mais problemas. Antes eu fazia assim:

MD.ACBrNFSe1.ConsultarNFSeporRps((MD.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
                                                                  MD.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
                                                                  TipoRPSToStr(MD.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo));

A maneira como descrita acima retorna erro. Esse método de consulta foi passado aqui no grupo.

Agora, fiz a consulta da seguinte forma:

MD.ACBrNFSe1.ConsultarNFSeporRps(intTOstr(numeroRPS),'1','1');

Da forma como descrita acima não retorna nenhum erro e tudo funciona perfeitamente.

Contudo, o Danfse não está sendo gerado. O componente ACBrNFSeDANFSeRL1 está associado ao componente ACBrNFSe1. Para gerar o PDF faço da seguinte forma:

ACBrNFSeDANFSeRL1.PathPDF := 'C:\Temp';

ACBrNFSeDANFSeRL1.ImprimirDANFSePDF;

 

Simplesmente o Danfse não é gerado. Procurei em todo lugar e não encontrei.

[Italo Giurizzato Junior]

Boa tarde,

Após executar o método ConsultarNFSeporRPS tentou executar o método Imprimir?

MD.ACBrNFSe1.ConsultarNFSeporRps(intTOstr(numeroRPS),'1','1');

MD.ACBrNFSe1.Imprimir;

[rbleonel]

Italo,

Cada vez parece que a coisa piora. Agora, não faço nenhum tipo de consulta e retorna a seguinte mensagem de erro: loterps' is used but not declared in the dtd/schema

Isso começou após atualizar os fontes. Já troquei os Schemas, os arquivos INI e nada.

A propriedade CONSULTARLOTOAPOSENVIO está FALSE. Enfim, agora, aparece essa mensagem.

Sabes dizer que erro é esse?

Quanto a impressão, o problema ainda persiste.

Obrigado,

Rogério.

[Italo Giurizzato Junior]

Bom dia Rogério,

Favor atualizar os fontes e testar novamente.

[rbleonel]

Bom dia Italo,

Fiz a atualização e todos os erros foram corrigidos.

O único problema ainda encontra-se na consulta do RPS. Não sei por qual motivo, o componente está trazendo RPS de 2014 após a consulta.

Faço da seguinte forma:

   ACBrNFSe1.Enviar(1, False);

 

   ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
                                                             ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
                                                            TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo));

 

Fazendo conforme descrito acima, está retornando um RPS nada a ver com o que está sendo enviado, sendo que o que está sendo informado nos parâmetros de consulta estão corretos.

 

Deixei de fazer a consulta conforme descrito está acima e no componente ACBrNFSe marquei a propriedade CONSULTARLOTEAPOSENVIO = True. Ao fazer isso, o componente envia a nota para o provedor e retorna dizendo: "RPS já informado".

 

Se eu voltar esta propriedade para False e fazer a consulta por ACBrNFSe1.ConsultarNFSeporRps conforme descrito acima, ele retorna um RPS lá do passado, nada a ver com o que está sendo emitido agora.

 

Acredito que o componente está com alguma falha na consulta.

 

Obrigado,

 

Rogério.

[Italo Giurizzato Junior]

Bom dia Rogério,

O ConsultarNFSeporRPS retorna o XML da NFS-e e não o XML do RPS.

Tente mudar a série.

[rbleonel]

Bom dia Italo,

Eu mudei a série e a mensagem de que o RPS já foi informado não apareceu mais. Isso resolveu o problema!

Porém, a consulta do RPS ainda está com problemas. Se fizer a consulta por:

   ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
                                                             ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
                                                            TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo));

Conforme acima, retorna uma RPS nada a ver.

Por outro lado, se eu não fizer a consulta conforme acima e no próprio componente, na propriedade CONSULTARLOTEAPOSENVIO estiver TRUE, o componente retorna o RPS correto.

Desta forma também resolveu meu problema.

Só que, encontrei outro problema. Agora é quanto ao valor total. Este problema vou postar em outro tópico.

Obrigado,

Rogério.

 

[Italo Giurizzato Junior]

Boa tarde Rogério,

Compare o numero, série e tipo do RPS que foi enviado com os mesmos dados que constam na consulta a NFS-e por RPS.

Quando se utiliza o método ConsultarNFSeporRps separadamente.