mdogomes

Bom dia, Atualizei os fontes e tudo ok, obrigado.

Segue as alterações feitas: Foi necessário adicionar no arquivo ACBrNFSeXServicos.ini o parametro "SolicitarCancelamento" para a cidade de Cascavel-PR: [4104808] ; Atualizado em 19/10/2021 Nome=Cascavel UF=PR Provedor=IPM Versao=1.01 Params=NaoGerarGrupoRps:|SolicitarCancelamento: ; ProRecepcionar=https://cascavel.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao&eletron=1 HomRecepcionar=https://homologacao.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=integracoes&eletron=1

Boa tarde, com essa versão deu certo, lembrando que foi necessário adicionar os parametros no arquivo ACBrNFSeXServicos.ini. Obrigado.

with Response do begin NumeroNota := ObterConteudoTag(ANode.Childrens.FindAnyNs('numero_nfse'), tcStr); SerieNota := ObterConteudoTag(ANode.Childrens.FindAnyNs('serie_nfse'), tcStr); Data := ObterConteudoTag(ANode.Childrens.FindAnyNs('data_nfse'), tcDatVcto); Data := Data + ObterConteudoTag(ANode.Childrens.FindAnyNs('hora_nfse'), tcHor); Situacao := ObterConteudoTag(ANode.Childrens.FindAnyNs('situacao_codigo_nfse'), tcStr); DescSituacao := ObterConteudoTag(ANode.Childrens.FindAnyNs('situacao_descricao_nfse'), tcStr); Link := ObterConteudoTag(ANode.Childrens.FindAnyNs('link_nfse'), tcStr); Link := StringReplace(Link, '&', '&', [rfReplaceAll]); Protocolo := ObterConteudoTag(ANode.Childrens.FindAnyNs('cod_verificador_autenticidade'), tcStr); CodigoVerificacao := Protocolo; end; Quando vai atribuir o NumerodaNota já ocorre o erro, por não ser uma nota completa.

Bom dia, Fiz o teste e agora ele ficou como nota completa, porém o XML que retorna não é de nota completa e no método TACBrNFSeProviderIPM.TratarRetornoCancelaNFSe agora dá erro de memória devido ao ANode estar nulo. 755-can.xml

Boa tarde, Desculpe a demora. Segue em anexo a unit que foi necessário alterar. IPM.Provider.pas

Boa tarde, Fiz mais uns testes e foi necessário fazer mais uma alteração na Unit IPM.Provider foi necessário alterar a procedure "procedure TACBrNFSeProviderIPM.TratarRetornoCancelaNFSe" Como estava: NotaCompleta := (Pos('<nfse>', Response.ArquivoRetorno) > 0) Como ficou: NotaCompleta := (Pos('<nfse>', Response.ArquivoRetorno) > 0) and (ANota.NFSe.NfseSubstituida = ''); A alteração foi necessária pois caso fique como NotaCompleta ele tenta verificar se o ANodeArray está assigned causando erro. no seguinte trecho de código: if NotaCompleta then begin if not Assigned(ANodeArray) and (Response.Sucesso) then begin AErro := Response.Erros.New; AErro.Codigo := Cod203; AErro.Descricao := ACBrStr(Desc203); Exit; end; ...

Na implementação do cancelamento para cidade de Cascavel-PR para o Provedor IPM identifiquei os seguintes problemas: 1- Na Unit IPM.Provider foi necessário alterar a procedure "procedure TACBrNFSeProviderIPM.TratarRetornoCancelaNFSe", pois o metódo não conseguia tratar o retorno visto que o XML vinha com um padrão diferente e a tag <nfse> não era encontrada, foi necessário realizar a seguinte alteração: (Segue em exemplo um XML de solicitação de cancelamento em anexo). ANode := Document.Root; if Document.Root.Name <> 'nfse' then begin ANode := ANode.Childrens.Find('documentos'); ANode := ANode.Childrens.Find('nfse'); end; ProcessarMensagemErros(ANode, Response); 2- Foi necessário adicionar no arquivo ACBrNFSeXServicos.ini o parametro "SolicitarCancelamento" para a cidade de Cascavel-PR: [4104808] ; Atualizado em 19/10/2021 Nome=Cascavel UF=PR Provedor=IPM Versao=1.01 Params=NaoGerarGrupoRps:|SolicitarCancelamento: ; ProRecepcionar=https://cascavel.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao&eletron=1 HomRecepcionar=https://homologacao.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=integracoes&eletron=1 15702-can.xml

Ok, obrigado pela ajuda.

Boa Tarde, Estou tentando fazer a consulta por RPS no provedor Equiplano, porém não está retornando status de autorizado o uso, posso assumir que se estiver vindo código de verificação a nota está autorizada? Segue em anexo o XML de retorno. consulta.xml

Bom dia, no arquivo do ACBr, estava configurado para mandar na versão 2.03 e estava retornando o erro (CE49): Versão do modelo ABRASF indicada não está vigente. consegui enviar a NFSe alterando a versão para 1.00. Segue o que foi alterado: Nome=Medianeira UF=PR Provedor=Pronim Versao=1.00 ProRecepcionar=http://nfse2.medianeira.pr.gov.br/nfse.portal.integracao/Services.svc HomRecepcionar=http://nfse2.medianeira.pr.gov.br/nfse.portal.integracao.teste/Services.svc

Bom dia, Fiz os testes para a cidade de Bandeirantes-PR [4102406] e verifiquei que a cidade ainda não está cadastrada no arquivo ACBrNFSexServicos.ini. Fiz a alteração do arquivo e inclui a cidade, fiz os testes em homologação e funcionou tudo ok. Segue o arquivo com a cidade inclusa. ACBrNFSeXServicos.ini

Atualizei o ACBr, tudo Ok.

Boa Tarde, Estou fazendo testes no ambiente de homologação de Bandeirantes-PR e estou tendo o seguinte problema na tag <nfse:ItemListaServico>01.01</nfse:ItemListaServico>, pelo fato de estar adicionando o 0 a esquerda, recebo o seguinte erro: E30 : Item da lista de serviço inexistente. Consegui resolver o problema adicionando a linha na unit SimplISS.GravarXml na procedure TNFSeW_SimplISS.Configuracao: FormatoItemListaServico := filsComFormatacaoSemZeroEsquerda;