NFS-e : Padrao Nacional para MEI

[Mario Inacio]

Italo, no teste ocorre o mesmo erro:

[Italo Giurizzato Junior]

Boa tarde Mario,

Pelo amor de Deus, vamos configurar o componente da forma correta?

[Mario Inacio]

Bom dia.

O Print foi errado, mas já havia testado dessa forma.

15-ger-nfse.json 15-ger-nfse-soap.json 15-lista-nfse-ger.json 15-lista-nfse-ger-soap.json ACBrNFSeX_Exemplo.ini

[Mario Inacio]

Italo.

O erro ocorre nesse ponto, ao ler a terceira vez o Response.Erros na Unit PadraoNacional.Provider

[Italo Giurizzato Junior]

Bom dia Mario,

O Json retornado que você anexou é:

{"tipoAmbiente":1,
"versaoAplicativo":"SefinNacional_1.0.0",
"dataHoraProcessamento":"2023-09-28T08:15:13.4054257-03:00",
"idDPS":"DPS421380720948876900017500900000000000000015",
"erros":[
 {"Parametros":null,
  "Codigo":"E0160",
  "Descricao":"No mês de competência da NFS-e, a opção de situação perante o Simples Nacional, do prestador, informada na DPS não está de acordo com o cadastro Simples Nacional."
 }
 ]
}

No teste que fiz é:

{"tipoAmbiente":2,
 "versaoAplicativo":"Testes_0.1.0",
 "dataHoraProcessamento":"2023-09-28T10:00:16.0126611-03:00",
 "idDPS":"DPS350320822940647500016400900000000000000001",
 "erros":[
  {"Parametros":null,
   "Codigo":"E0034",
   "Descricao":"A situação do convênio do município emissor informado na DPS deve ser \"ATIVO\" no cadastro de convênio municipal do sistema nacional."
  }
 ]
}

Vamos levar em consideração somente aos nomes dos objetos e não o seu conteúdo.

Note que a estrutura dos Json é exatamente igual.

Resultado:

Como você pode ver não ocorreu erro de AV.

Para mim, existe no HD da sua maquina copias antigas dos fontes que o Delphi esta tendo acesso, logo ele esta usando os fontes antigos em vez dos atualizados, ou copias de DCU antigas na pasta do programa exemplo ou em outra pasta que o Delphi esta tendo acesso.

 

[Mario Inacio]

Italo,

Ta complicado de encontrar o motivo desse AV.

- Rodei o Bat "apagaACBR" da pasta do ACBr

- Removi a pasta do acbr

- Baixei tudo

- Ao instalar, marquei a opção de Remover arquivos antigos

- Abri o projeto demo, executei um Build.

 

E continua a mesma coisa.

 

Uso Windows 7  sem antivirus

Pode me enviar o executavel compilado?

[Mario Inacio]

Acabei de testar no Windows 11 com Rad 11.3 e não ocorreu o AV com o mesmo INI.

O windows 7 esta numa maquina virtual com Delphi7

 

[Italo Giurizzato Junior]

Bom dia Mario,

O problema então esta relacionado com a versão do Delphi.

Vou passar o problema para o pessoal que escreveu a classe Json.

[Mario Inacio]

Bom dia.

Alguma novidade?

[Diego Foliene]

6 minutos atrás, Mario Inacio disse:

Bom dia.

Alguma novidade?

Bom dia!

Sim! Foi enviado ao SVN alteração visando sanar este problema na Rev-30837.

Por favor, queira atualizar seus fontes, reinstalar o ACBr para realizar novos testes e reportar qualquer problema.

[Mario Inacio]

Boa tarde Diego.

Erro AV corrigido e NFS-e aprovada.

 

Agora estou testando o cancelamento com o código:

                  with InfEvento.pedRegEvento do begin
                     tpAmb          := iNFSe.Configuracoes.WebServices.AmbienteCodigo;
                     verAplic       := 'ACBrNFSeX-1.0';
                     dhEvento       := Now;
                     chNFSe         := '42177092223253393000140000000000002423106094041473';
                     nPedRegEvento  := 1;
                     tpEvento       := teCancelamento;
                     cMotivo        := 1;
                     xMotivo        := 'Erro no preenchimento dos dados';
                  end;
                  with fMenu.iNFSe do begin
                     EnviarEvento(InfEvento);
                     ConsultarEvento(InfEvento.pedRegEvento.chNFSe,
                                     WebService.EnviarEvento.tpEvento,
                                     WebService.EnviarEvento.nSeqEvento);
                     with WebService.ConsultarEvento do
                        GeraException(Erros,Alertas);
                  end;

O cancelamento é feito com sucesso.

 

Mas fiz um teste informando uma chave inválida e o WebService.ConsultarEvento.Erros não retorna nenhum erro, sendo que a chave é inválida.

[Italo Giurizzato Junior]

Boa tarde Mario,

Como o problema inicial foi sanado, vou fechar este tópico.

Por favor criei um novo tópico relatando o problema que você esta tendo com o envio de evento de cancelamento.

Desde já muito obrigado pelo retorno e pela compreensão.