NFSe (Exemplo Trunk2)

[Miriane Rogério]

Alguém teria o exemplo da NFSe já modificada para o trunk2.

Se tiver, por favor, disponibiliza ai.

 

Obrigada.

 

[Juliomar Marchetti]

acho que no svn já tem

[Miriane Rogério]

Eu verifiquei e ainda é o antigo com QReport.

No meu projeto o componente NFSe aparentemente não ta fazendo o retorno.

Por favor, de uma olhada no meu código se ta faltando alguma coisa:

{$IFDEF ACBrNFSeOpenSSL}
  ACBrNFSe1.Configuracoes.Certificados.Certificado := '';
  ACBrNFSe1.Configuracoes.Certificados.Senha := '';
{$ELSE}
  ACBrNFSe1.Configuracoes.Certificados.NumeroSerie := CerSer;
{$ENDIF}
  ACBrNFSe1.Configuracoes.Arquivos.AdicionarLiteral := true;
  ACBrNFSe1.Configuracoes.Arquivos.EmissaoPathNFSe := true;
  ACBrNFSe1.Configuracoes.Arquivos.SepararPorMes := true;
  ACBrNFSe1.Configuracoes.Arquivos.PathCan := ExtractFileDir(Forms.application.ExeName) + '\NFSe\Arquivo';
  ACBrNFSe1.Configuracoes.Arquivos.PathNFSe := ExtractFileDir(Forms.application.ExeName) + '\NFSe\Arquivo';
  ACBrNFSe1.Configuracoes.Arquivos.Salvar := true;
  PathMensal := ACBrNFSe1.Configuracoes.Arquivos.GetPathNFSe(0);
  ACBrNFSe1.Configuracoes.Geral.Salvar := ckSalvar.Checked;
  ACBrNFSe1.Configuracoes.Arquivos.PathSalvar := ExtractFileDir(Forms.application.ExeName) + '\NFSe\Arquivo';
  ACBrNFSe1.Configuracoes.Geral.CodigoMunicipio := StrToIntDef(CodMun, 0);
  ACBrNFSe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok, IntToStr(rgTipoAmb.ItemIndex + 1));
  ACBrNFSe1.Configuracoes.WebServices.Visualizar := ckVisualizar.Checked;
  ACBrNFSe1.Configuracoes.Geral.UserWeb := edtUserWeb.Text;
  ACBrNFSe1.Configuracoes.Geral.SenhaWeb := edtSenhaWeb.Text;
  ACBrNFSe1.Configuracoes.WebServices.ProxyHost := edtProxyHost.Text;
  ACBrNFSe1.Configuracoes.WebServices.ProxyPort := edtProxyPorta.Text;
  ACBrNFSe1.Configuracoes.WebServices.ProxyUser := edtProxyUser.Text;
  ACBrNFSe1.Configuracoes.WebServices.ProxyPass := edtProxySenha.Text;
  ACBrNFSe1.Configuracoes.Geral.SetConfigMunicipio;
  ACBrNFSe1.Configuracoes.Arquivos.PathSchemas := ExtractFileDir(Forms.application.ExeName) + '\NFSe\Schemas\' + ACBrNFSe1.Configuracoes.Geral.xProvedor;
  if ACBrNFSe1.DANFSe <> nil then
  begin
    ACBrNFSe1.DANFSe.Logo := ExtractFileDir(Forms.application.ExeName) + '\Fundo Padrão\PrefNFSe.bmp';
    ACBrNFSe1.DANFSe.PrestLogo := ExtractFileDir(Forms.application.ExeName) + '\Fundo Padrão\EmprNFSe.bmp';
    ACBrNFSe1.DANFSe.Prefeitura := PrefDs;
    ACBrNFSe1.DANFSe.Impressora := ComboBox1.Text;
    ACBrNFSe1.DANFSe.MostrarPreview := ckImpressao.Checked;
    ACBrNFSeDANFSeRL1.PathPDF := ExtractFileDir(application.ExeName) + '\NFSe\NFSePdf';
  end;
  lblSchemas.Caption := ACBrNFSe1.Configuracoes.Geral.xProvedor
 

No Delphi XE7 com o trunk funciona direitinho.

Obrigada.

 

[Italo Giurizzato Junior]

Boa tarde Miriane,

Esse fragmento de código se refere a configuração do componente.

Qual é o provedor ou a cidade que você pretende emitir a NFS-e?

[Miriane Rogério]

GINFES - São José do Rio Preto - SP

Por algum motivo o componente não ta tratando o retorno, por este motivo não consigo imprimir a nota, porem se consultada no site da GINFES a nota consta la.

Após enviar o arquivo ele nem consulta o retorno, ignora e conclui o processo. ( Sem mensagem de erro )

Obrigada.

[Italo Giurizzato Junior]

