Código de retrono na devolução PSP Sicredi

[JLuis]

Bom dia... Alterado tratamento feito na classe do PSP Sicredi em relação ao retorno na operação de devolução de valor. O tratamento está retornado 200 e deveria retornar 201, uma vez que o Sicredi responde HTTP_OK ao método PUT do Endpoint PIX, de forma diferente da especificada.

procedure TACBrPSPSicredi.QuandoReceberRespostaEndPoint(const aEndPoint, aURL,
  aMethod: String; var aResultCode: Integer; var aRespostaHttp: AnsiString);
begin
  // Sicredi responde HTTP_OK ao método PUT do Endpoint PIX, de forma diferente da especificada
  {if (UpperCase(AMethod) = ChttpMethodPUT) and (AEndPoint = cEndPointPix) and (AResultCode = HTTP_CREATED) then
    AResultCode := HTTP_OK;}
  if (UpperCase(AMethod) = ChttpMethodPUT) and (AEndPoint = cEndPointPix) and (AResultCode = HTTP_OK) then
    AResultCode := HTTP_CREATED;
end;

Unit alterada em anexo.

ACBrPIXPSPSicredi.pas

[EliasCesar]

Olá @José Luís

Acabei de enviar ao SVN a correção(rev: 28493).

Muito obrigado pela contribuição