ACBrPSPMatera implementado Alterar conta

theiller · 23 Abril

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;