Sandro Felipe Adad

Esta identica a minha, as ultimas alteracoes que tenho na pasta AcbrDfe em anexo. ACBrDFeSSL.pas ACBrXmlBase.pas ACBrXmlDocument.pas ACBrXmlWriter.pas ACBrXmlReader.pas ACBrLibXml2.pas

Pra mim esta normal, tanto em homologação quanto em produção, me mande uma mensagem com seu email vou te encaminhar um video, mas o video ficou maior que 2mb...

Meu esta assim no ACBrNFSeXServicos.ini, usei o compilares.bat. [4109401] ; Atualizado em 23/08/2021 Nome=Guarapuava UF=PR Provedor=IPM_110 ProRecepcionar=https://guarapuava.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao HomRecepcionar=https://migracao.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=treina_guarapuava_integracao Os demais arquivos em anexo, nao posso pegar atualizacoes do repositorio no momento, devido a outros componentes que utilizo pra verificar. IPM.LerXml.pas IPM.Provider.pas IPM.GravarXml.pas

ok, voce esta certo, confundi os campos Servico.Valores.ValorIssRetido x Servico.Valores.ValorIss, nesse provedor só tem uma tag (valor_issrf).

URL de produção https://guarapuava.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao?eletron=1 Ta sobrando esse eletron Houve alteração no .ini, mas o Italo ja esta a par e corrigindo.

Mas encontrei outro problema, no IPM.gravavar.pas Gerando sempre retenção: Result[i].AppendChild(AddNode(tcDe2, '#', 'valor_issrf', 1, 15, 0, NFSe.Servico.ItemServico[I].ValorISS, DSC_VISS)) mudei de volta para Result[i].AppendChild(AddNode(tcDe2, '#', 'valor_issrf', 1, 15, 0, NFSe.Servico.ItemServico[I].ValorIr, DSC_VISS)) Houve alteração no .ini, mas o Italo ja esta a par e corrigindo.

Sim, tem de remover ai voltou a funcionar.

Apenas corrigir o .ini

URL de produção https://guarapuava.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao?eletron=1 Ta sobrando esse eletron

Fiz a mesma consulta com o programa que meu cliente esta rodando (versao ate ontem do acbr) e a consulta de hoje com os mesmos dados, mas com o acbr atualizado hoje que ta retornando o erro de config, mas nao parece ser nada no xml, sera no envio? hoje_7583738032207714738720220831082021148608-lista-nfse-con-lot.xml hoje_7583738032207714738720220831082021148608-lista-nfse-con-lot-soap.xml hoje_7583738032207714738720220831082021148608-con-lot.xml 7583738032207714738720220831082021148608-con-lot.xml 7583738032207714738720220831082021148608-con-lot-soap.xml 7583738032207714738720220831082021148608-lista-nfse-con-lot.xml 7583738032207714738720220831082021148608-lista-nfse-con-lot-soap.xml hoje_7583738032207714738720220831082021148608-con-lot-soap.xml

Creio que não seja o caso, até a consulta esta retornando erro de CONFIG... 7583738027207714738720220826082021124728-con-lot.xml 7583738027207714738720220826082021124728-con-lot-soap.xml 7583738027207714738720220826082021124728-lista-nfse-con-lot.xml 7583738027207714738720220826082021124728-lista-nfse-con-lot-soap.xml temp.xml

Nos meus testes ja estava gerando Part_1 e não estava ocorrendo erro...

8-env-lot-soap.xml O 8 era como estava antes, e o 44 foi hoje. 44-env-lot-soap.xml 44-rec-soap.xml

Config Invalido no programa de testes tambem.

Italo, mais alguns ajustes que fiz na procedure procedure TACBrNFSeProviderIPM.TratarRetornoCancelaNFSe, para sua aprovação. //Response.Sucesso := (Response.Erros.Count = 0); if Response.Erros.Count > 0 then if Response.Erros[0].Codigo='00001 - Sucesso' then Response.Sucesso := True; with Response do begin NumeroNota := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('numero_nfse'), tcInt); // SerieNota := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('serie_nfse'), tcInt); Data := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('data_nfse'), tcDatVcto); Link := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('link_nfse'), tcStr); Protocolo := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('cod_verificador_autenticidade'), tcStr); Situacao := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('situacao_codigo_nfse'), tcStr); IPM.Provider.pas

Confere a tua serie, parece estar indo sujeira "1 " com espaço a direita do 1.

Pra fim funcionou o cancelamento no programa de exemplo, so nao esta carregando o response. Eu informei o numero, serie, motivo. 21-ped-can.xml 21-ped-can-soap.xml 21-can.xml 21-can-soap.xml

7583738027207714738720220826082021194728-con-lot.xml 7583738027207714738720220826082021194728-con-lot-soap.xml 7583738027207714738720220826082021194728-lista-nfse-con-lot.xml 7583738027207714738720220826082021194728-lista-nfse-con-lot-soap.xml

O retorno da consulta do lote vem conforme o anexo, e sim, o xml de retorno do envio de lote é diferente do xml de consulta. 7583738027207714738720220826082021194728-lista-nfse-con-lot.xml

Qual a correção que você efetuou? anexe para o Italo analisar.

Concordo com você e a respeito da situação: (tem um campo numérico no retorno sim - ajustado situacao_codigo_nfse). Situacao := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('nf').Childrens.FindAnyNs('situacao_codigo_nfse'), tcStr); IPM.Provider.pas

Precisei efetuar alguns ajustes no metodo de consulta do lote rps, nao estava carregando na response. if Response.Erros.Count > 0 then if Response.Erros[0].Codigo='00001 - Sucesso' then Response.Sucesso := True; with Response do begin NumeroNota := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('nf').Childrens.FindAnyNs('numero_nfse'), tcInt); // SerieNota := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('serie_nfse'), tcInt); Data := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('nf').Childrens.FindAnyNs('data_nfse'), tcDatVcto); Link := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('nf').Childrens.FindAnyNs('link_nfse'), tcStr); Protocolo := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('nf').Childrens.FindAnyNs('cod_verificador_autenticidade'), tcStr); Situacao := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('nf').Childrens.FindAnyNs('situacao_descricao_nfse'), tcStr); end; IPM.Provider.pas

Deu certo, outra dúvida, no NFSE antigo eu informava o valor retido do ISS em Servico.Valores.ValorIssRetido, mas aqui na geração da IPM (IPM.GravarXML) pega para preencher a tag 'valor_issrf' o valor de NFSe.Servico.ItemServico[I].ValorIr, creio que não esteja ok? mas não encontrei o campo correto na classe... Result[i].AppendChild(AddNode(tcDe2, '#', 'valor_issrf', 1, 15, 0, NFSe.Servico.ItemServico[I].ValorIr, DSC_VISS))

Italo, estou alterando o IPM.Provider, veja se ok. procedure TACBrNFSeProviderIPM.TratarRetornoEmitir 1) Mesmo com sucesso no envio, está incluindo um item de mensagem de erro, ajustei da seguinte maneira: Response.Sucesso := Response.Erros[0].Codigo ='00001 - Sucesso'; //(Response.Erros.Count = 0); 2) O numero do protocolo para consulta é o codigo de verificacao de autenticidade: Protocolo := ProcessarConteudoXml(ANode.Childrens.FindAnyNs('cod_verificador_autenticidade'), tcStr); Segue para sua análise. IPM.Provider.pas

Perfeito Italo, resolvido! Muito obrigado.