ACBrPSPMatera implementado Alterar conta

[theiller]

Identifiquei que não existia o método para atualização da conta.

Fiz a implementação e já realizei a atualização, segue contribuição do fonte:

Citar

 

function TACBrPSPMatera.ContaAlterar(aAccountId: String): Boolean;
var
  wOpenSSL: TACBrOpenSSLUtils;
  wBody, wURL, wHash: String;
  wRespHttp: AnsiString;
  wResultCode: Integer;
begin
  if (not Assigned(fContaSolicitacao)) or fContaSolicitacao.IsEmpty then
    DispararExcecao(EACBrPixException.CreateFmt(ACBrStr(sErroObjetoNaoPrenchido), ['ContaSolicitada']));

  if (ContaSolicitacao.clientType = mctNone) then
    ContaSolicitacao.clientType := mctCorporate;

  if (ContaSolicitacao.accountType = matNone) then
    ContaSolicitacao.accountType := matUnlimitedOrdinary;

  {$IFNDEF FPC}
  wBody := Trim(ACBrAnsiToUTF8(ContaSolicitacao.AsJSON));
  {$ELSE}
  wBody := Trim(ContaSolicitacao.AsJSON);
  {$ENDIF}

  ContaResposta.Clear;
  PrepararHTTP;
  URLPathParams.Add(aAccountId);
  WriteStrToStream(Http.Document, wBody);
  Http.MimeType := CContentTypeApplicationJSon;

  wOpenSSL := TACBrOpenSSLUtils.Create(Nil);
  try
    wHash := wOpenSSL.HMACFromString(
               ContaSolicitacao.externalIdentifier +
               ContaSolicitacao.client.taxIdentifier.taxId, SecretKey, algSHA256);
    Http.Headers.Add('Transaction-Hash: ' + wHash);
  finally
    wOpenSSL.Free;
  end;

  Result := AcessarEndPoint(ChttpMethodPOST, cMateraEndPointAccounts, wResultCode, wRespHttp);
  Result := Result and (wResultCode = HTTP_OK);

  if Result then
    ContaResposta.AsJSON := String(wRespHttp)
  else
  begin
    ErroResposta.AsJSON := String(wRespHttp);
    wURL := CalcularURLEndPoint(ChttpMethodPOST, cMateraEndPointAccounts);
    DispararExcecao(EACBrPixHttpException.CreateFmt(sErroHttp, [wResultCode, ChttpMethodPOST, wURL]));
  end;
end;

 

 

ACBrPIXPSPMatera.pas

[Alexandre de Paula]

Boa tarde,

Criada a TK-6959 para avaliação.

Obrigado pela contribuição.