mlgoncalves

Olá pessoal, A unit ACBrBoletoW_Santander_API está apresentando erro no momento de gerar a tag 'messages' que contém as mensagens do boleto. procedure TBoletoW_Santander_API.GerarMensagens(AJson: TACBrJSONObject); var LJsonArray: TACBrJSONArray; I: Integer; begin if Assigned(ATitulo) and Assigned(AJson) then begin LJsonArray := TACBrJSONArray.Create; for I := 0 to PRed(ATitulo.Mensagem.Count) do begin //está dando erro na linha abaixo. ATitulo.Mensagem[I] = 'Teste' // LJsonArray.AddElementJSONString(ATitulo.Mensagem[I]); //fiz o ajuste abaixo para funcionar LJsonArray.AddElement(ATitulo.Mensagem[I]); end; AJson.AddPair('messages',LJsonArray); end; end; Não sei se é a melhor forma de se fazer, mas está funcionando. Segue em anexo a unit modificada e ficamos no aguardo do devido ajuste. Atc, Marcelo Gonçalves ACBrBoletoW_Santander_API.rar Segue link do manual de montagem do JSON para esclarecer eventual dúvida. https://developer.santander.com.br/api/documentacao/api-de-emissao-de-boletos#/paths/workspaces-workspace_id--bank_slips/post

Bom dia, Juliomar! Muito obrigado pelo retorno. SVN conferido. Pode fechar o tópico.

Bom dia, Ítalo! Muito obrigado pelo retorno. Conferido no SVN. Pode fechar o tópico

Boa tarde! Estou enviando nova versão da unit. A versão anterior estava com erro. PagFor.BancodoBrasil.GravarTxtRemessa.rar

Boa tarde! Baixei atualização do ACBr e fiz novamente o ajuste na unit que está em anexo. Favor validar e subir para o SVN. Atenciosamente, ACBrBoletoW_Santander_API.rar

Boa tarde! Baixei atualização do ACBr e ajustei o FGTS DIGITAL conforme unit em anexo. Favor validar a alteração e subir para o SVN. Atenciosamente, PagFor.BancodoBrasil.GravarTxtRemessa.rar

Bom dia, Italo! Conferido e muito obrigado. Pode fechar o tópico.

Boa tarde! Por favor validem as alterações e se precisar de algum ajuste é só falar. Atenciosamente,

Boa tarde! Por favor validem as alterações e se precisar de algum ajuste é só falar. Atenciosamente,

Boa tarde! Por favor validem o procedimento. Se tiver que alterar alguma coisa é só avisar que iremos providenciar. No aguardo.

Prezados, boa tarde! Para processar corretamente o arquivo retornado do Banco do Brasil foi necessário descomentar a linha que faz a leitura do registro complementar Z do seguimento A. Fizemos todos os testes e está ok. Antes era: // LerSegmentoZ(PagFor.Lote.Last.SegmentoA.Last.SegmentoZ, I); E agora passou a: LerSegmentoZ(PagFor.Lote.Last.SegmentoA.Last.SegmentoZ, nLinha); Estou anexando a unit modificada e o layout do banco para quaisquer dúvidas. Favor validar este post e subir para o SVN. Atenciosamente, Marcelo Gonçalves PagFor.BancodoBrasil.LerTxtRetorno.rar PgtVer03BB.rar Trecho de arquivo segmento A retornado do banco.rar

Bom dia, pessoal! Vocês poderiam validar esse tópico, por favor?

Pessoal, boa tarde! Precisei de ajustar o layout do Banco do Brasil para compatibilizar com as novas orientações para pagamento do FGTS Digital. Estou anexando o manual do Banco do Brasil e a unit alterada. Solicito que as alterações feitas sejam ratificadas e subidas para o SVN. Atenciosamente, Marcelo Gonçalves Cnab240 para FGTS Digital v. 1.1. de 06.03.2024.pdf PagFor.BancodoBrasil.GravarTxtRemessa.rar

Boa tarde! Favor incluir a informação da quantidade de dias para baixa de boleto não liquidado no JSON a ser enviado ao banco. O manual diz em https://developer.santander.com.br/api/documentacao/api-de-emissao-de-boletos#/paths/workspaces-workspace_id--bank_slips/post writeOffQuantityDays string Quantidade de dias para baixa >= 1 characters<= 2 characters Example: 32 Match pattern: \d{1,2} Fizemos a alteração na unit ACBrBoletoW_Santander_API.pas conforme trecho abaixo, e anexamos o arquivo completo com a modificação. procedure TBoletoW_Santander_API.GerarProtesto(AJson: TJsonObject); begin if Assigned(ATitulo) then begin with ATitulo do begin if Assigned(AJson) then begin if DiasDeProtesto = 0 then begin AJson.Add('protestType').Value.AsString := 'SEM_PROTESTO'; end else begin case TipoDiasProtesto of diCorridos: AJson.Add('protestType').Value.AsString := 'DIAS_CORRIDOS'; diUteis: AJson.Add('protestType').Value.AsString := 'DIAS_UTEIS'; end; AJson.Add('protestQuantityDays').Value.AsString := IntToStr(DiasDeProtesto); end; //prazo de baixa/devolução em dias, opcional if (DataBaixa <> 0) and ((DataBaixa - Vencimento) > 0) then AJson.Add('writeOffQuantityDays').Value.AsString := IntToStr(trunc(DataBaixa - Vencimento)); end; end; end; end; ACBrBoletoW_Santander_API.rar

Pessoal, Desistimos de tentar compatibilizar os dois canais de envio e recebimento de boletos do Santander. Assim sendo, desativamos o envio/recebimento através de CNAB e adotamos por padrão o uso da API. Podem encerrar esse tópico.