Leonardo Gregianin

Bom dia, Como o provedor já está implementado só necessitando incluir novas cidades, segue: Cáceres/MT, IBGE 5102504, https://caceres.fisslex.com.br Vilhena/RO, IBGE 1100304, https://vilhena.fisslex.com.br Santa Carmen/MT, IBGE 5107248, https://santacarmem.fisslex.com.br Barra do Bugres/MT, IBGE 5101704, https://barradobugres.fisslex.com.br Santo Antônio do Leverger/MT, IBGE 5107800, https://leverger.fisslex.com.br Canarana/MT, IBGE 5102702, https://canarana.fisslex.com.br Chapada dos Guimarães/MT, IBGE 5103007, https://chapada.fisslex.com.br Itaúba/MT, IBGE 5104559, https://itauba.fisslex.com.br Itiquira/MT, IBGE 5104609, https://itiquira.fisslex.com.br Sapezal/MT, IBGE 5107875, https://sapezal.fisslex.com.br

No próprio repositório tem essa dll, na pasta \trunk\DLLs\OpenSSL, copia a libeay32 e a ssleay32 para a system32.

locodosul Atualiza os fontes do acbr

O xml que o provedor me retorna após o envio da NFs-e sempre consta o código da cidade normal e não o 999, como demosntrado abaixo: <PrestadorServico> <IdentificacaoPrestador> <CpfCnpj> <Cnpj>...</Cnpj> </CpfCnpj> <InscricaoMunicipal>...</InscricaoMunicipal> </IdentificacaoPrestador> <RazaoSocial>...</RazaoSocial> <NomeFantasia>...</NomeFantasia> <Endereco> <Endereco>...</Endereco> <Numero>...</Numero> <Bairro>...</Bairro> <Cidade>5103403</Cidade> <Estado>...</Estado> <Cep>...</Cep> </Endereco> <Contato> <Email>...</Email> </Contato> </PrestadorServico> Tive que fazer a seguinte alteração no ACBrWebServices.pas: - TNFSeCancelarNfse(Self).FCodigoMunicipio:=TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.CodigoMunicipio; + if (TNFSeCancelarNfse(Self).FCodigoMunicipio = '') then + begin + if (FProvedor = proISSNet) and (FConfiguracoes.WebServices.AmbienteCodigo = 2) then + TNFSeCancelarNfse(Self).FCodigoMunicipio := '999' + else + TNFSeCancelarNfse(Self).FCodigoMunicipio:=TNFSeCancelarNfse(Self).FNotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.CodigoMunicipio; + end;

Eu pensei que seria interessante para o usuário final pois ele poderia escolher onde quer gravar o pdf da mesma forma que acontece com o preview do Rave na NFe e o preview do boleto em FastReport. Seria uma opção a mais.

Mais alguém percebeu este problema?

Olá, atualiza os fontes deve ter resolvido isto já.

Ítalo, esta alteração não seria interessante?

O problema não é a série e sim o código da cidade.

O problema é que o componente troca o código.

Ao tentar cancelar a NFse em homologação no provedor ISSNet aparece o erro: "Município da prestação de serviço informado no XML diferente da URL do webservice". Observei que na unit ACBrProvedorISSNet.pas está com o nome errado nesta parte: 999: begin // Dourados/MS ConfigURL.HomNomeCidade := 'dourados'; //adicionado por ronnei ConfigURL.ProNomeCidade := 'dourados';//adicionado por ronnei end; Como também, o código 999 é trocado para 999009 no decorrer do processo interno do componente. Ao seguir debugando o processo de cancelamento e trocar os códigos de cidade para 999, ao final a nfse é cancelada corretamente e o RPS volta a fica disponível no provedor e o componente faz uma consulta por RPS após o envio na função CancelaNFSe da unit ACBrNFSeWebServices e sempre retorna "RPS não encontrado", não seria o caso de utilizar NFSe.Configuracoes.WebServices.ConsultaLoteAposEnvio para o provedor ISSNet? Quem puder ajudar, grato.

Agora deu certo sim.

O componente TQRLabel de nome QRLabel33 está sobrando na unit ACBrNFSeDANFSeQRRetrato.pas e no .dfm o que ocasiona o aparecimento do texto "QRLabel33" no comprovante de entrega, logo acima de "Recebi(emos) de ...". Utilizo QuickReport 5.02

A chamada da função "TNFSeG.Gera_DadosMsgEnviarLote" linha763... no ACBrNFSeWebServices teria que passar como parâmetro o provedor.

Com o provedor ISSNet também está com erro. O erro está na unit pnfsNFSeG.pas, função Gera_DadosMsgEnviarLote. Você tem que apagar a linha que contem VersaoDados e fechar a tag com ">", anexei minha unit aí embaixo. + DFeUtil.SeSenao(Identificador <> '', ' ' + Identificador + '="' + NumeroLote + '"', '') + '>' + - DFeUtil.SeSenao(Identificador <> '', ' ' + Identificador + '="' + NumeroLote + '"', '') + - DFeUtil.SeSenao(VersaoDados <> '', ' versao="' + VersaoDados + '"', '') + '>' +

juaumkiko, A diretiva não poderia vincular ao Delphi e não ao Rave? como exemplo: {$IFDEF VER150} Rave50VCL, {$ENDIF} // D7 {$IFDEF VER170} Rave60VCL, {$ENDIF} // D2005 {$IFDEF VER180} {$IFNDEF VER185} Rave65VCL, {$ENDIF} // D2006 {$ENDIF} {$IFDEF VER185} Rave75VCL, {$ENDIF} // D2007 {$IFDEF VER190} Rave75VCL, {$ENDIF} // D2007 {$IFDEF VER200} Rave76VCL, {$ENDIF} // D2009 {$IFDEF VER210} Rave77VCL, {$ENDIF} // D2010 {$IFDEF VER220} Rave90VCL, {$ENDIF} // XE {$IFDEF VER230} Rave100VCL, {$ENDIF} // XE2 Qual as versões do Rave antigas não funcionam?

Existia a pasta "DANFSE_QR3" dentro da pasta ..\trunk\Fontes\ACBrNFSe antes da troca do endereço do svn. Alguém pode ver o que aconteceu que não existe mais?

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?