José Jair de Oliveira

O provedor é Fiorilli (enviado pelo layout do Provedor - lnfsProvedor), a cidade aderiu ao Padrão Nacional mas lá o provedor sincroniza com a Sefaz. Acredito que apenas a propriedade ImprimeCanhoto presente no componente não esteja funcionando. Independente do provedor ou layout, seria como no DANFE da NFe, apenas o espaço próprio para comprovação do recebimento da nota pelo cliente. Obrigado Juliomar NFS-e_9856_23_04_2026.pdf

Bom dia! Um cliente está iniciando a emissão das notas de serviço via sistema e solicitou a impressão de canhoto na DANFeSe, pois no sistema da prefeitura sai e costumam utilizar. Ativei a propriedade ImpremeCanhoto mas não está exibindo. Algum outro detalhe que eu preciso rever, será?

Juliomar bom dia. Então não sei a correção, apenas resolvi modificando o IF para não entrar na rotina ConsolidarVariosItensServicosEmUmSo, pq nela os itens de serviço estão sem valor e regravando o serviço da nota fiscal, causando o erro. ...Fontes\ACBrDFe\ACBrNFSeX\Provedores\ACBrNFSeXGravarXml.pas procedure ConsolidarVariosItensServicosEmUmSo nesse ponto pra abaixo está zerando as informações // Leva em consideração a informação do ultimo item da lista. UltimoItem := FNFSe.Servico.ItemServico.Count -1; NFSe.Servico.CodigoMunicipio := IntToStr(FNFSe.Servico.ItemServico[UltimoItem].CodigoMunicipio); NFSe.Servico.CodigoPais := FNFSe.Servico.ItemServico[UltimoItem].CodigoPais; NFSe.Servico.ItemListaServico := FNFSe.Servico.ItemServico[UltimoItem].ItemListaServico; NFSe.Servico.xItemListaServico := FNFSe.Servico.ItemServico[UltimoItem].xItemListaServico; NFSe.Servico.CodigoTributacaoMunicipio := FNFSe.Servico.ItemServico[UltimoItem].CodigoTributacaoMunicipio; .... FNFSe.Servico.ItemServico[UltimoItem] vazio...

Boa tarde Na última revisão (45705) do SVN da unit PadraoNacional.GravarXml.pas houve uma modificação que está teoricamente causando o erro function TNFSeW_PadraoNacional.GerarXml: Boolean; Antes estava assim(Até revisão 45603): if FormatoDiscriminacao <> fdNenhum then ConsolidarVariosItensServicosEmUmSo; xmlNode := GerarXMLInfDps; NFSeNode.AppendChild(xmlNode); Result := True; Agora esse if, está assim: if (FormatoDiscriminacao <> fdNenhum) or (NFSe.Servico.ItemServico.Count > 0) then ConsolidarVariosItensServicosEmUmSo; Está forçando a entrar na procedure TNFSeWClass.ConsolidarVariosItensServicosEmUmSo ( ACBrNFSeXGravarXml ) que está zerando as informações do NFSe.Servico, gerando os erros... // Leva em consideração a informação do ultimo item da lista. UltimoItem := FNFSe.Servico.ItemServico.Count -1; NFSe.Servico.CodigoMunicipio := IntToStr(FNFSe.Servico.ItemServico[UltimoItem].CodigoMunicipio); NFSe.Servico.CodigoPais := FNFSe.Servico.ItemServico[UltimoItem].CodigoPais; NFSe.Servico.ItemListaServico := FNFSe.Servico.ItemServico[UltimoItem].ItemListaServico; NFSe.Servico.xItemListaServico := FNFSe.Servico.ItemServico[UltimoItem].xItemListaServico; NFSe.Servico.CodigoTributacaoMunicipio := FNFSe.Servico.ItemServico[UltimoItem].CodigoTributacaoMunicipio; NFSe.Servico.CodigoNBS := FNFSe.Servico.ItemServico[UltimoItem].CodigoNBS; NFSe.infNFSe.xNBS := FNFSe.Servico.ItemServico[UltimoItem].xNBS; ... FNFSe.Servico.ItemServico[UltimoItem].ItemListaServico entre outros, está Vazio, apagando a informação preenchida anteriormente. meu FormatoDiscriminacao está fdNenhum e por isso surgiu o erro agora... Podem verificar a correção, por favor?

