jefferson01

Bom dia! A sefaz já ajustou o nProt, consulta a nfe que você precisa cancelar que já vai ter o retorno do protocolo com 15 dígitos.

Como não tem data prevista para essa mudança, acredito que foi um erro ter colocar "no ar" hoje, já que voltou a retornar 15. Para conseguir cancelar essa nota especifica alteramos a procedure Gerar_Evento_Cancelamento da unit ACBrNFe.EnvEvento.pas para aceitar 17 digitos no nProt.

Temos um cliente que não está conseguindo cancelar uma NF-e pois o protocolo recebido no envio tem tamanho de 17 e ao montar fica com 15, com isso não é possível cancelar. Sei da mudança prevista do tamanho e que foi um erro da sefaz retornar com tamanho 17 hoje, porém estamos no essa situação.

Fiz o teste aqui e está funcionando corretamente. Att. Jefferson

Boa tarde! Fiz o teste com a unit informado nesse tópico e agora está sendo passado corretamente a informação "paginacao.itensPorPagina=1000" na url da consulta quando usando o indicador pix igual a true. Agora retornou os 153 títulos, no nosso caso, corretamente. Fizemos também o teste usando o indicador pix igual a false e a informação "itensPorPagina=1000" na url da consulta ficou certo. Obrigado a todos.

Boa tarde, @Daniel InfoCotidiano Os testes que eu fiz, foram realizados com o programa exemplo.

Fiz o procedimento e continuo com o problema. O estranho é que utilizo a API do Banco Inter(V2 e V3 com PIX) e Itaú(Com PIX) sem problema nenhum.

@Juliomar Marchetti, se retiro json4delphi do path passa a apresentar erro em ACBrJSON. Diz que não encontrou Jsons.dcu. Utilizamos o Delphi 7.

@Juliomar Marchetti, Obrigado pelo retorno. Os fontes aqui estão atualizados. Att. Jefferson

Bom dia! Verificando em debug, percebemos que na geração do token o retorno está sendo o mesmo valor enviado no Body. Não sabemos o que estamos fazendo de erro. Os testes estão sendo realizados no aplicativo de exemplo. Segue anexo do que observamos.

Aqui é V3 também!

Bom dia! Também estou com problema ao gerar o token para o SIcoob. Segue baixo o log: 10/10/24 11:03:51:063 - Body Resposta (payload):client_id=XXXXXXXXXXXXXXXXXXX&scope=boletos_inclusao boletos_consulta boletos_alteracao&grant_type=client_credentials 10/10/24 11:03:51:063 - Falha Envio: Falha na Autenticação: HTTP_Code=500 Erro=client_id=XXXXXXXXXXXXXXXXXXXXXXXXXX&scope=boletos_inclusao boletos_consulta boletos_alteracao&grant_type=client_credentials 10/10/24 11:40:23:739 - Autenticando Token... 10/10/24 11:40:23:747 - Comando Enviar: TOAuth 10/10/24 11:40:23:747 - Header Envio:Authorization: Basic MGI0MjU2ODMtNTQzZS00MWNlLTkxZDYtM2VjNjg2NTliNTkzOjBiNDI1NjgzLTU0M2UtNDFjZS05MWQ2LTNlYzY4NjU5YjU5Mw== 10/10/24 11:40:23:747 - URL: [POST] https://auth.sicoob.com.br/auth/realms/cooperado/protocol/openid-connect/token 10/10/24 11:40:23:748 - Body Envio (Payload):client_id=XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX&scope=boletos_inclusao boletos_consulta boletos_alteracao&grant_type=client_credentials 10/10/24 11:40:23:821 - Erro: HTTP_Code=500 Erro=client_id=XXXXXXXXXXXXXXXXXXXXXXXX&scope=boletos_inclusao boletos_consulta boletos_alteracao&grant_type=client_credentials 10/10/24 11:40:23:822 - Header Resposta:POST /auth/realms/cooperado/protocol/openid-connect/token HTTP/1.1 Host: auth.sicoob.com.br Keep-Alive: 300 Connection: keep-alive User-Agent: Mozilla/4.0 (compatible; Synapse) Content-Type: application/x-www-form-urlencoded Content-Length: 134 Authorization: Basic MGI0MjU2ODMtNTQzZS00MWNlLTkxZDYtM2VjNjg2NTliNTkzOjBiNDI1NjgzLTU0M2UtNDFjZS05MWQ2LTNlYzY4NjU5YjU5Mw== Não sei o que estamos fazendo de errado. Se alguém puder orientar fico muito agradecido. Att. Jefferson

@Daniel InfoCotidiano, passei em Boleto.Cedente.CedenteWS.Scope := 'boleto-cobranca.write boleto-cobranca.read'; Muito obrigado pela atenção. Desculpe o incomodo ai! TMJ

Na função Enviar não é atualizado o Scope function TBoletoW_Inter_API.Enviar: boolean; var LJsonObject : TACBrJSONObject; begin Result := inherited Enviar; (* Tratamento automatico qdo tpINCLUI com pix. Entao ele vai enviar capturar a reposta para pegar o codigoSolicitacao e realizar uma consulta detalhe automaticamente para retornar o boleto com QrCODE *) if (Boleto.Cedente.CedenteWS.IndicadorPix) and (Boleto.Configuracoes.WebService.Operacao = tpInclui) then begin try LJsonObject := TACBrJSONObject.Parse( FRetornoWS ); if NaoEstaVazio(LJsonObject.AsString['codigoSolicitacao']) then begin ATitulo.NossoNumeroCorrespondente := LJsonObject.AsString['codigoSolicitacao']; Boleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe; GerarDados; Result := inherited Enviar; end; finally LJsonObject.Free; Boleto.Configuracoes.WebService.Operacao := tpInclui; end; end; end; eu já alterei passando "Boleto.Cedente.CedenteWS.Scope := 'boleto-cobranca.read';" antes de enviar a consulta mas não resolveu. Quando solicito a baixa ou quando faço a consulta sempre atualizo o Scope, porém, "parece" que não está atualizando. faço assim /*Consulta*/ Boleto.Cedente.CedenteWS.Scope := 'boleto-cobranca.read'; Boleto.Configuracoes.WebService.Operacao := tpConsulta; /*Consulta Detalhe*/ Boleto.Cedente.CedenteWS.Scope := 'boleto-cobranca.read'; Boleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe; /*Baixa*/ Boleto.Cedente.CedenteWS.Scope := 'boleto-cobranca.write'; Boleto.Configuracoes.WebService.Operacao := tpBaixa; /*Incluir*/ Boleto.Cedente.CedenteWS.Scope := 'boleto-cobranca.write'; Boleto.Configuracoes.WebService.Operacao := tpInclui;

Uma coisa estranha que estou observando é que se fizer solicitações diferentes da o problema, por exemplo, se abrir o programa e solicitar a baixa de um boleto, faz correto e depois eu consultar da o erro de 13/09/24 15:43:09:230 - Retorno Envio: Result={"message":"Faltando escopos necessários."}. Se eu fechar o programa e abrir novamente consigo fazer a consulta. Não consegui encontrar o motivo. Acredito que deve ser o mesmo motivo de apresentar essa mensagem ao incluir, já que faz o envio e depois a consulta. *** O ambiente de produção está OK. ***