Olá amigos!
Estou tendo dificuldades para implementar o método delete na API de pagamentos.
Recebo sempre o erro: StatusCode: 422, InternalCode: 40092.
Faço uso da biblioteca RESTQuest4D
Minha tentativa:
st: string;
JSonValue: TJSonValue;
JSonObject: TJSonObject;
begin
st := '{"accountHash": ["XXXX"]}';
JSonObject := TJSonObject.Create;
JsonValue :=JSonObject.ParseJSONValue(st);
LResponse := TRequest.New.BaseURL('https://staging.pagamentobancario.com.br/api/v1/account')
.AddHeader('cnpjsh', cnpjsh)
.AddHeader('tokensh', Token)
.AddHeader('payercpfcnpj', payercpfcnpj)
.Timeout(TimeOut)
.Accept('application/json')
.AddBody(JsonValue)
.Delete;