[ecfisa]

Hola rotsen26.

Si no te entiendo mal, creo que sería:

Código Delphi [-]
  with qry_consumo do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE DET_CONSUMO SET ESTATUS = :PSTATUS');
    SQL.Add('WHERE PK_CONSUMO = :PCONSUMO');
    ParamByName('PSTATUS').AsString := 'DEV';
    ParamByName('PCONSUMO').Value := El_Otro_Qry.FieldByName('PK_CONSUMO').Value;
    ExecSQL;
  end;

Saludos.