Cidade/UF: Votorantim / SP Previsão de Mudança: a partir de 01/01/2026. Tipo de Mudança: Padrão Nacional Fonte/Documentação: https://www.votorantim.sp.gov.br/portal/noticias/0/3/15749/emissao-de-nota-fiscal-de-servico-eletronica-nfse-mudara-a-partir-de-1-de-janeiro-de-2026/ Cidade/UF: Indaiatuba / SP Previsão de Mudança: a partir de 01/01/2026. Tipo de Mudança: Padrão Nacional Fonte/Documentação: https://www.indaiatuba.sp.gov.br/comunicacao/imprensa/noticias/34847/indaiatuba-avanca-na-implantacao-da-nota-fiscal-de-servicos-eletronica-nacional-(nfs-e) Alteração realizada no arquivo ACBrNFSeXServicosRTC.ini

Bom dia Italo Teste feito e sim, resolveu o problema. Muito obrigado.

Boa tarde Italo Conforme retornado pelo provedor, no XML tem os caracteres &#xD;&#xA; que é a quebra de linha na tag <Discriminacao> Na procedure TACBrNFSeProviderDSF200.Configuracao tem seu tratamento na propriedade ConfigGeral.QuebradeLinha := '&#xD;&#xA;'; Jair 017117065-lista-nfse-con-lot-soap.xml 017122476-lista-nfse-con-lot-soap.xml

Boa tarde Italo. Ajustei a DSF.Provider como segue: adicionei StrUtilsEx em USES function TACBrNFSeXWebserviceDSF200.TratarXmlRetornado( const aXML: string): string; begin Result := inherited TratarXmlRetornado(aXML); Result := ParseText(AnsiString(Result), True, False); Result := FaststringReplace(Result, '&#xD;&#xA;', '!#xD;!#xA;', [rfReplaceAll]); Result := FaststringReplace(Result, '&', ' ', [rfReplaceAll]); Result := FaststringReplace(Result, '!#xD;!#xA;', '&#xD;&#xA;', [rfReplaceAll]); end; Dessa forma substituirá todos os & por espaço, mantendo os que compõem a expressão que pula linha. Obrigado DSF.Provider.pas

UNIT ACBrNFSeXWebserviceBase (modificada) function TACBrNFSeXWebservice.ExtrairRetorno(const ARetorno: string; responseTag: array of string): string; var Document: TACBrXmlDocument; ANode: TACBrXmlNode; I: Integer; xRetorno: string; begin Result := ''; xRetorno := TratarXmlRetornado(ARetorno); if xRetorno = '' then Exit; if not StringIsXML(xRetorno) then begin Result := xRetorno; Exit; end; if (Length(responseTag) = 0) then begin Result := xRetorno; Exit; end; Document := TACBrXmlDocument.Create; try xRetorno := ReplaceString( TratarXmlRetornado(ARetorno), 'R & J','R J'); // Forçando a remoção do & no nome do prestador apenas Document.LoadFromXml(xRetorno); //<== Gerava erro nesse ponto UNIT ACBrXmlDocument (não modifiquei) procedure TACBrXmlDocument.LoadFromXml(AXmlDocument: string); var loadedDoc: xmlDocPtr; loadedRoot: xmlNodePtr; begin loadedDoc := xmlParseDoc(PAnsiChar(ansistring(AXmlDocument))); A variável loadedDoc retornava vazia sem a remoção do & na razão social Na urgência tive que fazer o que não se faz...até termos a solução adequada. Obrigado

