EXEMPLO: FIRST 1

Q_PESQ.SQL.Clear();
Q_PESQ.SQL.Add('SELECT FIRST 1 P.NumPedCli,');
Q_PESQ.SQL.Add('               IP.NItemPED');
Q_PESQ.SQL.Add('          FROM NotaPed AS N');
Q_PESQ.SQL.Add('    INNER JOIN Pedidos AS P');
Q_PESQ.SQL.Add('            ON P.Abrev = N.Abrev');
Q_PESQ.SQL.Add('           AND P.Modelo = N.ModeloPed');
Q_PESQ.SQL.Add('           AND P.NumPedido = N.NumPedido');
Q_PESQ.SQL.Add('    INNER JOIN ItensPe AS IP');
Q_PESQ.SQL.Add('            ON IP.Abrev = P.Abrev');
Q_PESQ.SQL.Add('           AND IP.Modelo = P.Modelo');
Q_PESQ.SQL.Add('           AND IP.NumPedido = P.NumPedido');
Q_PESQ.SQL.Add('           AND IP.Item = N.ItemPedido');
Q_PESQ.SQL.Add('         WHERE N.Abrev = :PAbrev');
Q_PESQ.SQL.Add('           AND N.ModeloNF = :PModeloNF');
Q_PESQ.SQL.Add('           AND N.NumLancto = :PNumLancto');
Q_PESQ.SQL.Add('           AND N.ItemNF = :PItemNF');
Q_PESQ.ParamByName('PAbrev').AsString := TGlobalInfoSistema.AbrevEmp;
Q_PESQ.ParamByName('PModeloNF').AsString := DM_IMPRESSNF.QItens.FieldByName('Modelo').AsString;
Q_PESQ.ParamByName('PNumLancto').AsString := DM_IMPRESSNF.QItens.FieldByName('NumLancto').AsString;
Q_PESQ.ParamByName('PItemNF').AsFloat := DM_IMPRESSNF.QItens.FieldByName('Item').AsFloat;
Q_PESQ.Abrir();