Leonardo Gregianin

No meu sistema, antes de imprimir ou carregar o xml para o TWebBrowser.

O ideal seria algum administrador do ACBr te responder, também tenho algumas perguntas sem respostas... Eu fiz da forma abaixo, se o campo só tem <br> então eu limpo a tag. if ACBrNFSe1.NotasFiscais.Items[0].NFSe.OutrasInformacoes = '<br>' then ACBrNFSe1.NotasFiscais.Items[0].NFSe.OutrasInformacoes := '';

O xml é retornado assim: <OutrasInformacoes>&lt;br&gt;<OutrasInformacoes>, porém antes de gravar o arquivo o ACBr utiliza a função "ParseText" que fica dentro do ACBrUtil que faz a conversão de "&lt;" para "<" e "&gt;" para ">" o que parece ser o certo. Neste caso acho que é o provedor issnet que não deveria retornar informação nenhuma.

Maiquel, tu tem que entregar para o cliente um documento fiscal que é a nfse retornada do webservice da prefeitura, e realmente tem algumas que demorar um bocado. O rps é provisório, e como disse, já ví sistemas que a imprimem mas eu não acho isso recomendável.

Segue em anexo o arquivo .dpk para instalação do QuickReport para Delphi 2010. Obs.: Precisei renomear de .dpk para .txt para anexá-lo no fórum por questão da permissão.

Alteração para impressão da mensagem de homologação na DANFse quando o CNPJ do tomador for 99.999.999/0001-91. Não encontrei outra forma de se fazer isso, se houver, compartilhe por favor. Testei no QuickReport 5.02. @@ -314,7 +314,7 @@ qrlTomaUF.Caption := FNFSe.Tomador.Endereco.UF; qrlTomaEmail.Caption := FNFSe.Tomador.Contato.Email; - // Mensagem para modo Homologacao. + // Mensagem para NFS-e cancelada. qrlMsgTeste.Visible := False; qrlMsgTeste.Enabled := False; if FNFSe.NfseCancelamento.DataHora<>0 @@ -325,6 +325,17 @@ end; qrlMsgTeste.Repaint; + // Mensagem para modo Homologacao. + qrlMsgTeste.Visible := False; + qrlMsgTeste.Enabled := False; + if (FNFSe.Tomador.IdentificacaoTomador.CpfCnpj = '99999999000191') then + begin + qrlMsgTeste.Caption := 'AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL'; + qrlMsgTeste.Visible := True; + qrlMsgTeste.Enabled := True; + end; + qrlMsgTeste.Repaint; + (* if FNFSe.Ide.tpAmb = taHomologacao then begin

Bom dia, Segue em anexo alteração para habilitar a opção de salvar em PDF dentro preview do QuickReport. Testei somente com o QuickReport 5.02. @@ -104,6 +104,10 @@ class procedure TfqrDANFSeQR.Imprimir(ANFSe : TNFSe; APrestLogo : String = ''; APrefeitura : String = ''); +{$IFDEF QReport_PDF} +var + qf : TQRPDFFilter; +{$ENDIF} begin with Create ( nil ) do try @@ -137,6 +141,7 @@ QRNFSe.PrevShowThumbs := False; QRNFSe.PreviewInitialState := wsMaximized; QRNFSe.PrevInitialZoom := qrZoomToWidth; + qf := TQRPDFFilter.Create(nil); {$ENDIF} QRNFSe.Prepare;

italojjr, Como o componente faz o loop de gravação dos arquivos das nfs-e internamente, como eu poderia atualizar o número da nfs-e no meu banco de dados?

