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.

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.

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.

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.

Alguém teria o exemplo da NFSe já modificada para o trunk2. Se tiver, por favor, disponibiliza ai. Obrigada.

Italo, boa tarde! Revisei, comparei e não encontrei nada de errado. Você não teria um exemplo de NFSe utilizando o trunk2? Obrigada.

Italo, obrigada pela atenção. Deve ter algum problema no componente. Depois da sua informação fui verificar. A pasta Notas esta vazia o componente não esta salvando os arquivos nesta pasta. Já a do recibo ta normal. Tem algum Path para ser configurado no componente direcionando para esta pasta (Notas)? ACBrNFSe1.Configuracoes.Arquivos.PathSalvar := ExtractFileDir(Forms.application.ExeName) + '\NFSe\Arquivo'; Por este motivo não consigo imprimir a nota, ela não existe na pasta. Eu peguei o exemplo fiz todas as alterações para o trunk2, tirei o QReport e coloquei Fortes Report e acontece a mesma coisa até mesmo no exemplo do ACBr a pasta Notas fica fazia. Não sei com quem falar sobre isto, você podia verificar para mim. Obrigada.

Italo, desculpe. Acabei postando em dois lugares aqui no forum. Por favor, verifica o outro que você respondeu, lá coloquei mais detalhes do meu problema. http://www.projetoacbr.com.br/forum/topic/26228-resumo-convers%C3%A3o-para-trunk-2-acbrnfe-acbrcte-e-acbrnfse/ Obrigada

Italo, desculpe. Acabei postando em dois lugares aqui no forum sem querer. No outro que coloquei você também respondeu, lá coloquei as imagens de como fica a impressão, o arquivo sem descrição e a nota sem os dados do remetente. No meu sistema que esta com XE7 vi que tem as pastas Ger, NFSe, RPS. Não encontrei estas pastas no DX10 la é Notas e Recibos. Parece que o problema é no armazenamento do retorno. Mudou alguma coisa? Tem alguma linha errada na rotina que coloquei acima? Se você tiver o exemplo da NFSe com Fortes Report no trunk2, por favor, me envie vai ajudar muito. Meu e-mail é [email protected]. O DANFSE do QReport que você vai me enviar é só instalar? Obs.: Em outra resposta sua você disse que devemos carregar o XML da NFS-e . Não entendi. Como carregar o XML? Pode ser que o problema esteja ai, por favor, me explique. Minha rotina esta acima. Mais uma vez muito obrigada.

Completando o problema acima: Configuração do componente: {$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 end; Para enviar: ACBrNFSe1.Enviar(vNumLote);

O exemplo da NFSe no trunk2 está com QReport (trunk2 não tem mais o QReport). 01 - Mudei meu projeto para Fortes Report porém ele não visualiza a nota fiscal. 02 - O PDF aparece sem descrição (chave). 03 - Abro o PDF e o destinatário esta em branco. 04 - Não consigo localizar o arquivo retorno para tentar imprimir a nota fiscal. Obs. Estou utilizando o Delphi DX 10. Tudo que mencionei acima funciona direitinho no Delphi XE7. O envio parece ok, consulto o site da GINFES e a nota aparece lá normal. Alguém poderia colocar o QReport de volta, por favor... Mais uma coisa, obrigada Italo pela resposta acima, deu certo. Desde já agradeço a todos.

Amigos, Boa noite! Antes no ACBr eu utilizava o QReport e funcionava direitinho, agora no trunk2 estou utilizando Fortes Report. A pergunta é: Tem alguma configuração diferente para este componente, isto porque ele não visualiza a impressão o pdf fica sem descrição (chave) e quando localizo o pdf os dados do remetente não aparece e também não consegui localizar o arquivo retorno. Desde já agradeço.

Alguém sabe me dizer se esta idéia foi aceita? Se foi, como ficou? Obrigado.

Só pra entender, no meu caso seria assim: StrToNaturezaOperacao(ok, 'noTributacaoNoMunicipio') Está correto?