adrianosantostreina / adrconnection Goto Github PK

Olá, achei fantástico o ADRConnection.
mas estou me batendo com uma situação:
Passei um SQL com parametro e ele não reconhece o mesmo.
Como é feito isso?
O SQLestá assim
vSQL = 'SELECT first(50) c.COD_CLIENTE cd_cliente, '+
' C.Razao_Social ds_razaosocial '+
' From Clientes C '+
' Where c.DELETADO = ''N'' '+
' and c.bloqueado = ''N'' '+
' and c.data_atualizacao >= :varDataAtualizacao '+
' Order by c.Cod_CLIENTE';
No Dataset faço assim:
LDataSet := FQuery
.SQL(vSQL)
.ParamAsDate('varDataAtualizacao',vData)
.Open;

Bom dia!
Estou relatando um erro que acontece no ADRConnetion.
O erro acontece quando vou INSERIR um registro quando um campo no select não pertence a tabela,
a rotina LDataSet.LoadFromJSON(AValue), entra em loop e não estoura a exception.
No meu caso estou usando o PostMan e nada é retornado, nem o Status.

function TDAOPADRAO.Insert(AValue: string): TJSONObject;
{$REGION 'SELECT'}
const
LSQL = 'SELECT ??????? IDTENACY, IDEMP, DTVENDA FROM MOVENDA WHERE 1 = 1';
{$ENDREGION}
var
LDataSet: TDataSet;
begin
Try
try
LDataSet := FQuery.SQL(LSQL).OpenDataset;

  LDataSet.LoadFromJSON(AValue);

  Result := LDataSet.ToJSONObject;
Except
  on E: Exception do
  Begin
    Result := TJSONObject.create;
    Raise Exception.create(E.Message);
  End;
end;

finally
LDataSet.free;
end;
end;