Provedor IPM : Acesso Negado : Cidade: Praia Grande (SC)

[Mario Inacio]

Boa tarde.

Estou configurando a cidade de Praia Grande (SC) que migrou recentemente para a IPM.

Não consigo fazer uma transmissão de nenhuma NFS-e, retornando sempre acesso negado.

[4213807]
; Incluído em 11/10/2022
Nome=Praia Grande
UF=SC
Provedor=IPM
Versao=1.01
Params=NaoGerarGrupoRps
ProRecepcionar=https://praiagrande.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao
HomRecepcionar=https://homologacao.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=integracoes&eletron=1
 

Cliente habilitado para utilizadar o WS e só recebo 'Acesso Negado'

log.rar

[Diego Foliene]

16 minutos atrás, Mario Inacio disse:

Boa tarde.

Estou configurando a cidade de Praia Grande (SC) que migrou recentemente para a IPM.

Não consigo fazer uma transmissão de nenhuma NFS-e, retornando sempre acesso negado.

[4213807]
; Incluído em 11/10/2022
Nome=Praia Grande
UF=SC
Provedor=IPM
Versao=1.01
Params=NaoGerarGrupoRps
ProRecepcionar=https://praiagrande.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao
HomRecepcionar=https://homologacao.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=integracoes&eletron=1
 

Cliente habilitado para utilizadar o WS e só recebo 'Acesso Negado'

log.rar 2 kB · 0 downloads

Boa tarde!
Você configurou o usuário e a senha desse cliente ao emitir a nota pelo ACBrNFSeX?
No programa exemplo eles podem ser configurados como no Print.

Configurando direto no componente você alimenta as propriedades:

ACBrNFSeX.Configuracoes.Geral.Emitente.WSUser;
ACBrNFSeX.Configuracoes.Geral.Emitente.WSSenha;

 

[Mario Inacio]

Bom dia.

Sim, configurei usuario e senha como pede e continuo com o mesmo problema.

Até a IPM me passou outro endereço mas continua acesso negado.

https://praiagrande.atende.net/?pg=rest&service=WNERestServiceNFSe

[Renato Rubinho]

Boa tarde Mario,

Aparentemente o usuário e senha seguem incorretos ou não preenchidos.

Faça um teste com o programa de exemplo preenchendo os campos conforme o Diego indicou e revise as configurações de SSL.

[Mario Inacio]

Ola Renato.

Realmente havia salvo a senha em maiusculo.

Obrigado pelo auxílio

[Diego Foliene]

1 hora atrás, Mario Inacio disse:

Ola Renato.

Realmente havia salvo a senha em maiusculo.

Obrigado pelo auxílio

Deu certo então?

[Mario Inacio]

Bom dia.

Sim, consegui agora pela manhã autorizar e cancelar com sucesso.

Segue arquivo com a cidade incluida.

ACBrNFSeXServicos.ini

[Diego Foliene]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn #TK-3163

[Italo Giurizzato Junior]

Bom dia Mario,

Já esta no SVN.

[Mario Inacio]

Boa tarde.

Surgiu uma situação no mesmo Provedor.

A NFSe é validada mas o componente está criando uma nova nota e só consigo pega o "nomearq" no item 1.

NotasFiscais.Items[0].NomeArq = vazio

NotasFiscais.Items[1].NomeArq = Contem o nome correto do arquivo salvo 

 

 

[Mario Inacio]

Bom dia.

Debugando, notei que duplica no trecho mencionado no código em anexo.

procedure TACBrNFSeXProvider.ConsultaLoteRps;
var
  AService: TACBrNFSeXWebservice;
  AErro: TNFSeEventoCollectionItem;