Miriane,

Você esta usando o método Enviar?

Se sim verifica na configuração do componente se a propriedade: ConsultaLoteAposEnvio esta com o valor True ou False.

Deixe ela com o valor True.

[Miriane Rogério]

Italo,

Deu certo, faltava mesmo mudar esta opção para True. (Na versão anterior não tinha esta linha acho que era automática)

01 - Observei que a consulta não espera mais de 10 a 15 segundos.

Esta correto ou tenho que parametrizar este tempo?

02 - Para imprimir posteriormente uma nota eu usava:

 OpenDialog1.Title := 'Selecione a NFSe';
 OpenDialog1.DefaultExt := '*-NFSe.xml';
 OpenDialog1.Filter := 'Arquivos NFSe (*-NFSe.xml)|*-NFSe.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';
 OpenDialog1.InitialDir := ACBrNFSe1.Configuracoes.Arquivos.PathSalvar;
 if OpenDialog1.Execute then
  begin
   ACBrNFSe1.NotasFiscais.Clear;
   ACBrNFSe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
   ACBrNFSe1.NotasFiscais.Imprimir;
  end;

Esta rotina mudou? 

Eu executo mas não visualiza e nem imprime.

Obrigada.

[Miriane Rogério]

Outro problema:

Envio um lote com cinco notas, o processo é normal porem na pasta de Notas só aparece a primeira as outra não e na pasta PDF aparece a primeira e uma em branco.

No arquivo 5838619-lista-nfse consta todas elas. O problema ta sendo mesmo na pasta PDF isto porque preciso de todas.

O que pode ser?

Outra coisa, como é composto este número 5838619-lista-nfse?

Antes eu localizava assim 490-nfse. (490 é o número da nota fiscal).

Agora 5838619 é oque?

Obrigada.

Editado 9 Dezembro, 2015 por Miriane Rogério

[Italo Giurizzato Junior]

Bom dia Miriane,

Com relação a rotina da postagem anterior, não mudou nada contia da mesma forma.

Verifique se a propriedade para visualizar o DANFSE esta com o valor True.

Se você estiver usando o método Enviar, o segundo parâmetro do mesmo a principio tem valor True e se não for alterado o DANFSE será impresso automaticamente.

Vou fazer um teste contendo mais de um RPS para descobrir o problema de salvar somente a primeira.

Com relação ao nome dos arquivos, o numero que aparece a esquerda de -lista-nfse.xml é o numero do protocolo, retornado pelo provedor assim que recebe o lote de RPS.

Na pasta Notas, como você disse consta uma nota o nome dela é <num>-nfse.xml sendo que <num> é o numero da nota gerado pelo provedor.

[Miriane Rogério]

Boa tarde Italo,

Na pasta Notas eu tenho (610-nfse.xml), não imprime e nem visualiza.

Na pasta anterior Arquivo eu tenho (5838997-lista-nfse.xml), esta sim, imprime visualiza normal.

No envio de um arquivo com cinco notas o componente imprime apenas uma e salva apenas uma em pdf.

O que estou fazendo para resolver isto:

      ACBrNFSe1.Enviar(vNumLote);

     Com o comando acima ele visualiza apenas a primeira nota, fecho a visualização e executo o comando abaixo.

      ACBrNFSe1.NotasFiscais.Clear;
      ACBrNFSe1.NotasFiscais.LoadFromFile(ACBrNFSe1.Configuracoes.Arquivos.PathSalvar + ACBrNFSe1.NotasFiscais.Items.NFSe.Protocolo + '-lista-nfse.xml');
      ACBrNFSe1.NotasFiscais.Imprimir;
      ACBrNFSe1.NotasFiscais.ImprimirPDF;

      Com este comando consigo imprimir todas as notas e salvar em pdf.

O meu sistema é escolar e emite dependendo da escola de 500 a 1000 nota por mês.

No meu cadastro eu salvo o número da nota fiscal e quando o cliente quisesse imprimir uma segunda via o sistema ia na pasta NFSe localizava a nota e imprimia.

Agora tenho que salvar o número do protocolo e se o cliente quiser imprimir ele tem que abrir todas as notas do lote e achar a que ele quer para imprimir. Isto porque o XML que aparece na pasta Notas não imprime.

Outra coisa quando peço para salvar o número da nota o componente só me mostra a primeira as outras fica em branco.

Estou utilizando o Fortes Report e quando determino para imprimir direto ele mostra a tela de impressão nota por nota. Queria que fosse igual ao QReport imprimisse todas de uma só vez. (Nunca usei o Fortes Report)

Por favor, me de uma luz, não sei se continuo com a migração para o trunk2.

Obs.: Você ficou de me mandar um cópia do QReport para instalar no trunk2 ([email protected]) 

 

Obrigada pela atenção.