Erro Envio de titulos ACBrBoleto Pix - Banco Santander

[automacaosamos]

Olá 

estou tendo essa exceção ao enviar.

17:46:03 Retorno.Enviar: empresa Lista de Boletos está vazia
17:46:57 ACBrBoletoLocal.Enviar: empresa Erro: TBoletoW_SantanderMetodo DefinirServicoEAction nao Implementado 

envio em anexo o meu ACBrBoleto.ini

pode ser configuração incorreta ?

Obrigado

Lazarus 3.4  - FPC: 3.2.2

empresa_9999999000199_51.ini

[Juliomar Marchetti]

antes de enviar tu deve adicionar os titulos. está faltando isso ou tu mandou o comando limpar os titulos antes

[automacaosamos]

Citar

obrigado por responder

sim sempre faço 

            ACBrBoletoLocal.ListadeBoletos.Clear;
            ACBrTitulosLocal                                                                 := ACBrBoletoLocal.CriarTituloNaLista;
            ACBrBoletoLocal.Configuracoes.WebService.Operacao := tpInclui;
            ACBrBoletoLocal.Configuracoes.WebService.TimeOut   := 30000;               

 

 

[Juliomar Marchetti]

Faz um debug e confere pois ao que tudo indica em algum momento está limpando os titulos e por isso ocorre.

está usando o componente certo. vi o ini acima

[automacaosamos]

Fiz as correções, mas agora na hora de receber o retorno do banco dá esse erro que esta no LOG em anexo.  Funciona no Banco do Brasil e SICRED, mas num sei se no SANTANDER é diferente.

 try

                        ACBrBoletoLocal.Enviar;

                        if ACBrBoletoLocal.TotalListaRetornoWeb > 0 then
                          begin
                            for Retornado := 0 to Pred(ACBrBoletoLocal.TotalListaRetornoWeb) do
                              begin
                                varRejeicoes   := '';
                                varQRPix       := '';
                                varBarras      := '';
                                for Rejeitados := 0 to Pred(ACBrBoletoLocal.ListaRetornoWeb[Retornado].ListaRejeicao.Count-1) do
                                  begin
                                    varRejeicoes := 'Campo='      + StrAllTrim(ACBrBoletoLocal.ListaRetornoWeb[Retornado].ListaRejeicao[Rejeitados].Campo)      + '|' +
                                                    'Codigo='     + StrAllTrim(ACBrBoletoLocal.ListaRetornoWeb[Retornado].ListaRejeicao[Rejeitados].Codigo)     + '|' +
                                                    'Versao='     + StrAllTrim(ACBrBoletoLocal.ListaRetornoWeb[Retornado].ListaRejeicao[Rejeitados].Versao)     + '|' +
                                                    'Mensagem='   + StrAllTrim(ACBrBoletoLocal.ListaRetornoWeb[Retornado].ListaRejeicao[Rejeitados].Mensagem)   + '|' +
                                                    'Ocorrencia=' + StrAllTrim(ACBrBoletoLocal.ListaRetornoWeb[Retornado].ListaRejeicao[Rejeitados].Ocorrencia) + '#';
                                  end;
                                if StrEmpty(varRejeicoes) then
                                  begin
                                    JSONData       := GetJSON(ACBrBoletoLocal.ListaRetornoWeb[Retornado].JSON);
                                    varQRPix       := JSONData.FindPath('qrCode').AsString;
                                    varBarras      := JSONData.FindPath('codigoBarras').AsString;
                                  end;
                              end;
                          end;
                      except
                        on e: exception do
                          begin
                            gera_log(TimeToStr(Time) + ' ACBrBoletoLocal.Enviar: ' + StrClienteURL[0] + ' ' + e.message);
                            Exit;
                          end;
                      end;

                   
 

 

 

ACBrBoletoDemo.ini Santander_51.log