begin
  TACBrNFSeX(FAOwner).SetStatus(stNFSeConsulta);

  PrepararConsultaLoteRps(ConsultaLoteRpsResponse);
  if (ConsultaLoteRpsResponse.Erros.Count > 0) then
  begin
    TACBrNFSeX(FAOwner).SetStatus(stNFSeIdle);
    Exit;
  end;

  AssinarConsultaLoteRps(ConsultaLoteRpsResponse);
  if (ConsultaLoteRpsResponse.Erros.Count > 0) then
  begin
    TACBrNFSeX(FAOwner).SetStatus(stNFSeIdle);
    Exit;
  end;

  ValidarSchema(ConsultaLoteRpsResponse, tmConsultarLote);
  if (ConsultaLoteRpsResponse.Erros.Count > 0) then
  begin
    TACBrNFSeX(FAOwner).SetStatus(stNFSeIdle);
    Exit;
  end;

  AService := nil;

  try
    try
      TACBrNFSeX(FAOwner).SetStatus(stNFSeEnvioWebService);

      AService := CriarServiceClient(tmConsultarLote);
      AService.Prefixo := ConsultaLoteRpsResponse.Protocolo;
      ConsultaLoteRpsResponse.ArquivoRetorno := AService.ConsultarLote(ConfigMsgDados.DadosCabecalho, ConsultaLoteRpsResponse.ArquivoEnvio);

      ConsultaLoteRpsResponse.Sucesso := True;
      ConsultaLoteRpsResponse.EnvelopeEnvio := AService.Envio;
      ConsultaLoteRpsResponse.EnvelopeRetorno := AService.Retorno;
    except
      on E:Exception do
      begin
        AErro := ConsultaLoteRpsResponse.Erros.New;
        AErro.Codigo := Cod999;
        AErro.Descricao := Desc999 + E.Message;
      end;
    end;
  finally
    FreeAndNil(AService);
  end;

  if not ConsultaLoteRpsResponse.Sucesso then
  begin
    TACBrNFSeX(FAOwner).SetStatus(stNFSeIdle);
    Exit;
  end;

  TACBrNFSeX(FAOwner).SetStatus(stNFSeAguardaProcesso);
  TratarRetornoConsultaLoteRps(ConsultaLoteRpsResponse); //Aqui duplicou a notafiscal
  TACBrNFSeX(FAOwner).SetStatus(stNFSeIdle);
end;

[Italo Giurizzato Junior]

Bom dia Mario,

Você esta com todos os fontes de todas as pastas atualizados?

Não tem nenhuma unit do componente com uma bolinha vermelha em seu ícone?

Reinstalou o ACBr?

Recompilou a aplicação com a opção Build?

[Mario Inacio]

Bom dia Italo.

Mesmo já estando tudo atualizado, refiz novamente agora, apaguei toda a pasta do componente, marquei a opção de limpar ao reinstalar e continua duplicando a Nota Fiscal no mesmo local.

[Italo Giurizzato Junior]

Mario,

Você consegue debugar a procedure TratarRetornoConsultaLoteRps que esta na unit IPM.Provider?

Preciso saber os valores de NumRps e Response.NumeroNota.

Antes da consulta, você esta carregando o XML do Rps?

Se sim, experimenta não carregar.

[Mario Inacio]

Ola Italo.

Debugando:

NumRps está vazio

Response.NumeroNota contem 47

 

segue anexo conteudo vindo em Response.ArquivoRetorno

ResponseArquivoRetorno.txt

[Italo Giurizzato Junior]

Boa tarde Mario,

O provedor não esta retornando o grupo <rps> que contém o número do mesmo.

Isso explica o valor vazio da variável NumRps.

O FindByNFSe procura na lista NotasFiscais um item que contém o número da nota.

Como o componente esta carregado com as informações do Rps o FindByNFSe não o encontra e acaba adicionando um novo item na lista NotasFiscais com as informações da nota.

Já que o provedor esta se comportando dessa forma, não vejo outra alternativa limpar a lista NotasFiscais antes de executar essa consulta.

[Mario Inacio]

Ola Italo.

Realmente, limpando a lista de Notas funcionou corretamente.

Criei uma regra apenas para eles no momento.

O único problema que ainda persiste é que não esta emitindo os dados do Prestador no DANFSE.

 

NFS-e 54.pdf 4222107994642200010456000000000000054-nfse.xml

[Italo Giurizzato Junior]

Mario,

Isso ocorre porque no XML da nota não contém os dados dele.

A solução para este caso é informar os dados do prestador nas propriedades de configuração do DANFSE.

[Mario Inacio]

Ola Italo.

Ia fazer essa colocação agora sobre isso.

Vou fazer a inserção manual do Prestador.

Obrigado 

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.