Bom dia Desde o dia 11/10, um único cliente que contém & na sua Razão Social no cadastro da prefeitura de Sorocaba(DSF) retorna o erro "xmlParseEntityRef: no name" ao enviar NFS e ao Consultar o Lote. Todos os demais clientes que emitem NFS estão obtendo o retorno normalmente. A NF é gerada e consta o lote de retorno, porém o componente dispara o erro acima e estão parados sem poder emitir notas. Provedor: DSF ERRO Código : X999 Erro de Conexão: xmlParseEntityRef: no name Correção: --------- Agradeço a atenção 1-env-lot-sinc.xml 1-env-lot-sinc-soap.xml 1-lista-nfse-sinc-soap.xml 017122476-con-lot.xml 017122476-con-lot-soap.xml 017122476-lista-nfse-con-lot-soap.xml

Bom dia! Ontem iniciei em um cliente a integração PIX com Banco do Brasil em produção com sucesso. Alguém já está utilizando os PSPs ITAÚ e SANTANDER pra saber se está tudo OK? Obrigado.

Italo, boa tarde. Fiz os testes e tudo OK Leitura do XML original e Observações Essas observações eu estava fazendo nas minhas emissões de notas e agora vou atualizar o sistema em um cliente que emite com mais frequência, mas acredito que não tenhamos maiores transtornos. Desde já meu muito obrigado pelos retornos. Abraço

Boa tarde Italo, Atualizei os fontes, reinstalei o ACBR e recompilei a aplicação, mas ainda retorna ERRO UTF ao ler o XML original. Vou anexar outro para novos testes. Outro ponto que notei. Na impressão da DANFE, os OBS (informações complementares) não eram exibidas..o provedor AcessorPublico aparentemente não tem um campo de OBS Gerais da NF apenas a tag <OBSSERVICO> e a DANFE exibe informações do objeto NFSe.OutrasInformacoes, então ajustei a unit AssessorPublico.LerXml.pas, linha 147 a 151 (segue em anexo). No meu envio das informações para o componente estou preenchendo os 2 campos Servico.Discriminacao e OutrasInformacoes com as observações da NF, onde Servico.Discriminacao chega ao WebService e registra na NF e OutrasInformacoes apenas caso queiram visualizar a NF antes da transmissão. A DANFE também não exibe o endereço, mas nesse caso no XML retornado do provedor, as tags estão em branco. Obrigado. AssessorPublico.LerXml.pas XML AcessorPublico.xml

Boa tarde Obrigado Italo. Erro 1) resolvido Erro 2) ainda permanece Numa reimpressão da Nota no sistema, estou salvando o XML original num arquivo, carrego em outro componente, trato as codificações, etc, salvo e depois carrego no ACBrNFSeX QR_NOTAnfe_xml.SaveToFile(GetEnvironmentVariable('TEMP')+'\temp.xml'); MemoResp.Lines.LoadFromFile(GetEnvironmentVariable('TEMP')+'\temp.xml'); if ACBrNFSeX1.Configuracoes.Geral.Provedor=proAssessorPublico then begin MemoResp.Lines.Text:=TratarXmlUTF8(MemoResp.Text); MemoResp.Lines.SaveToFile(GetEnvironmentVariable('TEMP')+'\temp.xml'); end; ACBrNFSeX1.NotasFiscais.LoadFromFile(GetEnvironmentVariable('TEMP')+'\temp.xml'); provedor ISSDSF (Sorocaba) não gera o erro do AssessorPublico(Votorantim) Obrigado.

Boa tarde, Não será por conta de que agora devemos passar como parâmetro o nr do protocolo que retorna no envio e não mais o nr lote? with ACBrNFSeX1.WebService do begin if Enviando then begin with Emite do begin NumLote:=Lote; NumProtocolo:=Protocolo; .... na consulta... ACBrNFSeX1.ConsultarLoteRps(NumProtocolo, NumLote); o erro HTTP 500 tem retornado constantemente, pois desde o dia 01/04 está muito instável o serviço, todo dia tem essas oscilações na conexão. Abraço!