Já ví sistemas que imprimem o RPS ou o "aviso prévio" que tu disse, mas tem um prazo de validade para converter em nfs-e. O ACBr não faz isto. Quanto o segundo questionamento, além do ACBr gravar os arquivos, tu também pode gravar eles: AcbrNFSe1.NotasFiscais.SaveToFile(path + '\' + numero_do_rps + '-nfse.xml');

Ronnei, Meu código também tinha um try..except, eu tirei e passei uma variável boleana: Retorno := ACBrNFSe1.Enviar(rps,false); Retorno := ACBrNFSe1.ConsultarNFSeporRps(rps, serie, tipo, cnpj, im); Eu gravo no banco de dados o protocolo do envio, ou seja, a nota está em processamento. Depois faço a consulta e se a variável "retorno" voltar "true" eu pego o número da nfs-e senão continua "em processamento".

De acordo com o manual da Abrasf a tag é "OutrasInformacoes" porém ela é reservada para uso da administração fazendária, não adianta enviar alguma informação porque o xml de retorno vêm conforme a prefeitura.

juaumkiko, Será que agora você consegue incluir uma diretiva de compilação para isso?

De acordo com o site da Abrasf já existem as versões 1.0, 2.0, 2.1 e 2.2 e como cada cidade faz do jeito que quer, como é feita a diferenciação no ACBr ou não é preciso fazer nada? Por exemplo a cidade de Barra do Garças-MT está na versão 2.0 enquanto outras estão na 1.0: Produção: http://financas.barradogarcas.com:8080/SCEM/servlet/anfse_barradogarcas?wsdl Homologação: http://virtualserver.dyndns-free.com:8080/SCEMX32JavaEnvironment/servlet/agerarnfse_barradogarcas?wsdl att.

Veja esse tópico sobre o mesmo assunto:

Se em regra o processo é assíncrono, acho que o certo é mesmo separar o envio e o retorno do lote.

Eu não uso o ini no meu programa, quando inicio meu programa eu pego os dados do meu cadastro da empresa e só utilizo quando vou gerar o xml do rps.

No manual de tratamentos de erros está: "E157: Usuário não está autorizado a utilizar esse serviço para esse contribuinte. Solução: Solicite ao contribuinte autorização para utilizar o serviço em seu nome." Se você está utilizando o CNPJ do seu cliente, deve usar também o certificado digital dele.

Insisto e questiono isto porque nas units ACBrNFSeNotasFiscais e ACBrNFSeWebServices estão comentadas as variáveis "Configuracoes.Geral.Salvar" e "Configuracoes.Arquivos.Salvar", com isso sempre gera os arquivos que, em tese, não servem de nada para os clientes. att.

Primeiro você passa o lote, depois você vai incluindo os RPS com o comando "with NotasFiscais.Add.NFSe do", dê uma olhada no programa exemplo: ...\trunk\Exemplos\ACBrNFSe\Delphi\ NotasFiscais.NumeroLote:='1'; while not CDS.Eof do begin with NotasFiscais.Add.NFSe do begin IdentificacaoRps.Numero := FormatFloat('#########0', RPS); IdentificacaoRps.Tipo := trRPS; DataEmissao := Date; ... end; CDS.Next; end;

Testado ok.

Mesmo tópico:

Siga os passo que o Ítalo postou aqui: Para Delphi 2010 você deve trocar no final do pacote ..\trunk\Pacotes\Delphi\ACBrNFe2\ACBrNFSeDanfseQRpkg.dpk: de: vcljpg, QR5RunD7; para: vclimg, QR5RunD2010;

Observei no componente que existe vários lugares onde está comentado as opções "FConfiguracoes.Geral.Salvar" e "FConfiguracoes.WebServices.Salvar" para que gere efetivamente os arquivos .xml, tem algum problema em descomentá-los para utilizar as variáveis "Configuracoes.Arquivos.Salvar := False" e "Configuracoes.Geral.Salvar := False" e não sejam criados estes vários aquivos? Grato.

Dica, principalmente para quem inicia na NFS-e, para buscar o diretório dos schemas corretamente: ACBrNFSe1.Configuracoes.WebServices.CodigoMunicipio := StrToIntDef(CodigoCidade), 0); ACBrNFSe1.Configuracoes.WebServices.SetConfigMunicipio(''); ACBrNFSe1.Configuracoes.Geral.PathSchemas := 'X:\NFSE\Schemas\' + ACBrNFSe1.Configuracoes.WebServices.xProvedor; Label1.Caption := 'Provedor: ' + ACBrNFSe1.Configuracoes.WebServices.xProvedor; Primeiro setar o código da cidade e depois o componente busca o provedor automático e mostra no label. Dúvida: Quando o provedor é ISSNet, o ACBr troca o nome para "ISS.Net", por isso eu preciso trocar o nome do diretório ou no componente para "ISSNet", não daria para ficar um nome padrão? Grato.

Dê uma olhada no demo NFS-e: procedure TfrmDemo_ACBrNFSe.btnImprimirClick(Sender: TObject); begin 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.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrNFSe1.NotasFiscais.Clear; ACBrNFSe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); ACBrNFSe1.NotasFiscais.Imprimir; MemoDados.Lines.Add('Arquivo Carregado de: '+ACBrNFSe1.NotasFiscais.Items[0].NomeArq); MemoDados.Lines.Add('Nota Numero: '+ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero); MemoDados.Lines.Add('Código de Verificação: '+ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao); MemoResp.Lines.LoadFromFile(ACBrNFSe1.NotasFiscais.Items[0].NomeArq); LoadXML(MemoResp, WBResposta); PageControl2.ActivePageIndex := 1; end; end;