Adicionar campo field na classe TMateraError

Luiz Carlos Ruiz Cestaro · 13 Maio

Realizando teste na plataforma PIX Matera, identifique que no log da transação quando ocorre um erro, dependendo do tipo de erro vem um campo adicional field no json.

Linha do Log da Matera.

{"error":{"code":"2","description":"Inappropriate use of paymentInfo.instantPayment.billingDueDate.dueDate","field":"paymentInfo.instantPayment.billingDueDate.dueDate"}}

Mas atualmente a classe nao leva este campo em consideracao retornando o json assim {"error":{"code":"2","description":"Inappropriate use of paymentInfo.instantPayment.billingDueDate.dueDate"}}

Sugestao que seja adiciona o campo field na classe TMateraError no arquivo ACBrSchmeasMatera

Cabecalho da classe

  TMateraError = class(TACBrPIXSchema)
  private
    fcode: String;
    fdescription: String;
    ffield: String;
  protected
    procedure AssignSchema(aSource: TACBrPIXSchema); override;
    procedure DoWriteToJSon(aJSon: TACBrJSONObject); override;
    procedure DoReadFromJSon(aJSon: TACBrJSONObject); override;
  public
    constructor Create(const aObjectName: String = ''); override;
    procedure Clear; override;
    function IsEmpty: Boolean; override;
    procedure Assign(aSource: TMateraError);

    property code: String read fcode write fcode;
    property field: String read ffield write ffield;
    property description: String read fdescription write fdescription;
  end;

Alteracao dos metodos da classe

procedure TMateraError.DoWriteToJSon(aJSon: TACBrJSONObject);
begin
  aJSon
    .AddPair('code', fcode)
    .AddPair('description', fdescription)
    .AddPair('field', ffield);
end;

procedure TMateraError.DoReadFromJSon(aJSon: TACBrJSONObject);
begin
  aJSon
    .Value('code', fcode)
    .Value('description', fdescription)
    .Value('field', ffield);
end;

procedure TMateraError.Clear;
begin
  fcode := EmptyStr;
  fdescription := EmptyStr;
  ffield := EmptyStr
end;