You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
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;
The text was updated successfully, but these errors were encountered:
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;
finally
LDataSet.free;
end;
end;
The text was updated successfully, but these errors were encountered: